about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2021-08-24 23:07:45 -0500
committerCase Duckworth2021-08-24 23:07:45 -0500
commitb84ebb8cd9867c4f134dd5f4d5183849b04a9811 (patch)
treefeb1f8ae2d152c68532a1c3baf84fc09fdb9a7de /lisp
parentSetup `repeat-mode' real nice like (diff)
parentIDK change stuff (diff)
downloademacs-b84ebb8cd9867c4f134dd5f4d5183849b04a9811.tar.gz
emacs-b84ebb8cd9867c4f134dd5f4d5183849b04a9811.zip
Merge branch 'main' of https://tildegit.org/acdw/emacs
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'."