diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-08-22 19:29:18 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-08-22 19:29:18 +0000 |
| commit | e6ce8c4239a0b7003430d94a5f591e1d4ad50213 (patch) | |
| tree | 17852bba62da89f449af8c75f4fe50a3fb89852f /lisp/startup.el | |
| parent | a569b4801085fa14c3bd0d153e389636645908b9 (diff) | |
| download | emacs-e6ce8c4239a0b7003430d94a5f591e1d4ad50213.tar.gz | |
Use forward-line rather than goto-line.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index c28a2fe599c..3d177f9d944 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -2258,8 +2258,9 @@ A fancy display is used on graphic displays, normal otherwise." (if (= file-count 1) (setq first-file-buffer (find-file file)) (find-file-other-window file))) - (or (zerop line) - (goto-line line)) + (unless (zerop line) + (goto-char (point-min)) + (forward-line (1- line))) (setq line 0) (unless (< column 1) (move-to-column (1- column))) @@ -2292,8 +2293,9 @@ A fancy display is used on graphic displays, normal otherwise." (inhibit-startup-screen (find-file-other-window file)) (t (find-file file)))) - (or (zerop line) - (goto-line line)) + (unless (zerop line) + (goto-char (point-min)) + (forward-line (1- line))) (setq line 0) (unless (< column 1) (move-to-column (1- column))) |