comparison lisp/emulation/tpu-edt.el @ 73743:3d9ebd99f905

(tpu-help-text, tpu-save-all-buffers-kill-emacs, tpu-emacs-replace, tpu-reset-control-keys): Fix typos in docstrings.

73742:7c812bf3912c

(defvar GOLD-map
  (let ((map (make-keymap)))
    (define-key map "\e[" GOLD-CSI-map)                  ; GOLD-CSI map
    (define-key map "\eO" GOLD-SS3-map)                  ; GOLD-SS3 map
    ;; 
    (define-key map "\C-A" 'tpu-toggle-overwrite-mode)   ; ^A
    (define-key map "\C-B" 'nil)                         ; ^B
    (define-key map "\C-C" 'nil)                         ; ^C
    (define-key map "\C-D" 'nil)                         ; ^D
    (define-key map "\C-E" 'nil)                         ; ^E

GOLD is the ASCII 7-bit escape sequence <ESC>OP.")

(defvar SS3-map
  (let ((map (make-sparse-keymap)))
    (define-key map "P" GOLD-map)                         ; GOLD map
    ;; 
    (define-key map "A" 'tpu-previous-line)               ; up
    (define-key map "B" 'tpu-next-line)                   ; down
    (define-key map "C" 'tpu-forward-char)                ; right
    (define-key map "D" 'tpu-backward-char)               ; left

       O     Occur - show following lines containing REGEXP
       Q     Quit - exit without saving anything
       R     Toggle rectangular mode for remove and insert
       S     Search and substitute - line mode REPLACE command

      ^T     Toggle control key bindings between TPU and emacs
       U     Undo - undo the last edit
       W     Write - save current buffer
       X     Exit - save all modified buffers and exit

\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\f

  (interactive)
  (if tpu-kill-buffers-silently (set-buffer-modified-p nil))
  (kill-buffer (current-buffer)))

(defun tpu-save-all-buffers-kill-emacs nil
  "Save all buffers and exit emacs."
  (interactive)
  (let ((delete-old-versions t))
    (save-buffers-kill-emacs t)))

(defun tpu-write-current-buffers nil

    (move-overlay tpu-replace-overlay 1 1 (current-buffer))
    (message "Replaced %s occurrence%s." strings (if (not (= 1 strings)) "s" ""))))

(defun tpu-emacs-replace (&optional dont-ask)
  "A TPU-edt interface to the emacs replace functions.  If TPU-edt is
currently in regular expression mode, the emacs regular expression
replace functions are used.  If an argument is supplied, replacements
are performed without asking.  Only works in forward direction."
  (interactive "P")
  (cond (dont-ask
	 (setq current-prefix-arg nil)

  (define-key global-map "\C-w" 'redraw-display)                ; ^W
  (define-key global-map "\C-z" 'tpu-exit)                      ; ^Z
  (setq tpu-control-keys t))

(defun tpu-reset-control-keys (tpu-style)
  "Set control keys to TPU or emacs style functions."
  (let* ((tpu   (and tpu-style (not tpu-control-keys)))
	 (emacs (and (not tpu-style) tpu-control-keys))
	 (doit  (or tpu emacs)))
    (cond (doit
	   (if emacs (setq tpu-global-map (copy-keymap global-map)))

73743:3d9ebd99f905

(defvar GOLD-map
  (let ((map (make-keymap)))
    (define-key map "\e[" GOLD-CSI-map)                  ; GOLD-CSI map
    (define-key map "\eO" GOLD-SS3-map)                  ; GOLD-SS3 map
    ;;
    (define-key map "\C-A" 'tpu-toggle-overwrite-mode)   ; ^A
    (define-key map "\C-B" 'nil)                         ; ^B
    (define-key map "\C-C" 'nil)                         ; ^C
    (define-key map "\C-D" 'nil)                         ; ^D
    (define-key map "\C-E" 'nil)                         ; ^E

GOLD is the ASCII 7-bit escape sequence <ESC>OP.")

(defvar SS3-map
  (let ((map (make-sparse-keymap)))
    (define-key map "P" GOLD-map)                         ; GOLD map
    ;;
    (define-key map "A" 'tpu-previous-line)               ; up
    (define-key map "B" 'tpu-next-line)                   ; down
    (define-key map "C" 'tpu-forward-char)                ; right
    (define-key map "D" 'tpu-backward-char)               ; left

       O     Occur - show following lines containing REGEXP
       Q     Quit - exit without saving anything
       R     Toggle rectangular mode for remove and insert
       S     Search and substitute - line mode REPLACE command

      ^T     Toggle control key bindings between TPU and Emacs
       U     Undo - undo the last edit
       W     Write - save current buffer
       X     Exit - save all modified buffers and exit

\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\f

  (interactive)
  (if tpu-kill-buffers-silently (set-buffer-modified-p nil))
  (kill-buffer (current-buffer)))

(defun tpu-save-all-buffers-kill-emacs nil
  "Save all buffers and exit Emacs."
  (interactive)
  (let ((delete-old-versions t))
    (save-buffers-kill-emacs t)))

(defun tpu-write-current-buffers nil

    (move-overlay tpu-replace-overlay 1 1 (current-buffer))
    (message "Replaced %s occurrence%s." strings (if (not (= 1 strings)) "s" ""))))

(defun tpu-emacs-replace (&optional dont-ask)
  "A TPU-edt interface to the Emacs replace functions.  If TPU-edt is
currently in regular expression mode, the Emacs regular expression
replace functions are used.  If an argument is supplied, replacements
are performed without asking.  Only works in forward direction."
  (interactive "P")
  (cond (dont-ask
	 (setq current-prefix-arg nil)

  (define-key global-map "\C-w" 'redraw-display)                ; ^W
  (define-key global-map "\C-z" 'tpu-exit)                      ; ^Z
  (setq tpu-control-keys t))

(defun tpu-reset-control-keys (tpu-style)
  "Set control keys to TPU or Emacs style functions."
  (let* ((tpu   (and tpu-style (not tpu-control-keys)))
	 (emacs (and (not tpu-style) tpu-control-keys))
	 (doit  (or tpu emacs)))
    (cond (doit
	   (if emacs (setq tpu-global-map (copy-keymap global-map)))