From 92e98af938b3b9c83e285af8e10eb899d916deab Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 14 Jun 2002 03:07:59 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-beginning-of-line): Keep the region active in XEmacs. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 2 ++ 2 files changed, 7 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index 1820fe3..4dd899d 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2002-06-14 TAKAHASHI Kaoru + + * wl-draft.el (wl-draft-beginning-of-line): Keep the region + active in XEmacs. + 2002-06-13 KAMO Tomoyuki * wl-draft.el (wl-draft-beginning-of-line): Treat the header with diff --git a/wl/wl-draft.el b/wl/wl-draft.el index b74d455..11f02da 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -788,6 +788,8 @@ text was killed." (defun wl-draft-beginning-of-line (&optional n) "Move point to beginning of header value or to beginning of line." (interactive "p") + (when (boundp 'zmacs-region-stays) + (setq zmacs-region-stays t)) (if (wl-draft-point-in-header-p) (let* ((here (point)) (bol (progn (beginning-of-line n) (point))) -- 1.7.10.4