procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Info-unescape-quotes, Info-split-parameter-string)

Browse source 
(Info-goto-emacs-command-node): Doc fixes.
This commit is contained in:
John Paul Wallington 2003-12-23 20:25:22 +00:00
parent 638411f732
commit 1ed6e0c324
2 changed files with 15 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2003-12-23 John Paul Wallington <jpw@gnu.org>
* info.el (Info-unescape-quotes, Info-split-parameter-string)
(Info-goto-emacs-command-node): Doc fixes.
2003-12-03 Kenichi Handa <handa@m17n.org>
* language/cyrillic.el: Register "microsoft-cp1251" in

21
lisp/info.el
View file

@ -1086,7 +1086,7 @@ a case-insensitive match is tried."
(+ (- 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 @@ a case-insensitive match is tried."
;; 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 @@ The locations are of the format used in `Info-history', i.e.
"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 @@ Preserve text properties."
(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)