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

Timestamp:

09/09/06 16:30:10 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

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

trunk/lisp/cus-edit.el

@@ -4256 +4256 @@
-              (value (get symbol 'saved-value))
-              (requests (get symbol 'custom-requests))
-not (or (custom-variable-p symbol
-    (and (not (boundp symbol)
-        (not
-         'rogue))
+and (not (custom-variable-p symbol)
+(or (boundp symbol
+   
+'rogue
-              (comment (get symbol 'saved-variable-comment)))
-`requests'.
+REQUESTS for validity. 
-          (dolist (request requests)
-            (when (and (symbolp request) (not (featurep request)))
-              (message "Unknown requested feature: %s" request)
-              (setq requests (delq request requests))))
+          ;; Is there anything customized about this variable?
-          (when (or (and spec (eq (car spec) 'user))
-                    comment
-                    (and (null spec) (get symbol 'saved-value)))
+            ;; Output an element for this variable.
+            ;; It has the form (SYMBOL VALUE-FORM NOW REQUESTS COMMENT).
+            ;; SYMBOL is the variable name.
+            ;; VALUE-FORM is an expression to return the customized value.
+            ;; NOW if non-nil means always set the variable immediately
+            ;; when the customizations are reloaded.  This is used
+            ;; for rogue variables
+            ;; REQUESTS is a list of packages to load before setting the
+            ;; variable.  Each element of it will be passed to `require'.
+            ;; COMMENT is whatever comment the user has specified
+            ;; with the customize facility.
-            (unless (bolp)
-              (princ "\n"))
@@ -4384 +4396 @@
-  `( ,(custom-unlispify-menu-entry symbol t)
-     :filter (lambda (&rest junk)
-
+*
-                 (if (consp menu) (cdr menu) menu)))))
-
@@ -4391 +4403 @@
-  "Create menu for customization group SYMBOL.
-The menu is in a format applicable to `easy-menu-define'."
-
+
+
-                       `(customize-group ',symbol)
-                       t)))
@@ -4436 +4449 @@
-  (let ((map (make-keymap)))
-    (set-keymap-parent map widget-keymap)
-c
-c
+C
+C
-    (define-key map " " 'scroll-up)
-    (define-key map "\177" 'scroll-down)
@@ -4449 +4462 @@
-  "Keymap for `custom-mode'.")
-
-c
+C
-  "Invoke button at POS, or refuse to allow editing of Custom buffer."
-  (interactive "@d")
-  (error "You can't edit this part of the Custom buffer"))
-
-c
+C
-  "Invoke button at POS, or refuse to allow editing of Custom buffer."
-  (interactive "@d")