comparison lisp/erc/erc.el @ 74484:e9bc018298b2

Update from erc--emacs--22 Highlights: - Remove contributions from someone who has not assigned changes yet. - Merge in a couple of bug-fixes from the main branch. Revision: [e-mail]/emacs--devo--0--patch-546 Creator: Michael Olson <[e-mail]>

74483:00d6850d1b3e

;; erc.el --- An Emacs Internet Relay Chat client

;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
;;   2006 Free Software Foundation, Inc.
;; Copyright (C) 2004 Brian Palmer

;; Author: Alexander L. Belikoff ([e-mail])
;; Contributors: Sergey Berezin ([e-mail]),
;;               Mario Lang ([e-mail]),
;;               Alex Schroeder ([e-mail])

     (mapcar (lambda (m) (or (cdr (assoc m transforms)) m))
	     mods))))

(defcustom erc-modules '(netsplit fill button match track completion readonly
				  ring autojoin noncommands irccontrols
				  stamp list)
  "A list of modules which ERC should enable.
If you set the value of this without using `customize' remember to call
\(erc-update-modules) after you change it.  When using `customize', modules
removed from the list will be disabled."
  :get (lambda (sym)

    (const :tag "Buttonize URLs, nicknames, and other text" button)
    (const :tag "Wrap long lines" fill)
    (const :tag "Launch an identd server on port 8113" identd)
    (const :tag "Highlight or remove IRC control characters"
	   irccontrols)
    (const :tag "List channels in a separate buffer" list)
    (const :tag "Save buffers in logs" log)
    (const :tag "Highlight pals, fools, and other keywords" match)
    (const :tag "Detect netsplits" netsplit)
    (const :tag "Don't display non-IRC commands after evaluation"
	   noncommands)

74484:e9bc018298b2

;; erc.el --- An Emacs Internet Relay Chat client

;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
;;   2006 Free Software Foundation, Inc.

;; Author: Alexander L. Belikoff ([e-mail])
;; Contributors: Sergey Berezin ([e-mail]),
;;               Mario Lang ([e-mail]),
;;               Alex Schroeder ([e-mail])

     (mapcar (lambda (m) (or (cdr (assoc m transforms)) m))
	     mods))))

(defcustom erc-modules '(netsplit fill button match track completion readonly
				  ring autojoin noncommands irccontrols
				  stamp)
  "A list of modules which ERC should enable.
If you set the value of this without using `customize' remember to call
\(erc-update-modules) after you change it.  When using `customize', modules
removed from the list will be disabled."
  :get (lambda (sym)

    (const :tag "Buttonize URLs, nicknames, and other text" button)
    (const :tag "Wrap long lines" fill)
    (const :tag "Launch an identd server on port 8113" identd)
    (const :tag "Highlight or remove IRC control characters"
	   irccontrols)
    (const :tag "Save buffers in logs" log)
    (const :tag "Highlight pals, fools, and other keywords" match)
    (const :tag "Detect netsplits" netsplit)
    (const :tag "Don't display non-IRC commands after evaluation"
	   noncommands)