diff options
Diffstat (limited to 'lisp/cedet/ede/source.el')
-rw-r--r-- | lisp/cedet/ede/source.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/cedet/ede/source.el b/lisp/cedet/ede/source.el index 7b675587f81..d7d27679623 100644 --- a/lisp/cedet/ede/source.el +++ b/lisp/cedet/ede/source.el @@ -1,6 +1,6 @@ ;; ede/source.el --- EDE source code object -;; Copyright (C) 2000, 2008-2013 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2008-2015 Free Software Foundation, Inc. ;; Author: Eric M. Ludlam <zappo@gnu.org> ;; Keywords: project, make @@ -72,7 +72,7 @@ that they are willing to use.") ;;; Methods ;; -(defmethod initialize-instance :AFTER ((this ede-sourcecode) &rest fields) +(cl-defmethod initialize-instance :after ((this ede-sourcecode) &rest fields) "Make sure that all ede compiler objects are cached in `ede-compiler-list'." (let ((lst ede-sourcecode-list)) @@ -85,45 +85,45 @@ that they are willing to use.") ;; Add to the beginning of the list. (setq ede-sourcecode-list (cons this ede-sourcecode-list))))) -(defmethod ede-want-file-p ((this ede-sourcecode) filename) +(cl-defmethod ede-want-file-p ((this ede-sourcecode) filename) "Return non-nil if sourcecode definition THIS will take FILENAME." (or (ede-want-file-source-p this filename) (ede-want-file-auxiliary-p this filename))) -(defmethod ede-want-file-source-p ((this ede-sourcecode) filename) +(cl-defmethod ede-want-file-source-p ((this ede-sourcecode) filename) "Return non-nil if THIS will take FILENAME as an auxiliary ." (let ((case-fold-search nil)) (string-match (oref this sourcepattern) filename))) -(defmethod ede-want-file-auxiliary-p ((this ede-sourcecode) filename) +(cl-defmethod ede-want-file-auxiliary-p ((this ede-sourcecode) filename) "Return non-nil if THIS will take FILENAME as an auxiliary ." (let ((case-fold-search nil)) (and (slot-boundp this 'auxsourcepattern) (oref this auxsourcepattern) (string-match (oref this auxsourcepattern) filename)))) -(defmethod ede-want-any-source-files-p ((this ede-sourcecode) filenames) +(cl-defmethod ede-want-any-source-files-p ((this ede-sourcecode) filenames) "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)))) found)) -(defmethod ede-want-any-auxiliary-files-p ((this ede-sourcecode) filenames) +(cl-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)))) found)) -(defmethod ede-want-any-files-p ((this ede-sourcecode) filenames) +(cl-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)))) found)) -(defmethod ede-buffer-header-file ((this ede-sourcecode) filename) +(cl-defmethod ede-buffer-header-file ((this ede-sourcecode) filename) "Return a list of file names of header files for THIS with FILENAME. Used to guess header files, but uses the auxsource regular expression." (let ((dn (file-name-directory filename)) |