diff options
author | Stefan Kangas <stefan@marxist.se> | 2022-08-05 12:28:59 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2022-08-05 12:28:59 +0200 |
commit | 0c106ce87ced346dc7280a0c9943b0e2e6dd8c37 (patch) | |
tree | e58033e67a63f487b0469f3758b0699f27beccc5 /lisp/saveplace.el | |
parent | ab810804370b791749c6db5fdfef1be1a08e9903 (diff) | |
download | emacs-0c106ce87ced346dc7280a0c9943b0e2e6dd8c37.tar.gz |
Fix namespace problem in saveplace.el
* lisp/saveplace.el (save-place-load-alist-from-file): Rename from
'load-save-place-alist-from-file'. Retain old name as an obsolete
alias. Update callers.
Diffstat (limited to 'lisp/saveplace.el')
-rw-r--r-- | lisp/saveplace.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/saveplace.el b/lisp/saveplace.el index 3830e4b16cf..4b133313125 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el @@ -191,7 +191,7 @@ file names." ;; First check to make sure alist has been loaded in from the master ;; file. If not, do so, then feel free to modify the alist. It ;; will be saved again when Emacs is killed. - (or save-place-loaded (load-save-place-alist-from-file)) + (or save-place-loaded (save-place-load-alist-from-file)) (let* ((directory (and (derived-mode-p 'dired-mode) (boundp 'dired-subdir-alist) dired-subdir-alist @@ -278,7 +278,7 @@ may have changed) back to `save-place-alist'." (file-error (message "Saving places: can't write %s" file))) (kill-buffer (current-buffer)))))) -(defun load-save-place-alist-from-file () +(defun save-place-load-alist-from-file () (if (not save-place-loaded) (progn (setq save-place-loaded t) @@ -352,7 +352,7 @@ may have changed) back to `save-place-alist'." (defun save-place-find-file-hook () "Function added to `find-file-hook' by `save-place-mode'. It runs the hook `save-place-after-find-file-hook'." - (or save-place-loaded (load-save-place-alist-from-file)) + (or save-place-loaded (save-place-load-alist-from-file)) (let ((cell (assoc buffer-file-name save-place-alist))) (if cell (progn @@ -367,7 +367,7 @@ It runs the hook `save-place-after-find-file-hook'." (defun save-place-dired-hook () "Position the point in a Dired buffer." - (or save-place-loaded (load-save-place-alist-from-file)) + (or save-place-loaded (save-place-load-alist-from-file)) (let* ((directory (and (derived-mode-p 'dired-mode) (boundp 'dired-subdir-alist) dired-subdir-alist @@ -396,5 +396,8 @@ It runs the hook `save-place-after-find-file-hook'." (if save-place-loaded (save-place-alist-to-file))) +(define-obsolete-function-alias 'load-save-place-alist-from-file + #'save-place-load-alist-from-file "29.1") + (provide 'saveplace) ;;; saveplace.el ends here |