2717 |
(and buffer-file-name |
(and buffer-file-name |
2718 |
(file-writable-p buffer-file-name) |
(file-writable-p buffer-file-name) |
2719 |
(setq buffer-read-only nil)) |
(setq buffer-read-only nil)) |
2720 |
(save-buffer)) |
(save-buffer) |
2721 |
|
;; It's likely that the VC status at the new location is different from |
2722 |
|
;; the one at the old location. |
2723 |
|
(vc-find-file-hook)) |
2724 |
|
|
2725 |
(defun backup-buffer () |
(defun backup-buffer () |
2726 |
"Make a backup of the disk file visited by the current buffer, if appropriate. |
"Make a backup of the disk file visited by the current buffer, if appropriate. |