[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/files.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/files.el |
Date: |
Mon, 16 Jun 2003 17:24:07 -0400 |
Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.662 emacs/lisp/files.el:1.663
*** emacs/lisp/files.el:1.662 Tue Jun 3 19:23:06 2003
--- emacs/lisp/files.el Mon Jun 16 17:24:07 2003
***************
*** 3688,3705 ****
;; a "visited file name" from that.
(progn
(forward-line 1)
! (setq autofile
! (buffer-substring-no-properties
! (point)
! (save-excursion
! (end-of-line)
! (point))))
! (setq thisfile
! (expand-file-name
! (substring
! (file-name-nondirectory autofile)
! 1 -1)
! (file-name-directory autofile)))
(forward-line 1))
;; This pair of lines is a file-visiting
;; buffer. Use the visited file name.
--- 3688,3708 ----
;; a "visited file name" from that.
(progn
(forward-line 1)
! ;; If there is no auto-save file name, the
! ;; auto-save-list file is probably corrupted.
! (unless (eolp)
! (setq autofile
! (buffer-substring-no-properties
! (point)
! (save-excursion
! (end-of-line)
! (point))))
! (setq thisfile
! (expand-file-name
! (substring
! (file-name-nondirectory autofile)
! 1 -1)
! (file-name-directory autofile))))
(forward-line 1))
;; This pair of lines is a file-visiting
;; buffer. Use the visited file name.
***************
*** 3713,3719 ****
(point) (progn (end-of-line) (point))))
(forward-line 1)))
;; Ignore a file if its auto-save file does not exist now.
! (if (file-exists-p autofile)
(setq files (cons thisfile files)))))
(setq files (nreverse files))
;; The file contains a pair of line for each auto-saved buffer.
--- 3716,3722 ----
(point) (progn (end-of-line) (point))))
(forward-line 1)))
;; Ignore a file if its auto-save file does not exist now.
! (if (and autofile (file-exists-p autofile))
(setq files (cons thisfile files)))))
(setq files (nreverse files))
;; The file contains a pair of line for each auto-saved buffer.