Don't _-prefix used bindings
As of Emacs 29, this now produced byte-compile warnings.
This commit is contained in:
parent
e91bef5b8d
commit
0c93f9c1d8
|
@ -4172,7 +4172,7 @@ For when you want to change the case pattern for a symbol.
|
||||||
:desc "Upper_Score" "u" #'string-inflection-capital-underscore
|
:desc "Upper_Score" "u" #'string-inflection-capital-underscore
|
||||||
:desc "UP_CASE" "U" #'string-inflection-upcase)
|
:desc "UP_CASE" "U" #'string-inflection-upcase)
|
||||||
(after! evil
|
(after! evil
|
||||||
(evil-define-operator evil-operator-string-inflection (beg end _type)
|
(evil-define-operator evil-operator-string-inflection (beg end type)
|
||||||
"Define a new evil operator that cycles symbol casing."
|
"Define a new evil operator that cycles symbol casing."
|
||||||
:move-point nil
|
:move-point nil
|
||||||
(interactive "<R>")
|
(interactive "<R>")
|
||||||
|
@ -5704,9 +5704,9 @@ omitting the =#= in channel names we can have a list of channels comma-separated
|
||||||
(mapcar (lambda (entry)
|
(mapcar (lambda (entry)
|
||||||
(let* ((host (plist-get entry :host))
|
(let* ((host (plist-get entry :host))
|
||||||
(label (or (plist-get entry :label) host))
|
(label (or (plist-get entry :label) host))
|
||||||
(_ports (mapcar #'string-to-number
|
(ports (mapcar #'string-to-number
|
||||||
(s-split "," (plist-get entry :port))))
|
(s-split "," (plist-get entry :port))))
|
||||||
(port (if (= 1 (length _ports)) (car _ports) _ports))
|
(port (if (= 1 (length ports)) (car ports) ports))
|
||||||
(user (plist-get entry :user))
|
(user (plist-get entry :user))
|
||||||
(nick (or (plist-get entry :nick) user))
|
(nick (or (plist-get entry :nick) user))
|
||||||
(channels (mapcar (lambda (c) (concat "#" c))
|
(channels (mapcar (lambda (c) (concat "#" c))
|
||||||
|
|
Loading…
Reference in New Issue