From 32688f623d913960d0e33ac8bb382738a887a743 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 21 Jun 1999 12:20:05 +0000 Subject: [PATCH] (gnus-cite-add-face): Use `move-to-column' statically to skip the prefix string under Emacs 20.2 or earlier. (TopLevel): Require `static'. --- lisp/gnus-cite.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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) -- 1.7.10.4