Mercurial > emacs
diff lisp/erc/erc-lang.el @ 111484:54d60cee2d5c
* lisp/erc/erc-lang.el (erc-cmd-LANG): Fix what may have been a typo.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 10 Nov 2010 19:50:20 -0800 |
parents | 1d1d5d9bd884 |
children | 417b1e4d63cd |
line wrap: on
line diff
--- a/lisp/erc/erc-lang.el Thu Nov 11 02:11:30 2010 +0000 +++ b/lisp/erc/erc-lang.el Wed Nov 10 19:50:20 2010 -0800 @@ -1,6 +1,7 @@ ;;; 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 @@ 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