X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=blobdiff_plain;f=elpher.el;h=474eee1c9f00700d424410d86525b92f0388cafc;hp=c529e747e92eeae713a4f6baf63ab4465be87542;hb=c9175aedfaf3daeca6b2414f74ef703f2f6cbc1f;hpb=2d67a49b7f3108bc014d5f0ba3f79d56cca01c17 diff --git a/elpher.el b/elpher.el index c529e74..474eee1 100644 --- a/elpher.el +++ b/elpher.el @@ -4,7 +4,7 @@ ;; Author: Tim Vaughan ;; Created: 11 April 2019 -;; Version: 2.5.1 +;; Version: 2.5.2 ;; Keywords: comm gopher ;; Homepage: http://thelambdalab.xyz/elpher ;; Package-Requires: ((emacs "26")) @@ -68,7 +68,7 @@ ;;; Global constants ;; -(defconst elpher-version "2.5.1" +(defconst elpher-version "2.5.2" "Current version of elpher.") (defconst elpher-margin-width 6 @@ -619,9 +619,10 @@ If ADDRESS is not supplied or nil the record is rendered as an (if type-map-entry (let* ((margin-code (elt type-map-entry 2)) (face (elt type-map-entry 3)) - (page (elpher-make-page display-string address))) + (filtered-display-string (ansi-color-filter-apply display-string)) + (page (elpher-make-page filtered-display-string address))) (elpher-insert-margin margin-code) - (insert-text-button display-string + (insert-text-button filtered-display-string 'face face 'elpher-page page 'action #'elpher-click-link