Mercurial > emacs
changeset 53246:c07db7df7073
(Info-unescape-quotes, Info-split-parameter-string)
(Info-goto-emacs-command-node): Doc fixes.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Tue, 23 Dec 2003 20:24:25 +0000 |
| parents | ff36cb5dfb47 |
| children | 2a8143809963 |
| files | lisp/info.el |
| diffstat | 1 files changed, 10 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Wed Dec 03 21:06:19 2003 +0000 +++ b/lisp/info.el Tue Dec 23 20:24:25 2003 +0000 @@ -1086,7 +1086,7 @@ (+ (- nodepos lastfilepos) (point))))) (defun Info-unescape-quotes (value) - "Unescape double quotes and backslashes in VALUE" + "Unescape double quotes and backslashes in VALUE." (let ((start 0) (unquote value)) (while (string-match "[^\\\"]*\\(\\\\\\)[\\\\\"]" unquote start) @@ -1099,10 +1099,9 @@ ;; into the Info file for handling images. (defun Info-split-parameter-string (parameter-string) "Return alist of (\"KEY\" . \"VALUE\") from PARAMETER-STRING; a - whitespace separated list of KEY=VALUE pairs. If VALUE - contains whitespace or double quotes, it must be quoted in - double quotes and any double quotes or backslashes must be - escaped (\\\",\\\\)." +whitespace separated list of KEY=VALUE pairs. If VALUE contains +whitespace or double quotes, it must be quoted in double quotes and +any double quotes or backslashes must be escaped (\\\",\\\\)." (let ((start 0) (parameter-alist)) (while (string-match @@ -2683,12 +2682,12 @@ "Go to the Info node in the Emacs manual for command COMMAND. The command is found by looking up in Emacs manual's indices or in another manual found via COMMAND's `info-file' property or -the variable `Info-file-list-for-emacs'. COMMAND must be a symbol -or string." +the variable `Info-file-list-for-emacs'. +COMMAND must be a symbol or string." (interactive "CFind documentation for command: ") ;; If command is given as a string, convert it to a symbol. (if (stringp command) - (setq command (intern command))) + (setq command (intern command))) (or (commandp command) (signal 'wrong-type-argument (list 'commandp command))) (let ((where (Info-find-emacs-command-nodes command))) @@ -2785,9 +2784,9 @@ (setq mb (match-beginning 0) me (1+ mb) m (substring string mb me) - matches (cons m - (cons m - (cons (substring string start mb) + matches (cons m + (cons m + (cons (substring string start mb) matches))) start me)) (push (substring string start end) matches)