X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/2d212d873560d74d59e50bbdcb6886f66a90f118..41674a5aa2626979d2ddf1b40ef42ceabdef540b:/lisp/finder.el

diff --git a/lisp/finder.el b/lisp/finder.el
index a0216c415b..5e00ea2c68 100644
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -44,6 +44,8 @@
 ;; Local variable in finder buffer.
 (defvar finder-headmark)
 
+;; These are supposed to correspond to top-level customization groups,
+;; says rms.
 (defvar finder-known-keywords
   '(
     (abbrev	. "abbreviation handling, typing shortcuts, macros")
@@ -71,6 +73,7 @@
     (mail	. "modes for electronic-mail handling")
     (matching	. "various sorts of searching and matching")
     (mouse	. "mouse support")
+    (multimedia . "images and sound support")
     (news	. "support for netnews reading and posting")
     (oop        . "support for object-oriented programming")
     (outlines   . "support for hierarchical outlining")
@@ -263,6 +266,7 @@ FILE should be in a form suitable for passing to `locate-library'."
     (setq buffer-read-only t)
     (set-buffer-modified-p nil)
     (shrink-window-if-larger-than-buffer)
+    (finder-mode)
     (finder-summary)))
 
 (defun finder-current-item ()