aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorStefan Kangas2019-06-09 16:47:16 -0700
committerPaul Eggert2019-06-09 16:47:59 -0700
commitabe18f5917d95ca2a27018ce5dfc01ac91fc9fab (patch)
tree82b0821a0e8b094de4c5aa180919f87e404fe73a /lisp
parentd11dd6a90c1ccee5f635d752d98a98b1c7adbe03 (diff)
downloademacs-abe18f5917d95ca2a27018ce5dfc01ac91fc9fab.tar.gz
emacs-abe18f5917d95ca2a27018ce5dfc01ac91fc9fab.zip
Make bookmark-old-default-file variable obsolete
* lisp/bookmark.el (bookmark-old-default-file): Redefine as obsolete variable alias for 'bookmark-default-file'. (bookmark-maybe-load-default-file): Don't try to rename file 'bookmark-old-default-file' (~/.emacs-bkmrks) to new name (Bug#35940).
Diffstat (limited to 'lisp')
-rw-r--r--lisp/bookmark.el15
1 files changed, 2 insertions, 13 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 00884506e4d..5a9859d83df 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -78,8 +78,8 @@ To specify the file in which to save them, modify the variable
78 :group 'bookmark) 78 :group 'bookmark)
79 79
80 80
81(defconst bookmark-old-default-file "~/.emacs-bkmrks" 81(define-obsolete-variable-alias 'bookmark-old-default-file
82 "The `.emacs.bmk' file used to be called this name.") 82 'bookmark-default-file "27.1")
83 83
84 84
85(define-obsolete-variable-alias 'bookmark-file 'bookmark-default-file "27.1") 85(define-obsolete-variable-alias 'bookmark-file 'bookmark-default-file "27.1")
@@ -1024,17 +1024,6 @@ it to the name of the bookmark currently being set, advancing
1024 "If bookmarks have not been loaded from the default place, load them." 1024 "If bookmarks have not been loaded from the default place, load them."
1025 (and (not bookmarks-already-loaded) 1025 (and (not bookmarks-already-loaded)
1026 (null bookmark-alist) 1026 (null bookmark-alist)
1027 (prog2
1028 (and
1029 ;; Possibly the old bookmark file, "~/.emacs-bkmrks", needs
1030 ;; to be renamed.
1031 (file-exists-p bookmark-old-default-file)
1032 (not (file-exists-p bookmark-default-file))
1033 (rename-file bookmark-old-default-file
1034 bookmark-default-file))
1035 ;; return t so the `and' will continue...
1036 t)
1037
1038 (file-readable-p bookmark-default-file) 1027 (file-readable-p bookmark-default-file)
1039 (bookmark-load bookmark-default-file t t) 1028 (bookmark-load bookmark-default-file t t)
1040 (setq bookmarks-already-loaded t))) 1029 (setq bookmarks-already-loaded t)))