mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-03 03:32:44 -07:00
Code Issues Projects Releases Wiki Activity

(picture-mode): Save the old truncate-lines value.

Browse source 
(picture-mode-exit): Restore that value.
This commit is contained in:
Richard M. Stallman 1993-12-23 05:01:36 +00:00
parent c20a77cc59
commit b9911289d3
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/textmodes/picture.el
View file

@ -509,6 +509,7 @@ Picture mode is invoked by the command \\[picture-mode].")
(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 @@ they are not defaultly assigned to keys."
(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 @@ With no argument strips whitespace from end of every line in Picture buffer
(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))))