mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(custom-buffer-create-internal): Save some consing.

Browse Source 
(custom-variable-set): Improve validation error mesage.
This commit is contained in:
Dave Love 2000-11-22 17:52:24 +00:00
parent 197615f33f
commit 6b29231253
1 changed files with 17 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lisp/cus-edit.el
View File

@ -1297,14 +1297,13 @@ Un-customize all values in this buffer. They get their standard settings."
:tag "Finish"
:help-echo
(lambda (&rest ignore)
(concat (cond
((eq custom-buffer-done-function
'custom-bury-buffer)
"Bury")
((eq custom-buffer-done-function 'kill-buffer)
"Kill")
(t "Finish with"))
" the buffer."))
(cond
((eq custom-buffer-done-function
'custom-bury-buffer)
"Bury this buffer")
((eq custom-buffer-done-function 'kill-buffer)
"Kill this buffer")
(t "Finish with this buffer")))
:action #'Custom-buffer-done)
(widget-insert "\n\n")
(message "Creating customization items...")
@ -1322,18 +1321,18 @@ Un-customize all values in this buffer. They get their standard settings."
(let ((count 0)
(length (length options)))
(mapcar (lambda (entry)
(prog2
(message "Creating customization items ...%2d%%"
(/ (* 100.0 count) length))
(widget-create (nth 1 entry)
(prog2
(message "Creating customization items ...%2d%%"
(/ (* 100.0 count) length))
(widget-create (nth 1 entry)
:tag (custom-unlispify-tag-name
(nth 0 entry))
:value (nth 0 entry))
(setq count (1+ count))
(unless (eq (preceding-char) ?\n)
(widget-insert "\n"))
(widget-insert "\n")))
options))))
(setq count (1+ count))
(unless (eq (preceding-char) ?\n)
(widget-insert "\n"))
(widget-insert "\n")))
options))))
(unless (eq (preceding-char) ?\n)
(widget-insert "\n"))
(message "Creating customization items ...%2d%%done" 100)
@ -2379,7 +2378,7 @@ Optional EVENT is the location for the menu."
(error "Cannot set hidden variable"))
((setq val (widget-apply child :validate))
(goto-char (widget-get val :from))
(error "%s" (widget-get val :error)))
(error "Saving %s: %s" symbol (widget-get val :error)))
((memq form '(lisp mismatch))
(when (equal comment "")
(setq comment nil)