Implement patch by Stefan Monnier

This commit is contained in:
Carsten Dominik 2010-06-26 13:13:14 +02:00
parent d3e3a3ce0a
commit d325d0c255
1 changed files with 1 additions and 1 deletions

View File

@ -8635,7 +8635,7 @@ Use TAB to complete link prefixes, then RET for type-specific completion support
(save-match-data (save-match-data
(if (string-match (concat "^" (regexp-quote (if (string-match (concat "^" (regexp-quote
(file-name-as-directory (file-name-as-directory
(expand-file-name ".")))) default-directory)))
(expand-file-name path)) (expand-file-name path))
;; We are linking a file with relative path name. ;; We are linking a file with relative path name.
(setq path (substring (expand-file-name path) (setq path (substring (expand-file-name path)