mirror of https://github.com/djcb/mu.git
* mu4e-main: allow for non-alphanum shortcuts
This commit is contained in:
parent
a4646ca502
commit
a655640e7b
|
@ -70,14 +70,14 @@
|
||||||
|
|
||||||
|
|
||||||
(defun mu4e~main-action-str (str &optional func-or-shortcut)
|
(defun mu4e~main-action-str (str &optional func-or-shortcut)
|
||||||
"Highlight the first occurence of [..] in STR.
|
"Highlight the first occurence of [.] in STR.
|
||||||
If FUNC-OR-SHORTCUT is non-nil and if it is a function, call it
|
If FUNC-OR-SHORTCUT is non-nil and if it is a function, call it
|
||||||
when STR is clicked (using RET or mouse-2); if FUNC-OR-SHORTCUT
|
when STR is clicked (using RET or mouse-2); if FUNC-OR-SHORTCUT is
|
||||||
is a string, execute the corresponding keyboard action when it is
|
a string, execute the corresponding keyboard action when it is
|
||||||
clicked."
|
clicked."
|
||||||
(let ((newstr
|
(let ((newstr
|
||||||
(replace-regexp-in-string
|
(replace-regexp-in-string
|
||||||
"\\[\\(\\w+\\)\\]"
|
"\\[\\(\\.\\)\\]"
|
||||||
(lambda(m)
|
(lambda(m)
|
||||||
(format "[%s]"
|
(format "[%s]"
|
||||||
(propertize (match-string 1 m) 'face 'mu4e-highlight-face)))
|
(propertize (match-string 1 m) 'face 'mu4e-highlight-face)))
|
||||||
|
|
Loading…
Reference in New Issue