HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update copyright notices for 2013.
[bpt/emacs.git]
/
lisp
/
cedet
/
cedet-idutils.el
diff --git
a/lisp/cedet/cedet-idutils.el
b/lisp/cedet/cedet-idutils.el
index
71773d1
..
2f1dda4
100644
(file)
--- a/
lisp/cedet/cedet-idutils.el
+++ b/
lisp/cedet/cedet-idutils.el
@@
-1,6
+1,6
@@
;;; cedet-idutils.el --- ID Utils support for CEDET.
;;; cedet-idutils.el --- ID Utils support for CEDET.
-;; Copyright (C) 2009
, 2010, 2011
Free Software Foundation, Inc.
+;; Copyright (C) 2009
-2013
Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <eric@siege-engine.com>
;; Version: 0.2
;; Author: Eric M. Ludlam <eric@siege-engine.com>
;; Version: 0.2
@@
-84,7
+84,7
@@
Note: Scope is not yet supported."
(defun cedet-idutils-fnid-call (flags)
"Call ID Utils fnid with the list of FLAGS.
(defun cedet-idutils-fnid-call (flags)
"Call ID Utils fnid with the list of FLAGS.
-Return the created buffer with
with
program output."
+Return the created buffer with program output."
(let ((b (get-buffer-create "*CEDET fnid*"))
(cd default-directory)
)
(let ((b (get-buffer-create "*CEDET fnid*"))
(cd default-directory)
)
@@
-112,7
+112,7
@@
Return the created buffer with with program output."
(defun cedet-idutils-mkid-call (flags)
"Call ID Utils mkid with the list of FLAGS.
(defun cedet-idutils-mkid-call (flags)
"Call ID Utils mkid with the list of FLAGS.
-Return the created buffer with
with
program output."
+Return the created buffer with program output."
(let ((b (get-buffer-create "*CEDET mkid*"))
(cd default-directory)
)
(let ((b (get-buffer-create "*CEDET mkid*"))
(cd default-directory)
)
@@
-163,8
+163,8
@@
the error code."
(defun cedet-idutils-version-check (&optional noerror)
"Check the version of the installed ID Utils command.
(defun cedet-idutils-version-check (&optional noerror)
"Check the version of the installed ID Utils command.
-If optional program
atic argument NOERROR is non-nil, then
-instead of throwing an error if Global isn't available, then
+If optional program
matic argument NOERROR is non-nil,
+then instead of throwing an error if Global isn't available,
return nil."
(interactive)
(require 'inversion)
return nil."
(interactive)
(require 'inversion)
@@
-179,8
+179,9
@@
return nil."
nil)
(with-current-buffer b
(goto-char (point-min))
nil)
(with-current-buffer b
(goto-char (point-min))
- (re-search-forward "fnid - \\([0-9.]+\\)" nil t)
- (setq rev (match-string 1))
+ (if (re-search-forward "fnid - \\([0-9.]+\\)" nil t)
+ (setq rev (match-string 1))
+ (setq rev "0"))
(if (inversion-check-version rev nil cedet-idutils-min-version)
(if noerror
nil
(if (inversion-check-version rev nil cedet-idutils-min-version)
(if noerror
nil