rcirc.el trivia.

* lisp/net/rcirc.el (rcirc-nick-completion-format): Add :version tag.
(rcirc-log-directory, rcirc-log-flag): Move definitions before use.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de6463feeab1727f682066b5c4aabe9fc71b19ec..2b0d50139ea859bcc1a0fffb20f2d02c7f3337cb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-02-03  Glenn Morris  <rgm@gnu.org>
 
+       * net/rcirc.el (rcirc-nick-completion-format): Add :version tag.
+       (rcirc-log-directory, rcirc-log-flag): Move definitions before use.
+
        * strokes.el (strokes-fill-current-buffer-with-whitespace):
        Move definition before use.
        (strokes-report-bug): Make it obsolete.

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 678aba598b79c0509e80f67be04719678c1b34cf..0e44508641bfb37ca52c9e733810455d3047a4df 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -328,6 +328,7 @@ and the cdr part is used for encoding."
 The format string is only used when completing at the beginning
 of a line.  The string is passed as the first argument to
 `format' with the nickname as the second argument."
+  :version "24.1"
   :type 'string
   :group 'rcirc)
 
@@ -1034,6 +1035,17 @@ If ALL is non-nil, update prompts in all IRC buffers."
        (or (eq (aref target 0) ?#)
            (eq (aref target 0) ?&))))
 
+(defcustom rcirc-log-directory "~/.emacs.d/rcirc-log"
+  "Directory to keep IRC logfiles."
+  :type 'directory
+  :group 'rcirc)
+
+(defcustom rcirc-log-flag nil
+  "Non-nil means log IRC activity to disk.
+Logfiles are kept in `rcirc-log-directory'."
+  :type 'boolean
+  :group 'rcirc)
+
 (defun rcirc-kill-buffer-hook ()
   "Part the channel when killing an rcirc buffer."
   (when (eq major-mode 'rcirc-mode)
@@ -1364,17 +1376,6 @@ is found by looking up RESPONSE in `rcirc-response-formats'."
 (defvar rcirc-last-sender nil)
 (make-variable-buffer-local 'rcirc-last-sender)
 
-(defcustom rcirc-log-directory "~/.emacs.d/rcirc-log"
-  "Directory to keep IRC logfiles."
-  :type 'directory
-  :group 'rcirc)
-
-(defcustom rcirc-log-flag nil
-  "Non-nil means log IRC activity to disk.
-Logfiles are kept in `rcirc-log-directory'."
-  :type 'boolean
-  :group 'rcirc)
-
 (defcustom rcirc-omit-threshold 100
   "Number of lines since last activity from a nick before `rcirc-omit-responses' are omitted."
   :type 'integer