From: Glenn Morris Date: Thu, 3 Feb 2011 07:14:02 +0000 (-0800) Subject: rcirc.el trivia. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~1048^2~12 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d7d6439d208c5669332d4ecf6078966b893bf6b;p=emacs.git 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 de6463feeab..2b0d50139ea 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2011-02-03 Glenn Morris + * 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 678aba598b7..0e44508641b 100644 --- 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