Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
d93e053b
Commit
d93e053b
authored
Aug 21, 2009
by
Glenn Morris
Browse files
(ns-open-file-select-line): Use line-beginning-position rather than goto-line.
parent
d5d105e8
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
15 additions
and
9 deletions
+15
-9
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/term/ns-win.el
lisp/term/ns-win.el
+12
-9
No files found.
lisp/ChangeLog
View file @
d93e053b
2009-08-21 Glenn Morris <rgm@gnu.org>
* 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):
...
...
lisp/term/ns-win.el
View file @
d93e053b
...
...
@@ -728,18 +728,21 @@ Lines are highlighted according to `ns-input-line'."
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)
(min (car ns-input-line) (cdr ns-input-line))
ns-input-line))
(point)))
(goto-char (point-min))
(line-beginning-position
(if (consp ns-input-line)
(min (car ns-input-line) (cdr ns-input-line))
ns-input-line))))
(end (save-excursion
(goto-line (+ 1 (if (consp ns-input-line)
(max (car ns-input-line) (cdr ns-input-line))
ns-input-line)))
(point))))
(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))))))
(move-overlay ns-select-overlay beg end)
(deactivate-mark)
(goto-char beg)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment