diff options
Diffstat (limited to 'desktop-conf.el')
| -rw-r--r-- | desktop-conf.el | 14 |
1 files changed, 10 insertions, 4 deletions
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 |