Mercurial > emacs

changeset 105682:eb7471ca2f53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-remove-overlays): eval-and-compile.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Tue, 20 Oct 2009 05:12:15 +0000
parents fac384c9a868
children f08ab3de7d1e
files lisp/gnus/ChangeLog lisp/gnus/gnus-sum.el
diffstat 2 files changed, 12 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Tue Oct 20 01:29:17 2009 +0000
+++ b/lisp/gnus/ChangeLog	Tue Oct 20 05:12:15 2009 +0000
@@ -1,3 +1,7 @@
+2009-10-20  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-sum.el (gnus-remove-overlays): eval-and-compile.
+
 2009-10-19  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus-sum.el (gnus-summary-show-thread): Remove useless goto-char.
--- a/lisp/gnus/gnus-sum.el	Tue Oct 20 01:29:17 2009 +0000
+++ b/lisp/gnus/gnus-sum.el	Tue Oct 20 05:12:15 2009 +0000
@@ -11277,14 +11277,15 @@
     (gnus-message 6 "Threading is now %s" (if gnus-show-threads "on" "off"))
     (gnus-summary-position-point)))
 
-(if (fboundp 'remove-overlays)
-    (defalias 'gnus-remove-overlays 'remove-overlays)
-  (defun gnus-remove-overlays (beg end name val)
-    "Clear BEG and END of overlays whose property NAME has value VAL.
+(eval-and-compile
+  (if (fboundp 'remove-overlays)
+      (defalias 'gnus-remove-overlays 'remove-overlays)
+    (defun gnus-remove-overlays (beg end name val)
+      "Clear BEG and END of overlays whose property NAME has value VAL.
 For compatibility with Emacs 21 and XEmacs."
-    (dolist (ov (gnus-overlays-in beg end))
-      (when (eq (gnus-overlay-get ov name) val)
-	(gnus-delete-overlay ov)))))
+      (dolist (ov (gnus-overlays-in beg end))
+	(when (eq (gnus-overlay-get ov name) val)
+	  (gnus-delete-overlay ov))))))
 
 (defun gnus-summary-show-all-threads ()
   "Show all threads."