mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Richard M. Stallman 1991-02-28 19:32:54 +00:00
parent e9e56e0952
commit 052bdd0953
2 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/edmacro.el
View File

@ -35,8 +35,8 @@
prefix buffer hook))
(defun edit-kbd-macro (cmd &optional prefix buffer hook in-hook out-hook)
"Edit a keyboard macro which has been assigned a name by name-last-kbd-macro.
\(See also edit-last-kbd-macro.)"
"Edit a keyboard macro which has been given a name by `name-last-kbd-macro'.
\(See also `edit-last-kbd-macro'.)"
(interactive "CCommand name: \nP")
(and cmd
(edmacro-edit-macro (if in-hook
@ -51,7 +51,7 @@
(defun read-kbd-macro (start end)
"Read the region as a keyboard macro definition.
The region is interpreted as spelled-out keystrokes, e.g., `M-x abc RET'.
The region is interpreted as spelled-out keystrokes, e.g., \"M-x abc RET\".
The resulting macro is installed as the \"current\" keyboard macro.
Symbols: RET, SPC, TAB, DEL, LFD, NUL; C-key; M-key. (Must be uppercase.)
@ -597,7 +597,7 @@ Symbols: RET, SPC, TAB, DEL, LFD, NUL; C-key; M-key. (Must be uppercase.)
(boundp 'edmacro-replace-argument)
(boundp 'edmacro-finish-hook)
(eq major-mode 'edmacro-mode))
(error "This command is valid only in buffers created by edit-kbd-macro."))
(error "This command is valid only in buffers created by `edit-kbd-macro'."))
(let ((buf (current-buffer))
(str (buffer-string))
(func edmacro-replace-function)
@ -623,16 +623,16 @@ Symbols: RET, SPC, TAB, DEL, LFD, NUL; C-key; M-key. (Must be uppercase.)
(funcall hook arg))))
(defun edmacro-mode ()
"Keyboard Macro Editing mode. Press C-c C-c to save and exit.
To abort the edit, just kill this buffer with C-x k RET.
"\\<edmacro-mode-map>Keyboard Macro Editing mode. Press \\[edmacro-finish-edit] to save and exit.
To abort the edit, just kill this buffer with \\[kill-buffer] RET.
The keyboard macro is represented as a series of M-x style command names.
Keystrokes which do not correspond to simple M-x commands are written as
\"type\" commands. When you press C-c C-c, edmacro converts each command
\"type\" commands. When you press \\[edmacro-finish-edit], edmacro converts each command
back into a suitable keystroke sequence; \"type\" commands are converted
directly back into keystrokes."
(interactive)
(error "This mode can be enabled only by edit-kbd-macro or edit-last-kbd-macro."))
(error "This mode can be enabled only by `edit-kbd-macro' or `edit-last-kbd-macro'."))
(put 'edmacro-mode 'mode-class 'special)
(if (boundp 'edmacro-mode-map) ()

34
lisp/emulation/edt.el
View File

@ -21,16 +21,16 @@
(require 'keypad)
(defvar edt-last-deleted-lines ""
"Last text deleted by an EDT emulation line-delete command.")
"Last text deleted by an EDT emulation `line-delete' command.")
(defvar edt-last-deleted-words ""
"Last text deleted by an EDT emulation word-delete command.")
"Last text deleted by an EDT emulation `word-delete' command.")
(defvar edt-last-deleted-chars ""
"Last text deleted by an EDT emulation character-delete command.")
"Last text deleted by an EDT emulation `character-delete' command.")
(defun delete-current-line (num)
"Delete one or specified number of lines after point.
This includes the newline character at the end of each line.
They are saved for the EDT undelete-lines command."
They are saved for the EDT `undelete-lines' command."
(interactive "p")
(let ((beg (point)))
(forward-line num)
@ -43,7 +43,7 @@ They are saved for the EDT undelete-lines command."
(defun delete-to-eol (num)
"Delete text up to end of line.
With argument, delete up to to Nth line-end past point.
They are saved for the EDT undelete-lines command."
They are saved for the EDT `undelete-lines' command."
(interactive "p")
(let ((beg (point)))
(forward-char 1)
@ -54,7 +54,7 @@ They are saved for the EDT undelete-lines command."
(defun delete-current-word (num)
"Delete one or specified number of words after point.
They are saved for the EDT undelete-words command."
They are saved for the EDT `undelete-words' command."
(interactive "p")
(let ((beg (point)))
(forward-word num)
@ -64,7 +64,7 @@ They are saved for the EDT undelete-words command."
(defun edt-delete-previous-word (num)
"Delete one or specified number of words before point.
They are saved for the EDT undelete-words command."
They are saved for the EDT `undelete-words' command."
(interactive "p")
(let ((beg (point)))
(forward-word (- num))
@ -74,7 +74,7 @@ They are saved for the EDT undelete-words command."
(defun delete-current-char (num)
"Delete one or specified number of characters after point.
They are saved for the EDT undelete-chars command."
They are saved for the EDT `undelete-chars' command."
(interactive "p")
(setq edt-last-deleted-chars
(buffer-substring (point) (min (point-max) (+ (point) num))))
@ -82,24 +82,24 @@ They are saved for the EDT undelete-chars command."
(defun delete-previous-char (num)
"Delete one or specified number of characters before point.
They are saved for the EDT undelete-chars command."
They are saved for the EDT `undelete-chars' command."
(interactive "p")
(setq edt-last-deleted-chars
(buffer-substring (max (point-min) (- (point) num)) (point)))
(delete-region (max (point-min) (- (point) num)) (point)))
(defun undelete-lines ()
"Yank lines deleted by last EDT line-deletion command."
"Yank lines deleted by last EDT `line-delete' command."
(interactive)
(insert edt-last-deleted-lines))
(defun undelete-words ()
"Yank words deleted by last EDT word-deletion command."
"Yank words deleted by last EDT `word-delete' command."
(interactive)
(insert edt-last-deleted-words))
(defun undelete-chars ()
"Yank characters deleted by last EDT character-deletion command."
"Yank characters deleted by last EDT `character-delete' command."
(interactive)
(insert edt-last-deleted-chars))
@ -185,7 +185,7 @@ Accepts a prefix argument for the number of paragraphs."
(goto-char (/ (* (point-max) perc) 100))))
(defun update-mode-line ()
"Make sure mode-line in the current buffer reflects all changes."
"Ensure mode-line reflects all changes."
(set-buffer-modified-p (buffer-modified-p))
(sit-for 0))
@ -264,11 +264,11 @@ and mark-paragraph for other modes."
;;; Key Bindings
(defun edt-emulation-on ()
"Begin emulating DEC's EDT editor.
Certain keys are rebound; including nearly all keypad keys.
"Emulate DEC's EDT editor.
Note that many keys are rebound; including nearly all keypad keys.
Use \\[edt-emulation-off] to undo all rebindings except the keypad keys.
Note that this function does not work if called directly from the .emacs file.
Instead, the .emacs file should do (setq term-setup-hook 'edt-emulation-on)
Instead, the .emacs file should do \"(setq term-setup-hook 'edt-emulation-on)\"
Then this function will be called at the time when it will work."
(interactive)
(advance-direction)
@ -315,7 +315,7 @@ The keys redefined by \\[edt-emulation-on] are given their old definitions."
(fset 'GOLD-prefix GOLD-map)
(defvar GOLD-map (make-keymap)
"GOLD-map maps the function keys on the VT100 keyboard preceeded
"`GOLD-map' maps the function keys on the VT100 keyboard preceeded
by the PF1 key. GOLD is the ASCII the 7-bit escape sequence <ESC>OP.")
(defun define-keypad-key (keymap function-keymap-slot definition)