Fix args-out-of-range in enable-minor-mode-maybe

Caused by trying to use out-of-scope match data.
This commit is contained in:
Henrik Lissner 2018-06-06 02:38:39 +02:00
parent af06b00316
commit b26bbd4762
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 13 additions and 2 deletions

View file

@ -138,7 +138,7 @@ enable multiple minor modes for the same regexp.")
(setq name (file-name-sans-versions name))
;; Remove remote file name identification.
(when (and (stringp remote-id)
(string-match-p (regexp-quote remote-id) name))
(string-match (regexp-quote remote-id) name))
(setq name (substring name (match-end 0))))
(while (and alist (caar alist) (cdar alist))
(if (string-match-p (caar alist) name)