diff options
| author | Stefan Monnier | 2001-10-13 19:11:32 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-10-13 19:11:32 +0000 |
| commit | e444e0d6bb7136ecc29aeb89a052674ea05a60e8 (patch) | |
| tree | d45621ed36aad56b746f4b0b75b02547fbb4493f | |
| parent | 3e2dd647b766091c075b6a49be0ca36b0f80f5d6 (diff) | |
| download | emacs-e444e0d6bb7136ecc29aeb89a052674ea05a60e8.tar.gz emacs-e444e0d6bb7136ecc29aeb89a052674ea05a60e8.zip | |
(picture-mode): Massage.
| -rw-r--r-- | lisp/textmodes/picture.el | 24 |
1 files 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: | |||
| 692 | C-c C-c Which also strips trailing whitespace from every line. | 692 | C-c C-c Which also strips trailing whitespace from every line. |
| 693 | Stripping is suppressed by supplying an argument. | 693 | Stripping is suppressed by supplying an argument. |
| 694 | 694 | ||
| 695 | Entry to this mode calls the value of picture-mode-hook if non-nil. | 695 | Entry to this mode calls the value of `picture-mode-hook' if non-nil. |
| 696 | 696 | ||
| 697 | Note that Picture mode commands will work outside of Picture mode, but | 697 | Note that Picture mode commands will work outside of Picture mode, but |
| 698 | they are not defaultly assigned to keys." | 698 | they are not defaultly assigned to keys." |
| 699 | (interactive) | 699 | (interactive) |
| 700 | (if (eq major-mode 'picture-mode) | 700 | (if (eq major-mode 'picture-mode) |
| 701 | (error "You are already editing a picture") | 701 | (error "You are already editing a picture") |
| 702 | (make-local-variable 'picture-mode-old-local-map) | 702 | (set (make-local-variable 'picture-mode-old-local-map) (current-local-map)) |
| 703 | (setq picture-mode-old-local-map (current-local-map)) | ||
| 704 | (use-local-map picture-mode-map) | 703 | (use-local-map picture-mode-map) |
| 705 | (make-local-variable 'picture-mode-old-mode-name) | 704 | (set (make-local-variable 'picture-mode-old-mode-name) mode-name) |
| 706 | (setq picture-mode-old-mode-name mode-name) | 705 | (set (make-local-variable 'picture-mode-old-major-mode) major-mode) |
| 707 | (make-local-variable 'picture-mode-old-major-mode) | ||
| 708 | (setq picture-mode-old-major-mode major-mode) | ||
| 709 | (setq major-mode 'picture-mode) | 706 | (setq major-mode 'picture-mode) |
| 710 | (make-local-variable 'picture-killed-rectangle) | 707 | (set (make-local-variable 'picture-killed-rectangle) nil) |
| 711 | (setq picture-killed-rectangle nil) | 708 | (set (make-local-variable 'tab-stop-list) (default-value 'tab-stop-list)) |
| 712 | (make-local-variable 'tab-stop-list) | 709 | (set (make-local-variable 'picture-tab-chars) |
| 713 | (setq tab-stop-list (default-value 'tab-stop-list)) | 710 | (default-value 'picture-tab-chars)) |
| 714 | (make-local-variable 'picture-tab-chars) | ||
| 715 | (setq picture-tab-chars (default-value 'picture-tab-chars)) | ||
| 716 | (make-local-variable 'picture-vertical-step) | 711 | (make-local-variable 'picture-vertical-step) |
| 717 | (make-local-variable 'picture-horizontal-step) | 712 | (make-local-variable 'picture-horizontal-step) |
| 718 | (make-local-variable 'picture-mode-old-truncate-lines) | 713 | (set (make-local-variable 'picture-mode-old-truncate-lines) truncate-lines) |
| 719 | (setq picture-mode-old-truncate-lines truncate-lines) | ||
| 720 | (setq truncate-lines t) | 714 | (setq truncate-lines t) |
| 721 | (picture-set-motion 0 1) | 715 | (picture-set-motion 0 1) |
| 722 | 716 | ||