elisp: fix non expanded path comparison
This commit is contained in:
parent
c1bdb2d52c
commit
644ee82a02
@ -167,13 +167,13 @@ nil does not display errors/warnings.
|
|||||||
;; If this is a bottleneck for a large code, let's fix.
|
;; If this is a bottleneck for a large code, let's fix.
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(cond
|
(cond
|
||||||
((and (string= ofile file) hole)
|
((and (string= (file-truename ofile) (file-truename file)) hole)
|
||||||
(forward-line (1- line))
|
(forward-line (1- line))
|
||||||
(forward-char (1- coln))
|
(forward-char (1- coln))
|
||||||
(setq beg (point))
|
(setq beg (point))
|
||||||
(forward-char (length hole))
|
(forward-char (length hole))
|
||||||
(setq end (point)))
|
(setq end (point)))
|
||||||
((string= ofile file)
|
((string= (string= (file-truename ofile) (file-truename file)))
|
||||||
(forward-line (1- line))
|
(forward-line (1- line))
|
||||||
(while (eq (char-after) 32) (forward-char))
|
(while (eq (char-after) 32) (forward-char))
|
||||||
(setq beg (point))
|
(setq beg (point))
|
||||||
|
Loading…
Reference in New Issue
Block a user