diff options
| author | JSDurand <mmemmew@gmail.com> | 2023-06-18 00:16:18 +0800 |
|---|---|---|
| committer | JSDurand <mmemmew@gmail.com> | 2023-06-18 00:16:18 +0800 |
| commit | b8e849ed238573fc0943efdf394cb8fb55164ce8 (patch) | |
| tree | b77737f642b7ec43267d00d8bcebc65f244cad1b | |
| parent | c0af15279da1bc2e3e7b379027fb82d89e90842c (diff) | |
desktop + bookmark: bind C-x r s to save desktop.
* bookmark-conf.el (ctl-x-r-map): Remove the original binding.
* desktop-conf.el (durand-desktop-save-a): Do not ask questions when
saving.
(ctl-x-r-map): Bind 'C-x r s' to save the desktop file, as well as
the bookmarks. Saving bookmarks does not run a hook, whereas saving
the desktop file runs a hook, so it is easier to call `desktop-save`
which also saves bookmarks than the other way around.
| -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 |