/[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.34.4.3 by miles, Sat Sep 4 09:14:25 2004 UTC revision 1.34.4.4 by miles, Thu Oct 14 08:50:01 2004 UTC
# Line 552  it is displayed along with the global va Line 552  it is displayed along with the global va
552                      (forward-line 1)                      (forward-line 1)
553                    (forward-sexp 1)                    (forward-sexp 1)
554                    (delete-region (point) (progn (end-of-line) (point)))                    (delete-region (point) (progn (end-of-line) (point)))
                   (insert " value is shown below.\n\n")  
555                    (save-excursion                    (save-excursion
556                      (insert "\n\nValue:"))))                      (insert "\n\nValue:")
557                        (set (make-local-variable 'help-button-cache)
558                             (point-marker)))
559                      (insert " value is shown ")
560                      (insert-button "below"
561                                     'action help-button-cache
562                                     'help-echo "mouse-2, RET: show value")
563                      (insert ".\n\n")))
564                ;; Add a note for variables that have been make-var-buffer-local.                ;; Add a note for variables that have been make-var-buffer-local.
565                (when (and (local-variable-if-set-p variable)                (when (and (local-variable-if-set-p variable)
566                           (or (not (local-variable-p variable))                           (or (not (local-variable-p variable))

Legend:
Removed from v.1.34.4.3  
changed lines
  Added in v.1.34.4.4

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