Make gnus-article-beginning-of-window into a defun for easier debugging.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index da76ac3..e81d734 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-08-29  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-art.el (gnus-article-beginning-of-window): Make into defun for
+       easier debugging.
+
        * mm-decode.el (mm-text-html-renderer): Default the html renderer to
        gnus-article-html.
        (mm-text-html-renderer): gnus-article-html needs curl in addition to

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 618d8e4..e83e6ae 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -6283,18 +6283,18 @@ Argument LINES specifies lines to be scrolled up."
     (gnus-article-next-page-1 lines)
     nil))
 
-(defmacro gnus-article-beginning-of-window ()
+(defun gnus-article-beginning-of-window ()
   "Move point to the beginning of the window.
 In Emacs, the point is placed at the line number which `scroll-margin'
 specifies."
   (if (featurep 'xemacs)
-      '(move-to-window-line 0)
-    '(move-to-window-line
-      (min (max 0 scroll-margin)
-          (max 1 (- (window-height)
-                    (if mode-line-format 1 0)
-                    (if header-line-format 1 0)
-                    2))))))
+      (move-to-window-line 0)
+    (move-to-window-line
+     (min (max 0 scroll-margin)
+         (max 1 (- (window-height)
+                   (if mode-line-format 1 0)
+                   (if header-line-format 1 0)
+                   2))))))
 
 (defun gnus-article-next-page-1 (lines)
   (unless (featurep 'xemacs)