Mercurial > emacs
changeset 5316:9bf2ae74a7bd
(picture-mode): Save the old truncate-lines value.
(picture-mode-exit): Restore that value.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 23 Dec 1993 05:01:36 +0000 |
| parents | 55a8d59088c1 |
| children | dfe798027eac |
| files | lisp/textmodes/picture.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/picture.el Thu Dec 23 05:00:49 1993 +0000 +++ b/lisp/textmodes/picture.el Thu Dec 23 05:01:36 1993 +0000 @@ -509,6 +509,7 @@ (defvar picture-mode-old-local-map) (defvar picture-mode-old-mode-name) (defvar picture-mode-old-major-mode) +(defvar picture-mode-old-truncate-lines) ;;;###autoload (defun picture-mode () @@ -586,6 +587,8 @@ (setq picture-tab-chars (default-value 'picture-tab-chars)) (make-local-variable 'picture-vertical-step) (make-local-variable 'picture-horizontal-step) + (make-local-variable 'picture-mode-old-truncate-lines) + (setq picture-mode-old-truncate-lines truncate-lines) (setq truncate-lines t) (picture-set-motion 0 1) @@ -611,6 +614,7 @@ (use-local-map picture-mode-old-local-map) (setq major-mode picture-mode-old-major-mode) (kill-local-variable 'tab-stop-list) + (setq truncate-lines picture-mode-old-truncate-lines) ;; Kludge - force the mode line to be updated. Is there a better ;; way to do this? (set-buffer-modified-p (buffer-modified-p))))