Commit 937382fa authored by Glenn Morris's avatar Glenn Morris
Browse files

Remove unnecessary eval-when-compiles and eval-and-compiles.

parent 67f63a7a
...@@ -352,7 +352,7 @@ Combining is done according to the specifications in variable ...@@ -352,7 +352,7 @@ Combining is done according to the specifications in variable
(reverse delim-regs-list) (reverse delim-regs-list)
))) )))
(eval-when-compile (defvar state-of-merge)) ; dynamic var (defvar state-of-merge) ; dynamic var
;; Check if the non-preferred merge has been modified since originally set. ;; Check if the non-preferred merge has been modified since originally set.
;; This affects only the regions that are marked as default-A/B or combined. ;; This affects only the regions that are marked as default-A/B or combined.
......
...@@ -1311,7 +1311,7 @@ the stroke as a character in some language." ...@@ -1311,7 +1311,7 @@ the stroke as a character in some language."
;;;;;###autoload ;;;;;###autoload
;;(defalias 'edit-strokes 'strokes-edit-strokes) ;;(defalias 'edit-strokes 'strokes-edit-strokes)
(eval-when-compile (defvar view-mode-map)) (defvar view-mode-map)
;;;###autoload ;;;###autoload
(defun strokes-list-strokes (&optional chronological strokes-map) (defun strokes-list-strokes (&optional chronological strokes-map)
......
;;; wid-edit.el --- Functions for creating and using widgets -*-byte-compile-dynamic: t;-*- ;;; wid-edit.el --- Functions for creating and using widgets -*-byte-compile-dynamic: t;-*-
;; ;;
;; Copyright (C) 1996, 1997, 1999, 2000, 2001, 2002, 2003, ;; Copyright (C) 1996, 1997, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
;; 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. ;; 2006, 2007, 2008 Free Software Foundation, Inc.
;; ;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Maintainer: FSF ;; Maintainer: FSF
...@@ -3024,7 +3024,7 @@ as the value." ...@@ -3024,7 +3024,7 @@ as the value."
:complete-function 'ispell-complete-word :complete-function 'ispell-complete-word
:prompt-history 'widget-string-prompt-value-history) :prompt-history 'widget-string-prompt-value-history)
(eval-when-compile (defvar widget)) (defvar widget)
(defun widget-string-complete () (defun widget-string-complete ()
"Complete contents of string field. "Complete contents of string field.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment