Commit 19f0515a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(custom-newline): New function.

(custom-mode-map): Bind newline to custom-newline.
parent 27f9dfbf
......@@ -4436,6 +4436,7 @@ The format is suitable for use with `easy-menu-define'."
(let ((map (make-keymap)))
(set-keymap-parent map widget-keymap)
(define-key map [remap self-insert-command] 'custom-no-edit)
(define-key map "\^m" 'custom-newline)
(define-key map " " 'scroll-up)
(define-key map "\177" 'scroll-down)
(define-key map "\C-c\C-c" 'Custom-set)
......@@ -4452,6 +4453,14 @@ The format is suitable for use with `easy-menu-define'."
(interactive "@d")
(error "You can't edit this part of the Custom buffer"))
(defun custom-newline (pos &optional event)
"Invoke button at POS, or refuse to allow editing of Custom buffer."
(interactive "@d")
(let ((button (get-char-property pos 'button)))
(if button
(widget-apply-action button event)
(error "You can't edit this part of the Custom buffer"))))
(easy-menu-define Custom-mode-menu
custom-mode-map
"Menu used in customization buffers."
......
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