Mercurial > emacs
comparison lisp/files.el @ 3151:923f5564a2a1
(find-file-noselect): Expand buffer-file-truename
before copying it to anything else.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 26 May 1993 23:19:07 +0000 |
| parents | ab977e2c9431 |
| children | d96fd9315996 |
comparison
equal
deleted
inserted
replaced
| 3150:afc59d5d30c6 | 3151:923f5564a2a1 |
|---|---|
| 606 (setq logical (substring (file-name-directory filename) | 606 (setq logical (substring (file-name-directory filename) |
| 607 0 (match-beginning 0)))) | 607 0 (match-beginning 0)))) |
| 608 (not (member logical find-file-not-true-dirname-list))) | 608 (not (member logical find-file-not-true-dirname-list))) |
| 609 (setq buffer-file-name buffer-file-truename)) | 609 (setq buffer-file-name buffer-file-truename)) |
| 610 (if find-file-visit-truename | 610 (if find-file-visit-truename |
| 611 (setq buffer-file-name (setq filename buffer-file-truename))) | 611 (setq buffer-file-name |
| 612 (setq filename | |
| 613 (expand-file-name buffer-file-truename)))) | |
| 612 ;; Set buffer's default directory to that of the file. | 614 ;; Set buffer's default directory to that of the file. |
| 613 (setq default-directory (file-name-directory filename)) | 615 (setq default-directory (file-name-directory filename)) |
| 614 ;; Turn off backup files for certain file names. Since | 616 ;; Turn off backup files for certain file names. Since |
| 615 ;; this is a permanent local, the major mode won't eliminate it. | 617 ;; this is a permanent local, the major mode won't eliminate it. |
| 616 (and (not (funcall backup-enable-predicate buffer-file-name)) | 618 (and (not (funcall backup-enable-predicate buffer-file-name)) |