Mercurial > emacs
comparison lisp/simple.el @ 9846:6a9a8abb0b6e
(set-variable): Set help-mode in *Help* buffer.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 09 Nov 1994 05:47:20 +0000 |
parents | 1286985b5a26 |
children | 5b91dec229a3 |
comparison
equal
deleted
inserted
replaced
9845:17734f1247d0 | 9846:6a9a8abb0b6e |
---|---|
2509 1)) | 2509 1)) |
2510 (if (boundp var) | 2510 (if (boundp var) |
2511 (let ((print-length 20)) | 2511 (let ((print-length 20)) |
2512 (princ "\n\nCurrent value: ") | 2512 (princ "\n\nCurrent value: ") |
2513 (prin1 (symbol-value var)))) | 2513 (prin1 (symbol-value var)))) |
2514 (save-excursion | |
2515 (set-buffer standard-output) | |
2516 (help-mode)) | |
2514 nil))))) | 2517 nil))))) |
2515 (list var | 2518 (list var |
2516 (let ((prop (get var 'variable-interactive))) | 2519 (let ((prop (get var 'variable-interactive))) |
2517 (if prop | 2520 (if prop |
2518 ;; Use VAR's `variable-interactive' property | 2521 ;; Use VAR's `variable-interactive' property |