573 |
|
|
574 |
;; Picture Keymap, entry and exit points. |
;; Picture Keymap, entry and exit points. |
575 |
|
|
576 |
(defconst picture-mode-map nil) |
(defvar picture-mode-map nil) |
577 |
|
|
578 |
(defun picture-substitute (oldfun newfun) |
(defun picture-substitute (oldfun newfun) |
579 |
(substitute-key-definition oldfun newfun picture-mode-map global-map)) |
(substitute-key-definition oldfun newfun picture-mode-map global-map)) |
724 |
(defalias 'edit-picture 'picture-mode) |
(defalias 'edit-picture 'picture-mode) |
725 |
|
|
726 |
(defun picture-mode-exit (&optional nostrip) |
(defun picture-mode-exit (&optional nostrip) |
727 |
"Undo picture-mode and return to previous major mode. |
"Undo `picture-mode' and return to previous major mode. |
728 |
With no argument strips whitespace from end of every line in Picture buffer |
With no argument strips whitespace from end of every line in Picture buffer |
729 |
otherwise just return to previous mode." |
otherwise just return to previous mode." |
730 |
(interactive "P") |
(interactive "P") |