3248 |
\(FILENAME NODENAME BUFFERPOS\)." |
\(FILENAME NODENAME BUFFERPOS\)." |
3249 |
(let ((where '()) |
(let ((where '()) |
3250 |
(cmd-desc (concat "^\\* +" (regexp-quote (symbol-name command)) |
(cmd-desc (concat "^\\* +" (regexp-quote (symbol-name command)) |
3251 |
"\\( <[0-9]+>\\)?:\\s *\\(.*\\)\\.$")) |
"\\( <[0-9]+>\\)?:\\s *\\(.*\\)\\." |
3252 |
|
"\\([ \t]*(line[ \t]*[0-9]*)\\)?$")) |
3253 |
(info-file "emacs")) ;default |
(info-file "emacs")) ;default |
3254 |
;; Determine which info file this command is documented in. |
;; Determine which info file this command is documented in. |
3255 |
(if (get command 'info-file) |
(if (get command 'info-file) |