Changeset 4148 for trunk/lisp/cus-edit.el

Timestamp:

2006年08月18日 08時35分31秒 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/cus-edit.el (modified) (2 diffs)

trunk/lisp/cus-edit.el

@@ -4437 +4437 @@
-    (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)
@@ -4452 +4453 @@
-  (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