aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2010-11-11 19:23:58 -0800
committerGlenn Morris2010-11-11 19:23:58 -0800
commitdf26e1f58a7e484b7ed500ea48d0e1c49345ffbf (patch)
treecf10e13b5b4e344067ec0a28453e614c916f2227
parent7847454adc4388578113b4237e99fae4d0775b43 (diff)
downloademacs-df26e1f58a7e484b7ed500ea48d0e1c49345ffbf.tar.gz
emacs-df26e1f58a7e484b7ed500ea48d0e1c49345ffbf.zip
* lisp/cedet/semantic/wisent/comp.el: Remove unnecessary eval-when-compiles.
-rw-r--r--lisp/cedet/ChangeLog4
-rw-r--r--lisp/cedet/semantic/wisent/comp.el12
2 files changed, 7 insertions, 9 deletions
diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index 8f5daf1ea22..efe7e4d4255 100644
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -1,3 +1,7 @@
12010-11-12 Glenn Morris <rgm@gnu.org>
2
3 * semantic/wisent/comp.el: Remove unnecessary eval-when-compiles.
4
12010-11-10 Glenn Morris <rgm@gnu.org> 52010-11-10 Glenn Morris <rgm@gnu.org>
2 6
3 * semantic/bovine/c.el: Test system-type with memq. 7 * semantic/bovine/c.el: Test system-type with memq.
diff --git a/lisp/cedet/semantic/wisent/comp.el b/lisp/cedet/semantic/wisent/comp.el
index 371a1947304..90585399b74 100644
--- a/lisp/cedet/semantic/wisent/comp.el
+++ b/lisp/cedet/semantic/wisent/comp.el
@@ -1,7 +1,8 @@
1;;; semantic/wisent/comp.el --- GNU Bison for Emacs - Grammar compiler 1;;; semantic/wisent/comp.el --- GNU Bison for Emacs - Grammar compiler
2 2
3;; Copyright (C) 1984, 1986, 1989, 1992, 1995, 2000, 2001, 2002, 2003, 3;; Copyright (C) 1984, 1986, 1989, 1992, 1995, 2000, 2001, 2002, 2003,
4;; 2004, 2005, 2006, 2007, 2009, 2010 Free Software Foundation, Inc. 4;; 2004, 2005, 2006, 2007, 2009, 2010
5;; Free Software Foundation, Inc.
5 6
6;; Author: David Ponce <david@dponce.com> 7;; Author: David Ponce <david@dponce.com>
7;; Maintainer: David Ponce <david@dponce.com> 8;; Maintainer: David Ponce <david@dponce.com>
@@ -160,12 +161,6 @@ If optional LEFT is non-nil insert spaces on left."
160 (not (zerop (logand (aref x (/ i wisent-BITS-PER-WORD)) 161 (not (zerop (logand (aref x (/ i wisent-BITS-PER-WORD))
161 (lsh 1 (% i wisent-BITS-PER-WORD)))))) 162 (lsh 1 (% i wisent-BITS-PER-WORD))))))
162 163
163(eval-when-compile
164 (or (fboundp 'noninteractive)
165 ;; Silence the Emacs byte compiler
166 (defun noninteractive nil))
167 )
168
169(defsubst wisent-noninteractive () 164(defsubst wisent-noninteractive ()
170 "Return non-nil if running without interactive terminal." 165 "Return non-nil if running without interactive terminal."
171 (if (featurep 'xemacs) 166 (if (featurep 'xemacs)
@@ -205,7 +200,7 @@ Its name is defined in constant `wisent-log-buffer-name'."
205 `(with-current-buffer (wisent-log-buffer) 200 `(with-current-buffer (wisent-log-buffer)
206 (erase-buffer))) 201 (erase-buffer)))
207 202
208(eval-when-compile (defvar byte-compile-current-file)) 203(defvar byte-compile-current-file)
209 204
210(defun wisent-source () 205(defun wisent-source ()
211 "Return the current source file name or nil." 206 "Return the current source file name or nil."
@@ -3536,5 +3531,4 @@ See also `wisent-compile-grammar' for more details on AUTOMATON."
3536 3531
3537(provide 'semantic/wisent/comp) 3532(provide 'semantic/wisent/comp)
3538 3533
3539;; arch-tag: 758ea04c-ea97-466b-9b35-aea0861033c9
3540;;; semantic/wisent/comp.el ends here 3534;;; semantic/wisent/comp.el ends here