Commit 77d6bce8 authored by Glenn Morris's avatar Glenn Morris
Browse files

* lisp/erc/erc-lang.el (erc-cmd-LANG): Fix what may have been a typo.

parent 54e275fa
2010-11-11 Glenn Morris <rgm@gnu.org>
* erc-lang.el (erc-cmd-LANG): Fix what may have been a typo.
2010-11-05 Lars Magne Ingebrigtsen <larsi@gnus.org>
* erc-backend.el (erc-coding-system-precedence): New variable.
......
;;; erc-lang.el --- provide the LANG command to ERC
;; Copyright (C) 2002, 2004, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
;; Copyright (C) 2002, 2004, 2006, 2007, 2008, 2009, 2010
;; Free Software Foundation, Inc.
;; Author: Alex Schroeder <alex@gnu.org>
;; Maintainer: Alex Schroeder <alex@gnu.org>
......@@ -197,17 +198,14 @@ Normungsinstitut (ON), Postfach 130, A-1021 Vienna, Austria.")
iso-638-languages)))
(message "%s" (cdr (assoc code iso-638-languages))))
(defvar line) ; dynamically bound in erc-process-input-line
(defun erc-cmd-LANG (language)
"Display the language name for the language code given by LANGUAGE."
(let ((lang (cdr (assoc language iso-638-languages))))
(erc-display-message
nil 'notice 'active
(or lang (concat line ": No such domain"))))
(or lang (concat language ": No such domain"))))
t)
(provide 'erc-lang)
;; arch-tag: 8ffb1563-cc03-4517-b067-16309d4ff97b
;;; erc-lang.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment