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 _______________________________________________ emacs-pretest-bug mailing list [email protected] http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
