From b228ec9fab8ea5e09da4d3c3f41d7859d88afb7d Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 3 Oct 2021 14:34:08 +0300 Subject: [PATCH] Fix reading the tail of a file in shorthands.el * lisp/shorthands.el (hack-elisp-shorthands): Fix reading past 3000-character limit from EOF. (Bug#50946) --- lisp/shorthands.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/shorthands.el b/lisp/shorthands.el index b8204d62a2e..6162efd6095 100644 --- a/lisp/shorthands.el +++ b/lisp/shorthands.el @@ -40,7 +40,10 @@ except for extraction of the buffer-local value of (with-temp-buffer (while (and (< (buffer-size) 3000) (>= from 0)) (insert-file-contents fullname nil from to) - (setq to from from (- from 100))) + (setq to from + from (cond + ((= from 0) -1) + (t (max 0 (- from 100)))))) ;; FIXME: relies on the `hack-local-variables--find-variables' ;; detail of files.el. That function should be exported, ;; possibly be refactored into two parts, since we're only -- 2.39.5