From aef1a2e639a6e374a1d2bbddd1611681c4f25b0c Mon Sep 17 00:00:00 2001 From: Karl Fogel Date: Tue, 12 Aug 2003 05:14:49 +0000 Subject: [PATCH] * menu-bar.el (menu-bar-options-menu): Supply a body for the [save-place] binding in the Options menu. Have it require 'saveplace' and then toggle the variable manually, to avoid an an unbound variable error. Thanks to for the bug report. --- lisp/ChangeLog | 8 ++++++++ lisp/menu-bar.el | 7 ++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e52ad93c771..9509a871d64 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2003-08-11 Karl Fogel + + * menu-bar.el (menu-bar-options-menu): Supply a body for the + [save-place] binding in the Options menu. Have it require + 'saveplace' and then toggle the variable manually, to avoid an an + unbound variable error. Thanks to + for the bug report. + 2003-08-11 Nick Roberts * gdb-ui.el (gdb-insert-field, gdb-array-format1) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index da5def67510..a339da9e73f 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -870,7 +870,12 @@ PROPS are additional properties." (menu-bar-make-toggle toggle-save-place-globally save-place "Save Place in Files between Sessions" "Saving place in files %s" - "Visit files of previous session when restarting Emacs")) + "Visit files of previous session when restarting Emacs" + (require 'saveplace) + ;; Do it by name, to avoid a free-variable + ;; warning during byte compilation. + (set-default + 'save-place (not (symbol-value 'save-place))))) (define-key menu-bar-options-menu [uniquify] (menu-bar-make-toggle toggle-uniquify-buffer-names uniquify-buffer-name-style -- 2.11.4.GIT