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