diff options
author | Ted Zlatanov <tzz@lifelogs.com> | 2020-06-22 16:29:25 -0400 |
---|---|---|
committer | Ted Zlatanov <tzz@lifelogs.com> | 2020-06-22 16:31:12 -0400 |
commit | 9c5b83811823b2440978572d95cd5e94f6a7fd7c (patch) | |
tree | c84d354d38118277f3d7e360293babbbd1f044ce | |
parent | 4a7c98d21c20d3c9740789ba53054556486d7e04 (diff) | |
download | emacs-scratch/tzz/auth-source-reveal-mode.tar.gz |
auth-source-reveal-mode: fixes from code reviewscratch/tzz/auth-source-reveal-mode
-rw-r--r-- | lisp/progmodes/prog-mode.el | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/lisp/progmodes/prog-mode.el b/lisp/progmodes/prog-mode.el index 605b4444f97..ffc474b2082 100644 --- a/lisp/progmodes/prog-mode.el +++ b/lisp/progmodes/prog-mode.el @@ -101,15 +101,20 @@ For example: \"->\" to the Unicode RIGHT ARROW → Elements can also look like (IDENTIFIER REGEXP CHARACTER) which will behave like the simpler (SYMBOL-STRING . CHARACTER) form -except it will match regular expressions. The IDENTIFIER can be -any symbol and should be unique to every package that augments -`prettify-symbols-alist' (in order to remove prettifications -easily with `prettify-symbols-remove-prettifications'). +except it will match regular expressions. The REGEXP can have +capturing groups, in which case the first such group will be +prettified. If there are no capturing groups, the whole REGEXP is +prettified. + +The IDENTIFIER can be any symbol and should be unique to every +package that augments `prettify-symbols-alist' (in order to +remove prettifications easily with +`prettify-symbols-remove-prettifications'). For example: \"abc[123]\" matching \"abc1\", \"abc2\", or \"abc3\" could be mapped to the Unicode WORLD MAP. Note again the IDENTIFIER is an arbitrary Lisp symbol. - (my-worldmap \"abc[123]\" 128506) + (my-worldmap \"abc[123]\" ?\U0001f5fa) CHARACTER can be a character, or it can be a list or vector, in which case it will be used to compose the new symbol as per the @@ -156,8 +161,12 @@ START and END are passed back and may be modified (narrowed)." ;; ...We need to always do a string-match for the bounds. (string-match (nth 1 ps) match)) ;; Now return the actual prettification start and end. - return (list (+ start (match-beginning 1)) - (+ start(match-end 1)) + return (list (+ start (or + (match-beginning 1) + (match-beginning 0))) + (+ start (or + (match-end 1) + (match-end 0))) (nth 2 ps)))))) (defvar-local prettify-symbols-compose-replacer |