diff options
| author | Juri Linkov | 2020-09-24 21:52:22 +0300 |
|---|---|---|
| committer | Juri Linkov | 2020-09-24 21:52:22 +0300 |
| commit | 4bc4d19bd16735f9ee79b2e736eeab59d57070d7 (patch) | |
| tree | 595ef9556876f22c998bab8848d1b00e4a619b48 | |
| parent | 9bf9f699b130e35e4ca57301db1f614682b4f762 (diff) | |
| download | emacs-4bc4d19bd16735f9ee79b2e736eeab59d57070d7.tar.gz emacs-4bc4d19bd16735f9ee79b2e736eeab59d57070d7.zip | |
* lisp/simple.el (goto-line-read-args): More relevant default line number.
| -rw-r--r-- | lisp/simple.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 7cb71530b36..6bc41961eba 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1259,7 +1259,11 @@ that uses or sets the mark." | |||
| 1259 | ;; In a narrowed buffer. | 1259 | ;; In a narrowed buffer. |
| 1260 | (if relative " relative" " absolute")) | 1260 | (if relative " relative" " absolute")) |
| 1261 | buffer-prompt) | 1261 | buffer-prompt) |
| 1262 | (list default (line-number-at-pos)) | 1262 | (list default (if (or relative (= (point-min) 1)) |
| 1263 | (line-number-at-pos) | ||
| 1264 | (save-restriction | ||
| 1265 | (widen) | ||
| 1266 | (line-number-at-pos)))) | ||
| 1263 | 'goto-line-history) | 1267 | 'goto-line-history) |
| 1264 | buffer)))) | 1268 | buffer)))) |
| 1265 | 1269 | ||