/[emacs]/emacs/lisp/files.el
ViewVC logotype

Diff of /emacs/lisp/files.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.563 by pj, Mon Apr 8 05:00:25 2002 UTC revision 1.564 by schwab, Thu Apr 11 12:13:53 2002 UTC
# Line 3943  With prefix arg, silently save all file- Line 3943  With prefix arg, silently save all file-
3943          (car arguments)          (car arguments)
3944        (let ((value (apply operation arguments)))        (let ((value (apply operation arguments)))
3945          (cond ((memq operation '(file-name-completion))          (cond ((memq operation '(file-name-completion))
3946                 (and value (concat "/:" value)))                 (and value (if (eq value t) t (concat "/:" value))))
3947                ((memq operation '(file-name-all-completions))                ((memq operation '(file-name-all-completions))
3948                 (mapcar (lambda (name) (concat "/:" name)) value))                 (mapcar (lambda (name) (concat "/:" name)) value))
3949                (t value))))))                (t value))))))

Legend:
Removed from v.1.563  
changed lines
  Added in v.1.564

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26