elisp: fix non expanded path comparison

This commit is contained in:
Daniel Gröber 2015-05-06 16:16:13 +02:00
parent c1bdb2d52c
commit 644ee82a02

View File

@ -167,13 +167,13 @@ nil does not display errors/warnings.
;; If this is a bottleneck for a large code, let's fix.
(goto-char (point-min))
(cond
((and (string= ofile file) hole)
((and (string= (file-truename ofile) (file-truename file)) hole)
(forward-line (1- line))
(forward-char (1- coln))
(setq beg (point))
(forward-char (length hole))
(setq end (point)))
((string= ofile file)
((string= (string= (file-truename ofile) (file-truename file)))
(forward-line (1- line))
(while (eq (char-after) 32) (forward-char))
(setq beg (point))