Mercurial > emacs
comparison lisp/gnus/message.el @ 91367:c70e45a7acfd
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-324
author | Miles Bader <miles@gnu.org> |
---|---|
date | Wed, 30 Jan 2008 07:57:28 +0000 |
parents | 606f2d163a64 d77b6e5ee8af |
children |
comparison
equal
deleted
inserted
replaced
91366:86f3a8f0a3a6 | 91367:c70e45a7acfd |
---|---|
5950 whichever is closer. If point is already at beginning of line, move point to | 5950 whichever is closer. If point is already at beginning of line, move point to |
5951 beginning of header value. Therefore, repeated calls will toggle point | 5951 beginning of header value. Therefore, repeated calls will toggle point |
5952 between beginning of field and beginning of line." | 5952 between beginning of field and beginning of line." |
5953 (interactive "p") | 5953 (interactive "p") |
5954 (let ((zrs 'zmacs-region-stays)) | 5954 (let ((zrs 'zmacs-region-stays)) |
5955 (when (and (interactive-p) (boundp zrs)) | 5955 (when (and (featurep 'xemacs) (interactive-p) (boundp zrs)) |
5956 (set zrs t))) | 5956 (set zrs t))) |
5957 (if (and message-beginning-of-line | 5957 (if (and message-beginning-of-line |
5958 (message-point-in-header-p)) | 5958 (message-point-in-header-p)) |
5959 (let* ((here (point)) | 5959 (let* ((here (point)) |
5960 (bol (progn (beginning-of-line n) (point))) | 5960 (bol (progn (beginning-of-line n) (point))) |