Re: [BUG] describe-variable

[Nick Roberts]

martin rudalics writes:
 >  > In Emacs 22 evaluate:
 >  >
 >  > (setq myvar '((0) (1) (2) (3) (4) (5) (6) (7) (8) (9)))
 >  >
 >  > (make-local-variable 'myvar)
 >  >
 >  > (setq myvar 1)
 >  >
 >  > then do C-h v myvar <RET>.
 >  >
 >  > Help buffer output:
 > [...]
 >  >
 >  > Note the local value of 1 is not shown.
 > 
 > Would the below break anything else?

Looks good to me.  I can't _see_ that it breaks anything but there many
cases to consider.


 > *** help-fns.el.~1.94.~      Sun Dec 24 22:38:56 2006
 > --- help-fns.el      Fri Jan 12 08:46:02 2007
 > ***************
 > *** 553,559 ****
 >              ;; of a symbol.
 >              (set-syntax-table emacs-lisp-mode-syntax-table)
 >              (goto-char val-start-pos)
 > !            (delete-region (point) (progn (end-of-line) (point)))
 >              (save-excursion
 >                (insert "\n\nValue:")
 >                (set (make-local-variable 'help-button-cache)
 > --- 553,559 ----
 >              ;; of a symbol.
 >              (set-syntax-table emacs-lisp-mode-syntax-table)
 >              (goto-char val-start-pos)
 > !            (when (looking-at "value is") (replace-match ""))
 >              (save-excursion
 >                (insert "\n\nValue:")
 >                (set (make-local-variable 'help-button-cache)
 > ***************
 > *** 563,569 ****
 >                             'action help-button-cache
 >                             'follow-link t
 >                             'help-echo "mouse-2, RET: show value")
 > !            (insert ".\n\n")))
 > 
 >          ;; Mention if it's an alias
 >                (let* ((alias (condition-case nil
 > --- 563,569 ----
 >                             'action help-button-cache
 >                             'follow-link t
 >                             'help-echo "mouse-2, RET: show value")
 > !            (insert ".\n")))
 > 
 >          ;; Mention if it's an alias
 >                (let* ((alias (condition-case nil
 > 

-- 
Nick                                           http://www.inet.net.nz/~nickrob