VL
Size: a a a
VL
VL
VL
PG
VL
a
compilation-error-regexp-alist
?Line 22: blah
(setq-local
compilation-error-regexp-alist
(list `( ,(rx line-start
"Line " (group (one-or-more digit))
":")
#'my-get-config-file
1 nil nil nil
(0 '( face nil compilation-error nil
help-echo nil mouse-face nil)))))
Line ..
не подсвечиваются, а обычные строки с двоеточием подсвечиваются как ни в чем не бывало.PG
compilation-error-regexp-alist
?Line 22: blah
(setq-local
compilation-error-regexp-alist
(list `( ,(rx line-start
"Line " (group (one-or-more digit))
":")
#'my-get-config-file
1 nil nil nil
(0 '( face nil compilation-error nil
help-echo nil mouse-face nil)))))
Line ..
не подсвечиваются, а обычные строки с двоеточием подсвечиваются как ни в чем не бывало.PG
compilation-error-regexp-alist
?Line 22: blah
(setq-local
compilation-error-regexp-alist
(list `( ,(rx line-start
"Line " (group (one-or-more digit))
":")
#'my-get-config-file
1 nil nil nil
(0 '( face nil compilation-error nil
help-echo nil mouse-face nil)))))
Line ..
не подсвечиваются, а обычные строки с двоеточием подсвечиваются как ни в чем не бывало.PG
a
wpa_supplicant
, и я не должен для него использовать compilation-mode
, но хочу чтоб хоть как-то заработало, а хорошего DSL не вижу. Так что вот как это выглядит:(define-derived-mode akater-wpa-supplicant-mode compilation-mode "wpa_supplicant"
"wpa_supplicant mode."
(setq buffer-read-only t)
(font-lock-add-keywords nil akater-wpa-supplicant-font-lock-keywords)
(setq-local compilation-error-regexp-alist
(list `( ,(rx line-start
"Line " (group (one-or-more digit))
":")
#'akater-wpa-supplicant-config-file
1 nil nil nil
(0 '( face nil compilation-error nil
help-echo nil mouse-face nil)))))
(setq-local akater-wpa-supplicant-mode t))
PG
PS
PG
a
a
PG
a
PG
PG