aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/erc
diff options
context:
space:
mode:
authorEli Zaretskii2024-12-28 08:30:31 -0500
committerEli Zaretskii2024-12-28 08:30:31 -0500
commitaf3bbc83600bec6c8621e1b04437dbfdeb329106 (patch)
tree9e981a7cdd60b276ae0e6549a4277f1995708d38 /lisp/erc
parentad5c8f25b36aac71870ff26b6549014c452a2145 (diff)
parent2ba6387d1d63072c5faaa7798c8ef7b00ca883c3 (diff)
downloademacs-af3bbc83600bec6c8621e1b04437dbfdeb329106.tar.gz
emacs-af3bbc83600bec6c8621e1b04437dbfdeb329106.zip
Merge from origin/emacs-30
2ba6387d1d6 ; Fix inaccuracy in ELisp Reference manual 8ac6a178804 ; * etc/PROBLEMS: Mention problems with XPM support in GD... 624322d5f6a Add missing fontification matches for elixir-ts-mode 5bafb11b400 ; Fix copyright year 186ea407326 Don't start docstrings with "This function" or similar cb8ce2e68bb Enable indent-tabs-mode in obj-c-mode 54f35137096 Fix comment indent in 'lua-ts-mode' and old grammar 8b95549e908 * admin/nt/dist-build/build-dep-zips.py: (deps src) handl... 8064b2a6798 Document undocumented completion commands c29b798537e ; etc/w32-feature.el (harfbuzz): improve test 0e43e35f96e * admin/nt/dist-build/emacs.nsi: (Uninstall) delete only ... b83cd8a8fb0 ; * etc/tutorials/TUTORIAL.ko: Fix the beginning. 41caccc488b ; * etc/publicsuffix.txt: Update from upstream. e6fb18406ee ; Fix refcards 14e791f9ba2 ; Update acknowledgments for Emacs 30 861b7864fc4 ; Fix node name in emacs-lisp-intro.texi 77243ba5be8 ; Update version tags of defcustoms fe2ac33bae8 ;* doc/misc/efaq.texi (New in Emacs 30): Mention 'trusted... 8fb884f0dc0 ; * etc/NEWS: Fix wording. e281355a5e8 Improve D-Bus and Tramp manual # Conflicts: # doc/emacs/emacs.texi # etc/NEWS # lisp/erc/erc-log.el # lisp/eshell/esh-mode.el # lisp/which-key.el
Diffstat (limited to 'lisp/erc')
-rw-r--r--lisp/erc/erc-backend.el2
-rw-r--r--lisp/erc/erc-log.el4
-rw-r--r--lisp/erc/erc-track.el2
3 files changed, 4 insertions, 4 deletions
diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el
index 098cf6d7d71..dc64b8bebc8 100644
--- a/lisp/erc/erc-backend.el
+++ b/lisp/erc/erc-backend.el
@@ -571,7 +571,7 @@ If this is set to nil, never try to reconnect."
571 (integer :tag "Seconds"))) 571 (integer :tag "Seconds")))
572 572
573(defvar-local erc-server-ping-handler nil 573(defvar-local erc-server-ping-handler nil
574 "This variable holds the periodic ping timer.") 574 "The periodic server ping timer.")
575 575
576;;;; Helper functions 576;;;; Helper functions
577 577
diff --git a/lisp/erc/erc-log.el b/lisp/erc/erc-log.el
index a1102ebdcdf..69da188ea4f 100644
--- a/lisp/erc/erc-log.el
+++ b/lisp/erc/erc-log.el
@@ -360,13 +360,13 @@ The result is converted to lowercase, as IRC is case-insensitive."
360 erc-log-channels-directory))))) 360 erc-log-channels-directory)))))
361 361
362(defun erc-generate-log-file-name-with-date (buffer &rest _ignore) 362(defun erc-generate-log-file-name-with-date (buffer &rest _ignore)
363 "Compute a short log file name with the current date. 363 "Return a short log file name with the current date.
364The name of the log file is composed of BUFFER and the current date. 364The name of the log file is composed of BUFFER and the current date.
365This function is a possible value for `erc-generate-log-file-name-function'." 365This function is a possible value for `erc-generate-log-file-name-function'."
366 (concat (buffer-name buffer) "-" (format-time-string "%Y-%m-%d") ".txt")) 366 (concat (buffer-name buffer) "-" (format-time-string "%Y-%m-%d") ".txt"))
367 367
368(defun erc-generate-log-file-name-short (buffer &rest _ignore) 368(defun erc-generate-log-file-name-short (buffer &rest _ignore)
369 "Compute a short log file name. 369 "Return a short log file name.
370In fact, it only uses the buffer name of the BUFFER argument, so 370In fact, it only uses the buffer name of the BUFFER argument, so
371you can affect that using `rename-buffer' and the-like. This 371you can affect that using `rename-buffer' and the-like. This
372function is a possible value for 372function is a possible value for
diff --git a/lisp/erc/erc-track.el b/lisp/erc/erc-track.el
index fac0269f9e8..6191ec32182 100644
--- a/lisp/erc/erc-track.el
+++ b/lisp/erc/erc-track.el
@@ -140,7 +140,7 @@ This setting is used by `erc-track-shorten-names'."
140 (const :tag "Max" max))) 140 (const :tag "Max" max)))
141 141
142(defcustom erc-track-shorten-function 'erc-track-shorten-names 142(defcustom erc-track-shorten-function 'erc-track-shorten-names
143 "This function will be used to reduce the channel names before display. 143 "Function used to reduce the channel names before display.
144It takes one argument, CHANNEL-NAMES which is a list of strings. 144It takes one argument, CHANNEL-NAMES which is a list of strings.
145It should return a list of strings of the same number of elements. 145It should return a list of strings of the same number of elements.
146If nil instead of a function, shortening is disabled." 146If nil instead of a function, shortening is disabled."