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

Timestamp:

09/10/05 10:16:00 (3 years ago)

Author:

miyoshi

Message:

--

Files:

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

trunk/lisp/cus-edit.el

@@ -671 +671 @@
-  :group 'custom-browse)
-
-nil
+t
-  "If non-nil, sort members of each customization group alphabetically."
-  :type 'boolean
@@ -3837 +3837 @@
-      (widget-put widget :custom-state found)))
-  (custom-magic-reset widget))
-
-
+
+
+
-;;;###autoload
-(defcustom custom-file nil
@@ -3899 +3900 @@
-         user-init-file))))
-
+;;;###autoload
+(defun custom-save-all ()
+  "Save all customizations in `custom-file'."
+  (let* ((filename (custom-file))
+         (recentf-exclude (if recentf-mode
+                              (cons (concat "\\`"
+                                            (regexp-quote (custom-file))
+                                            "\\'")
+                                    recentf-exclude)))
+         (old-buffer (find-buffer-visiting filename)))
+    (with-current-buffer (or old-buffer (find-file-noselect filename))
+      (let ((inhibit-read-only t))
+        (custom-save-variables)
+        (custom-save-faces))
+      (let ((file-precious-flag t))
+        (save-buffer))
+      (unless old-buffer
+        (kill-buffer (current-buffer))))))
+
+;; Editing the custom file contents in a buffer.
+
-(defun custom-save-delete (symbol)
-Visit `custom-file' and delete all calls to SYMBOL from it
+Delete all calls to SYMBOL from the contents of the current buffer
-Leave point at the old location of the first such call,
-
-
-
-
-
-
-
-
+
+
+
-  (goto-char (point-min))
-  ;; Skip all whitespace and comments.
@@ -4129 +4146 @@
-  ;; We really should update all custom buffers here.
-  (custom-save-all))
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-;;; The Customize Menu.
-