Parent Directory | Revision Log | Patch
revision 1.700 by monnier, Wed Mar 16 13:11:34 2005 UTC | revision 1.701 by kfstorm, Thu Mar 17 15:33:56 2005 UTC | |
---|---|---|
# | Line 3536 boundaries bind `inhibit-field-text-moti | Line 3536 boundaries bind `inhibit-field-text-moti |
3536 | (or arg (setq arg 1)) | (or arg (setq arg 1)) |
3537 | (if (/= arg 1) | (if (/= arg 1) |
3538 | (line-move (1- arg) t)) | (line-move (1- arg) t)) |
3539 | (beginning-of-line 1) | |
3540 | (let ((orig (point))) | (let ((orig (point))) |
3541 | (vertical-motion 0) | (vertical-motion 0) |
3542 | (goto-char (constrain-to-field (point) orig (/= arg 1) t nil)))) | (if (/= orig (point)) |
3543 | (goto-char (constrain-to-field (point) orig (/= arg 1) t nil))))) | |
3544 | ||
3545 | ||
3546 | ;;; Many people have said they rarely use this feature, and often type | ;;; Many people have said they rarely use this feature, and often type |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |