Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

cus-edit.el: Don't quote lambdas and improve macro declaration

Browse source 
* lisp/cus-edit.el (custom-reset-extended-menu): Don't quote lambdas.
(custom-dirlocals-with-buffer): Add indent and debug info.
This commit is contained in:
Stefan Monnier 2025-07-01 17:37:02 -04:00
parent b3b83b3603
commit f732a44af8
1 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lisp/cus-edit.el
View file

@ -792,24 +792,24 @@ when the action is chosen.")
(defvar custom-reset-extended-menu
(let ((map (make-sparse-keymap)))
(define-key-after map [Custom-reset-current]
'(menu-item "Undo Edits in Customization Buffer" Custom-reset-current
:enable (seq-some (lambda (option)
(eq (widget-get option :custom-state)
'modified))
`(menu-item "Undo Edits in Customization Buffer" Custom-reset-current
:enable (seq-some ,(lambda (option)
(eq (widget-get option :custom-state)
'modified))
custom-options)))
(define-key-after map [Custom-reset-saved]
'(menu-item "Revert This Session's Customizations" Custom-reset-saved
:enable (seq-some (lambda (option)
(memq (widget-get option :custom-state)
'(modified set changed rogue)))
`(menu-item "Revert This Session's Customizations" Custom-reset-saved
:enable (seq-some ,(lambda (option)
(memq (widget-get option :custom-state)
'(modified set changed rogue)))
custom-options)))
(when (or custom-file user-init-file)
(define-key-after map [Custom-reset-standard]
'(menu-item "Erase Customizations" Custom-reset-standard
`(menu-item "Erase Customizations" Custom-reset-standard
:enable (seq-some
(lambda (option)
(memq (widget-get option :custom-state)
'(modified set changed rogue saved)))
,(lambda (option)
(memq (widget-get option :custom-state)
'(modified set changed rogue saved)))
custom-options))))
map)
"A menu for the \"Revert...\" button.
@ -6095,6 +6095,7 @@ Moves point into the widget that holds the value."
"Arrange to execute BODY in a \"*Customize Dirlocals*\" buffer."
;; We don't use `custom-buffer-create' because the settings here
;; don't go into the `custom-file'.
(declare (indent 0) (debug t))
`(progn
(switch-to-buffer "*Customize Dirlocals*")