diff options
author | Juri Linkov <juri@jurta.org> | 2010-03-14 23:28:52 +0200 |
---|---|---|
committer | Juri Linkov <juri@jurta.org> | 2010-03-14 23:28:52 +0200 |
commit | 355e3b96ae0f89b40b74ee258a032fb95a1dc635 (patch) | |
tree | 5f6729d1e56022b847eb8a42d181a8a727f21a59 /lisp/info.el | |
parent | 08d0fd6e5218c7e7bc8dee06a2c954f836557bab (diff) | |
download | emacs-355e3b96ae0f89b40b74ee258a032fb95a1dc635.tar.gz |
Add finder unknown keywords.
* finder.el (finder-unknown-keywords): New function.
* info.el (Info-finder-find-node): Use `finder-unknown-keywords'
to create a Finder node with unknown keywords.
Diffstat (limited to 'lisp/info.el')
-rw-r--r-- | lisp/info.el | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/lisp/info.el b/lisp/info.el index a1ce05d6292..4f9c5a0da71 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -3343,6 +3343,7 @@ Build a menu of the possible matches." (defvar finder-known-keywords) (defvar finder-package-info) (declare-function find-library-name "find-func" (library)) +(declare-function finder-unknown-keywords "finder" ()) (declare-function lm-commentary "lisp-mnt" (&optional file)) (defun Info-finder-find-node (filename nodename &optional no-going-back) @@ -3361,7 +3362,21 @@ Build a menu of the possible matches." (insert (format "* %-14s %s.\n" (concat (symbol-name keyword) "::") (cdr assoc))))) - finder-known-keywords)) + (cons '(unknown . "unknown keywords") + finder-known-keywords))) + ((equal nodename "unknown") + ;; Display unknown keywords + (insert (format "\n\^_\nFile: %s, Node: %s, Up: Top\n\n" + Info-finder-file nodename)) + (insert "Finder Unknown Keywords\n") + (insert "***********************\n\n") + (insert "* Menu:\n\n") + (mapc + (lambda (assoc) + (insert (format "* %-14s %s.\n" + (concat (symbol-name (car assoc)) "::") + (cdr assoc)))) + (finder-unknown-keywords))) ((string-match-p "\\.el\\'" nodename) ;; Display commentary section (insert (format "\n\^_\nFile: %s, Node: %s, Up: Top\n\n" |