/[emacs]/emacs/lisp/cus-edit.el
ViewVC logotype

Diff of /emacs/lisp/cus-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.237 by cyd, Sun Oct 23 17:40:38 2005 UTC revision 1.238 by jurta, Mon Nov 14 18:28:12 2005 UTC
# Line 493  Return a list suitable for use in `inter Line 493  Return a list suitable for use in `inter
493     (let ((v (variable-at-point))     (let ((v (variable-at-point))
494           (enable-recursive-minibuffers t)           (enable-recursive-minibuffers t)
495           val)           val)
496       (setq val (completing-read       (setq val (if (and (symbolp v) (custom-variable-p v))
497                  (if (and (symbolp v) (custom-variable-p v))                     (completing-read
498                      (format "Customize option (default %s): " v)                      (format "Customize option (default %s): " v) obarray
499                    "Customize option: ")                      'custom-variable-p t nil nil (symbol-name v))
500                  obarray 'custom-variable-p t))                   (completing-read "Customize option: " obarray
501                                      'custom-variable-p t)))
502       (list (if (equal val "")       (list (if (equal val "")
503                 (if (symbolp v) v nil)                 (if (symbolp v) v nil)
504               (intern val)))))               (intern val)))))

Legend:
Removed from v.1.237  
changed lines
  Added in v.1.238

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26