# HG changeset patch # User Stefan Monnier # Date 972608109 0 # Node ID 3b8c8450514e109e08abefce276a509214b683be # Parent 85599a2dac714961dc0d600e7a6b727a20397083 (custom-mode-map): Use a sparse map. (custom-mode): Don't bother with make-local-hook. diff -r 85599a2dac71 -r 3b8c8450514e lisp/cus-edit.el --- a/lisp/cus-edit.el Fri Oct 27 00:54:52 2000 +0000 +++ b/lisp/cus-edit.el Fri Oct 27 00:55:09 2000 +0000 @@ -3659,7 +3659,7 @@ "Keymap for `custom-mode'.") (unless custom-mode-map - (setq custom-mode-map (make-sparse-keymap)) + (setq custom-mode-map (make-keymap)) (set-keymap-parent custom-mode-map widget-keymap) (suppress-keymap custom-mode-map) (define-key custom-mode-map " " 'scroll-up) @@ -3753,7 +3753,6 @@ (set (make-local-variable 'widget-push-button-suffix) "") (set (make-local-variable 'widget-link-prefix) "") (set (make-local-variable 'widget-link-suffix) "")) - (make-local-hook 'widget-edit-functions) (add-hook 'widget-edit-functions 'custom-state-buffer-message nil t) (run-hooks 'custom-mode-hook))