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

lang/web: fix Emacs<26 incompatibility #806

Browse Source 
The regexp argument for string-trim-right was introduced in 26.1.
This commit is contained in:
Henrik Lissner
2018-08-15 19:51:33 +02:00
parent 11b8ee55a1
commit 40a900f533
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
modules/lang/web/+html.el
View File

@ -38,7 +38,10 @@
(cl-loop for pair in (cdr alist) (cl-loop for pair in (cdr alist)
unless (string-match-p "^[a-z-]" (cdr pair)) unless (string-match-p "^[a-z-]" (cdr pair))
collect (cons (car pair) collect (cons (car pair)
(string-trim-right (cdr pair) "\\(?:>\\|]\\|}\\)+"))))) ;; TODO Replace with `string-trim-right' (Emacs 26+)
(if (string-match "\\(?:>\\|]\\|}\\)+\\'" string)
(replace-match "" t t string)
string)))))
(setf (alist-get nil web-mode-engines-auto-pairs) nil)) (setf (alist-get nil web-mode-engines-auto-pairs) nil))
(map! :map web-mode-map (map! :map web-mode-map