diff options
| -rw-r--r-- | bookmark-conf.el | 6 | ||||
| -rw-r--r-- | desktop-conf.el | 14 |
2 files changed, 10 insertions, 10 deletions
diff --git a/bookmark-conf.el b/bookmark-conf.el index 6304927..074628f 100644 --- a/bookmark-conf.el +++ b/bookmark-conf.el @@ -44,12 +44,6 @@ (define-key ctl-x-r-map (vector ?l) #'blist-list-bookmarks) -;;; Add a binding for saving bookmarks - -;; This was used for `copy-to-register', but we can also use `C-x r -;; x'. -(define-key ctl-x-r-map (vector ?s) #'bookmark-save) - ;;; Customizations ;;;; No strange fringe indicators diff --git a/desktop-conf.el b/desktop-conf.el index 6fa2ab0..3485b38 100644 --- a/desktop-conf.el +++ b/desktop-conf.el @@ -86,10 +86,7 @@ In a non-interactive call, VERSION can be given as an integer, either 206 or 208, to specify the format version in which to save the file, no questions asked." (interactive (list - ;; Or should we just use (car desktop-path)? - (let ((default (car desktop-path))) - (read-directory-name "Directory to save desktop file in: " - default default t)) + (car desktop-path) nil nil current-prefix-arg)) @@ -210,6 +207,15 @@ no questions asked." (desktop-save-mode 1) +;;; Add a binding for saving desktop files + +;; This was used for `copy-to-register', but we can also use `C-x r +;; x'. + +;; This was used to save bookmarks, but I also save bookmarks after +;; saving the desktop file, so I just bind it to save desktop instead. + +(define-key ctl-x-r-map (vector ?s) #'desktop-save) (provide 'desktop-conf) ;;; desktop-conf.el ends here |