procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix reading the tail of a file in shorthands.el

Browse source 
* lisp/shorthands.el (hack-elisp-shorthands): Fix reading past
3000-character limit from EOF.  (Bug#50946)
This commit is contained in:
Eli Zaretskii 2021-10-03 14:34:08 +03:00
parent 7fb2789509
commit b228ec9fab
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/shorthands.el
View file

@ -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