Mercurial > emacs
comparison lisp/files.el @ 75090:fad48f2b43ab
(find-file-noselect-1, set-visited-file-name):
Allow backup-enable-predicate to be nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 04 Jan 2007 22:14:32 +0000 |
| parents | c68ca9453532 |
| children | 2b7d896e8aaa d3099204c799 |
comparison
equal
deleted
inserted
replaced
| 75089:808654e7c05a | 75090:fad48f2b43ab |
|---|---|
| 1648 (setq buffer-file-name (expand-file-name buffer-file-truename))) | 1648 (setq buffer-file-name (expand-file-name buffer-file-truename))) |
| 1649 ;; Set buffer's default directory to that of the file. | 1649 ;; Set buffer's default directory to that of the file. |
| 1650 (setq default-directory (file-name-directory buffer-file-name)) | 1650 (setq default-directory (file-name-directory buffer-file-name)) |
| 1651 ;; Turn off backup files for certain file names. Since | 1651 ;; Turn off backup files for certain file names. Since |
| 1652 ;; this is a permanent local, the major mode won't eliminate it. | 1652 ;; this is a permanent local, the major mode won't eliminate it. |
| 1653 (and (not (funcall backup-enable-predicate buffer-file-name)) | 1653 (and backup-enable-predicate |
| 1654 (not (funcall backup-enable-predicate buffer-file-name)) | |
| 1654 (progn | 1655 (progn |
| 1655 (make-local-variable 'backup-inhibited) | 1656 (make-local-variable 'backup-inhibited) |
| 1656 (setq backup-inhibited t))) | 1657 (setq backup-inhibited t))) |
| 1657 (if rawfile | 1658 (if rawfile |
| 1658 (progn | 1659 (progn |
| 2902 (setq buffer-read-only nil)) | 2903 (setq buffer-read-only nil)) |
| 2903 (kill-local-variable 'vc-mode) | 2904 (kill-local-variable 'vc-mode) |
| 2904 ;; Turn off backup files for certain file names. | 2905 ;; Turn off backup files for certain file names. |
| 2905 ;; Since this is a permanent local, the major mode won't eliminate it. | 2906 ;; Since this is a permanent local, the major mode won't eliminate it. |
| 2906 (and buffer-file-name | 2907 (and buffer-file-name |
| 2908 backup-enable-predicate | |
| 2907 (not (funcall backup-enable-predicate buffer-file-name)) | 2909 (not (funcall backup-enable-predicate buffer-file-name)) |
| 2908 (progn | 2910 (progn |
| 2909 (make-local-variable 'backup-inhibited) | 2911 (make-local-variable 'backup-inhibited) |
| 2910 (setq backup-inhibited t))) | 2912 (setq backup-inhibited t))) |
| 2911 (let ((oauto buffer-auto-save-file-name)) | 2913 (let ((oauto buffer-auto-save-file-name)) |