Mercurial > emacs

comparison lisp/term/ns-win.el @ 104774:468b7fa34d2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use forward-line rather than goto-line.
author Glenn Morris <rgm@gnu.org>
date Tue, 01 Sep 2009 03:18:44 +0000
parents 1229ad8aec26
children 05d4f1d2bf6c
comparison
equal deleted inserted replaced
104773:380c4c2a4fc2 104774:468b7fa34d2c
721 (cond 721 (cond
722 ((and ns-input-line (buffer-modified-p)) 722 ((and ns-input-line (buffer-modified-p))
723 (if ns-select-overlay 723 (if ns-select-overlay
724 (setq ns-select-overlay (delete-overlay ns-select-overlay))) 724 (setq ns-select-overlay (delete-overlay ns-select-overlay)))
725 (deactivate-mark) 725 (deactivate-mark)
726 (goto-line (if (consp ns-input-line) 726 (goto-char (point-min))
727 (min (car ns-input-line) (cdr ns-input-line)) 727 (forward-line (1- (if (consp ns-input-line)
728 ns-input-line))) 728 (min (car ns-input-line) (cdr ns-input-line))
729 ns-input-line))))
729 (ns-input-line 730 (ns-input-line
730 (if (not ns-select-overlay) 731 (if (not ns-select-overlay)
731 (overlay-put (setq ns-select-overlay (make-overlay (point-min) 732 (overlay-put (setq ns-select-overlay (make-overlay (point-min)
732 (point-min))) 733 (point-min)))
733 'face 'highlight)) 734 'face 'highlight))