aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2010-11-10 19:50:20 -0800
committerGlenn Morris2010-11-10 19:50:20 -0800
commit77d6bce84b87635cab4bd9c42cf794fbb1df42f5 (patch)
tree876660e559eaa0e899f37ddddeb58bdd7a7ee95d
parent54e275fa7c5ac35575c897fbf359eb54b4ff5b6b (diff)
downloademacs-77d6bce84b87635cab4bd9c42cf794fbb1df42f5.tar.gz
emacs-77d6bce84b87635cab4bd9c42cf794fbb1df42f5.zip
* lisp/erc/erc-lang.el (erc-cmd-LANG): Fix what may have been a typo.
-rw-r--r--lisp/erc/ChangeLog4
-rw-r--r--lisp/erc/erc-lang.el8
2 files changed, 7 insertions, 5 deletions
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index 1f27dbdb7f7..210f6985dc9 100644
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,7 @@
12010-11-11 Glenn Morris <rgm@gnu.org>
2
3 * erc-lang.el (erc-cmd-LANG): Fix what may have been a typo.
4
12010-11-05 Lars Magne Ingebrigtsen <larsi@gnus.org> 52010-11-05 Lars Magne Ingebrigtsen <larsi@gnus.org>
2 6
3 * erc-backend.el (erc-coding-system-precedence): New variable. 7 * erc-backend.el (erc-coding-system-precedence): New variable.
diff --git a/lisp/erc/erc-lang.el b/lisp/erc/erc-lang.el
index 89e36a733e4..a7e971acc61 100644
--- a/lisp/erc/erc-lang.el
+++ b/lisp/erc/erc-lang.el
@@ -1,6 +1,7 @@
1;;; erc-lang.el --- provide the LANG command to ERC 1;;; erc-lang.el --- provide the LANG command to ERC
2 2
3;; Copyright (C) 2002, 2004, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. 3;; Copyright (C) 2002, 2004, 2006, 2007, 2008, 2009, 2010
4;; Free Software Foundation, Inc.
4 5
5;; Author: Alex Schroeder <alex@gnu.org> 6;; Author: Alex Schroeder <alex@gnu.org>
6;; Maintainer: Alex Schroeder <alex@gnu.org> 7;; Maintainer: Alex Schroeder <alex@gnu.org>
@@ -197,17 +198,14 @@ Normungsinstitut (ON), Postfach 130, A-1021 Vienna, Austria.")
197 iso-638-languages))) 198 iso-638-languages)))
198 (message "%s" (cdr (assoc code iso-638-languages)))) 199 (message "%s" (cdr (assoc code iso-638-languages))))
199 200
200(defvar line) ; dynamically bound in erc-process-input-line
201
202(defun erc-cmd-LANG (language) 201(defun erc-cmd-LANG (language)
203 "Display the language name for the language code given by LANGUAGE." 202 "Display the language name for the language code given by LANGUAGE."
204 (let ((lang (cdr (assoc language iso-638-languages)))) 203 (let ((lang (cdr (assoc language iso-638-languages))))
205 (erc-display-message 204 (erc-display-message
206 nil 'notice 'active 205 nil 'notice 'active
207 (or lang (concat line ": No such domain")))) 206 (or lang (concat language ": No such domain"))))
208 t) 207 t)
209 208
210(provide 'erc-lang) 209(provide 'erc-lang)
211 210
212;; arch-tag: 8ffb1563-cc03-4517-b067-16309d4ff97b
213;;; erc-lang.el ends here 211;;; erc-lang.el ends here