Mercurial > emacs

comparison lisp/files.el @ 52056:041d0086818e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-visited-file-name): Use truename for buffer-file-name.
author Markus Rost <rost@math.uni-bielefeld.de>
date Sun, 27 Jul 2003 19:53:40 +0000
parents 38b96f89712a
children 374d8606ca76
comparison
equal deleted inserted replaced
52055:8322fd2e3685 52056:041d0086818e
2353 ;; Abbreviate the file names of the buffer. 2353 ;; Abbreviate the file names of the buffer.
2354 (if truename 2354 (if truename
2355 (progn 2355 (progn
2356 (setq buffer-file-truename (abbreviate-file-name truename)) 2356 (setq buffer-file-truename (abbreviate-file-name truename))
2357 (if find-file-visit-truename 2357 (if find-file-visit-truename
2358 (setq buffer-file-name buffer-file-truename)))) 2358 (setq buffer-file-name truename))))
2359 (setq buffer-file-number 2359 (setq buffer-file-number
2360 (if filename 2360 (if filename
2361 (nthcdr 10 (file-attributes buffer-file-name)) 2361 (nthcdr 10 (file-attributes buffer-file-name))
2362 nil))) 2362 nil)))
2363 ;; write-file-functions is normally used for things like ftp-find-file 2363 ;; write-file-functions is normally used for things like ftp-find-file