/[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.575 by miles, Mon May 20 04:40:40 2002 UTC revision 1.576 by rost, Wed May 22 23:29:23 2002 UTC
# Line 3011  saying what text to write." Line 3011  saying what text to write."
3011    ;; `make-backup-file-name' will get us the right directory for    ;; `make-backup-file-name' will get us the right directory for
3012    ;; ordinary or numeric backups.  It might create a directory for    ;; ordinary or numeric backups.  It might create a directory for
3013    ;; backups as a side-effect, according to `backup-directory-alist'.    ;; backups as a side-effect, according to `backup-directory-alist'.
3014    (let* ((filename (make-backup-file-name filename))    (let* ((filename (file-name-sans-versions
3015                        (make-backup-file-name filename)))
3016           (file (file-name-nondirectory filename))           (file (file-name-nondirectory filename))
3017           (dir  (file-name-directory    filename))           (dir  (file-name-directory    filename))
3018           (comp (file-name-all-completions file dir))           (comp (file-name-all-completions file dir))

Legend:
Removed from v.1.575  
changed lines
  Added in v.1.576

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