Mercurial > hg > xemacs-beta
diff lisp/info.el @ 3693:3b847cba6d71
[xemacs-hg @ 2006-11-22 02:20:20 by stephent]
Update buffer-file-truename with buffer-file-name in info.el.
Document invariant. <874pssmen5.fsf@uwakimon.sk.tsukuba.ac.jp>
| author | stephent |
|---|---|
| date | Wed, 22 Nov 2006 02:20:34 +0000 |
| parents | e5c8780c8229 |
| children | 3ff01259c4a2 |
line wrap: on
line diff
--- a/lisp/info.el Tue Nov 21 22:51:08 2006 +0000 +++ b/lisp/info.el Wed Nov 22 02:20:34 2006 +0000 @@ -717,7 +717,8 @@ ;; Nooooooooooo! Info-index can extend across more ;; than one file (e.g. XEmacs, Lispref) ;; Info-index-alternatives nil - buffer-file-name nil) + buffer-file-name nil + buffer-file-truename nil) (erase-buffer) (if (string= "dir" (file-name-nondirectory filename)) (Info-insert-dir) @@ -1052,7 +1053,8 @@ (message "Composing main Info directory...done")) (setq Info-dir-contents (buffer-string))) (setq default-directory (file-name-as-directory Info-dir-contents-directory)) - (setq buffer-file-name (caar Info-dir-file-attributes))) + (setq buffer-file-name (caar Info-dir-file-attributes) + buffer-file-truename (file-truename buffer-file-name))) (defmacro Info-directory-files (dir-file &optional all full nosort files-only) "Return a list of Info files living in the same directory as DIR-FILE. @@ -1423,7 +1425,8 @@ (throw 'foo t))))) (or (equal Info-current-subfile lastfilename) (let ((buffer-read-only nil)) - (setq buffer-file-name nil) + (setq buffer-file-name nil + buffer-file-truename nil) (widen) (erase-buffer) (Info-insert-file-contents (Info-suffixed-file @@ -1531,7 +1534,8 @@ (call-process shell-file-name nil t nil shell-command-switch command) (message "") (when visit - (setq buffer-file-name file) + (setq buffer-file-name file + buffer-file-truename (file-truename buffer-file-name)) (set-buffer-modified-p nil) (clear-visited-file-modtime))) (insert-file-contents file visit))))