about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2021-08-23 17:29:40 -0500
committerCase Duckworth2021-08-23 17:29:40 -0500
commit07b6e5cdb0eab8b46c3c70d6b9e36e9fc52e206c (patch)
tree9f6bd7f5464ea0a2676781e9afb4adb3bdb43a40 /lisp
parentChange font loading order to look for Consolas first (diff)
downloademacs-07b6e5cdb0eab8b46c3c70d6b9e36e9fc52e206c.tar.gz
emacs-07b6e5cdb0eab8b46c3c70d6b9e36e9fc52e206c.zip
IDK change stuff
LOL
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw-erc.el20
1 files changed, 12 insertions, 8 deletions
diff --git a/lisp/acdw-erc.el b/lisp/acdw-erc.el index 3e120ad..22e6831 100644 --- a/lisp/acdw-erc.el +++ b/lisp/acdw-erc.el
@@ -102,14 +102,18 @@ If USE-TLS is non-nil, use TLS."
102 (format "%s%s>" 102 (format "%s%s>"
103 (substring name 0 (- len 2 (length ellipsis))) 103 (substring name 0 (- len 2 (length ellipsis)))
104 ellipsis) 104 ellipsis)
105 (format "%s%s>" 105 (propertize
106 name 106 (format "%s%s>"
107 (let ((ss) ; Rewrite s-repeat to avoid dependency. 107 name
108 (num (- len 2 (length name)))) 108 (let ((ss) ; Rewrite s-repeat to avoid dependency.
109 (while (> num 0) 109 (num (- len 2 (length name))))
110 (setq ss (cons " " ss)) 110 (while (> num 0)
111 (setq num (1- num))) 111 (setq ss (cons " " ss))
112 (apply #'concat ss)))))) 112 (setq num (1- num)))
113 (apply #'concat ss)))
114 'read-only t
115 'intangible t
116 'cursor-intangible t))))
113 117
114(defcustom erc-nick-truncate nil 118(defcustom erc-nick-truncate nil
115 "The width at which to truncate a nick with `erc-format-truncate-@nick'." 119 "The width at which to truncate a nick with `erc-format-truncate-@nick'."