Mercurial > hg > xemacs-beta

comparison lisp/prim/files.el @ 179:9ad43877534d r20-3b16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b16
author cvs
date Mon, 13 Aug 2007 09:52:19 +0200
parents 2d532a89d707
children bfd6434d15b3
comparison
equal deleted inserted replaced
178:e703507b8a00 179:9ad43877534d
955 (abbreviate-file-name (file-truename filename)) 955 (abbreviate-file-name (file-truename filename))
956 filename)) 956 filename))
957 (error "%s is a directory." filename)) 957 (error "%s is a directory." filename))
958 (let* ((buf (get-file-buffer filename)) 958 (let* ((buf (get-file-buffer filename))
959 ; (truename (abbreviate-file-name (file-truename filename))) 959 ; (truename (abbreviate-file-name (file-truename filename)))
960 ; (number (nthcdr 10 (file-attributes truename))) 960 (number (nthcdr 10 (file-attributes (file-truename filename))))
961 (number (and buffer-file-truename 961 ; (number (and buffer-file-truename
962 (nthcdr 10 (file-attributes buffer-file-truename)))) 962 ; (nthcdr 10 (file-attributes buffer-file-truename))))
963 ; ;; Find any buffer for a file which has same truename. 963 ; ;; Find any buffer for a file which has same truename.
964 ; (other (and (not buf) (find-buffer-visiting filename))) 964 ; (other (and (not buf) (find-buffer-visiting filename)))
965 (error nil)) 965 (error nil))
966 966
967 ; ;; Let user know if there is a buffer with the same truename. 967 ; ;; Let user know if there is a buffer with the same truename.