[Emacs-diffs] /srv/bzr/emacs/trunk r106437: * lisp/info.el (Info-finder-find-node): Use `package--builtins' instead

[Juri Linkov]

------------------------------------------------------------
revno: 106437
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Sun 2011-11-20 01:34:40 +0200
message:
  * lisp/info.el (Info-finder-find-node): Use `package--builtins' instead
  of `package-alist'.  Use node names formed by the pattern "Keyword "
  and the keyword name.
modified:
  lisp/ChangeLog
  lisp/info.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-11-19 23:05:41 +0000
+++ b/lisp/ChangeLog    2011-11-19 23:34:40 +0000
@@ -1,3 +1,9 @@
+2011-11-19  Juri Linkov  <address@hidden>
+
+       * info.el (Info-finder-find-node): Use `package--builtins' instead
+       of `package-alist'.  Use node names formed by the pattern "Keyword "
+       and the keyword name.
+
 2011-11-19  Andreas Schwab  <address@hidden>
 
        * progmodes/sh-script.el (sh-assignment-regexp): Add entry for

=== modified file 'lisp/info.el'
--- a/lisp/info.el      2011-11-19 21:43:40 +0000
+++ b/lisp/info.el      2011-11-19 23:34:40 +0000
@@ -3403,7 +3403,7 @@
 (declare-function finder-unknown-keywords "finder" ())
 (declare-function lm-commentary "lisp-mnt" (&optional file))
 (defvar finder-keywords-hash)
-(defvar package-alist)                  ; finder requires package
+(defvar package--builtins)             ; finder requires package
 
 (defun Info-finder-find-node (_filename nodename &optional _no-going-back)
   "Finder-specific implementation of `Info-find-node-2'."
@@ -3417,14 +3417,14 @@
     (insert "***************\n\n")
     (insert "* Menu:\n\n")
     (dolist (assoc (append '((all . "All package info")
-                            (unknown . "unknown keywords"))
+                            (unknown . "Unknown keywords"))
                           finder-known-keywords))
       (let ((keyword (car assoc)))
        (insert (format "* %s %s.\n"
                        (concat (symbol-name keyword) ": "
-                               "kw:" (symbol-name keyword) ".")
+                               "Keyword " (symbol-name keyword) ".")
                        (cdr assoc))))))
-   ((equal nodename "unknown")
+   ((equal nodename "Keyword unknown")
     ;; Display unknown keywords
     (insert (format "\n\^_\nFile: %s,  Node: %s,  Up: Top\n\n"
                    Info-finder-file nodename))
@@ -3434,24 +3434,29 @@
     (mapc
      (lambda (assoc)
        (insert (format "* %-14s %s.\n"
-                      (concat (symbol-name (car assoc)) "::")
+                      (concat (symbol-name (car assoc)) ": "
+                              "Keyword " (symbol-name (car assoc)) ".")
                       (cdr assoc))))
      (finder-unknown-keywords)))
-   ((equal nodename "all")
+   ((equal nodename "Keyword all")
     ;; Display all package info.
     (insert (format "\n\^_\nFile: %s,  Node: %s,  Up: Top\n\n"
                    Info-finder-file nodename))
     (insert "Finder Package Info\n")
     (insert "*******************\n\n")
-    (dolist (package package-alist)
-      (insert (format "%s - %s\n"
-                     (format "*Note %s::" (nth 0 package))
-                     (nth 1 package)))))
-   ((string-match "\\`kw:" nodename)
+    (insert "* Menu:\n\n")
+    (let (desc)
+      (dolist (package package--builtins)
+       (setq desc (cdr-safe package))
+       (when (vectorp desc)
+         (insert (format "* %-16s %s.\n"
+                         (concat (symbol-name (car package)) "::")
+                         (aref desc 2)))))))
+   ((string-match "\\`Keyword " nodename)
     (setq nodename (substring nodename (match-end 0)))
     ;; Display packages that match the keyword
     ;; or the list of keywords separated by comma.
-    (insert (format "\n\^_\nFile: %s,  Node: kw:%s,  Up: Top\n\n"
+    (insert (format "\n\^_\nFile: %s,  Node: Keyword %s,  Up: Top\n\n"
                    Info-finder-file nodename))
     (insert "Finder Packages\n")
     (insert "***************\n\n")
@@ -3463,11 +3468,11 @@
                               (split-string nodename ",[ \t\n]*" t)
                             (list nodename))))
          hits desc)
-      (dolist (kw keywords)
-       (push (copy-tree (gethash kw finder-keywords-hash)) hits))
+      (dolist (keyword keywords)
+       (push (copy-tree (gethash keyword finder-keywords-hash)) hits))
       (setq hits (delete-dups (apply 'append hits)))
       (dolist (package hits)
-       (setq desc (cdr-safe (assq package package-alist)))
+       (setq desc (cdr-safe (assq package package--builtins)))
        (when (vectorp desc)
          (insert (format "* %-16s %s.\n"
                          (concat (symbol-name package) "::")