[Emacs-diffs] emacs/lisp ChangeLog term/ns-win.el

[Glenn Morris]

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)))