From 26b3dce61c1247b5b142f51209a3609013591fcb Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 7 Jun 2008 02:38:32 +0000 Subject: [PATCH] Remove unnecessary eval-when-compiles. --- lisp/international/mule-cmds.el | 11 +++++------ lisp/international/mule-diag.el | 7 +++---- 2 files changed, 8 insertions(+), 10 deletions(-) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 5bcc5996fb4..d0278bb772e 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -1,7 +1,7 @@ ;;; mule-cmds.el --- commands for multilingual environment -*-coding: iso-2022-7bit -*- -;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, -;; 2006, 2007, 2008 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, +;; 2007, 2008 Free Software Foundation, Inc. ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, ;; 2005, 2006, 2007, 2008 ;; National Institute of Advanced Industrial Science and Technology (AIST) @@ -31,9 +31,8 @@ ;;; Code: -(eval-when-compile - (defvar dos-codepage) - (autoload 'widget-value "wid-edit")) +(defvar dos-codepage) +(autoload 'widget-value "wid-edit") (defvar mac-system-coding-system) (defvar mac-system-locale) @@ -1507,7 +1506,7 @@ which marks the variable `default-input-method' as set for Custom buffers." (when interactive (customize-mark-as-set 'default-input-method))))))) -(eval-when-compile (autoload 'help-buffer "help-mode")) +(autoload 'help-buffer "help-mode") (defun describe-input-method (input-method) "Describe input method INPUT-METHOD." diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index c01e15cf2d6..3647dfd8224 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -1,7 +1,7 @@ ;;; mule-diag.el --- show diagnosis of multilingual environment (Mule) -;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005, 2006, +;; 2007, 2008 Free Software Foundation, Inc. ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, ;; 2005, 2006, 2007, 2008 ;; National Institute of Advanced Industrial Science and Technology (AIST) @@ -373,8 +373,7 @@ detailed meanings of these arguments." ;;; CODING-SYSTEM -(eval-when-compile ; dynamic bondage - (defvar graphic-register)) +(defvar graphic-register) ; dynamic bondage ;; Print information about designation of each graphic register in ;; DESIGNATIONS in human readable format. See the documentation of -- 2.39.2