[Emacs-diffs] Changes to emacs/lisp/cus-edit.el

[Juri Linkov]

Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.237 emacs/lisp/cus-edit.el:1.238
*** emacs/lisp/cus-edit.el:1.237        Sun Oct 23 17:40:38 2005
--- emacs/lisp/cus-edit.el      Mon Nov 14 18:28:12 2005
***************
*** 493,503 ****
     (let ((v (variable-at-point))
         (enable-recursive-minibuffers t)
         val)
!      (setq val (completing-read
!               (if (and (symbolp v) (custom-variable-p v))
!                   (format "Customize option (default %s): " v)
!                 "Customize option: ")
!               obarray 'custom-variable-p t))
       (list (if (equal val "")
               (if (symbolp v) v nil)
             (intern val)))))
--- 493,504 ----
     (let ((v (variable-at-point))
         (enable-recursive-minibuffers t)
         val)
!      (setq val (if (and (symbolp v) (custom-variable-p v))
!                  (completing-read
!                   (format "Customize option (default %s): " v) obarray
!                   'custom-variable-p t nil nil (symbol-name v))
!                (completing-read "Customize option: " obarray
!                                 'custom-variable-p t)))
       (list (if (equal val "")
               (if (symbolp v) v nil)
             (intern val)))))