From unknown Sat Jun 21 03:24:00 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#68395 <68395@debbugs.gnu.org> To: bug#68395 <68395@debbugs.gnu.org> Subject: Status: 30.0.50; ERC 5.6-git: erc-cmd-GMSG, erc-cmd-AMSG, erc-cmd-GME, erc-cmd-AME Reply-To: bug#68395 <68395@debbugs.gnu.org> Date: Sat, 21 Jun 2025 10:24:00 +0000 retitle 68395 30.0.50; ERC 5.6-git: erc-cmd-GMSG, erc-cmd-AMSG, erc-cmd-GME= , erc-cmd-AME reassign 68395 emacs submitter 68395 Emanuel Berg severity 68395 normal tag 68395 patch thanks From debbugs-submit-bounces@debbugs.gnu.org Thu Jan 11 23:22:32 2024 Received: (at submit) by debbugs.gnu.org; 12 Jan 2024 04:22:32 +0000 Received: from localhost ([127.0.0.1]:34556 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rO93v-0005ux-85 for submit@debbugs.gnu.org; Thu, 11 Jan 2024 23:22:32 -0500 Received: from lists.gnu.org ([2001:470:142::17]:41384) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rO93q-0005ua-Ux for submit@debbugs.gnu.org; Thu, 11 Jan 2024 23:22:29 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rO93n-0006Ir-CN for bug-gnu-emacs@gnu.org; Thu, 11 Jan 2024 23:22:23 -0500 Received: from srv.dataswamp.org ([95.217.107.122] helo=dataswamp.org) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rO93f-0004sy-RA for bug-gnu-emacs@gnu.org; Thu, 11 Jan 2024 23:22:23 -0500 Received: from dataswamp.org (localhost [127.0.0.1]) by dataswamp.org (OpenSMTPD) with ESMTP id 6ff9f469 for ; Fri, 12 Jan 2024 04:22:10 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=dataswamp.org; h=from:to :subject:date:message-id:mime-version:content-type; s=9287606; bh=Z6NboNYhVPNMZDeyNnb02gldS0E=; b=nwR5YPuPxJKODGx4M7RvR+Sdzl6q GqVCsFiHmz9o8lM/o7ya1wbdxbHu9964CIjtW5aZZ0ySnSMCunjEJ6vpeLSbqEX+ fye5RgBoT4dEM4nnxOxoKqXKos/ZGNVDXOhLbi/05BOltD67DV4jGRtXfslJAAVZ BctA8prGXCG1S/w= DomainKey-Signature: a=rsa-sha1; c=nofws; d=dataswamp.org; h=from:to :subject:date:message-id:mime-version:content-type; q=dns; s= 9287606; b=hLB9OXAF+NSfLKVFanmZlXr717br9tpTSuU1O6VN/TF7W9tLl7APt rM+bhSGdnmjkcdJG7z11sCbnFyuWtEM1ieAMA5DL+SMBloqasSNV2f+gOkGUe1oQ eNRJ/JcHQeJBMDDktCVM/y46893qDQL7QDBQc4G3lAxZ+g3+7U5xWo= Received: from ebc (localhost [127.0.0.1]) by dataswamp.org (OpenSMTPD) with ESMTP id e85f505a for ; Fri, 12 Jan 2024 04:22:10 +0000 (UTC) From: Emanuel Berg To: bug-gnu-emacs@gnu.org Subject: 30.0.50; ERC 5.6-git: erc-cmd-GMSG, erc-cmd-AMSG, erc-cmd-GME, erc-cmd-AME X-Debbugs-CC: emacs-erc@gnu.org Mail-Copies-To: never Tags: patch Date: Fri, 12 Jan 2024 05:22:10 +0100 Message-ID: <87h6jjw58t.fsf@dataswamp.org> User-Agent: Gnus/5.13 (Gnus v5.13) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Received-SPF: pass client-ip=95.217.107.122; envelope-from=incal@dataswamp.org; helo=dataswamp.org X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: 1.0 (+) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.0 (/) --=-=-= Content-Type: text/plain Patch In GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, cairo version 1.16.0) of 2024-01-09 built on ebc Repository revision: 774c8ec74c98d69d56b2511a613145f2b69fb2eb Repository branch: master System Description: Debian GNU/Linux 12 (bookworm) Configured using: 'configure --enable-link-time-optimization --with-native-compilation=aot --with-x-toolkit=no --without-compress-install' Configured features: ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG JSON LCMS2 LIBOTF LIBSELINUX LIBSYSTEMD LIBXML2 M17N_FLT MODULES NATIVE_COMP NOTIFY INOTIFY OLDXMENU PDUMPER PNG RSVG SECCOMP SOUND THREADS TIFF WEBP X11 XDBE XIM XINPUT2 XPM ZLIB Important settings: value of $LANG: en_US.UTF-8 locale-coding-system: utf-8-unix Major mode: Article Minor modes in effect: erc-track-mode: t erc-track-minor-mode: t erc-netsplit-mode: t erc-menu-mode: t erc-list-mode: t erc-imenu-mode: t erc-match-mode: t erc-ring-mode: t erc-pcomplete-mode: t erc-log-mode: t erc-autojoin-mode: t erc-irccontrols-mode: t erc-move-to-prompt-mode: t erc-readonly-mode: t erc-button-mode: t erc-fill-mode: t erc-stamp-mode: t erc-networks-mode: t show-paren-mode: t electric-indent-mode: t mouse-wheel-mode: t tool-bar-mode: t global-font-lock-mode: t font-lock-mode: t blink-cursor-mode: t minibuffer-regexp-mode: t buffer-read-only: t transient-mark-mode: t auto-composition-mode: linux auto-compression-mode: t Load-path shadows: /home/incal/quicklisp/dists/quicklisp/software/slime-v2.28/slime-tests hides /home/incal/.emacs.d/elpa/slime-20231218.2206/slime-tests /home/incal/quicklisp/dists/quicklisp/software/slime-v2.28/slime hides /home/incal/.emacs.d/elpa/slime-20231218.2206/slime /home/incal/quicklisp/dists/quicklisp/software/slime-v2.28/slime-autoloads hides /home/incal/.emacs.d/elpa/slime-20231218.2206/slime-autoloads ~/.emacs.d/emacs-init/version hides /usr/local/share/emacs/30.0.50/lisp/version ~/.emacs.d/lisp/abbrev hides /usr/local/share/emacs/30.0.50/lisp/abbrev Features: (shadow emacsbug bug-reference erc-ibuffer ibuf-ext ibuffer ibuffer-loaddefs erc-notify erc-page erc-services erc-sound erc-speedbar speedbar ezimage dframe erc-truncate erc-xdcc erc-dcc w3m-save nnfolder completion dos-w32 find-cmd find-dired ada-eglot elint cl-print ada-mode ada-imenu align ada-skel wisi-skel eglot external-completion jsonrpc flymake diff ert ewoc ada-indent-user-options ada-core uniquify-files ada-mode-autoloads uniquify-files-autoloads gnat-compiler gnat-compiler-autoloads skeleton wisi-process-parse wisi-prj wisi wisi-fringe semantic/lex semantic/fw mode-local find-file wisi-parse-common wisi-autoloads loaddefs-gen tar-mode url-cache url-http url-auth url-gw finder-inf conf-mode flow-fill mm-archive grep vc-hg vc-git vc-bzr vc-dispatcher python w3m-symbol w3m-filter canlock shortdoc qp display-line-numbers tabify mailalias mule-util mail-extr textsec uni-scripts idna-mapping ucs-normalize uni-confusable textsec-check gnus-async gnus-bcklg gnus-dup gnus-ml disp-table cursor-sensor pop3 utf-7 nndraft nnmh nnml gnus-agent nnvirtual nntp gnus-cache network-stream erc-track erc-netsplit erc-menu erc-list erc-imenu term/linux cus-start global-keys yank xsel wrap-search wood w3m-version w3m-unisearch w3m-survivor w3m-sem w3m-keys w3m-swamp w3m-incal w3m-session vt version variance todo-did time-cmp pcase test-face survivor summary str-to-bits street today stats sort-list sort-incal sort slime-incal slime-fancy slime-indentation slime-cl-indent cl-indent slime-trace-dialog slime-fontifying-fu slime-package-fu slime-references slime-compiler-notes-tree advice slime-scratch slime-macrostep macrostep slime-mdot-fu slime-enclosing-context slime-fuzzy slime-fancy-trace slime-fancy-inspector slime-c-p-c slime-editing-commands slime-autodoc slime-banner signal show-command sequence-string scale restart replace-list remote ref-lines re-make-list random quote-ref psea printer lpr piles package-style checkdoc lisp-mnt ny negative-subtraction navigate-fs-keys tramp-cmds tramp-cache tramp-sh native comp comp-cstr cl-extra model-ttt model mode-by-filename misc-incal minor-modes t-mouse messages message-incal message-header moggle measure match-data-format man-incal mailrc mail mail-zoho mail-to-many mail-insert mail-dataswamp list list-quoted-functions lisp-incal regexp inf-lisp ielm linux-shell lights latex tex-mode kill kill-path keys iterate-files info-incal html mhtml-mode cus-edit js c-ts-common hex help-incal help-fns radix-tree debug backtrace gnus-server gnus-score-incal gnus-incal-minimal smtpmail cite frame-size fill-incal file tramp trampver tramp-integration tramp-message help-mode tramp-compat tramp-loaddefs face w3m-form slime-presentations slime-repl slime-parse bridge slime etags fileloop xref project arc-mode archive-mode hyperspec sh-script executable org ob ob-tangle ob-ref ob-lob ob-table ob-exp org-macro org-src ob-comint org-pcomplete org-list org-footnote org-faces org-entities org-version ob-emacs-lisp ob-core ob-eval org-cycle org-table ol org-fold org-fold-core org-keys oc org-loaddefs find-func cal-menu calendar cal-loaddefs org-compat org-macs man gnus-cite gemini-mode time-stamp ffap erc-match diff-mode easy-mmode apt-sources-list apropos erc-show-modes erc-misc erc-man erc-log-incal cus-load erc-connect epwgen enum emacs-shell shell eshell em-hist esh-mode esh-var esh-cmd generator esh-ext esh-proc esh-io esh-arg esh-module esh-groups esh-opt esh-util elpher-incal bookmark pp socks nsm elpher elpa elisp revert-buffer ide nroff-mode css-mode treesit smie sgml-mode facemenu imenu eww xdg url-queue mm-url markdown-mode color noutline outline make-mode quit gnus-incal group group-summary find-command-zsh get-search-string erc-incal warnings erc-spell erc-ring erc-pcomplete pcomplete erc-log erc-kill erc-join erc-iterate erc-scroll erc-goodies erc-element erc-button erc-fill erc-stamp erc format-spec erc-backend erc-networks erc-common erc-compat erc-loaddefs gnus-score score-mode elide-head edit window-incal window-other tabs sudo-user-path echo-message ecat-incal dope dired-kill-ext dired-aux dired-jump-target dired-incal w3m-url files-x custom-vars search-regexp-in-files counter count console-keys compilation-incal comic-book-insult color-incal char caps-back c-and-cpp compile-incal compile comint ansi-osc ansi-color ring cc-mode cc-fonts cc-guess cc-menus cc-cmds cc-styles cc-align cc-engine cc-vars cc-defs buffer-menu switch-to-buffer switch-to-buffer-regexp buc browse gnus-srvr bmi bike math perm spell ispell dwim bibtex-next-volume bibtex-incal bibtex-field bibtex-book bibtex-autokey-insert issn-verify isbn-verify bibtex batch audio article w3m-download w3m-search file-write-to w3m-bookmark-more w3m-tabs w3m-bookmark w3m doc-view filenotify jka-compr image-mode exif timezone w3m-hist bookmark-w3m w3m-ems w3m-favicon w3m-image w3m-fb tab-line icons w3m-proc w3m-util thingatpt super scroll mode-line gnus-msg gnus-art mm-uu mml2015 mm-view mml-smime smime gnutls dig gnus-sum shr pixel-fill kinsoku url-file svg dom gnus-group gnus-undo gnus-start gnus-dbus dbus comp-run comp-common xml gnus-cloud nnimap nnmail mail-source utf7 nnoo parse-time iso8601 gnus-spec gnus-int gnus-range message sendmail yank-media puny dired dired-loaddefs rfc822 mml mml-sec epa derived epg rfc6068 epg-config mm-decode mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045 ietf-drums mailabbrev gmm-utils mailheader gnus-win gnus nnheader gnus-util text-property-search time-date mail-utils range mm-util mail-prsvr wid-edit close align-incal string align-from-left abc rx elpher-autoloads gemini-mode-autoloads go-mode-autoloads lua-mode-autoloads markdown-mode-autoloads info slime-autoloads macrostep-autoloads sml-mode-autoloads w3m-load w3m-autoloads package browse-url url url-proxy url-privacy url-expand url-methods url-history url-cookie generate-lisp-file url-domsuf url-util mailcap url-handlers url-parse auth-source cl-seq eieio eieio-core cl-macs password-cache json subr-x map byte-opt gv bytecomp byte-compile url-vars cl-loaddefs cl-lib rmc iso-transl tooltip cconv eldoc paren electric uniquify ediff-hook vc-hooks lisp-float-type elisp-mode mwheel term/x-win x-win term/common-win x-dnd touch-screen tool-bar dnd fontset image regexp-opt fringe tabulated-list replace newcomment text-mode lisp-mode prog-mode register page tab-bar menu-bar rfn-eshadow isearch easymenu timer select scroll-bar mouse jit-lock font-lock syntax font-core term/tty-colors frame minibuffer nadvice seq simple cl-generic indonesian philippine cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese composite emoji-zwj charscript charprop case-table epa-hook jka-cmpr-hook help abbrev obarray oclosure cl-preloaded button loaddefs theme-loaddefs faces cus-face macroexp files window text-properties overlay sha1 md5 base64 format env code-pages mule custom widget keymap hashtable-print-readable backquote threads dbusbind inotify lcms2 dynamic-setting system-font-setting font-render-setting cairo xinput2 x multi-tty move-toolbar make-network-process native-compile emacs) Memory information: ((conses 16 2152585 504049) (symbols 48 65163 12) (strings 32 367483 49126) (string-bytes 1 17762473) (vectors 16 137706) (vector-slots 8 3475772 228026) (floats 8 968 4004) (intervals 56 35411 7018) (buffers 976 263)) --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=0001-erc-cmd-GMSG-erc-cmd-AMSG-erc-cmd-GME-and-erc-cmd-AM.patch >From 2aea60a6ab47431fa7da913a8de8d325d1c62030 Mon Sep 17 00:00:00 2001 From: Emanuel Berg Date: Fri, 12 Jan 2024 05:16:11 +0100 Subject: [PATCH] `erc-cmd-GMSG', `erc-cmd-AMSG', `erc-cmd-GME' and `erc-cmd-AME'. --- lisp/erc/erc.el | 156 ++++++++++++++++++++++++++++-------------------- 1 file changed, 90 insertions(+), 66 deletions(-) diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index 478683a77f5..12078f6970d 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el @@ -2003,10 +2003,10 @@ erc-get-buffer (defun erc--buffer-p (buf predicate proc) (with-current-buffer buf (and (derived-mode-p 'erc-mode) - (or (not proc) - (eq proc erc-server-process)) - (funcall predicate) - buf))) + (or (not proc) + (eq proc erc-server-process)) + (funcall predicate) + buf))) (defun erc-buffer-filter (predicate &optional proc) "Return a list of `erc-mode' buffers matching certain criteria. @@ -2021,7 +2021,7 @@ erc-buffer-filter nil (mapcar (lambda (buf) (when (buffer-live-p buf) - (erc--buffer-p buf predicate proc))) + (erc--buffer-p buf predicate proc))) (buffer-list))))) (defalias 'erc-buffer-do 'erc-buffer-filter @@ -2042,14 +2042,14 @@ erc-buffer-list (define-obsolete-function-alias 'erc-iswitchb #'erc-switch-to-buffer "25.1") (defun erc--switch-to-buffer (&optional arg) (read-buffer "Switch to ERC buffer: " - (when (boundp 'erc-modified-channels-alist) - (buffer-name (caar (last erc-modified-channels-alist)))) - t - ;; Only allow ERC buffers in the same session. - (let ((proc (unless arg erc-server-process))) - (lambda (bufname) - (let ((buf (if (consp bufname) - (cdr bufname) (get-buffer bufname)))) + (when (boundp 'erc-modified-channels-alist) + (buffer-name (caar (last erc-modified-channels-alist)))) + t + ;; Only allow ERC buffers in the same session. + (let ((proc (unless arg erc-server-process))) + (lambda (bufname) + (let ((buf (if (consp bufname) + (cdr bufname) (get-buffer bufname)))) (and buf (erc--buffer-p buf (lambda () t) proc))))))) (defun erc-switch-to-buffer (&optional arg) "Prompt for an ERC buffer to switch to. @@ -2581,7 +2581,7 @@ erc-initialize-log-marker (unless (markerp erc-last-saved-position) (setq erc-last-saved-position (make-marker)) (move-marker erc-last-saved-position - (1- (marker-position erc-insert-marker)))))) + (1- (marker-position erc-insert-marker)))))) ;; interactive startup @@ -3590,7 +3590,7 @@ erc-display-message-highlight (erc-put-text-property 0 (length string) 'font-lock-face (or (intern-soft - (concat "erc-" (symbol-name type) "-face")) + (concat "erc-" (symbol-name type) "-face")) 'erc-default-face) string) string))) @@ -3667,8 +3667,8 @@ erc-lurker-cleanup (maphash (lambda (nick last-PRIVMSG-time) (when - (time-less-p erc-lurker-threshold-time - (time-since last-PRIVMSG-time)) + (time-less-p erc-lurker-threshold-time + (time-since last-PRIVMSG-time)) (remhash nick hash))) hash) (if (zerop (hash-table-count hash)) @@ -3735,8 +3735,8 @@ erc-lurker-p (gethash (erc-lurker-maybe-trim nick) (gethash server erc-lurker-state (make-hash-table))))) (or (null last-PRIVMSG-time) - (time-less-p erc-lurker-threshold-time - (time-since last-PRIVMSG-time))))) + (time-less-p erc-lurker-threshold-time + (time-since last-PRIVMSG-time))))) (defcustom erc-common-server-suffixes '(("openprojects.net\\'" . "OPN") @@ -3760,7 +3760,7 @@ erc-canonicalize-server-name (defun erc-add-targets (scope target-list) (let ((targets - (mapcar (lambda (targets) (member scope targets)) target-list))) + (mapcar (lambda (targets) (member scope targets)) target-list))) (cdr (apply #'append (delete nil targets))))) (defun erc-hide-current-message-p (parsed) @@ -3776,16 +3776,16 @@ erc-hide-current-message-p (sender (car (erc-parse-user (erc-response.sender parsed)))) (channel (car (erc-response.command-args parsed))) (network (or (and (erc-network) (erc-network-name)) - (erc-shorten-server-name - (or erc-server-announced-name - erc-session-server)))) - (current-hide-list - (when erc-network-hide-list - (erc-add-targets network erc-network-hide-list))) - (current-hide-list - (append current-hide-list - (when erc-channel-hide-list - (erc-add-targets channel erc-channel-hide-list))))) + (erc-shorten-server-name + (or erc-server-announced-name + erc-session-server)))) + (current-hide-list + (when erc-network-hide-list + (erc-add-targets network erc-network-hide-list))) + (current-hide-list + (append current-hide-list + (when erc-channel-hide-list + (erc-add-targets channel erc-channel-hide-list))))) (or (member command erc-hide-list) (member command current-hide-list) (and (member command erc-lurker-hide-list) (erc-lurker-p sender))))) @@ -3871,9 +3871,9 @@ erc-display-message (erc--route-insertion string buffer) (unless (erc-hide-current-message-p parsed) (erc-put-text-property 0 (length string) 'erc-parsed parsed string) - (when (erc-response.tags parsed) - (erc-put-text-property 0 (length string) 'tags (erc-response.tags parsed) - string)) + (when (erc-response.tags parsed) + (erc-put-text-property 0 (length string) 'tags (erc-response.tags parsed) + string)) (erc--route-insertion string buffer))))) (defun erc-message-type-member (position list) @@ -4016,16 +4016,40 @@ erc--split-string-shell-cmd ;; Input commands handlers ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defun erc-cmd-AMSG (line) - "Send LINE to all channels of the current server that you are on." - (interactive "sSend to all channels you're on: ") +(defun erc-cmd-GMSG (line) + "Send LINE to all channels on all networks you are on." + (interactive "sSend to all channels: ") (setq line (erc-trim-string line)) (erc-with-all-buffers-of-server nil - (lambda () - (erc-channel-p (erc-default-target))) + (lambda () (erc-channel-p (erc-default-target))) + (erc-send-message line))) +(put 'erc-cmd-GMSG 'do-not-parse-args t) + +(defun erc-cmd-AMSG (line) + "Send LINE to all channels of the current network." + (interactive "sSend to all channels on this network: ") + (setq line (erc-trim-string line)) + (erc-with-all-buffers-of-server erc-server-process + (lambda () (erc-channel-p (erc-default-target))) (erc-send-message line))) (put 'erc-cmd-AMSG 'do-not-parse-args t) +(defun erc-cmd-GME (line) + "Send LINE as an action to all channels on all networks you are on." + (interactive "sSend action to all channels: ") + (erc-with-all-buffers-of-server nil + (lambda () (erc-channel-p (erc-default-target))) + (erc-cmd-ME line) )) +(put 'erc-cmd-GME 'do-not-parse-args t) + +(defun erc-cmd-AME (line) + "Send LINE as an action to all channels on the current network." + (interactive "sSend action to all channels on this network: ") + (erc-with-all-buffers-of-server erc-server-process + (lambda () (erc-channel-p (erc-default-target))) + (erc-cmd-ME line) )) +(put 'erc-cmd-AME 'do-not-parse-args t) + (defun erc-cmd-SAY (line) "Send LINE to the current query or channel as a message, not a command. @@ -5213,8 +5237,8 @@ erc-cmd-TOPIC (topic (match-string 2 topic))) ;; Ignore all-whitespace topics. (unless (equal (string-trim topic) "") - (erc-log (format "cmd: TOPIC [%s]: %s" ch topic)) - (erc-server-send (format "TOPIC %s :%s" ch topic) nil ch))) + (erc-log (format "cmd: TOPIC [%s]: %s" ch topic)) + (erc-server-send (format "TOPIC %s :%s" ch topic) nil ch))) t) ;; /topic #channel ((string-match "^\\s-*\\([&#+!]\\S-+\\)" topic) @@ -5493,7 +5517,7 @@ erc-input-message (read-map minibuffer-local-map)) (insert (read-from-minibuffer "Message: " (string last-command-event) - read-map)) + read-map)) (erc-send-current-line))) (defvar erc-action-history-list () @@ -5776,11 +5800,11 @@ erc-wash-quit-reason (or (when (string-match (concat "^\\(Read error\\) to " nick "\\[" host "\\]: " "\\(.+\\)$") - reason) + reason) (concat (match-string 1 reason) ": " (match-string 2 reason))) (when (string-match (concat "^\\(Ping timeout\\) for " nick "\\[" host "\\]$") - reason) + reason) (match-string 1 reason)) reason)) @@ -5820,7 +5844,7 @@ erc-nickname-in-use ;; server's setting if we haven't ;; established a connection yet (- 9 (length erc-nick-uniquifier)))) - erc-nick-uniquifier))) + erc-nick-uniquifier))) (erc--nickname-in-use-make-request nick newnick) (erc-display-error-notice nil @@ -6801,30 +6825,30 @@ erc-channel-receive-names (adm-ch (cdr (assq ?a prefix))) (own-ch (cdr (assq ?q prefix))) (names (delete "" (split-string names-string))) - name op voice halfop admin owner) + name op voice halfop admin owner) (let ((erc-channel-members-changed-hook nil)) (dolist (item names) (let ((updatep t) - (ch (aref item 0))) + (ch (aref item 0))) (setq name item op 'off voice 'off halfop 'off admin 'off owner 'off) (if (rassq ch prefix) (if (= (length item) 1) - (setq updatep nil) - (setq name (substring item 1)) - (setf (pcase ch - ((pred (eq voice-ch)) voice) - ((pred (eq hop-ch)) halfop) - ((pred (eq op-ch)) op) - ((pred (eq adm-ch)) admin) - ((pred (eq own-ch)) owner) - (_ (message "Unknown prefix char `%S'" ch) voice)) - 'on))) + (setq updatep nil) + (setq name (substring item 1)) + (setf (pcase ch + ((pred (eq voice-ch)) voice) + ((pred (eq hop-ch)) halfop) + ((pred (eq op-ch)) op) + ((pred (eq adm-ch)) admin) + ((pred (eq own-ch)) owner) + (_ (message "Unknown prefix char `%S'" ch) voice)) + 'on))) (when updatep - ;; If we didn't issue the NAMES request (consider two clients - ;; talking to an IRC proxy), `erc-channel-begin-receiving-names' - ;; will not have been called, so we have to do it here. - (unless erc-channel-new-member-names - (erc-channel-begin-receiving-names)) + ;; If we didn't issue the NAMES request (consider two clients + ;; talking to an IRC proxy), `erc-channel-begin-receiving-names' + ;; will not have been called, so we have to do it here. + (unless erc-channel-new-member-names + (erc-channel-begin-receiving-names)) (puthash (erc-downcase name) t erc-channel-new-member-names) (erc-update-current-channel-member @@ -7767,7 +7791,7 @@ erc-send-current-line (let ((now (current-time))) (if (or (not erc-accidental-paste-threshold-seconds) (time-less-p erc-accidental-paste-threshold-seconds - (time-subtract now erc-last-input-time))) + (time-subtract now erc-last-input-time))) (save-restriction ;; If there's an abbrev at the end of the line, expand it. (when (and abbrev-mode @@ -7909,8 +7933,8 @@ erc-send-input (defvar str)) (let ((str input) (erc-insert-this t) - (erc-send-this t) - state) + (erc-send-this t) + state) ;; The calling convention of `erc-send-pre-hook' is that it ;; should change the dynamic variable `str' or set ;; `erc-send-this' to nil. This has now been deprecated: @@ -7918,8 +7942,8 @@ erc-send-input ;; allow both changing and suppressing the string. (run-hook-with-args 'erc-send-pre-hook input) (setq state (make-erc-input :string str ;May be != from `input' now! - :insertp erc-insert-this - :sendp erc-send-this)) + :insertp erc-insert-this + :sendp erc-send-this)) (run-hook-with-args 'erc-pre-send-functions state) (when (and (erc-input-sendp state) erc-send-this) -- 2.39.2 --=-=-= Content-Type: text/plain -- underground experts united https://dataswamp.org/~incal --=-=-=-- From debbugs-submit-bounces@debbugs.gnu.org Thu Jan 11 23:47:48 2024 Received: (at control) by debbugs.gnu.org; 12 Jan 2024 04:47:48 +0000 Received: from localhost ([127.0.0.1]:34588 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rO9SN-0003dd-Mv for submit@debbugs.gnu.org; Thu, 11 Jan 2024 23:47:47 -0500 Received: from mail-108-mta85.mxroute.com ([136.175.108.85]:42833) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rO9SK-0003dD-Uk for control@debbugs.gnu.org; Thu, 11 Jan 2024 23:47:46 -0500 Received: from filter006.mxroute.com ([136.175.111.2] filter006.mxroute.com) (Authenticated sender: mN4UYu2MZsgR) by mail-108-mta85.mxroute.com (ZoneMTA) with ESMTPSA id 18cfbff58b30003727.001 for (version=TLSv1.3 cipher=TLS_AES_256_GCM_SHA384); Fri, 12 Jan 2024 04:47:44 +0000 X-Zone-Loop: ad779f4d7ee51e0f6ccdb0f7be2a442c16f94fd4f56a X-Originating-IP: [136.175.111.2] DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=neverwas.me ; s=x; h=Content-Type:MIME-Version:Message-ID:Date:Subject:To:From:Sender: Reply-To:Cc:Content-Transfer-Encoding:Content-ID:Content-Description: Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc:Resent-Message-ID: In-Reply-To:References:List-Id:List-Help:List-Unsubscribe:List-Subscribe: List-Post:List-Owner:List-Archive; bh=tvqOf0UJWR7ujpT+OvRfvnxlVG5rnL31QtzDn4RRwkM=; b=YxpqOxQWZc+d4Qd0pXI12W6uw0 nCK75yBqneLPcmN4Yu4ZhgIxubhYblNTQWAJTANQD9l7agk2fVUTWgZ6g502jTYp8VHzGKEEfyEgo 1aGSXCrAD4YPBwsk6LUIDm1STGmAuC8PPttQbqEX+H3VGtsuRu6C/uO9XooST4Q8+q95O3mjiNZbd 5uC5MSv/vA1OJnk9zMqtL+eLrCo/hndilspdJp+Y3o5pIaV+jzYVrVaoy2wixPloA92IQlTyKSF1s vXjSRpacJcoJTGmCipZLJHENyPIMRLGbXgijRMmtUhj8g8q/Fz7pDXUzKLpazUDeJjFogCld1X6xn cwgeo2Fw==; From: "J.P." To: control@debbugs.gnu.org Subject: control message for bug #68395 Date: Thu, 11 Jan 2024 20:47:40 -0800 Message-ID: <87bk9rrwcz.fsf@neverwas.me> MIME-Version: 1.0 Content-Type: text/plain X-Authenticated-Id: masked@neverwas.me X-Spam-Score: -0.0 (/) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) tags 68395 + patch quit From debbugs-submit-bounces@debbugs.gnu.org Fri Jan 12 00:34:27 2024 Received: (at 68395) by debbugs.gnu.org; 12 Jan 2024 05:34:27 +0000 Received: from localhost ([127.0.0.1]:34602 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rOABW-0004Qi-OX for submit@debbugs.gnu.org; Fri, 12 Jan 2024 00:34:27 -0500 Received: from mail-108-mta59.mxroute.com ([136.175.108.59]:44945) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rOABR-0004QW-1o for 68395@debbugs.gnu.org; Fri, 12 Jan 2024 00:34:24 -0500 Received: from filter006.mxroute.com ([136.175.111.2] filter006.mxroute.com) (Authenticated sender: mN4UYu2MZsgR) by mail-108-mta59.mxroute.com (ZoneMTA) with ESMTPSA id 18cfc29fd450003727.001 for <68395@debbugs.gnu.org> (version=TLSv1.3 cipher=TLS_AES_256_GCM_SHA384); Fri, 12 Jan 2024 05:34:19 +0000 X-Zone-Loop: ea14847403c411fa9239d99856b81145620cad2aac43 X-Originating-IP: [136.175.111.2] DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=neverwas.me ; s=x; h=Content-Type:MIME-Version:Message-ID:Date:References:In-Reply-To: Subject:To:From:Sender:Reply-To:Cc:Content-Transfer-Encoding:Content-ID: Content-Description:Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc :Resent-Message-ID:List-Id:List-Help:List-Unsubscribe:List-Subscribe: List-Post:List-Owner:List-Archive; bh=KoiXJPGQHHXp9RZOmoI9XclMVCX1+DaF4fmco2gGCG8=; b=QGawe7QSILG/LnPM9tvYVvgloq zpCQcLNAVP+rmcmxOeiI9T+tq6FRz9eumGUSUL0w9dyrVwjmtTDrlWTWsJzHvp6RpNvXgO0fFeW1I XmfAmhQhJRg1+HvO86mXuR6sJAlQoJ6eyye4kqufT6pd5YEAorgOxU61E0fEYl6J2EjBHpYxIeFMu 4ld4aDzDS6j8OonnfoupTtES0fvkQ4XGkdpzEO/n3ZG36/MoVgPoFh4VqpZARnB0zYKJS+mWIqkXE 8hyhxWccrasjebDvpgTRcIxRiX/LPyLmjk47O17lHqClgU+kG3HFVCcq04qQGBOj2jNYgq97s731i ENGU6/Ow==; From: "J.P." To: 68395@debbugs.gnu.org, emacs-erc@gnu.org Subject: Re: bug#68395: 30.0.50; ERC 5.6-git: erc-cmd-GMSG, erc-cmd-AMSG, erc-cmd-GME, erc-cmd-AME In-Reply-To: <87h6jjw58t.fsf@dataswamp.org> (Emanuel Berg's message of "Fri, 12 Jan 2024 05:22:10 +0100") References: <87h6jjw58t.fsf@dataswamp.org> Date: Thu, 11 Jan 2024 21:34:15 -0800 Message-ID: <871qanp12g.fsf@neverwas.me> User-Agent: Gnus/5.13 (Gnus v5.13) MIME-Version: 1.0 Content-Type: text/plain X-Authenticated-Id: masked@neverwas.me X-Spam-Score: -0.0 (/) X-Debbugs-Envelope-To: 68395 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) Emanuel Berg writes: > Patch I think debbugs wants the full "Tags: patch". > From 2aea60a6ab47431fa7da913a8de8d325d1c62030 Mon Sep 17 00:00:00 2001 > From: Emanuel Berg > Date: Fri, 12 Jan 2024 05:16:11 +0100 > Subject: [PATCH] `erc-cmd-GMSG', `erc-cmd-AMSG', `erc-cmd-GME' and > `erc-cmd-AME'. At some point, you'll need to include a commit message. Please see "** Commit messages" in CONTRIBUTE. > --- > lisp/erc/erc.el | 156 ++++++++++++++++++++++++++++-------------------- > 1 file changed, 90 insertions(+), 66 deletions(-) > > diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el > index 478683a77f5..12078f6970d 100644 > --- a/lisp/erc/erc.el > +++ b/lisp/erc/erc.el > @@ -2003,10 +2003,10 @@ erc-get-buffer > (defun erc--buffer-p (buf predicate proc) > (with-current-buffer buf > (and (derived-mode-p 'erc-mode) > - (or (not proc) > - (eq proc erc-server-process)) > - (funcall predicate) > - buf))) > + (or (not proc) > + (eq proc erc-server-process)) > + (funcall predicate) > + buf))) I haven't looked at the proposed commands yet, but can you remove all these hopefully inadvertent white space changes in the meantime, please? Both vc and Magit should have tools for helping with this. Assuming "[PATCH] `erc-cmd-GMSG' ..." sits on HEAD, you'd do something like this in manual Git: 1. $ git reset --patch @^ 2. Mark all offending hunks as "y" in the interactive menu 3. $ git restore '*' 4. $ git commit --amend 5. Provide a commit message that accords with CONTRIBUTE Or, alternatively: 1. $ git revert @ 2. Reinstate only the intended changes, which I think I've found below 3. $ git add -A 4. $ git commit --amend 5. Replace generated message > (defun erc-buffer-filter (predicate &optional proc) > "Return a list of `erc-mode' buffers matching certain criteria. > @@ -2021,7 +2021,7 @@ erc-buffer-filter > nil > (mapcar (lambda (buf) > (when (buffer-live-p buf) > - (erc--buffer-p buf predicate proc))) > + (erc--buffer-p buf predicate proc))) > (buffer-list))))) > > (defalias 'erc-buffer-do 'erc-buffer-filter > @@ -2042,14 +2042,14 @@ erc-buffer-list > (define-obsolete-function-alias 'erc-iswitchb #'erc-switch-to-buffer "25.1") > (defun erc--switch-to-buffer (&optional arg) > (read-buffer "Switch to ERC buffer: " > - (when (boundp 'erc-modified-channels-alist) > - (buffer-name (caar (last erc-modified-channels-alist)))) > - t > - ;; Only allow ERC buffers in the same session. > - (let ((proc (unless arg erc-server-process))) > - (lambda (bufname) > - (let ((buf (if (consp bufname) > - (cdr bufname) (get-buffer bufname)))) > + (when (boundp 'erc-modified-channels-alist) > + (buffer-name (caar (last erc-modified-channels-alist)))) > + t > + ;; Only allow ERC buffers in the same session. > + (let ((proc (unless arg erc-server-process))) > + (lambda (bufname) > + (let ((buf (if (consp bufname) > + (cdr bufname) (get-buffer bufname)))) > (and buf (erc--buffer-p buf (lambda () t) proc))))))) > (defun erc-switch-to-buffer (&optional arg) > "Prompt for an ERC buffer to switch to. > @@ -2581,7 +2581,7 @@ erc-initialize-log-marker > (unless (markerp erc-last-saved-position) > (setq erc-last-saved-position (make-marker)) > (move-marker erc-last-saved-position > - (1- (marker-position erc-insert-marker)))))) > + (1- (marker-position erc-insert-marker)))))) > > ;; interactive startup > > @@ -3590,7 +3590,7 @@ erc-display-message-highlight > (erc-put-text-property > 0 (length string) > 'font-lock-face (or (intern-soft > - (concat "erc-" (symbol-name type) "-face")) > + (concat "erc-" (symbol-name type) "-face")) > 'erc-default-face) > string) > string))) > @@ -3667,8 +3667,8 @@ erc-lurker-cleanup > (maphash > (lambda (nick last-PRIVMSG-time) > (when > - (time-less-p erc-lurker-threshold-time > - (time-since last-PRIVMSG-time)) > + (time-less-p erc-lurker-threshold-time > + (time-since last-PRIVMSG-time)) > (remhash nick hash))) > hash) > (if (zerop (hash-table-count hash)) > @@ -3735,8 +3735,8 @@ erc-lurker-p > (gethash (erc-lurker-maybe-trim nick) > (gethash server erc-lurker-state (make-hash-table))))) > (or (null last-PRIVMSG-time) > - (time-less-p erc-lurker-threshold-time > - (time-since last-PRIVMSG-time))))) > + (time-less-p erc-lurker-threshold-time > + (time-since last-PRIVMSG-time))))) > > (defcustom erc-common-server-suffixes > '(("openprojects.net\\'" . "OPN") > @@ -3760,7 +3760,7 @@ erc-canonicalize-server-name > > (defun erc-add-targets (scope target-list) > (let ((targets > - (mapcar (lambda (targets) (member scope targets)) target-list))) > + (mapcar (lambda (targets) (member scope targets)) target-list))) > (cdr (apply #'append (delete nil targets))))) > > (defun erc-hide-current-message-p (parsed) > @@ -3776,16 +3776,16 @@ erc-hide-current-message-p > (sender (car (erc-parse-user (erc-response.sender parsed)))) > (channel (car (erc-response.command-args parsed))) > (network (or (and (erc-network) (erc-network-name)) > - (erc-shorten-server-name > - (or erc-server-announced-name > - erc-session-server)))) > - (current-hide-list > - (when erc-network-hide-list > - (erc-add-targets network erc-network-hide-list))) > - (current-hide-list > - (append current-hide-list > - (when erc-channel-hide-list > - (erc-add-targets channel erc-channel-hide-list))))) > + (erc-shorten-server-name > + (or erc-server-announced-name > + erc-session-server)))) > + (current-hide-list > + (when erc-network-hide-list > + (erc-add-targets network erc-network-hide-list))) > + (current-hide-list > + (append current-hide-list > + (when erc-channel-hide-list > + (erc-add-targets channel erc-channel-hide-list))))) > (or (member command erc-hide-list) > (member command current-hide-list) > (and (member command erc-lurker-hide-list) (erc-lurker-p sender))))) > @@ -3871,9 +3871,9 @@ erc-display-message > (erc--route-insertion string buffer) > (unless (erc-hide-current-message-p parsed) > (erc-put-text-property 0 (length string) 'erc-parsed parsed string) > - (when (erc-response.tags parsed) > - (erc-put-text-property 0 (length string) 'tags (erc-response.tags parsed) > - string)) > + (when (erc-response.tags parsed) > + (erc-put-text-property 0 (length string) 'tags (erc-response.tags parsed) > + string)) > (erc--route-insertion string buffer))))) > > (defun erc-message-type-member (position list) > @@ -4016,16 +4016,40 @@ erc--split-string-shell-cmd > ;; Input commands handlers > ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; > > -(defun erc-cmd-AMSG (line) > - "Send LINE to all channels of the current server that you are on." > - (interactive "sSend to all channels you're on: ") > +(defun erc-cmd-GMSG (line) > + "Send LINE to all channels on all networks you are on." > + (interactive "sSend to all channels: ") > (setq line (erc-trim-string line)) > (erc-with-all-buffers-of-server nil > - (lambda () > - (erc-channel-p (erc-default-target))) > + (lambda () (erc-channel-p (erc-default-target))) > + (erc-send-message line))) > +(put 'erc-cmd-GMSG 'do-not-parse-args t) > + > +(defun erc-cmd-AMSG (line) > + "Send LINE to all channels of the current network." > + (interactive "sSend to all channels on this network: ") > + (setq line (erc-trim-string line)) > + (erc-with-all-buffers-of-server erc-server-process > + (lambda () (erc-channel-p (erc-default-target))) > (erc-send-message line))) > (put 'erc-cmd-AMSG 'do-not-parse-args t) > > +(defun erc-cmd-GME (line) > + "Send LINE as an action to all channels on all networks you are on." > + (interactive "sSend action to all channels: ") > + (erc-with-all-buffers-of-server nil > + (lambda () (erc-channel-p (erc-default-target))) > + (erc-cmd-ME line) )) > +(put 'erc-cmd-GME 'do-not-parse-args t) > + > +(defun erc-cmd-AME (line) > + "Send LINE as an action to all channels on the current network." > + (interactive "sSend action to all channels on this network: ") > + (erc-with-all-buffers-of-server erc-server-process > + (lambda () (erc-channel-p (erc-default-target))) > + (erc-cmd-ME line) )) > +(put 'erc-cmd-AME 'do-not-parse-args t) I'm guessing this hunk is the only one you intended to add? At first glance, it appears to be the right location for such commands. Anyway, please resubit once the white space issues have been resolved. Thanks. > + > (defun erc-cmd-SAY (line) > "Send LINE to the current query or channel as a message, not a command. > > @@ -5213,8 +5237,8 @@ erc-cmd-TOPIC > (topic (match-string 2 topic))) > ;; Ignore all-whitespace topics. > (unless (equal (string-trim topic) "") > - (erc-log (format "cmd: TOPIC [%s]: %s" ch topic)) > - (erc-server-send (format "TOPIC %s :%s" ch topic) nil ch))) > + (erc-log (format "cmd: TOPIC [%s]: %s" ch topic)) > + (erc-server-send (format "TOPIC %s :%s" ch topic) nil ch))) > t) > ;; /topic #channel > ((string-match "^\\s-*\\([&#+!]\\S-+\\)" topic) > @@ -5493,7 +5517,7 @@ erc-input-message > (read-map minibuffer-local-map)) > (insert (read-from-minibuffer "Message: " > (string last-command-event) > - read-map)) > + read-map)) > (erc-send-current-line))) > > (defvar erc-action-history-list () > @@ -5776,11 +5800,11 @@ erc-wash-quit-reason > (or (when (string-match (concat "^\\(Read error\\) to " > nick "\\[" host "\\]: " > "\\(.+\\)$") > - reason) > + reason) > (concat (match-string 1 reason) ": " (match-string 2 reason))) > (when (string-match (concat "^\\(Ping timeout\\) for " > nick "\\[" host "\\]$") > - reason) > + reason) > (match-string 1 reason)) > reason)) > > @@ -5820,7 +5844,7 @@ erc-nickname-in-use > ;; server's setting if we haven't > ;; established a connection yet > (- 9 (length erc-nick-uniquifier)))) > - erc-nick-uniquifier))) > + erc-nick-uniquifier))) > (erc--nickname-in-use-make-request nick newnick) > (erc-display-error-notice > nil > @@ -6801,30 +6825,30 @@ erc-channel-receive-names > (adm-ch (cdr (assq ?a prefix))) > (own-ch (cdr (assq ?q prefix))) > (names (delete "" (split-string names-string))) > - name op voice halfop admin owner) > + name op voice halfop admin owner) > (let ((erc-channel-members-changed-hook nil)) > (dolist (item names) > (let ((updatep t) > - (ch (aref item 0))) > + (ch (aref item 0))) > (setq name item op 'off voice 'off halfop 'off admin 'off owner 'off) > (if (rassq ch prefix) > (if (= (length item) 1) > - (setq updatep nil) > - (setq name (substring item 1)) > - (setf (pcase ch > - ((pred (eq voice-ch)) voice) > - ((pred (eq hop-ch)) halfop) > - ((pred (eq op-ch)) op) > - ((pred (eq adm-ch)) admin) > - ((pred (eq own-ch)) owner) > - (_ (message "Unknown prefix char `%S'" ch) voice)) > - 'on))) > + (setq updatep nil) > + (setq name (substring item 1)) > + (setf (pcase ch > + ((pred (eq voice-ch)) voice) > + ((pred (eq hop-ch)) halfop) > + ((pred (eq op-ch)) op) > + ((pred (eq adm-ch)) admin) > + ((pred (eq own-ch)) owner) > + (_ (message "Unknown prefix char `%S'" ch) voice)) > + 'on))) > (when updatep > - ;; If we didn't issue the NAMES request (consider two clients > - ;; talking to an IRC proxy), `erc-channel-begin-receiving-names' > - ;; will not have been called, so we have to do it here. > - (unless erc-channel-new-member-names > - (erc-channel-begin-receiving-names)) > + ;; If we didn't issue the NAMES request (consider two clients > + ;; talking to an IRC proxy), `erc-channel-begin-receiving-names' > + ;; will not have been called, so we have to do it here. > + (unless erc-channel-new-member-names > + (erc-channel-begin-receiving-names)) > (puthash (erc-downcase name) t > erc-channel-new-member-names) > (erc-update-current-channel-member > @@ -7767,7 +7791,7 @@ erc-send-current-line > (let ((now (current-time))) > (if (or (not erc-accidental-paste-threshold-seconds) > (time-less-p erc-accidental-paste-threshold-seconds > - (time-subtract now erc-last-input-time))) > + (time-subtract now erc-last-input-time))) > (save-restriction > ;; If there's an abbrev at the end of the line, expand it. > (when (and abbrev-mode > @@ -7909,8 +7933,8 @@ erc-send-input > (defvar str)) > (let ((str input) > (erc-insert-this t) > - (erc-send-this t) > - state) > + (erc-send-this t) > + state) > ;; The calling convention of `erc-send-pre-hook' is that it > ;; should change the dynamic variable `str' or set > ;; `erc-send-this' to nil. This has now been deprecated: > @@ -7918,8 +7942,8 @@ erc-send-input > ;; allow both changing and suppressing the string. > (run-hook-with-args 'erc-send-pre-hook input) > (setq state (make-erc-input :string str ;May be != from `input' now! > - :insertp erc-insert-this > - :sendp erc-send-this)) > + :insertp erc-insert-this > + :sendp erc-send-this)) > (run-hook-with-args 'erc-pre-send-functions state) > (when (and (erc-input-sendp state) > erc-send-this) > -- > 2.39.2 From debbugs-submit-bounces@debbugs.gnu.org Fri Jan 12 00:53:03 2024 Received: (at submit) by debbugs.gnu.org; 12 Jan 2024 05:53:03 +0000 Received: from localhost ([127.0.0.1]:34625 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rOATX-0007gd-Dp for submit@debbugs.gnu.org; Fri, 12 Jan 2024 00:53:03 -0500 Received: from lists.gnu.org ([2001:470:142::17]:33282) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rOATV-0007g7-Ku for submit@debbugs.gnu.org; Fri, 12 Jan 2024 00:53:02 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rOATS-0002zo-45 for bug-gnu-emacs@gnu.org; Fri, 12 Jan 2024 00:52:58 -0500 Received: from ciao.gmane.io ([116.202.254.214]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rOATQ-0005av-7L for bug-gnu-emacs@gnu.org; Fri, 12 Jan 2024 00:52:57 -0500 Received: from list by ciao.gmane.io with local (Exim 4.92) (envelope-from ) id 1rOATM-0001sf-RS for bug-gnu-emacs@gnu.org; Fri, 12 Jan 2024 06:52:52 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: bug-gnu-emacs@gnu.org To: bug-gnu-emacs@gnu.org From: Emanuel Berg Subject: Re: bug#68395: 30.0.50; ERC 5.6-git: erc-cmd-GMSG, erc-cmd-AMSG, erc-cmd-GME, erc-cmd-AME Date: Fri, 12 Jan 2024 06:52:42 +0100 Message-ID: <877ckfw11x.fsf@dataswamp.org> References: <87h6jjw58t.fsf@dataswamp.org> <871qanp12g.fsf__35629.0631972783$1705037744$gmane$org@neverwas.me> Mime-Version: 1.0 Content-Type: text/plain User-Agent: Gnus/5.13 (Gnus v5.13) Cancel-Lock: sha1:fN5zwTYyuu4D/1jBrD/nMm07tgI= Mail-Copies-To: never Received-SPF: pass client-ip=116.202.254.214; envelope-from=geb-bug-gnu-emacs@m.gmane-mx.org; helo=ciao.gmane.io X-Spam_score_int: -16 X-Spam_score: -1.7 X-Spam_bar: - X-Spam_report: (-1.7 / 5.0 requ) BAYES_00=-1.9, HEADER_FROM_DIFFERENT_DOMAINS=0.249, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no autolearn_force=no X-Spam_action: no action X-Spam-Score: 0.2 (/) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.8 (/) J.P. wrote: >> Patch > > I think debbugs wants the full "Tags: patch". It is there, what you cite is just what I wrote in the message instead of a bug report. > At some point, you'll need to include a commit message. I added a message, if not 'git commit' wouldn't have worked. >> --- >> lisp/erc/erc.el | 156 ++++++++++++++++++++++++++++-------------------- >> 1 file changed, 90 insertions(+), 66 deletions(-) >> >> diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el >> index 478683a77f5..12078f6970d 100644 >> --- a/lisp/erc/erc.el >> +++ b/lisp/erc/erc.el >> @@ -2003,10 +2003,10 @@ erc-get-buffer >> (defun erc--buffer-p (buf predicate proc) >> (with-current-buffer buf >> (and (derived-mode-p 'erc-mode) >> - (or (not proc) >> - (eq proc erc-server-process)) >> - (funcall predicate) >> - buf))) >> + (or (not proc) >> + (eq proc erc-server-process)) >> + (funcall predicate) >> + buf))) > > I haven't looked at the proposed commands yet, but can you > remove all these hopefully inadvertent white space changes > in the meantime, please? Ah, you are using tabs in the source, saving the buffer changed them to whitespace. This is what happens if you use tabs! But you are right it wasn't intended for the patch. -- underground experts united https://dataswamp.org/~incal From debbugs-submit-bounces@debbugs.gnu.org Fri Jan 12 01:53:59 2024 Received: (at submit) by debbugs.gnu.org; 12 Jan 2024 06:53:59 +0000 Received: from localhost ([127.0.0.1]:34649 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rOBQV-0003N5-C0 for submit@debbugs.gnu.org; Fri, 12 Jan 2024 01:53:59 -0500 Received: from lists.gnu.org ([2001:470:142::17]:42822) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rOBQT-0003Mn-15 for submit@debbugs.gnu.org; Fri, 12 Jan 2024 01:53:57 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rOBQO-0000N0-0b for bug-gnu-emacs@gnu.org; Fri, 12 Jan 2024 01:53:52 -0500 Received: from ciao.gmane.io ([116.202.254.214]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rOBQL-000237-Q8 for bug-gnu-emacs@gnu.org; Fri, 12 Jan 2024 01:53:51 -0500 Received: from list by ciao.gmane.io with local (Exim 4.92) (envelope-from ) id 1rOBQJ-0004na-N0 for bug-gnu-emacs@gnu.org; Fri, 12 Jan 2024 07:53:47 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: bug-gnu-emacs@gnu.org To: bug-gnu-emacs@gnu.org From: Emanuel Berg Subject: Re: bug#68395: 30.0.50; ERC 5.6-git: erc-cmd-GMSG, erc-cmd-AMSG, erc-cmd-GME, erc-cmd-AME Date: Fri, 12 Jan 2024 07:53:34 +0100 Message-ID: <87y1cvujo1.fsf@dataswamp.org> References: <87h6jjw58t.fsf@dataswamp.org> <871qanp12g.fsf__35629.0631972783$1705037744$gmane$org@neverwas.me> Mime-Version: 1.0 Content-Type: text/plain User-Agent: Gnus/5.13 (Gnus v5.13) Cancel-Lock: sha1:+2myISg9fz1/U38t9tW0mIHwCIw= Mail-Copies-To: never Received-SPF: pass client-ip=116.202.254.214; envelope-from=geb-bug-gnu-emacs@m.gmane-mx.org; helo=ciao.gmane.io X-Spam_score_int: -16 X-Spam_score: -1.7 X-Spam_bar: - X-Spam_report: (-1.7 / 5.0 requ) BAYES_00=-1.9, HEADER_FROM_DIFFERENT_DOMAINS=0.249, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no autolearn_force=no X-Spam_action: no action X-Spam-Score: 0.2 (/) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.8 (/) J.P. wrote: > Both vc and Magit should have tools for helping with this. Assuming > "[PATCH] `erc-cmd-GMSG' ..." sits on HEAD, you'd do something like this > in manual Git: > > 1. $ git reset --patch @^ > 2. Mark all offending hunks as "y" in the interactive menu > 3. $ git restore '*' > 4. $ git commit --amend > 5. Provide a commit message that accords with CONTRIBUTE > > Or, alternatively: > > 1. $ git revert @ > 2. Reinstate only the intended changes, which I think I've found below > 3. $ git add -A > 4. $ git commit --amend > 5. Replace generated message Maybe better to redo the whole thing? Since the patches produced after these steps (both methods) also include data on the whitespace. -- underground experts united https://dataswamp.org/~incal From debbugs-submit-bounces@debbugs.gnu.org Fri Jan 12 05:50:01 2024 Received: (at submit) by debbugs.gnu.org; 12 Jan 2024 10:50:01 +0000 Received: from localhost ([127.0.0.1]:35023 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rOF6v-0003s6-4w for submit@debbugs.gnu.org; Fri, 12 Jan 2024 05:50:01 -0500 Received: from lists.gnu.org ([2001:470:142::17]:59056) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rOF6s-0003rV-BS for submit@debbugs.gnu.org; Fri, 12 Jan 2024 05:49:59 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rOF6p-0002zc-37 for bug-gnu-emacs@gnu.org; Fri, 12 Jan 2024 05:49:55 -0500 Received: from ciao.gmane.io ([116.202.254.214]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rOF6n-0001SV-8M for bug-gnu-emacs@gnu.org; Fri, 12 Jan 2024 05:49:54 -0500 Received: from list by ciao.gmane.io with local (Exim 4.92) (envelope-from ) id 1rOF6j-0005c4-VV for bug-gnu-emacs@gnu.org; Fri, 12 Jan 2024 11:49:49 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: bug-gnu-emacs@gnu.org To: bug-gnu-emacs@gnu.org From: Emanuel Berg Subject: Re: bug#68395: 30.0.50; ERC 5.6-git: erc-cmd-GMSG, erc-cmd-AMSG, erc-cmd-GME, erc-cmd-AME Date: Fri, 12 Jan 2024 11:49:41 +0100 Message-ID: <87sf32vnay.fsf@dataswamp.org> References: <87h6jjw58t.fsf@dataswamp.org> <871qanp12g.fsf__35629.0631972783$1705037744$gmane$org@neverwas.me> <877ckfw11x.fsf@dataswamp.org> Mime-Version: 1.0 Content-Type: text/plain User-Agent: Gnus/5.13 (Gnus v5.13) Cancel-Lock: sha1:UNqmCoyFqzmKFTC+Q0a76iKLaRg= Mail-Copies-To: never Received-SPF: pass client-ip=116.202.254.214; envelope-from=geb-bug-gnu-emacs@m.gmane-mx.org; helo=ciao.gmane.io X-Spam_score_int: -16 X-Spam_score: -1.7 X-Spam_bar: - X-Spam_report: (-1.7 / 5.0 requ) BAYES_00=-1.9, HEADER_FROM_DIFFERENT_DOMAINS=0.249, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no autolearn_force=no X-Spam_action: no action X-Spam-Score: 0.2 (/) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.8 (/) I created a better patch without the whitespace changes. Unfortunately I didn't think of this thread, but submitted it as a new bug. But anyway it should arrive anytime now, check it out. I guess this thread has no value then. -- underground experts united https://dataswamp.org/~incal From debbugs-submit-bounces@debbugs.gnu.org Fri Jan 12 18:02:50 2024 Received: (at control) by debbugs.gnu.org; 12 Jan 2024 23:02:50 +0000 Received: from localhost ([127.0.0.1]:37951 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rOQY6-0005qa-FZ for submit@debbugs.gnu.org; Fri, 12 Jan 2024 18:02:50 -0500 Received: from mail-108-mta242.mxroute.com ([136.175.108.242]:33383) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rOQY3-0005qN-SV for control@debbugs.gnu.org; Fri, 12 Jan 2024 18:02:49 -0500 Received: from filter006.mxroute.com ([136.175.111.2] filter006.mxroute.com) (Authenticated sender: mN4UYu2MZsgR) by mail-108-mta242.mxroute.com (ZoneMTA) with ESMTPSA id 18cffe9dd1b0003727.001 for (version=TLSv1.3 cipher=TLS_AES_256_GCM_SHA384); Fri, 12 Jan 2024 23:02:45 +0000 X-Zone-Loop: df6e2387a1f2954642ed27888d8019846a1ad753675f X-Originating-IP: [136.175.111.2] DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=neverwas.me ; s=x; h=Content-Type:MIME-Version:Message-ID:Date:Subject:To:From:Sender: Reply-To:Cc:Content-Transfer-Encoding:Content-ID:Content-Description: Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc:Resent-Message-ID: In-Reply-To:References:List-Id:List-Help:List-Unsubscribe:List-Subscribe: List-Post:List-Owner:List-Archive; bh=pVesJRiyfmWpV15QcSVXhePbhPNc46xGqv/+hgk9sFo=; b=jHylECsX3wzieREXKwy5zmO3KR 5oyckwQ92+U5IPoInS3PzsddTm5DtIppZxpsKKjTNKNrdQGdO+RNdcVS+pxvRp0PcAdNDUMJmUBAI a3/GWsfHSop4lt3tImzL6HyYBzcojxzMNgJZE8ANU3B/b9gfMEPlMHMphnXjnyD/DvIf5ef+Ag8el 1cxzmUADg1Kob0UXOLWy33aRPd75voDCORg04Dp8K7fT5axLy16aoLMYP6HpkaMKWKOFKLi8pTOvx P0roU7JjQdJuhwqAq7bTyBnQE6ZntGvJAoPtwcPNXvR8Ho3HgV+G8z9E+SGanvym9YYOzxzeTVaGW fVGliTxg==; From: "J.P." To: control@debbugs.gnu.org Subject: control message for bug #68401 Date: Fri, 12 Jan 2024 15:02:42 -0800 Message-ID: <874jfi9mul.fsf@neverwas.me> MIME-Version: 1.0 Content-Type: text/plain X-Authenticated-Id: masked@neverwas.me X-Spam-Score: -0.0 (/) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) merge 68401 68395 quit From debbugs-submit-bounces@debbugs.gnu.org Thu Jan 18 21:53:33 2024 Received: (at 68395) by debbugs.gnu.org; 19 Jan 2024 02:53:33 +0000 Received: from localhost ([127.0.0.1]:57098 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rQf0e-0007ln-RS for submit@debbugs.gnu.org; Thu, 18 Jan 2024 21:53:33 -0500 Received: from mail-108-mta64.mxroute.com ([136.175.108.64]:34843) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rQf0Z-0007la-Ca for 68395@debbugs.gnu.org; Thu, 18 Jan 2024 21:53:31 -0500 Received: from filter006.mxroute.com ([136.175.111.2] filter006.mxroute.com) (Authenticated sender: mN4UYu2MZsgR) by mail-108-mta64.mxroute.com (ZoneMTA) with ESMTPSA id 18d1fa32e360003727.002 for <68395@debbugs.gnu.org> (version=TLSv1.3 cipher=TLS_AES_256_GCM_SHA384); Fri, 19 Jan 2024 02:53:24 +0000 X-Zone-Loop: 0b3f9d64b2ec25f60343886a97e7a59609c81460b1af X-Originating-IP: [136.175.111.2] DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=neverwas.me ; s=x; h=Content-Type:MIME-Version:Message-ID:Date:References:In-Reply-To: Subject:Cc:To:From:Sender:Reply-To:Content-Transfer-Encoding:Content-ID: Content-Description:Resent-Date:Resent-From:Resent-Sender:Resent-To:Resent-Cc :Resent-Message-ID:List-Id:List-Help:List-Unsubscribe:List-Subscribe: List-Post:List-Owner:List-Archive; bh=w5SKjPDjVPuT3CTRAKUZLm2AHOH1/IwDL+cz2whlf1g=; b=RFAYcMRGRjf8m8u9W7H7ZnydIf chX2wXSLLAtNQyONnVHmJ9wrG5XAi2cXa/bDh08K4p7+aNqV7wZupPoEL6KlN/tfDi2p7FHwaNGZt 53+UnBKRD23v4iB2S05J6lXfCKrRreGK3IgBG93TeYNSF9q4+J6+tXUj/HLeszSk/KYeA9C0mewsf W/o9gtVH6Ze0Dfw1RatEYWUiNZGTbrGQf8SvnB9DToPLr6fdj57MAWWVathfEPWp82jbRq/5geadi 0HgkZj71Od1OhrN8CIvvAUwVyUOmKnLMueNyV+75qqiH43ILR4/xS4PsrYXZQwObdbzBC2VtsQ7Rj JDeC4klA==; From: "J.P." To: 68395@debbugs.gnu.org Subject: Re: bug#68395: 30.0.50; ERC 5.6-git: erc-cmd-GMSG, erc-cmd-AMSG, erc-cmd-GME, erc-cmd-AME In-Reply-To: <877ckfw11x.fsf@dataswamp.org> (Emanuel Berg's message of "Fri, 12 Jan 2024 06:52:42 +0100") References: <87h6jjw58t.fsf@dataswamp.org> <871qanp12g.fsf__35629.0631972783$1705037744$gmane$org@neverwas.me> <877ckfw11x.fsf@dataswamp.org> Date: Thu, 18 Jan 2024 18:53:21 -0800 Message-ID: <87v87qowym.fsf@neverwas.me> User-Agent: Gnus/5.13 (Gnus v5.13) MIME-Version: 1.0 Content-Type: text/plain X-Authenticated-Id: masked@neverwas.me X-Spam-Score: -0.0 (/) X-Debbugs-Envelope-To: 68395 Cc: Emanuel Berg , emacs-erc@gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) Emanuel Berg writes: > J.P. wrote: > >>> Patch >> >> I think debbugs wants the full "Tags: patch". > > It is there, what you cite is just what I wrote in the message > instead of a bug report. AFAICT, instead of a "pseudo header" [1], your bug report included a "real header", which Debbugs appears to have ignored. Before control message (sent by me): Id State Submitter Title 68395 normal Emanuel Berg 30.0.50; ERC 5.6-git ... After: Id State Submitter Title 68395 normal,patch Emanuel Berg 30.0.50; ERC 5.6-git ... I believe you can also trigger detection by prefixing the subject of the email (not the patch itself) with "[PATCH] ". [1] https://debbugs.gnu.org/Reporting.html#pseudoheader >> At some point, you'll need to include a commit message. > > I added a message, if not 'git commit' wouldn't have worked. Git calls the first line of a commit message the "subject," but there's also the "body," which is often needed to comply with a project's guidelines. AFAIK, the githooks(5) provided by Emacs only validate the existence of "* listed/files", but they don't yet check for a nonempty body. Nor do they enforce the ChangeLog-style format demanded by the project. As mentioned in CONTRIBUTE, "scaffolding" tools exist to prepopulate a COMMIT_EDITMSG buffer. And these days folks surely use AI tools for this purpose as well. >>> --- >>> lisp/erc/erc.el | 156 ++++++++++++++++++++++++++++-------------------- >>> 1 file changed, 90 insertions(+), 66 deletions(-) >>> >>> diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el >>> index 478683a77f5..12078f6970d 100644 >>> --- a/lisp/erc/erc.el >>> +++ b/lisp/erc/erc.el >>> @@ -2003,10 +2003,10 @@ erc-get-buffer >>> (defun erc--buffer-p (buf predicate proc) >>> (with-current-buffer buf >>> (and (derived-mode-p 'erc-mode) >>> - (or (not proc) >>> - (eq proc erc-server-process)) >>> - (funcall predicate) >>> - buf))) >>> + (or (not proc) >>> + (eq proc erc-server-process)) >>> + (funcall predicate) >>> + buf))) >> >> I haven't looked at the proposed commands yet, but can you >> remove all these hopefully inadvertent white space changes >> in the meantime, please? > > Ah, you are using tabs in the source, Not sure who "you" refers to here, but the tabs you see all reside in areas that predate modern standards regarding white space. Since ERC is legacy software, "preserving the blame" usually takes precedence over conveniences, like automated indentation, because research expeditions are the norm [2], and useful insights provided by mailing list discussions, change logs, and surviving code comments are sparse. For these same reasons, "new work," which uses spaces exclusively for indentation, should also avoid reflowing surrounding code solely for readability unless the resulting distraction is extreme, in which case reformatting can be performed after code review is complete. And while it's true that Git is smart enough to ignore white space when presenting diffs of blobs it knows about, that doesn't really help for previewing attachments in message-mode buffers. [2] https://en.wikipedia.org/wiki/Software_archaeology > saving the buffer changed them to whitespace. Perhaps you ought to disable that feature when editing files in the Emacs tree. Using a .dir-locals-2.el may help. > J.P. wrote: > >> Both vc and Magit should have tools for helping with this. Assuming >> "[PATCH] `erc-cmd-GMSG' ..." sits on HEAD, you'd do something like this >> in manual Git: >> >> 1. $ git reset --patch @^ >> 2. Mark all offending hunks as "y" in the interactive menu >> 3. $ git restore '*' >> 4. $ git commit --amend >> 5. Provide a commit message that accords with CONTRIBUTE >> >> Or, alternatively: >> >> 1. $ git revert @ >> 2. Reinstate only the intended changes, which I think I've found below >> 3. $ git add -A >> 4. $ git commit --amend >> 5. Replace generated message > > Maybe better to redo the whole thing? > > Since the patches produced after these steps (both methods) > also include data on the whitespace. FWIW, both methods worked for me in a contrived setting. Should you someday need to try the second one again, maybe use emacs -Q or git-add(1) with the "--patch" flag to select only the hunks you intend to share. From debbugs-submit-bounces@debbugs.gnu.org Mon Jan 22 03:23:34 2024 Received: (at submit) by debbugs.gnu.org; 22 Jan 2024 08:23:34 +0000 Received: from localhost ([127.0.0.1]:39846 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rRpag-0005lE-1H for submit@debbugs.gnu.org; Mon, 22 Jan 2024 03:23:34 -0500 Received: from lists.gnu.org ([2001:470:142::17]:44912) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rRpad-0005kz-12 for submit@debbugs.gnu.org; Mon, 22 Jan 2024 03:23:32 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rRpaT-0002pX-Jr for bug-gnu-emacs@gnu.org; Mon, 22 Jan 2024 03:23:21 -0500 Received: from ciao.gmane.io ([116.202.254.214]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rRpaR-0002V7-Ny for bug-gnu-emacs@gnu.org; Mon, 22 Jan 2024 03:23:21 -0500 Received: from list by ciao.gmane.io with local (Exim 4.92) (envelope-from ) id 1rRpaO-0005Vf-9V for bug-gnu-emacs@gnu.org; Mon, 22 Jan 2024 09:23:16 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: bug-gnu-emacs@gnu.org To: bug-gnu-emacs@gnu.org From: Emanuel Berg Subject: Re: bug#68395: 30.0.50; ERC 5.6-git: erc-cmd-GMSG, erc-cmd-AMSG, erc-cmd-GME, erc-cmd-AME Followup-To: gmane.emacs.bugs,gmane.emacs.erc.general Date: Mon, 22 Jan 2024 09:23:10 +0100 Message-ID: <877ck1lqtt.fsf@dataswamp.org> References: <87h6jjw58t.fsf@dataswamp.org> <871qanp12g.fsf__35629.0631972783$1705037744$gmane$org@neverwas.me> <877ckfw11x.fsf@dataswamp.org> <87v87qowym.fsf@neverwas.me> Mime-Version: 1.0 Content-Type: text/plain User-Agent: Gnus/5.13 (Gnus v5.13) Cancel-Lock: sha1:xsAILKp9izx0ysHug5wh1fA/270= Mail-Copies-To: never Follouup-To: gmane.emacs.bugs,gmane.emacs.erc.general Received-SPF: pass client-ip=116.202.254.214; envelope-from=geb-bug-gnu-emacs@m.gmane-mx.org; helo=ciao.gmane.io X-Spam_score_int: -16 X-Spam_score: -1.7 X-Spam_bar: - X-Spam_report: (-1.7 / 5.0 requ) BAYES_00=-1.9, HEADER_FROM_DIFFERENT_DOMAINS=0.249, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no autolearn_force=no X-Spam_action: no action X-Spam-Score: 0.2 (/) X-Debbugs-Envelope-To: submit Cc: emacs-erc@gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.8 (/) J.P. wrote: >>>> Patch >>> >>> I think debbugs wants the full "Tags: patch". >> >> It is there, what you cite is just what I wrote in the >> message instead of a bug report. > > AFAICT, instead of a "pseudo header" [1], your bug report > included a "real header", which Debbugs appears to > have ignored [...] Aha, that explains it. Debbugs should maybe look for a real header as well, but it is always fun to learn of a new concept, so I can do the pseudo header and "[PATCH]" in the subject line as well in the future then. >>> At some point, you'll need to include a commit message. >> >> I added a message, if not 'git commit' wouldn't have worked. > > As mentioned in CONTRIBUTE, "scaffolding" tools exist to > prepopulate a COMMIT_EDITMSG buffer. And these days folks > surely use AI tools for this purpose as well. Maybe it is easier to just input them manually. These tools seems to try to automate further then just asking for data and then putting it together in a conformant way. This syntax doesn't seem so difficult, maybe it would be even more easy if it was described in CONTRIBUTE with a focus on the syntax where the different parts had names instead of an example, but after looking at it, most people will probably get the idea. Here is the example provided. Deactivate shifted region Do not silently extend a region that is not highlighted; this can happen after a shift (Bug#19003). * doc/emacs/mark.texi (Shift Selection): Document the change. * lisp/window.el (handle-select-window): * src/frame.c (Fhandle_switch_frame, Fselected_frame): Deactivate the mark. -- underground experts united https://dataswamp.org/~incal From unknown Sat Jun 21 03:24:00 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Fri, 29 Mar 2024 11:24:05 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator