/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.700  
changed lines
  Added in v.1.701

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26