From cf68a6f34b0890e01448dcd716a216448eb4402a Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 14 Jun 2002 07:35:07 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-beginning-of-line): Set zmacs-region-stays only when this command is called interactively; silence the byte-compiler. --- wl/ChangeLog | 6 ++++++ wl/wl-draft.el | 5 +++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 4dd899d..626a136 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2002-06-14 Katsumi Yamaoka + + * wl-draft.el (wl-draft-beginning-of-line): Set zmacs-region-stays + only when this command is called interactively; silence the byte- + compiler. + 2002-06-14 TAKAHASHI Kaoru * wl-draft.el (wl-draft-beginning-of-line): Keep the region diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 11f02da..d5c9614 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -788,8 +788,9 @@ 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)) + (let ((zrs 'zmacs-region-stays)) + (when (and (interactive-p) (boundp zrs)) + (set zrs t))) (if (wl-draft-point-in-header-p) (let* ((here (point)) (bol (progn (beginning-of-line n) (point))) -- 1.7.10.4