From: yamaoka <yamaoka>
Date: Mon, 21 Jun 1999 12:20:05 +0000 (+0000)
Subject: (gnus-cite-add-face): Use `move-to-column' statically to skip the prefix
X-Git-Tag: et-gnus-6_11_03-04~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=32688f623d913960d0e33ac8bb382738a887a743;p=elisp%2Fgnus.git-

(gnus-cite-add-face): Use `move-to-column' statically to skip the prefix
string under Emacs 20.2 or earlier.
(TopLevel): Require `static'.
---

diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el
index 8975276..a9d2018 100644
--- a/lisp/gnus-cite.el
+++ b/lisp/gnus-cite.el
@@ -26,6 +26,8 @@
 (require 'gnus-art)
 (require 'gnus-range)
 
+(eval-when-compile (require 'static))
+
 ;;; Customization:
 
 (defgroup gnus-cite nil
@@ -905,7 +907,11 @@ See also the documentation for `gnus-article-highlight-citation'."
 	  from to overlay)
       (goto-char (point-min))
       (when (zerop (forward-line (1- number)))
-	(forward-char (length prefix))
+	(static-if (or (featurep 'xemacs)
+		       (and (>= emacs-major-version 20)
+			    (>= emacs-minor-version 3)))
+	    (forward-char (length prefix))
+	  (move-to-column (string-width prefix)))
 	(skip-chars-forward " \t")
 	(setq from (point))
 	(end-of-line 1)