diff options
author | Glenn Morris <rgm@gnu.org> | 2017-12-20 21:15:43 -0500 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2017-12-20 21:15:43 -0500 |
commit | b1cf262a79463f28164ea1c2ffee3c657ce02ea4 (patch) | |
tree | 4a428c5e0c026c1bb30e5972e78b145335b4b747 /lisp/erc | |
parent | a415a97461cb10d2c6710871f90f57bd1ca34ec2 (diff) | |
parent | b3f4a3a5aee93fa2f7ad2597383befbf7b242209 (diff) | |
download | emacs-b1cf262a79463f28164ea1c2ffee3c657ce02ea4.tar.gz |
Merge from origin/emacs-26
b3f4a3a (origin/emacs-26) Special-case %DUMBFW for GnuTLS between 3.2...
c2ae057 Work around GnuTLS version issues with %DUMBFW (tiny change)
2f9d9ef ; Remove the mention of "plain C code" in the docstring as well
aca827b Merge branch 'widen-less' into emacs-26
87548f5 ; Rephrase NEWS entry a bit
da0d773 (emacs-26) ; * lisp/erc/erc.el: Update URL.
3a60515 * lisp/erc/erc.el (erc-shorten-server-name): Silence compiler...
471b6c1 ; Replace non-ascii quote characters in doc strings etc
7af7f5e Fix some more aliases to user options
79fb4b5 Fix some flymake aliases
b9fbc03 (origin/widen-less) Widen in indent-for-tab-command in the no...
446faf3 Replace the mention of c-indent-defun with js-indent-line
7e9eef0 Consolidate 'widen' calls
# Conflicts:
# etc/NEWS
# lisp/progmodes/flymake-proc.el
Diffstat (limited to 'lisp/erc')
-rw-r--r-- | lisp/erc/erc.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index bda8dc1e714..493d69b8e08 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el @@ -36,7 +36,7 @@ ;; For more information, see the following URLs: ;; * https://sv.gnu.org/projects/erc/ -;; * http://www.emacswiki.org/cgi-bin/wiki/ERC +;; * https://www.emacswiki.org/emacs/ERC @@ -77,12 +77,12 @@ (require 'erc-compat) (defvar erc-official-location - "https://emacswiki.org/cgi-bin/wiki/ERC (mailing list: erc-discuss@gnu.org)" + "https://www.emacswiki.org/emacs/ERC (mailing list: erc-discuss@gnu.org)" "Location of the ERC client on the Internet.") (defgroup erc nil "Emacs Internet Relay Chat client." - :link '(url-link "http://www.emacswiki.org/cgi-bin/wiki/ERC") + :link '(url-link "https://www.emacswiki.org/emacs/ERC") :link '(custom-manual "(erc) Top") :prefix "erc-" :group 'applications) @@ -124,8 +124,6 @@ "Running scripts at startup and with /LOAD" :group 'erc) -(require 'erc-backend) - ;; compatibility with older ERC releases (define-obsolete-variable-alias 'erc-announced-server-name @@ -137,6 +135,8 @@ (define-obsolete-function-alias 'erc-send-command 'erc-server-send "ERC 5.1") +(require 'erc-backend) + ;; tunable connection and authentication parameters (defcustom erc-server nil @@ -6260,11 +6260,11 @@ This should be a string with substitution variables recognized by :group 'erc-mode-line-and-header :type 'string) -(defun erc-shorten-server-name (server-name) - "Shorten SERVER-NAME according to `erc-common-server-suffixes'." - (if (stringp server-name) +(defun erc-shorten-server-name (server) + "Shorten SERVER name according to `erc-common-server-suffixes'." + (if (stringp server) (with-temp-buffer - (insert server-name) + (insert server) (let ((alist erc-common-server-suffixes)) (while alist (goto-char (point-min)) |