]> git.eshelyaron.com Git - emacs.git/commitdiff
; Amend some doc strings in ERC
authorF. Jason Park <jp@neverwas.me>
Tue, 11 Jun 2024 04:56:02 +0000 (21:56 -0700)
committerEshel Yaron <me@eshelyaron.com>
Sat, 15 Jun 2024 17:21:09 +0000 (19:21 +0200)
* lisp/erc/erc-backend.el (define-erc-response-handler): Mention
important distinction between aliases for handlers and hooks, and note
expected type for the latter.
* lisp/erc/erc.el (erc--define-channel-user-status-compat-getter):
Mention that these accessors are not inlined like those generated by
`cl-defstruct'.

(cherry picked from commit bbac7b9fa398254e64e5ee3e8aca2f59adcfda50)

lisp/erc/erc-backend.el
lisp/erc/erc.el

index e2b7c0b6f489262275dcb627640471e9a814abb7..a4a78c66b024f127795ee504c0559e10815d7fee 100644 (file)
@@ -1649,6 +1649,10 @@ Would expand to:
 
   See also `erc-server-311'.\"))
 
+  Note that while all ALIASES share the same handler function, each gets
+  its own distinct hook variable.  The default value of these variables
+  may be a list or a function.  Robust code should handle both.
+
 \(fn (NAME &rest ALIASES) &optional EXTRA-FN-DOC EXTRA-VAR-DOC &rest FN-BODY)"
   (declare (debug (&define [&name "erc-response-handler@"
                                   ;; No `def-edebug-elem-spec' in 27.
index 3ccbcd696c5719f4e77fd504a1913512b78be997..5a35ee41b7a8e35fdd274bfad888cab75cb410d6 100644 (file)
@@ -676,10 +676,11 @@ Also remove members from the server table if this was their only buffer."
     (erc-remove-channel-users)))
 
 (defmacro erc--define-channel-user-status-compat-getter (name c d)
-  "Define a gv getter for historical `erc-channel-user' status slot NAME.
-Expect NAME to be a string, C to be its traditionally associated
-letter, and D to be its fallback power-of-2 integer for non-ERC
-buffers."
+  "Define accessor with gv getter for historical `erc-channel-user' slot NAME.
+Expect NAME to be a string, C to be its traditionally associated letter,
+and D to be its fallback power-of-2 integer for non-ERC buffers.  Unlike
+pre-ERC-5.6 accessors, do not bother generating a compiler macro for
+inlining calls to these adapters."
   `(defun ,(intern (concat "erc-channel-user-" name)) (u)
      ,(format "Get equivalent of pre-5.6 `%s' slot for `erc-channel-user'."
               name)