mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

* cedet/ede/source.el (ede-want-any-source-files-p)

Browse Source 
(ede-want-any-auxiliary-files-p, ede-want-any-files-p): Return
search result.  This error was introduced while merging.
This commit is contained in:
Chong Yidong 2009-10-08 01:49:05 +00:00
parent a3b841018e
commit c2a81032c8
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2009-10-08 Chong Yidong <cyd@stupidchicken.com>
* cedet/ede/source.el (ede-want-any-source-files-p)
(ede-want-any-auxiliary-files-p, ede-want-any-files-p): Return
search result. This error was introduced while merging.
2009-10-07 Juanma Barranquero <lekktu@gmail.com>
* makefile.w32-in (WINS_UPDATES): Fix typo in previous change.

9
lisp/cedet/ede/source.el
View File

@ -106,19 +106,22 @@ that they are willing to use.")
"Return non-nil if THIS will accept any source files in FILENAMES."
(let (found)
(while (and (not found) filenames)
(setq found (ede-want-file-source-p this (pop filenames))))))
(setq found (ede-want-file-source-p this (pop filenames))))
found))
(defmethod ede-want-any-auxiliary-files-p ((this ede-sourcecode) filenames)
"Return non-nil if THIS will accept any aux files in FILENAMES."
(let (found)
(while (and (not found) filenames)
(setq found (ede-want-file-auxiliary-p this (pop filenames))))))
(setq found (ede-want-file-auxiliary-p this (pop filenames))))
found))
(defmethod ede-want-any-files-p ((this ede-sourcecode) filenames)
"Return non-nil if THIS will accept any files in FILENAMES."
(let (found)
(while (and (not found) filenames)
(setq found (ede-want-file-p this (pop filenames))))))
(setq found (ede-want-file-p this (pop filenames))))
found))
(defmethod ede-buffer-header-file ((this ede-sourcecode) filename)
"Return a list of file names of header files for THIS with FILENAME.