[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/check-declare.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/check-declare.el |
Date: |
Tue, 29 Sep 2009 03:37:06 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/09/29 03:37:06
Modified files:
lisp : ChangeLog
lisp/emacs-lisp: check-declare.el
Log message:
(check-declare-locate): Remove pointless file-name-nondirectory call
preventing location of cedet files.
(check-declare-verify): Use literal search rather than re-search.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16287&r2=1.16288
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/check-declare.el?cvsroot=emacs&r1=1.20&r2=1.21
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16287
retrieving revision 1.16288
diff -u -b -r1.16287 -r1.16288
--- ChangeLog 29 Sep 2009 02:26:20 -0000 1.16287
+++ ChangeLog 29 Sep 2009 03:37:03 -0000 1.16288
@@ -12,6 +12,14 @@
2009-09-29 Glenn Morris <address@hidden>
+ * emacs-lisp/check-declare.el (check-declare-locate): Remove pointless
+ file-name-nondirectory call preventing location of cedet files.
+ (check-declare-verify): Use literal search rather than re-search.
+
+ * net/tramp-smb.el (tramp-smb-handle-directory-files-and-attributes):
+ Use tramp-compat-file-attributes rather than nonexistent
+ tramp-compat-handle-file-attributes.
+
* Makefile.in (lisptagsfiles4): New.
(AUTOGENEL): Add cedet loaddefs files.
(TAGS, TAGS-LISP): Use $lisptagsfiles4.
Index: emacs-lisp/check-declare.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/check-declare.el,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- emacs-lisp/check-declare.el 5 Jan 2009 03:20:47 -0000 1.20
+++ emacs-lisp/check-declare.el 29 Sep 2009 03:37:05 -0000 1.21
@@ -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]*\
- [Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/check-declare.el,
Glenn Morris <=