Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
6a239292
Commit
6a239292
authored
May 07, 2001
by
Gerd Moellmann
Browse files
(custom-file): Signal an error if user-init-file is
nil (running -q).
parent
18f534df
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
5 deletions
+8
-5
lisp/cus-edit.el
lisp/cus-edit.el
+8
-5
No files found.
lisp/cus-edit.el
View file @
6a239292
...
...
@@ -1993,7 +1993,9 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"."
;; the global custom one
(defun custom-comment-show (widget)
(widget-put widget :comment-shown t)
(trace-to-stderr (format "1: %s\n" (widget-value widget)))
(custom-redraw widget)
(trace-to-stderr (format "2: %s\n" (widget-value widget)))
(widget-setup))
(defun custom-comment-invisible-p (widget)
...
...
@@ -3447,11 +3449,12 @@ to the new custom file. This will preserve your existing customizations."
(defun custom-file ()
"Return the file name for saving customizations."
(setq custom-file
(or custom-file
user-init-file
(read-file-name "File for customizations: "
"~/" nil nil ".emacs"))))
(if (null user-init-file)
;; Started with -q, i.e. the file containing Custom settings
;; hasn't been read. Saving settings there would overwrite
;; other settings.
(error "Saving settings when running -q would overwrite existing settings")
(setq custom-file (or custom-file user-init-file))))
(defun custom-save-delete (symbol)
"Visit `custom-file' and delete all calls to SYMBOL from it.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment