Fix fancy-about-screen point placement

* lisp/startup.el (fancy-about-screen): Make point placement more
resilient (bug#43636).
This commit is contained in:
Lars Ingebrigtsen 2021-12-05 20:53:47 +01:00
parent 2d0e1e5595
commit b961af66b9

View file

@ -1989,8 +1989,9 @@ splash screen in another window."
(setq-local browse-url-browser-function 'eww-browse-url)
(setq tab-width 22)
(setq buffer-read-only t)
;; Place point somewhere it doesn't cover a character.
(goto-char (point-min))
(forward-line 3))))
(re-search-forward "\n$" nil nil 2))))
(defun fancy-splash-frame ()
"Return the frame to use for the fancy splash screen.