diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-09-29 03:37:03 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-09-29 03:37:03 +0000 |
| commit | 8360fce0aa00987109b93b5b1e6d8f7b91e76997 (patch) | |
| tree | c36d832cf0b9b27d1ac0bb8bd03440f5f066063e /lisp/emacs-lisp | |
| parent | dab8f2791c1297bc16200a811c15fadc24fa0d6c (diff) | |
| download | emacs-8360fce0aa00987109b93b5b1e6d8f7b91e76997.tar.gz emacs-8360fce0aa00987109b93b5b1e6d8f7b91e76997.tar.bz2 emacs-8360fce0aa00987109b93b5b1e6d8f7b91e76997.zip | |
(check-declare-locate): Remove pointless file-name-nondirectory call
preventing location of cedet files.
(check-declare-verify): Use literal search rather than re-search.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/check-declare.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el index 6b77dc1bdb4..1251699f8f1 100644 --- a/lisp/emacs-lisp/check-declare.el +++ b/lisp/emacs-lisp/check-declare.el @@ -54,7 +54,7 @@ the result." (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 @@ ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\ ;; 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]*\ |