Mercurial > emacs

--- a/lisp/edmacro.el	Wed Feb 27 20:10:09 1991 +0000
+++ b/lisp/edmacro.el	Thu Feb 28 19:32:54 1991 +0000
@@ -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 @@
 	   (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 @@
 	(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) ()
--- a/lisp/emulation/edt.el	Wed Feb 27 20:10:09 1991 +0000
+++ b/lisp/emulation/edt.el	Thu Feb 28 19:32:54 1991 +0000
@@ -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 @@
 (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 @@

 (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 @@

 (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 @@

 (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 @@

 (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 @@
     (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 @@

 ;;; 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 @@
 (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)