Mercurial > emacs
diff lisp/simple.el @ 83271:1830bcd0eec0
Merged from miles@gnu.org--gnu-2005 (patch 39-44, 184-191)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-184
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-185
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-186
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-187
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-188
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-189
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-190
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-191
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-39
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-40
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-41
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-42
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-43
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-44
Merge from emacs--cvs-trunk--0
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-311
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Sat, 19 Mar 2005 17:55:13 +0000 |
| parents | 42406ecdf5bf 2edb492f66d9 |
| children | 26c9034f3533 |
line wrap: on
line diff
--- a/lisp/simple.el Wed Mar 16 16:06:45 2005 +0000 +++ b/lisp/simple.el Sat Mar 19 17:55:13 2005 +0000 @@ -3540,9 +3540,11 @@ (or arg (setq arg 1)) (if (/= arg 1) (line-move (1- arg) t)) + (beginning-of-line 1) (let ((orig (point))) (vertical-motion 0) - (goto-char (constrain-to-field (point) orig (/= arg 1) t nil)))) + (if (/= orig (point)) + (goto-char (constrain-to-field (point) orig (/= arg 1) t nil))))) ;;; Many people have said they rarely use this feature, and often type @@ -3929,6 +3931,7 @@ "The function to use for `auto-fill-function' if Auto Fill mode is turned on. Some major modes set this.") +(put 'auto-fill-function :minor-mode-function 'auto-fill-mode) ;; FIXME: turn into a proper minor mode. ;; Add a global minor mode version of it. (defun auto-fill-mode (&optional arg)