From 77d6bce84b87635cab4bd9c42cf794fbb1df42f5 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 10 Nov 2010 19:50:20 -0800 Subject: [PATCH] * lisp/erc/erc-lang.el (erc-cmd-LANG): Fix what may have been a typo. --- lisp/erc/ChangeLog | 4 ++++ 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 @@ +2010-11-11 Glenn Morris + + * erc-lang.el (erc-cmd-LANG): Fix what may have been a typo. + 2010-11-05 Lars Magne Ingebrigtsen * 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 @@ ;;; 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 ;; Maintainer: Alex Schroeder @@ -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 -- 2.11.4.GIT