From e444e0d6bb7136ecc29aeb89a052674ea05a60e8 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 13 Oct 2001 19:11:32 +0000 Subject: [PATCH] (picture-mode): Massage. --- lisp/textmodes/picture.el | 24 +++++++++--------------- 1 file changed, 9 insertions(+), 15 deletions(-) diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index 4f4a1650d99..4ed09fd1ff2 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el @@ -692,31 +692,25 @@ You can return to the previous mode with: C-c C-c Which also strips trailing whitespace from every line. Stripping is suppressed by supplying an argument. -Entry to this mode calls the value of picture-mode-hook if non-nil. +Entry to this mode calls the value of `picture-mode-hook' if non-nil. Note that Picture mode commands will work outside of Picture mode, but they are not defaultly assigned to keys." (interactive) (if (eq major-mode 'picture-mode) (error "You are already editing a picture") - (make-local-variable 'picture-mode-old-local-map) - (setq picture-mode-old-local-map (current-local-map)) + (set (make-local-variable 'picture-mode-old-local-map) (current-local-map)) (use-local-map picture-mode-map) - (make-local-variable 'picture-mode-old-mode-name) - (setq picture-mode-old-mode-name mode-name) - (make-local-variable 'picture-mode-old-major-mode) - (setq picture-mode-old-major-mode major-mode) + (set (make-local-variable 'picture-mode-old-mode-name) mode-name) + (set (make-local-variable 'picture-mode-old-major-mode) major-mode) (setq major-mode 'picture-mode) - (make-local-variable 'picture-killed-rectangle) - (setq picture-killed-rectangle nil) - (make-local-variable 'tab-stop-list) - (setq tab-stop-list (default-value 'tab-stop-list)) - (make-local-variable 'picture-tab-chars) - (setq picture-tab-chars (default-value 'picture-tab-chars)) + (set (make-local-variable 'picture-killed-rectangle) nil) + (set (make-local-variable 'tab-stop-list) (default-value 'tab-stop-list)) + (set (make-local-variable '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) + (set (make-local-variable 'picture-mode-old-truncate-lines) truncate-lines) (setq truncate-lines t) (picture-set-motion 0 1) -- 2.39.2