X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/0fd5e6593af620863dcf90dff5d04631458e24cd..4b9ac23960d2998f899287ffcf696ad33b63a69a:/lisp/finder.el

diff --git a/lisp/finder.el b/lisp/finder.el
index 306f2e27d5..da537a59cc 100644
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -1,6 +1,6 @@
 ;;; finder.el --- topic & keyword-based code finder
 
-;; Copyright (C) 1992, 1997-1999, 2001-2015 Free Software Foundation,
+;; Copyright (C) 1992, 1997-1999, 2001-2016 Free Software Foundation,
 ;; Inc.
 
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
@@ -114,10 +114,6 @@ Each element has the form (KEYWORD . DESCRIPTION).")
     st)
   "Syntax table used while in `finder-mode'.")
 
-(defvar finder-font-lock-keywords
-  '(("[`‘]\\([^'`‘’]+\\)['’]" 1 font-lock-constant-face prepend))
-  "Font-lock keywords for Finder mode.")
-
 (defvar finder-headmark nil
   "Internal Finder mode variable, local in Finder buffer.")
 
@@ -197,7 +193,7 @@ from; the default is `load-path'."
 	summary keywords package version entry desc)
     (dolist (d (or dirs load-path))
       (when (file-exists-p (directory-file-name d))
-	(message "Directory %s" d)
+	(message "Scanning %s for finder" d)
 	(setq package-override
 	      (intern-soft
 	       (cdr-safe
@@ -242,7 +238,7 @@ from; the default is `load-path'."
 		    ;; The idea here is that eg calc.el gets to define
 		    ;; the description of the calc package.
 		    ;; This does not work for eg nxml-mode.el.
-		    ((eq base-name package)
+		    ((or (eq base-name package) version)
 		     (setq desc (cdr entry))
 		     (aset desc 0 version)
 		     (aset desc 2 summary)))