From d96c4a31149d4506fd2f3dbe31830c73b2568bed Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Fri, 13 Sep 2019 19:07:02 +0200 Subject: [PATCH] Sanitized header string. --- elpher.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/elpher.el b/elpher.el index 44369ba..1758e86 100644 --- a/elpher.el +++ b/elpher.el @@ -4,7 +4,7 @@ ;; Author: Tim Vaughan ;; Created: 11 April 2019 -;; Version: 2.3.0 +;; Version: 2.3.1 ;; Keywords: comm gopher ;; Homepage: https://github.com/tgvaughan/elpher ;; Package-Requires: ((emacs "26")) @@ -65,7 +65,7 @@ ;;; Global constants ;; -(defconst elpher-version "2.3.0" +(defconst elpher-version "2.3.1" "Current version of elpher.") (defconst elpher-margin-width 6 @@ -428,8 +428,10 @@ unless PRESERVE-PARENT is non-nil." (address (elpher-node-address elpher-current-node)) (url-string (if (elpher-address-special-p address) "" - (concat " - " (elpher-address-to-url address) "")))) - (setq header-line-format (list display-string url-string))))) + (concat " - " (elpher-address-to-url address) ""))) + (header (replace-regexp-in-string "%" "%%" (concat display-string + url-string)))) + (setq header-line-format header)))) (defmacro elpher-with-clean-buffer (&rest args) "Evaluate ARGS with a clean *elpher* buffer as current." -- 2.20.1