# HG changeset patch # User Juanma Barranquero # Date 1224805934 0 # Node ID 8f4ff9c9a49c64f782a20cd1e958df3c3facc204 # Parent adf0c683dda20be30732242e42450a547ad1f5fe * edmacro.el (edmacro-eight-bits, edmacro-mode): Fix docstring typos. (edmacro-mismatch, edmacro-sanitize-for-string): Doc fixes. diff -r adf0c683dda2 -r 8f4ff9c9a49c lisp/ChangeLog --- a/lisp/ChangeLog Thu Oct 23 23:03:39 2008 +0000 +++ b/lisp/ChangeLog Thu Oct 23 23:52:14 2008 +0000 @@ -1,3 +1,8 @@ +2008-10-23 Juanma Barranquero + + * edmacro.el (edmacro-eight-bits, edmacro-mode): Fix docstring typos. + (edmacro-mismatch, edmacro-sanitize-for-string): Doc fixes. + 2008-10-23 Chong Yidong * filesets.el: Update author email. @@ -5,8 +10,7 @@ 2008-10-23 Jens Petersen - * pcmpl-rpm.el (pcomplete/rpm): Make "rpm -qp" use file - completion. + * pcmpl-rpm.el (pcomplete/rpm): Make "rpm -qp" use file completion. 2008-10-23 Ulrich Mueller diff -r adf0c683dda2 -r 8f4ff9c9a49c lisp/edmacro.el --- 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 () - "\\Keyboard Macro Editing mode. Press + "\\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))