alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu4e-main: fix the main menu regexps

Browse Source
This commit is contained in:
djcb
2014-01-25 20:03:37 -08:00
parent 1bd332fba1
commit 5a066de5ff
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
mu4e/mu4e-main.el
View File

@ -77,7 +77,7 @@ a string, execute the corresponding keyboard action when it is
clicked." clicked."
(let ((newstr (let ((newstr
(replace-regexp-in-string (replace-regexp-in-string
"\\[\\(.\\)\\]" "\\[\\(..?\\)\\]"
(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)))
@ -92,7 +92,7 @@ clicked."
(define-key map [mouse-2] func) (define-key map [mouse-2] func)
(define-key map (kbd "RET") func) (define-key map (kbd "RET") func)
(put-text-property 0 (length newstr) 'keymap map newstr) (put-text-property 0 (length newstr) 'keymap map newstr)
(put-text-property (string-match "\\w" newstr) (put-text-property (string-match "\\[.+" newstr)
(- (length newstr) 1) 'mouse-face 'highlight newstr) newstr)) (- (length newstr) 1) 'mouse-face 'highlight newstr) newstr))