[Emacs-diffs] Changes to emacs/lisp/files.el

[Eli Zaretskii]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.563 emacs/lisp/files.el:1.564
*** emacs/lisp/files.el:1.563   Mon Apr  8 01:00:25 2002
--- emacs/lisp/files.el Thu Apr 11 08:13:53 2002
***************
*** 3943,3949 ****
        (car arguments)
        (let ((value (apply operation arguments)))
        (cond ((memq operation '(file-name-completion))
!              (and value (concat "/:" value)))
              ((memq operation '(file-name-all-completions))
               (mapcar (lambda (name) (concat "/:" name)) value))
              (t value))))))
--- 3943,3949 ----
        (car arguments)
        (let ((value (apply operation arguments)))
        (cond ((memq operation '(file-name-completion))
!              (and value (if (eq value t) t (concat "/:" value))))
              ((memq operation '(file-name-all-completions))
               (mapcar (lambda (name) (concat "/:" name)) value))
              (t value))))))