Mercurial > emacs

diff lisp/emacs-lisp/check-declare.el @ 105277:7f2b90c428b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(check-declare-locate): Remove pointless file-name-nondirectory call preventing location of cedet files. (check-declare-verify): Use literal search rather than re-search.
author Glenn Morris <rgm@gnu.org>
date Tue, 29 Sep 2009 03:37:03 +0000
parents a9dc0e7c3f2b
children 24b278c5dc72
line wrap: on
line diff
--- a/lisp/emacs-lisp/check-declare.el	Tue Sep 29 02:43:46 2009 +0000
+++ b/lisp/emacs-lisp/check-declare.el	Tue Sep 29 03:37:03 2009 +0000
@@ -54,7 +54,7 @@
     (setq file
           (if (member (file-name-extension file) '("c" "m"))
               (expand-file-name file (expand-file-name "src" source-directory))
-            (if (setq tfile (locate-library (file-name-nondirectory file)))
+            (if (setq tfile (locate-library file))
                 (progn
                   (setq tfile
                         (replace-regexp-in-string "\\.elc\\'" ".el" tfile))
@@ -158,7 +158,7 @@
                   ;; sig = 'err means we could not find an arglist.
                   sig (cond (cflag
                              (or
-                              (when (re-search-forward "," nil t 3)
+                              (when (search-forward "," nil t 3)
                                 (skip-chars-forward " \t\n")
                                 ;; Assuming minargs and maxargs on same line.
                                 (when (looking-at "\\([0-9]+\\)[ \t]*,[ \t]*\