aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/files.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/files.el b/lisp/files.el
index c8587b5c781..91da8a4c2c7 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -663,13 +663,12 @@ The truename of a file name is found by chasing symbolic links
663both at the level of the file and at the level of the directories 663both at the level of the file and at the level of the directories
664containing it, until no links are left at any level. 664containing it, until no links are left at any level.
665 665
666The arguments COUNTER and PREV-DIRS are used only in recursive calls. 666\(fn FILENAME)"
667Do not specify them in other calls." 667 ;; COUNTER and PREV-DIRS are only used in recursive calls.
668 ;; COUNTER can be a cons cell whose car is the count of how many more links 668 ;; COUNTER can be a cons cell whose car is the count of how many
669 ;; to chase before getting an error. 669 ;; more links to chase before getting an error.
670 ;; PREV-DIRS can be a cons cell whose car is an alist 670 ;; PREV-DIRS can be a cons cell whose car is an alist
671 ;; of truenames we've just recently computed. 671 ;; of truenames we've just recently computed.
672
673 (cond ((or (string= filename "") (string= filename "~")) 672 (cond ((or (string= filename "") (string= filename "~"))
674 (setq filename (expand-file-name filename)) 673 (setq filename (expand-file-name filename))
675 (if (string= filename "") 674 (if (string= filename "")