Mercurial > emacs
comparison lisp/simple.el @ 90291:d6f8fe3307c8
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-11
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 34-42)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 14-17)
- Update from CVS
- Merge from emacs--devo--0
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 04 Feb 2006 01:01:38 +0000 |
| parents | 7432ca837c8d 0cbfc61cfa3f |
| children | c5406394f567 |
comparison
equal
deleted
inserted
replaced
| 90290:6a1672fcf6ae | 90291:d6f8fe3307c8 |
|---|---|
| 3741 (line-move (1- arg) t)) | 3741 (line-move (1- arg) t)) |
| 3742 | 3742 |
| 3743 ;; Move to beginning-of-line, ignoring fields and invisibles. | 3743 ;; Move to beginning-of-line, ignoring fields and invisibles. |
| 3744 (skip-chars-backward "^\n") | 3744 (skip-chars-backward "^\n") |
| 3745 (while (and (not (bobp)) (line-move-invisible-p (1- (point)))) | 3745 (while (and (not (bobp)) (line-move-invisible-p (1- (point)))) |
| 3746 (goto-char (previous-char-property-change (1- (point)))) | 3746 (goto-char (previous-char-property-change (point))) |
| 3747 (skip-chars-backward "^\n")) | 3747 (skip-chars-backward "^\n")) |
| 3748 | 3748 |
| 3749 ;; Take care of fields. | 3749 ;; Take care of fields. |
| 3750 (goto-char (constrain-to-field (point) orig | 3750 (goto-char (constrain-to-field (point) orig |
| 3751 (/= arg 1) t nil)))) | 3751 (/= arg 1) t nil)))) |