[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog term/ns-win.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog term/ns-win.el |
Date: |
Fri, 21 Aug 2009 07:31:15 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/08/21 07:31:14
Modified files:
lisp : ChangeLog
lisp/term : ns-win.el
Log message:
(ns-open-file-select-line): Use line-beginning-position rather than
goto-line.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15984&r2=1.15985
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/term/ns-win.el?cvsroot=emacs&r1=1.47&r2=1.48
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15984
retrieving revision 1.15985
diff -u -b -r1.15984 -r1.15985
--- ChangeLog 21 Aug 2009 07:24:26 -0000 1.15984
+++ ChangeLog 21 Aug 2009 07:31:10 -0000 1.15985
@@ -1,5 +1,8 @@
2009-08-21 Glenn Morris <address@hidden>
+ * term/ns-win.el (ns-open-file-select-line):
+ Use line-beginning-position rather than goto-line.
+
* apropos.el (apropos-command):
* ehelp.el (electric-helpify):
* printing.el (pr-show-setup):
Index: term/ns-win.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term/ns-win.el,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -b -r1.47 -r1.48
--- term/ns-win.el 25 Jul 2009 09:31:11 -0000 1.47
+++ term/ns-win.el 21 Aug 2009 07:31:14 -0000 1.48
@@ -728,18 +728,21 @@
ns-input-line)))
(ns-input-line
(if (not ns-select-overlay)
- (overlay-put (setq ns-select-overlay (make-overlay (point-min)
(point-min)))
+ (overlay-put (setq ns-select-overlay (make-overlay (point-min)
+ (point-min)))
'face 'highlight))
(let ((beg (save-excursion
- (goto-line (if (consp ns-input-line)
+ (goto-char (point-min))
+ (line-beginning-position
+ (if (consp ns-input-line)
(min (car ns-input-line) (cdr ns-input-line))
- ns-input-line))
- (point)))
+ ns-input-line))))
(end (save-excursion
- (goto-line (+ 1 (if (consp ns-input-line)
+ (goto-char (point-min))
+ (line-beginning-position
+ (1+ (if (consp ns-input-line)
(max (car ns-input-line) (cdr
ns-input-line))
- ns-input-line)))
- (point))))
+ ns-input-line))))))
(move-overlay ns-select-overlay beg end)
(deactivate-mark)
(goto-char beg)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog term/ns-win.el,
Glenn Morris <=