awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix over-aggressive pin truncation

Browse Source 
Would truncate the rest of the buffer in some cases.
This commit is contained in:
Henrik Lissner
2020-04-30 02:31:51 -04:00
parent 64c2efa2fc
commit 106f3324e8
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
modules/lang/emacs-lisp/autoload.el
View File

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