/[emacs]/emacs/lisp/help-fns.el
ViewVC logotype

Diff of /emacs/lisp/help-fns.el

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

revision 1.9.2.15 by miles, Sat Sep 4 09:28:13 2004 UTC revision 1.9.2.16 by miles, Mon Oct 25 04:19:40 2004 UTC
# Line 578  it is displayed along with the global va Line 578  it is displayed along with the global va
578                      (forward-line 1)                      (forward-line 1)
579                    (forward-sexp 1)                    (forward-sexp 1)
580                    (delete-region (point) (progn (end-of-line) (point)))                    (delete-region (point) (progn (end-of-line) (point)))
                   (insert " value is shown below.\n\n")  
581                    (save-excursion                    (save-excursion
582                      (insert "\n\nValue:"))))                      (insert "\n\nValue:")
583                        (set (make-local-variable 'help-button-cache)
584                             (point-marker)))
585                      (insert " value is shown ")
586                      (insert-button "below"
587                                     'action help-button-cache
588                                     'help-echo "mouse-2, RET: show value")
589                      (insert ".\n\n")))
590                ;; Add a note for variables that have been make-var-buffer-local.                ;; Add a note for variables that have been make-var-buffer-local.
591                (when (and (local-variable-if-set-p variable)                (when (and (local-variable-if-set-p variable)
592                           (or (not (local-variable-p variable))                           (or (not (local-variable-p variable))

Legend:
Removed from v.1.9.2.15  
changed lines
  Added in v.1.9.2.16

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