diff options
| author | Glenn Morris | 2010-11-10 19:50:20 -0800 |
|---|---|---|
| committer | Glenn Morris | 2010-11-10 19:50:20 -0800 |
| commit | 77d6bce84b87635cab4bd9c42cf794fbb1df42f5 (patch) | |
| tree | 876660e559eaa0e899f37ddddeb58bdd7a7ee95d | |
| parent | 54e275fa7c5ac35575c897fbf359eb54b4ff5b6b (diff) | |
| download | emacs-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/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/erc/erc-lang.el | 8 |
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 @@ | |||
| 1 | 2010-11-11 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * erc-lang.el (erc-cmd-LANG): Fix what may have been a typo. | ||
| 4 | |||
| 1 | 2010-11-05 Lars Magne Ingebrigtsen <larsi@gnus.org> | 5 | 2010-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 |