tec/emacs-config
tec
/
emacs-config
1
0
Fork 0
Code Issues 4 Pull Requests Releases Activity

Don't _-prefix used bindings 

As of Emacs 29, this now produced byte-compile warnings.
This commit is contained in:
TEC 2023-09-23 13:22:57 +08:00
parent e91bef5b8d
commit 0c93f9c1d8
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
config.org
View File

@ -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 "UP_CASE" "U" #'string-inflection-upcase)
(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."
:move-point nil
(interactive "<R>")
@ -5704,9 +5704,9 @@ omitting the =#= in channel names we can have a list of channels comma-separated
(mapcar (lambda (entry)
(let* ((host (plist-get entry :host))
(label (or (plist-get entry :label) host))
(_ports (mapcar #'string-to-number
(ports (mapcar #'string-to-number
(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))
(nick (or (plist-get entry :nick) user))
(channels (mapcar (lambda (c) (concat "#" c))