diff --git a/um.el b/um.el index 78765f2..0833365 100644 --- a/um.el +++ b/um.el @@ -93,7 +93,7 @@ ISO8601." :group 'um ) -(defconst um-tag-re "^\\+ \\([[:alpha:]\\_\\-]+$\\)" +(defconst um-tag-regexp "^\\+ \\([[:alpha:]\\_\\-]+\\)$" "um tag regexp. Allows hypens and underscores within the tag.") (defface font-lock-um-date-face @@ -127,14 +127,14 @@ ISO8601." `( (,um-date-re 1 'font-lock-um-date-face) (,um-locale-re 0 'font-lock-um-locale-face) - (,um-tag-re 1 'font-lock-um-tag-face) + (,um-tag-regexp 1 'font-lock-um-tag-face) )) (defvar um-minor-mode-keywords `( (,um-date-re 1 'font-lock-um-date-face) (,um-locale-re 0 'font-lock-um-locale-face) - (,um-tag-re 1 'font-lock-um-tag-face) + (,um-tag-regexp 1 'font-lock-um-tag-face) )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -235,8 +235,6 @@ ISO8601." (defvar um-tags-history nil "History of inserted or searched for tags. Populates `completing-read'.") -(defconst um-tag-regexp "^\\+ \\(.*\\)$") - (defun um-header-current-buffer () (car (split-string (buffer-substring-no-properties (point-min) (point-max)) "\n\n" t