Mercurial > emacs

diff lisp/erc/erc-lang.el @ 111484:54d60cee2d5c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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