# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756622896 0
# Node ID 9bf2ae74a7bdf47325956f6855493c7747605a5e
# Parent  55a8d59088c1f71f08dbe75856d7de0fb488d8b1
(picture-mode): Save the old truncate-lines value.
(picture-mode-exit): Restore that value.

diff -r 55a8d59088c1 -r 9bf2ae74a7bd lisp/textmodes/picture.el
--- 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))))