mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Glenn Morris 2010-11-10 19:50:20 -08:00
parent 54e275fa7c
commit 77d6bce84b
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/erc/ChangeLog
View File

@ -1,3 +1,7 @@
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> 2010-11-05 Lars Magne Ingebrigtsen <larsi@gnus.org>
* erc-backend.el (erc-coding-system-precedence): New variable. * erc-backend.el (erc-coding-system-precedence): New variable.

8
lisp/erc/erc-lang.el
View File

@ -1,6 +1,7 @@
;;; erc-lang.el --- provide the LANG command to ERC ;;; 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> ;; Author: Alex Schroeder <alex@gnu.org>
;; Maintainer: 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))) iso-638-languages)))
(message "%s" (cdr (assoc code 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) (defun erc-cmd-LANG (language)
"Display the language name for the language code given by LANGUAGE." "Display the language name for the language code given by LANGUAGE."
(let ((lang (cdr (assoc language iso-638-languages)))) (let ((lang (cdr (assoc language iso-638-languages))))
(erc-display-message (erc-display-message
nil 'notice 'active nil 'notice 'active
(or lang (concat line ": No such domain")))) (or lang (concat language ": No such domain"))))
t) t)
(provide 'erc-lang) (provide 'erc-lang)
;; arch-tag: 8ffb1563-cc03-4517-b067-16309d4ff97b
;;; erc-lang.el ends here ;;; erc-lang.el ends here