Commit c4fc49b6 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

entered into RCS

parent e91f80c4
......@@ -414,7 +414,7 @@ Leaves the region surrounding the rectangle."
(let ((i ?\ ))
(setq picture-mode-map (make-keymap))
(while (< i ?\177)
(aset picture-mode-map i 'picture-self-insert)
(define-key picture-mode-map (make-string 1 i) 'picture-self-insert)
(setq i (1+ i)))
(define-key picture-mode-map "\C-f" 'picture-forward-column)
(define-key picture-mode-map "\C-b" 'picture-backward-column)
......@@ -452,6 +452,10 @@ Leaves the region surrounding the rectangle."
"If non-nil, it's value is called on entry to Picture mode.
Picture mode is invoked by the command \\[edit-picture].")
(defvar picture-mode-old-local-map)
(defvar picture-mode-old-mode-name)
(defvar picture-mode-old-major-mode)
(defun edit-picture ()
"Switch to Picture mode, in which a quarter-plane screen model is used.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment