From 085c9d8d29aeb060b93db35e0c1076745ac9fe88 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Wed, 7 Jan 2015 16:29:20 -0200 Subject: Change sx--user- to sx-user-- --- sx-user.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/sx-user.el b/sx-user.el index 2e8c89a..e2aab49 100644 --- a/sx-user.el +++ b/sx-user.el @@ -110,16 +110,16 @@ errors if you remove them." "Face used for user accept-rates." :group 'sx-user) -(defvar sx--user-format-property-alist +(defvar sx-user--format-property-alist '((?d face sx-user-name) (?r face sx-user-reputation) (?a face sx-user-accept-rate)) "Alist relating % constructs with text properties. -See `sx--user-format'.") +See `sx-user--format'.") ;;; Formatting function -(defun sx--user-format (format-string user) +(defun sx-user--format (format-string user) "Use FORMAT-STRING to format the user object USER. The value is a copy of FORMAT-STRING, but with certain constructs replaced by text that describes the specified USER: @@ -139,7 +139,7 @@ the `sx-button-user' category." (?l . ,\.link) (?r . ,\.reputation) (?a . ,\.accept_rate)) - sx--user-format-property-alist))) + sx-user--format-property-alist))) (if (> 0 (string-width .link)) (insert-text-button text ;; For visiting and stuff. -- cgit v1.2.3