Commit 10013d74 authored by Dave Love's avatar Dave Love
Browse files

(menu-bar-options-save): New function.

(menu-bar-options-menu): Use it.
(menu-bar-options-menu) <toggle-global-lazy-font-lock-mode>: Simplify.
parent 998e9f8c
2000-06-19 Dave Love <fx@gnu.org>
* menu-bar.el (menu-bar-options-save): New function.
(menu-bar-options-menu): Use it.
(menu-bar-options-menu) <toggle-global-lazy-font-lock-mode>:
Simplify.
2000-06-19 Andreas Schwab <schwab@suse.de> 2000-06-19 Andreas Schwab <schwab@suse.de>
* progmodes/etags.el (tags-query-replace): Put new parameters * progmodes/etags.el (tags-query-replace): Put new parameters
......
...@@ -517,6 +517,32 @@ Do the same for the keys of the same name." ...@@ -517,6 +517,32 @@ Do the same for the keys of the same name."
(define-key menu-bar-options-menu [customize] (define-key menu-bar-options-menu [customize]
(list 'menu-item "Customize Emacs" menu-bar-custom-menu (list 'menu-item "Customize Emacs" menu-bar-custom-menu
:help "Full customization of every Emacs feature")) :help "Full customization of every Emacs feature"))
(defun menu-bar-options-save ()
"Save current values of Options menu items using Custom."
(interactive)
(dolist (elt '(debug-on-quit debug-on-error auto-compression-mode
case-fold-search truncate-lines show-paren-mode
transient-mark-mode global-font-lock-mode
current-language-environment default-input-method))
(if (default-value elt)
(customize-save-variable elt (default-value elt))))
(if (memq 'turn-on-auto-fill text-mode-hook)
(customize-save-variable 'text-mode-hook
(default-value 'text-mode-hook)))
(if (featurep 'saveplace)
(customize-save-variable 'save-place (default-value 'save-place)))
(if (featurep 'uniquify)
(customize-save-variable 'uniquify-buffer-name-style
(default-value 'uniquify-buffer-name-style))))
(define-key menu-bar-options-menu [save]
'(menu-item "Save options" menu-bar-options-save
:help "Save options set from the menu above"))
(define-key menu-bar-options-menu [custom-separator]
'("--"))
(define-key menu-bar-options-menu [mule] (define-key menu-bar-options-menu [mule]
;; It is better not to use backquote here, ;; It is better not to use backquote here,
;; because that makes a bootstrapping problem ;; because that makes a bootstrapping problem
...@@ -556,7 +582,8 @@ Do the same for the keys of the same name." ...@@ -556,7 +582,8 @@ Do the same for the keys of the same name."
"Saving place in files %s" "Saving place in files %s"
"Save Emacs state for next session" "Save Emacs state for next session"
(require 'saveplace) (require 'saveplace)
(setq-default save-place (not (default-value save-place))))) (setq-default save-place
(not (default-value save-place)))))
(define-key menu-bar-options-menu [uniquify] (define-key menu-bar-options-menu [uniquify]
(menu-bar-make-toggle toggle-uniquify-buffer-names uniquify-buffer-name-style (menu-bar-make-toggle toggle-uniquify-buffer-names uniquify-buffer-name-style
"Use Directory Names in Buffer Names" "Use Directory Names in Buffer Names"
...@@ -602,14 +629,7 @@ Do the same for the keys of the same name." ...@@ -602,14 +629,7 @@ Do the same for the keys of the same name."
"Highlight Syntax (Global Font Lock)" "Highlight Syntax (Global Font Lock)"
"Syntax Highlighting %s" "Syntax Highlighting %s"
"Highlights text based on language syntax" "Highlights text based on language syntax"
;; Make sure a support mode is used; global-font-lock-mode))
;; otherwise Font Lock will be too slow.
(require 'font-lock)
(if (not global-font-lock-mode)
(or font-lock-support-mode
(setq font-lock-support-mode 'lazy-lock-mode)))
(global-font-lock-mode)))
;; The "Tools" menu items ;; The "Tools" menu items
...@@ -1022,16 +1042,16 @@ key (or menu-item)")) ...@@ -1022,16 +1042,16 @@ key (or menu-item)"))
;; Now make the actual list of items, ;; Now make the actual list of items,
;; ending with the list-buffers item. ;; ending with the list-buffers item.
(nconc (mapcar (lambda (pair) (nconc (mapcar (lambda (pair)
;; This is somewhat risque, to use ;; This is somewhat risque, to use
;; the buffer name itself as the event ;; the buffer name itself as the event
;; type to define, but it works. ;; type to define, but it works.
;; It would not work to use the buffer ;; It would not work to use the buffer
;; since a buffer as an event has its ;; since a buffer as an event has its
;; own meaning. ;; own meaning.
(nconc (list (buffer-name (cdr pair)) (nconc (list (buffer-name (cdr pair))
(car pair) (car pair)
(cons nil nil)) (cons nil nil))
'menu-bar-select-buffer)) 'menu-bar-select-buffer))
alist) alist)
(list menu-bar-buffers-menu-list-buffers-entry))))) (list menu-bar-buffers-menu-list-buffers-entry)))))
...@@ -1044,12 +1064,14 @@ key (or menu-item)")) ...@@ -1044,12 +1064,14 @@ key (or menu-item)"))
(frames-menu (frames-menu
(cons 'keymap (cons 'keymap
(cons "Select Frame" (cons "Select Frame"
(mapcar (lambda (frame) (mapcar
(nconc (list frame (lambda (frame)
(cdr (assq 'name (nconc
(frame-parameters frame))) (list frame
(cons nil nil)) (cdr (assq 'name
'menu-bar-select-frame)) (frame-parameters frame)))
(cons nil nil))
'menu-bar-select-frame))
frames))))) frames)))))
;; Put it underneath the Buffers menu. ;; Put it underneath the Buffers menu.
(setq buffers-menu (cons (cons 'frames (cons name frames-menu)) (setq buffers-menu (cons (cons 'frames (cons name frames-menu))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment