[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog cedet/cedet-cscope.el cede...
|
From: |
Chong Yidong |
|
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog cedet/cedet-cscope.el cede... |
|
Date: |
Sun, 22 Nov 2009 23:49:21 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 09/11/22 23:49:20
Modified files:
lisp : ChangeLog
lisp/cedet : cedet-cscope.el cedet-global.el
cedet-idutils.el mode-local.el
lisp/cedet/ede : locate.el make.el
lisp/cedet/semantic: analyze.el complete.el idle.el
mru-bookmark.el scope.el senator.el
symref.el util-modes.el util.el
lisp/cedet/semantic/analyze: complete.el
lisp/cedet/semantic/bovine: c.el
lisp/cedet/semantic/decorate: include.el mode.el
lisp/cedet/semantic/wisent: comp.el wisent.el
lisp/cedet/srecode: map.el
Log message:
* cedet/srecode/map.el (srecode-get-maps):
* cedet/semantic/wisent/wisent.el (wisent-parse-toggle-verbose-flag):
* cedet/semantic/wisent/comp.el (wisent-toggle-verbose-flag):
* cedet/semantic/decorate/mode.el (semantic-decoration-mode)
(semantic-toggle-decoration-style):
* cedet/semantic/decorate/include.el
(semantic-decoration-include-describe)
(semantic-decoration-unknown-include-describe)
(semantic-decoration-unparsed-include-describe)
(semantic-decoration-all-include-summary):
* cedet/semantic/bovine/c.el (semantic-c-debug-mode-init):
* cedet/semantic/analyze/complete.el
(semantic-analyze-possible-completions):
* cedet/semantic/util-modes.el (semantic-highlight-edits-mode)
(semantic-show-unmatched-syntax-mode)
(semantic-show-parser-state-mode, semantic-stickyfunc-mode)
(semantic-highlight-func-mode):
* cedet/semantic/util.el (semantic-describe-buffer):
* cedet/semantic/symref.el (semantic-symref-find-references-by-name)
(semantic-symref-find-tags-by-name)
(semantic-symref-find-tags-by-regexp)
(semantic-symref-find-tags-by-completion)
(semantic-symref-find-file-references-by-name)
(semantic-symref-find-text):
* cedet/semantic/senator.el (senator-copy-tag, senator-kill-tag)
(senator-yank-tag):
* cedet/semantic/scope.el (semantic-calculate-scope):
* cedet/semantic/mru-bookmark.el (semantic-mru-bookmark-mode):
* cedet/semantic/idle.el (semantic-idle-scheduler-mode)
(define-semantic-idle-service):
* cedet/semantic/complete.el (semantic-complete-analyze-inline)
(semantic-complete-analyze-inline-idle):
* cedet/semantic/analyze.el (semantic-analyze-current-context):
* cedet/mode-local.el (describe-mode-local-bindings)
(describe-mode-local-bindings-in-mode):
* cedet/ede/make.el (ede-make-check-version):
* cedet/ede/locate.el (ede-enable-locate-on-project):
* cedet/cedet-idutils.el (cedet-idutils-expand-filename)
(cedet-idutils-version-check):
* cedet/cedet-global.el (cedet-gnu-global-expand-filename)
(cedet-gnu-global-version-check):
* cedet/cedet-cscope.el (cedet-cscope-expand-filename)
(cedet-cscope-version-check): Use called-interactively-p instead
of interactive-p.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16702&r2=1.16703
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/cedet-cscope.el?cvsroot=emacs&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/cedet-global.el?cvsroot=emacs&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/cedet-idutils.el?cvsroot=emacs&r1=1.5&r2=1.6
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/mode-local.el?cvsroot=emacs&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/ede/locate.el?cvsroot=emacs&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/ede/make.el?cvsroot=emacs&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/analyze.el?cvsroot=emacs&r1=1.7&r2=1.8
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/complete.el?cvsroot=emacs&r1=1.10&r2=1.11
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/idle.el?cvsroot=emacs&r1=1.12&r2=1.13
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/mru-bookmark.el?cvsroot=emacs&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/scope.el?cvsroot=emacs&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/senator.el?cvsroot=emacs&r1=1.7&r2=1.8
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/symref.el?cvsroot=emacs&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/util-modes.el?cvsroot=emacs&r1=1.7&r2=1.8
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/util.el?cvsroot=emacs&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/analyze/complete.el?cvsroot=emacs&r1=1.5&r2=1.6
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/bovine/c.el?cvsroot=emacs&r1=1.8&r2=1.9
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/decorate/include.el?cvsroot=emacs&r1=1.5&r2=1.6
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/decorate/mode.el?cvsroot=emacs&r1=1.7&r2=1.8
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/wisent/comp.el?cvsroot=emacs&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/wisent/wisent.el?cvsroot=emacs&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/srecode/map.el?cvsroot=emacs&r1=1.9&r2=1.10
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16702
retrieving revision 1.16703
diff -u -b -r1.16702 -r1.16703
--- ChangeLog 22 Nov 2009 23:09:17 -0000 1.16702
+++ ChangeLog 22 Nov 2009 23:49:13 -0000 1.16703
@@ -1,5 +1,50 @@
2009-11-22 Chong Yidong <address@hidden>
+ * cedet/srecode/map.el (srecode-get-maps):
+ * cedet/semantic/wisent/wisent.el (wisent-parse-toggle-verbose-flag):
+ * cedet/semantic/wisent/comp.el (wisent-toggle-verbose-flag):
+ * cedet/semantic/decorate/mode.el (semantic-decoration-mode)
+ (semantic-toggle-decoration-style):
+ * cedet/semantic/decorate/include.el
+ (semantic-decoration-include-describe)
+ (semantic-decoration-unknown-include-describe)
+ (semantic-decoration-unparsed-include-describe)
+ (semantic-decoration-all-include-summary):
+ * cedet/semantic/bovine/c.el (semantic-c-debug-mode-init):
+ * cedet/semantic/analyze/complete.el
+ (semantic-analyze-possible-completions):
+ * cedet/semantic/util-modes.el (semantic-highlight-edits-mode)
+ (semantic-show-unmatched-syntax-mode)
+ (semantic-show-parser-state-mode, semantic-stickyfunc-mode)
+ (semantic-highlight-func-mode):
+ * cedet/semantic/util.el (semantic-describe-buffer):
+ * cedet/semantic/symref.el (semantic-symref-find-references-by-name)
+ (semantic-symref-find-tags-by-name)
+ (semantic-symref-find-tags-by-regexp)
+ (semantic-symref-find-tags-by-completion)
+ (semantic-symref-find-file-references-by-name)
+ (semantic-symref-find-text):
+ * cedet/semantic/senator.el (senator-copy-tag, senator-kill-tag)
+ (senator-yank-tag):
+ * cedet/semantic/scope.el (semantic-calculate-scope):
+ * cedet/semantic/mru-bookmark.el (semantic-mru-bookmark-mode):
+ * cedet/semantic/idle.el (semantic-idle-scheduler-mode)
+ (define-semantic-idle-service):
+ * cedet/semantic/complete.el (semantic-complete-analyze-inline)
+ (semantic-complete-analyze-inline-idle):
+ * cedet/semantic/analyze.el (semantic-analyze-current-context):
+ * cedet/mode-local.el (describe-mode-local-bindings)
+ (describe-mode-local-bindings-in-mode):
+ * cedet/ede/make.el (ede-make-check-version):
+ * cedet/ede/locate.el (ede-enable-locate-on-project):
+ * cedet/cedet-idutils.el (cedet-idutils-expand-filename)
+ (cedet-idutils-version-check):
+ * cedet/cedet-global.el (cedet-gnu-global-expand-filename)
+ (cedet-gnu-global-version-check):
+ * cedet/cedet-cscope.el (cedet-cscope-expand-filename)
+ (cedet-cscope-version-check): Use called-interactively-p instead
+ of interactive-p.
+
* cedet/semantic/ia.el (semantic-ia-completion-format-tag-function):
Use semantic-format-tag-prototype.
Index: cedet/cedet-cscope.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/cedet-cscope.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- cedet/cedet-cscope.el 30 Oct 2009 02:16:43 -0000 1.4
+++ cedet/cedet-cscope.el 22 Nov 2009 23:49:16 -0000 1.5
@@ -98,7 +98,7 @@
(ans2 (mapcar (lambda (hit)
(expand-file-name (car (split-string hit " "))))
ans1)))
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(if ans2
(if (= (length ans2) 1)
(message "%s" (car ans2))
@@ -133,7 +133,7 @@
(rev nil))
(if (not b)
(progn
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(message "CScope not found."))
nil)
(with-current-buffer b
@@ -146,7 +146,7 @@
(error "Version of CScope is %s. Need at least %s"
rev cedet-cscope-min-version))
;; Else, return TRUE, as in good enough.
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(message "CScope %s - Good enough for CEDET." rev))
t)))))
Index: cedet/cedet-global.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/cedet-global.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- cedet/cedet-global.el 30 Oct 2009 02:16:43 -0000 1.4
+++ cedet/cedet-global.el 22 Nov 2009 23:49:16 -0000 1.5
@@ -84,7 +84,7 @@
(if (looking-at "global: ")
(error "GNU Global not available")
(split-string (buffer-string) "\n" t)))))
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(if ans
(if (= (length ans) 1)
(message "%s" (car ans))
@@ -122,7 +122,7 @@
(rev nil))
(if (not b)
(progn
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(message "GNU Global not found."))
nil)
(with-current-buffer b
@@ -135,7 +135,7 @@
(error "Version of GNU Global is %s. Need at least %s"
rev cedet-global-min-version))
;; Else, return TRUE, as in good enough.
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(message "GNU Global %s - Good enough for CEDET." rev))
t)))))
Index: cedet/cedet-idutils.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/cedet-idutils.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- cedet/cedet-idutils.el 30 Oct 2009 02:16:43 -0000 1.5
+++ cedet/cedet-idutils.el 22 Nov 2009 23:49:16 -0000 1.6
@@ -116,7 +116,7 @@
(error "ID Utils not available")
(split-string (buffer-string) "\n" t)))))
(setq ans (mapcar 'expand-file-name ans))
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(if ans
(if (= (length ans) 1)
(message "%s" (car ans))
@@ -154,7 +154,7 @@
(rev nil))
(if (not b)
(progn
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(message "ID Utils not found."))
nil)
(with-current-buffer b
@@ -167,7 +167,7 @@
(error "Version of ID Utils is %s. Need at least %s"
rev cedet-idutils-min-version))
;; Else, return TRUE, as in good enough.
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(message "ID Utils %s - Good enough for CEDET." rev))
t)))))
Index: cedet/mode-local.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/mode-local.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- cedet/mode-local.el 3 Nov 2009 03:29:19 -0000 1.6
+++ cedet/mode-local.el 22 Nov 2009 23:49:16 -0000 1.7
@@ -728,7 +728,7 @@
"Display mode local bindings active in BUFFER."
(interactive "b")
(when (setq buffer (get-buffer buffer))
- (mode-local-describe-bindings-1 buffer (interactive-p))))
+ (mode-local-describe-bindings-1 buffer (called-interactively-p 'any))))
(defun describe-mode-local-bindings-in-mode (mode)
"Display mode local bindings active in MODE hierarchy."
@@ -738,7 +738,7 @@
#'(lambda (s) (get s 'mode-local-symbol-table))
t (symbol-name major-mode))))
(when (setq mode (intern-soft mode))
- (mode-local-describe-bindings-1 mode (interactive-p))))
+ (mode-local-describe-bindings-1 mode (called-interactively-p 'any))))
;; ;;; find-func support (Emacs 21.4, or perhaps 22.1)
;; ;;
Index: cedet/ede/locate.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/ede/locate.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- cedet/ede/locate.el 3 Nov 2009 21:45:34 -0000 1.6
+++ cedet/ede/locate.el 22 Nov 2009 23:49:16 -0000 1.7
@@ -86,18 +86,18 @@
(while (and opts (not ans))
(when (ede-locate-ok-in-project (car opts) root)
;; If interactive, check with the user.
- (when (or (not (interactive-p))
+ (when (or (not (called-interactively-p 'any))
(y-or-n-p (format "Set project locator to %s? " (car opts))))
(setq ans (car opts))))
(setq opts (cdr opts)))
;; No match? Always create the baseclass for the hashing tool.
(when (not ans)
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(message "Setting locator to ede-locate-base"))
(setq ans 'ede-locate-base))
(oset proj locate-obj (make-instance ans "Loc" :root root))
- (when (interactive-p)
- (message "Satting locator to %s." ans))
+ (when (called-interactively-p 'interactive)
+ (message "Setting locator to %s." ans))
))
;;; LOCATE BASECLASS
Index: cedet/ede/make.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/ede/make.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- cedet/ede/make.el 3 Nov 2009 21:45:34 -0000 1.4
+++ cedet/ede/make.el 22 Nov 2009 23:49:16 -0000 1.5
@@ -91,7 +91,7 @@
(setq ans (not (inversion-check-version rev nil ede-make-min-version))))
;; Answer reporting.
- (when (and (interactive-p) ans)
+ (when (and (called-interactively-p 'interactive) ans)
(message "GNU Make version %s. Good enough for CEDET." rev))
(when (and (not noerror) (not ans))
Index: cedet/semantic/analyze.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/analyze.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- cedet/semantic/analyze.el 3 Nov 2009 21:45:33 -0000 1.7
+++ cedet/semantic/analyze.el 22 Nov 2009 23:49:17 -0000 1.8
@@ -504,7 +504,7 @@
'current-context
'exit-cache-zone)))
;; Check for interactivity
- (when (interactive-p)
+ (when (called-interactively-p 'any)
(if answer
(semantic-analyze-pop-to-context answer)
(message "No Context."))
Index: cedet/semantic/complete.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/complete.el,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- cedet/semantic/complete.el 21 Nov 2009 20:18:42 -0000 1.10
+++ cedet/semantic/complete.el 22 Nov 2009 23:49:17 -0000 1.11
@@ -2030,13 +2030,12 @@
(semantic-complete-inline-analyzer
(semantic-analyze-current-context (point))))
;; Report a message if things didn't startup.
- (if (and (interactive-p)
+ (if (and (called-interactively-p 'any)
(not (semantic-completion-inline-active-p)))
(message "Inline completion not needed.")
;; Since this is most likely bound to something, and not used
;; at idle time, throw in a TAB for good measure.
- (semantic-complete-inline-TAB)
- ))
+ (semantic-complete-inline-TAB)))
;;;###autoload
(defun semantic-complete-analyze-inline-idle ()
@@ -2053,10 +2052,9 @@
(semantic-complete-inline-analyzer-idle
(semantic-analyze-current-context (point))))
;; Report a message if things didn't startup.
- (if (and (interactive-p)
+ (if (and (called-interactively-p 'interactive)
(not (semantic-completion-inline-active-p)))
- (message "Inline completion not needed."))
- )
+ (message "Inline completion not needed.")))
;;;###autoload
(defun semantic-complete-self-insert (arg)
Index: cedet/semantic/idle.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/idle.el,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- cedet/semantic/idle.el 20 Nov 2009 15:11:19 -0000 1.12
+++ cedet/semantic/idle.el 22 Nov 2009 23:49:17 -0000 1.13
@@ -224,7 +224,7 @@
(not semantic-idle-scheduler-mode)))
(semantic-idle-scheduler-mode-setup)
(run-hooks 'semantic-idle-scheduler-mode-hook)
- (if (interactive-p)
+ (if (called-interactively-p 'interactive)
(message "idle-scheduler minor mode %sabled"
(if semantic-idle-scheduler-mode "en" "dis")))
(semantic-mode-line-update)
@@ -670,7 +670,7 @@
(not ,mode)))
(,setup)
(run-hooks ,hook)
- (if (interactive-p)
+ (if (called-interactively-p 'interactive)
(message "%s %sabled"
(symbol-name ',mode)
(if ,mode "en" "dis")))
Index: cedet/semantic/mru-bookmark.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/mru-bookmark.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- cedet/semantic/mru-bookmark.el 3 Nov 2009 21:45:33 -0000 1.6
+++ cedet/semantic/mru-bookmark.el 22 Nov 2009 23:49:17 -0000 1.7
@@ -326,7 +326,7 @@
(not semantic-mru-bookmark-mode)))
(semantic-mru-bookmark-mode-setup)
(run-hooks 'semantic-mru-bookmark-mode-hook)
- (if (interactive-p)
+ (if (called-interactively-p 'interactive)
(message "mru-bookmark minor mode %sabled"
(if semantic-mru-bookmark-mode "en" "dis")))
(semantic-mode-line-update)
Index: cedet/semantic/scope.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/scope.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- cedet/semantic/scope.el 3 Nov 2009 21:45:33 -0000 1.6
+++ cedet/semantic/scope.el 22 Nov 2009 23:49:17 -0000 1.7
@@ -663,10 +663,9 @@
nil ;; Don't do anything...
(require 'semantic/db-typecache)
(if (not point) (setq point (point)))
- (when (interactive-p)
+ (when (called-interactively-p 'any)
(semantic-fetch-tags)
- (semantic-scope-reset-cache)
- )
+ (semantic-scope-reset-cache))
(save-excursion
(goto-char point)
(let* ((TAG (semantic-current-tag))
@@ -726,10 +725,9 @@
;; Make sure we become dependant on the typecache.
(semanticdb-typecache-add-dependant scopecache)
;; Handy debug output.
- (when (interactive-p)
+ (when (called-interactively-p 'any)
(require 'eieio-datadebug)
- (data-debug-show scopecache)
- )
+ (data-debug-show scopecache))
;; Return ourselves
scopecache))))
Index: cedet/semantic/senator.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/senator.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- cedet/semantic/senator.el 16 Nov 2009 15:34:19 -0000 1.7
+++ cedet/semantic/senator.el 22 Nov 2009 23:49:18 -0000 1.8
@@ -684,9 +684,9 @@
(when ft
(ring-insert senator-tag-ring ft)
(kill-ring-save (semantic-tag-start ft) (semantic-tag-end ft))
- (when (interactive-p)
- (message "Use C-y to yank text. Use `senator-yank-tag' for prototype
insert."))
- )
+ (when (called-interactively-p 'interactive)
+ (message "Use C-y to yank text. \
+Use `senator-yank-tag' for prototype insert.")))
ft))
;;;###autoload
@@ -698,9 +698,9 @@
(let ((ct (senator-copy-tag))) ;; this handles the reparse for us.
(kill-region (semantic-tag-start ct)
(semantic-tag-end ct))
- (when (interactive-p)
- (message "Use C-y to yank text. Use `senator-yank-tag' for prototype
insert."))
- ))
+ (when (called-interactively-p 'interactive)
+ (message "Use C-y to yank text. \
+Use `senator-yank-tag' for prototype insert."))))
;;;###autoload
(defun senator-yank-tag ()
@@ -712,10 +712,9 @@
(let ((ft (ring-ref senator-tag-ring 0)))
(semantic-foreign-tag-check ft)
(semantic-insert-foreign-tag ft)
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(message "Use C-y to recover the yank the text of %s."
- (semantic-tag-name ft)))
- )))
+ (semantic-tag-name ft))))))
;;;###autoload
(defun senator-copy-tag-to-register (register &optional kill-flag)
Index: cedet/semantic/symref.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/symref.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- cedet/semantic/symref.el 3 Nov 2009 21:45:33 -0000 1.6
+++ cedet/semantic/symref.el 22 Nov 2009 23:49:18 -0000 1.7
@@ -167,7 +167,7 @@
(set tool-return inst))
(prog1
(setq semantic-symref-last-result result)
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(semantic-symref-data-debug-last-result))))
)
@@ -187,7 +187,7 @@
(result (semantic-symref-get-result inst)))
(prog1
(setq semantic-symref-last-result result)
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(semantic-symref-data-debug-last-result))))
)
@@ -207,7 +207,7 @@
(result (semantic-symref-get-result inst)))
(prog1
(setq semantic-symref-last-result result)
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(semantic-symref-data-debug-last-result))))
)
@@ -227,7 +227,7 @@
(result (semantic-symref-get-result inst)))
(prog1
(setq semantic-symref-last-result result)
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(semantic-symref-data-debug-last-result))))
)
@@ -247,7 +247,7 @@
(result (semantic-symref-get-result inst)))
(prog1
(setq semantic-symref-last-result result)
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(semantic-symref-data-debug-last-result))))
)
@@ -268,7 +268,7 @@
(result (semantic-symref-get-result inst)))
(prog1
(setq semantic-symref-last-result result)
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(semantic-symref-data-debug-last-result))))
)
Index: cedet/semantic/util-modes.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/util-modes.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- cedet/semantic/util-modes.el 3 Nov 2009 21:45:32 -0000 1.7
+++ cedet/semantic/util-modes.el 22 Nov 2009 23:49:18 -0000 1.8
@@ -288,7 +288,7 @@
(not semantic-highlight-edits-mode)))
(semantic-highlight-edits-mode-setup)
(run-hooks 'semantic-highlight-edits-mode-hook)
- (if (interactive-p)
+ (if (called-interactively-p 'interactive)
(message "highlight-edits minor mode %sabled"
(if semantic-highlight-edits-mode "en" "dis")))
(semantic-mode-line-update)
@@ -496,7 +496,7 @@
(not semantic-show-unmatched-syntax-mode)))
(semantic-show-unmatched-syntax-mode-setup)
(run-hooks 'semantic-show-unmatched-syntax-mode-hook)
- (if (interactive-p)
+ (if (called-interactively-p 'interactive)
(message "show-unmatched-syntax minor mode %sabled"
(if semantic-show-unmatched-syntax-mode "en" "dis")))
(semantic-mode-line-update)
@@ -656,7 +656,7 @@
(not semantic-show-parser-state-mode)))
(semantic-show-parser-state-mode-setup)
(run-hooks 'semantic-show-parser-state-mode-hook)
- (if (interactive-p)
+ (if (called-interactively-p 'interactive)
(message "show-parser-state minor mode %sabled"
(if semantic-show-parser-state-mode "en" "dis")))
(semantic-mode-line-update)
@@ -928,7 +928,7 @@
(not semantic-stickyfunc-mode)))
(semantic-stickyfunc-mode-setup)
(run-hooks 'semantic-stickyfunc-mode-hook)
- (if (interactive-p)
+ (if (called-interactively-p 'interactive)
(message "Stickyfunc minor mode %sabled"
(if semantic-stickyfunc-mode "en" "dis")))
(semantic-mode-line-update)
@@ -1173,7 +1173,7 @@
(not semantic-highlight-func-mode)))
(semantic-highlight-func-mode-setup)
(run-hooks 'semantic-highlight-func-mode-hook)
- (if (interactive-p)
+ (if (called-interactively-p 'interactive)
(message "Highlight-Func minor mode %sabled"
(if semantic-highlight-func-mode "en" "dis")))
semantic-highlight-func-mode)
Index: cedet/semantic/util.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/util.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- cedet/semantic/util.el 30 Oct 2009 02:16:41 -0000 1.6
+++ cedet/semantic/util.el 22 Nov 2009 23:49:18 -0000 1.7
@@ -305,7 +305,8 @@
)
(with-output-to-temp-buffer (help-buffer)
- (help-setup-xref (list #'semantic-describe-buffer) (interactive-p))
+ (help-setup-xref (list #'semantic-describe-buffer)
+ (called-interactively-p 'interactive))
(with-current-buffer standard-output
(princ "Semantic Configuration in ")
(princ (buffer-name buff))
Index: cedet/semantic/analyze/complete.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/analyze/complete.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- cedet/semantic/analyze/complete.el 3 Nov 2009 21:45:32 -0000 1.5
+++ cedet/semantic/analyze/complete.el 22 Nov 2009 23:49:18 -0000 1.6
@@ -91,7 +91,7 @@
(error "Nothing to complete")
(:override))))
;; If interactive, display them.
- (when (interactive-p)
+ (when (called-interactively-p 'any)
(with-output-to-temp-buffer "*Possible Completions*"
(semantic-analyze-princ-sequence ans "" (current-buffer)))
(shrink-window-if-larger-than-buffer
Index: cedet/semantic/bovine/c.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/bovine/c.el,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- cedet/semantic/bovine/c.el 3 Nov 2009 21:45:32 -0000 1.8
+++ cedet/semantic/bovine/c.el 22 Nov 2009 23:49:18 -0000 1.9
@@ -763,7 +763,7 @@
(defun semantic-c-debug-mode-init (mm)
"Debug mode init for major mode MM after we're done parsing now."
(interactive (list semantic-c-debug-mode-init-last-mode))
- (if (interactive-p)
+ (if (called-interactively-p 'interactive)
;; Do the debug.
(progn
(switch-to-buffer (get-buffer-create "*MODE HACK TEST*"))
Index: cedet/semantic/decorate/include.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/decorate/include.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- cedet/semantic/decorate/include.el 3 Nov 2009 21:45:32 -0000 1.5
+++ cedet/semantic/decorate/include.el 22 Nov 2009 23:49:19 -0000 1.6
@@ -326,7 +326,7 @@
(semanticdb-file-table-object file t))))
(with-output-to-temp-buffer (help-buffer) ; "*Help*"
(help-setup-xref (list #'semantic-decoration-include-describe)
- (interactive-p))
+ (called-interactively-p 'interactive))
(princ "Include File: ")
(princ (semantic-format-tag-name tag nil t))
(princ "\n")
@@ -425,7 +425,7 @@
(mm major-mode))
(with-output-to-temp-buffer (help-buffer) ; "*Help*"
(help-setup-xref (list #'semantic-decoration-unknown-include-describe)
- (interactive-p))
+ (called-interactively-p 'interactive))
(princ "Include File: ")
(princ (semantic-format-tag-name tag nil t))
(princ "\n\n")
@@ -507,7 +507,7 @@
(let ((tag (semantic-current-tag)))
(with-output-to-temp-buffer (help-buffer); "*Help*"
(help-setup-xref (list #'semantic-decoration-unparsed-include-describe)
- (interactive-p))
+ (called-interactively-p 'interactive))
(princ "Include File: ")
(princ (semantic-format-tag-name tag nil t))
@@ -588,7 +588,7 @@
)
(with-output-to-temp-buffer (help-buffer) ;"*Help*"
(help-setup-xref (list #'semantic-decoration-all-include-summary)
- (interactive-p))
+ (called-interactively-p 'interactive))
(princ "Include Summary for File: ")
(princ (file-truename (buffer-file-name)))
Index: cedet/semantic/decorate/mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/decorate/mode.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- cedet/semantic/decorate/mode.el 3 Nov 2009 21:45:32 -0000 1.7
+++ cedet/semantic/decorate/mode.el 22 Nov 2009 23:49:19 -0000 1.8
@@ -316,7 +316,7 @@
(not semantic-decoration-mode)))
(semantic-decoration-mode-setup)
(run-hooks 'semantic-decoration-mode-hook)
- (if (interactive-p)
+ (if (called-interactively-p 'interactive)
(message "decoration-mode minor mode %sabled"
(if semantic-decoration-mode "en" "dis")))
(semantic-mode-line-update)
@@ -375,7 +375,7 @@
(when semantic-decoration-mode
(semantic-decoration-mode -1)
(semantic-decoration-mode 1))
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(message "Decoration style %s turned %s" (car style)
(if flag "on" "off"))))
flag)))
Index: cedet/semantic/wisent/comp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/wisent/comp.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- cedet/semantic/wisent/comp.el 2 Oct 2009 10:53:36 -0000 1.3
+++ cedet/semantic/wisent/comp.el 22 Nov 2009 23:49:19 -0000 1.4
@@ -191,7 +191,7 @@
"Toggle whether to report verbose information on generated parser."
(interactive)
(setq wisent-verbose-flag (not wisent-verbose-flag))
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(message "Verbose report %sabled"
(if wisent-verbose-flag "en" "dis"))))
Index: cedet/semantic/wisent/wisent.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/wisent/wisent.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- cedet/semantic/wisent/wisent.el 4 Oct 2009 01:44:42 -0000 1.4
+++ cedet/semantic/wisent/wisent.el 22 Nov 2009 23:49:19 -0000 1.5
@@ -135,7 +135,7 @@
"Toggle whether to issue more messages while parsing."
(interactive)
(setq wisent-parse-verbose-flag (not wisent-parse-verbose-flag))
- (when (interactive-p)
+ (when (called-interactively-p 'interactive)
(message "More messages while parsing %sabled"
(if wisent-parse-verbose-flag "en" "dis"))))
Index: cedet/srecode/map.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/srecode/map.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- cedet/srecode/map.el 3 Nov 2009 21:45:31 -0000 1.9
+++ cedet/srecode/map.el 22 Nov 2009 23:49:20 -0000 1.10
@@ -196,7 +196,7 @@
;; the user asks for one.
(srecode-map-update-map (not reset))
- (if (interactive-p)
+ (if (called-interactively-p 'any)
;; Dump this map.
(with-output-to-temp-buffer "*SRECODE MAP*"
(princ " -- SRecode Global map --\n")
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog cedet/cedet-cscope.el cede...,
Chong Yidong <=