From 106f3324e8df697d1029d5192113b52441792060 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 30 Apr 2020 02:31:51 -0400 Subject: [PATCH] Fix over-aggressive pin truncation Would truncate the rest of the buffer in some cases. --- modules/lang/emacs-lisp/autoload.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/modules/lang/emacs-lisp/autoload.el b/modules/lang/emacs-lisp/autoload.el index 1aaaf8058..9192bf650 100644 --- a/modules/lang/emacs-lisp/autoload.el +++ b/modules/lang/emacs-lisp/autoload.el @@ -228,10 +228,11 @@ verbosity when editing a file in `doom-private-dir' or `doom-emacs-dir'." (goto-char (match-beginning 0)) (and (stringp (plist-get (sexp-at-point) :pin)) (search-forward ":pin" nil t) - (put-text-property (re-search-forward "\"[^\"]\\{10\\}" nil t) - (progn (re-search-forward "\"" nil t) - (match-beginning 0)) - 'display "..."))) + (let ((start (re-search-forward "\"[^\"]\\{10\\}" nil t)) + (finish (and (re-search-forward "\"" (line-end-position) t) + (match-beginning 0)))) + (when (and start finish) + (put-text-property start finish 'display "..."))))) nil) ;;;###autoload