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)) |