diff options
| author | Glenn Morris | 2008-06-07 02:44:10 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-06-07 02:44:10 +0000 |
| commit | 937382fab3afce657a047818a1ba49ec7d5eb732 (patch) | |
| tree | 5c31bf1e194e947cf34434dae3a49ab11b8aebaf | |
| parent | 67f63a7a75bcf97a171510e8202ec59137616199 (diff) | |
| download | emacs-937382fab3afce657a047818a1ba49ec7d5eb732.tar.gz emacs-937382fab3afce657a047818a1ba49ec7d5eb732.zip | |
Remove unnecessary eval-when-compiles and eval-and-compiles.
| -rw-r--r-- | lisp/ediff-merg.el | 2 | ||||
| -rw-r--r-- | lisp/strokes.el | 2 | ||||
| -rw-r--r-- | lisp/wid-edit.el | 6 |
3 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ediff-merg.el b/lisp/ediff-merg.el index 88674d1a858..0a847772d3b 100644 --- a/lisp/ediff-merg.el +++ b/lisp/ediff-merg.el | |||
| @@ -352,7 +352,7 @@ Combining is done according to the specifications in variable | |||
| 352 | (reverse delim-regs-list) | 352 | (reverse delim-regs-list) |
| 353 | ))) | 353 | ))) |
| 354 | 354 | ||
| 355 | (eval-when-compile (defvar state-of-merge)) ; dynamic var | 355 | (defvar state-of-merge) ; dynamic var |
| 356 | 356 | ||
| 357 | ;; Check if the non-preferred merge has been modified since originally set. | 357 | ;; Check if the non-preferred merge has been modified since originally set. |
| 358 | ;; This affects only the regions that are marked as default-A/B or combined. | 358 | ;; This affects only the regions that are marked as default-A/B or combined. |
diff --git a/lisp/strokes.el b/lisp/strokes.el index a32efbf07c5..7d20298218c 100644 --- a/lisp/strokes.el +++ b/lisp/strokes.el | |||
| @@ -1311,7 +1311,7 @@ the stroke as a character in some language." | |||
| 1311 | ;;;;;###autoload | 1311 | ;;;;;###autoload |
| 1312 | ;;(defalias 'edit-strokes 'strokes-edit-strokes) | 1312 | ;;(defalias 'edit-strokes 'strokes-edit-strokes) |
| 1313 | 1313 | ||
| 1314 | (eval-when-compile (defvar view-mode-map)) | 1314 | (defvar view-mode-map) |
| 1315 | 1315 | ||
| 1316 | ;;;###autoload | 1316 | ;;;###autoload |
| 1317 | (defun strokes-list-strokes (&optional chronological strokes-map) | 1317 | (defun strokes-list-strokes (&optional chronological strokes-map) |
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index d8b6887e699..be024393a74 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; wid-edit.el --- Functions for creating and using widgets -*-byte-compile-dynamic: t;-*- | 1 | ;;; wid-edit.el --- Functions for creating and using widgets -*-byte-compile-dynamic: t;-*- |
| 2 | ;; | 2 | ;; |
| 3 | ;; Copyright (C) 1996, 1997, 1999, 2000, 2001, 2002, 2003, | 3 | ;; Copyright (C) 1996, 1997, 1999, 2000, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. | 4 | ;; 2006, 2007, 2008 Free Software Foundation, Inc. |
| 5 | ;; | 5 | ;; |
| 6 | ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> | 6 | ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> |
| 7 | ;; Maintainer: FSF | 7 | ;; Maintainer: FSF |
| @@ -3024,7 +3024,7 @@ as the value." | |||
| 3024 | :complete-function 'ispell-complete-word | 3024 | :complete-function 'ispell-complete-word |
| 3025 | :prompt-history 'widget-string-prompt-value-history) | 3025 | :prompt-history 'widget-string-prompt-value-history) |
| 3026 | 3026 | ||
| 3027 | (eval-when-compile (defvar widget)) | 3027 | (defvar widget) |
| 3028 | 3028 | ||
| 3029 | (defun widget-string-complete () | 3029 | (defun widget-string-complete () |
| 3030 | "Complete contents of string field. | 3030 | "Complete contents of string field. |