From 0c93f9c1d88c85e821536a2653e1943b06d780e3 Mon Sep 17 00:00:00 2001 From: TEC Date: Sat, 23 Sep 2023 13:22:57 +0800 Subject: [PATCH] Don't _-prefix used bindings As of Emacs 29, this now produced byte-compile warnings. --- config.org | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/config.org b/config.org index 0669048..a173b85 100644 --- a/config.org +++ b/config.org @@ -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 "") @@ -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))