Skip to content
Browse files

Fix :get function for jabber-roster-default-group-name

  • Loading branch information...
1 parent 9c8bea1 commit dc9fc0fa06ff8a18b5599572671ce598374aa83c @legoscia committed
Showing with 4 additions and 3 deletions.
  1. +4 −3 jabber-roster.el
7 jabber-roster.el
@@ -155,9 +155,10 @@ Trailing newlines are always removed, regardless of this variable."
:group 'jabber-roster
:type 'string
:get '(lambda (var)
- (if (stringp var)
- (set-text-properties 0 (length var) nil var)
- var))
+ (let ((val (symbol-value var)))
+ (if (stringp val)
+ (set-text-properties 0 (length val) nil val)
+ val)))
:set '(lambda (var val)
(if (stringp val)
(set-text-properties 0 (length val) nil val))

0 comments on commit dc9fc0f

Please sign in to comment.
Something went wrong with that request. Please try again.