Mercurial > emacs
diff lisp/edmacro.el @ 99097:8f4ff9c9a49c
* edmacro.el (edmacro-eight-bits, edmacro-mode): Fix docstring typos.
(edmacro-mismatch, edmacro-sanitize-for-string): Doc fixes.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Thu, 23 Oct 2008 23:52:14 +0000 |
parents | 835147d28933 |
children | a9dc0e7c3f2b |
line wrap: on
line diff
--- a/lisp/edmacro.el Thu Oct 23 23:03:39 2008 +0000 +++ b/lisp/edmacro.el Thu Oct 23 23:52:14 2008 +0000 @@ -78,7 +78,7 @@ ;;;###autoload (defvar edmacro-eight-bits nil - "*Non-nil if edit-kbd-macro should leave 8-bit characters intact. + "*Non-nil if `edit-kbd-macro' should leave 8-bit characters intact. Default nil means to write characters above \\177 in octal notation.") (defvar edmacro-mode-map nil) @@ -349,7 +349,7 @@ (insert (edmacro-format-keys key) " "))) (defun edmacro-mode () - "\\<edmacro-mode-map>Keyboard Macro Editing mode. Press + "\\<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. @@ -597,7 +597,8 @@ (defun edmacro-mismatch (cl-seq1 cl-seq2 cl-start1 cl-end1 cl-start2 cl-end2) "Compare SEQ1 with SEQ2, return index of first mismatching element. Return nil if the sequences match. If one sequence is a prefix of the -other, the return value indicates the end of the shorted sequence." +other, the return value indicates the end of the shorted sequence. +\n(fn SEQ1 SEQ2 START1 END1 START2 END2)" (let (cl-test cl-test-not cl-key cl-from-end) (or cl-end1 (setq cl-end1 (length cl-seq1))) (or cl-end2 (setq cl-end2 (length cl-seq2))) @@ -647,7 +648,7 @@ res)))))) (defun edmacro-sanitize-for-string (seq) - "Convert a key sequence vector into a string. + "Convert a key sequence vector SEQ into a string. The string represents the same events; Meta is indicated by bit 7. This function assumes that the events can be stored in a string." (setq seq (copy-sequence seq))