Changeset 4111 for trunk/lisp/erc/erc-autoaway.el

Timestamp:

07/16/06 08:36:52 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/erc/erc-autoaway.el (modified) (8 diffs)

trunk/lisp/erc/erc-autoaway.el

@@ -40 +40 @@
-  "The Emacs idletimer.
-This is only used when `erc-autoaway-use-emacs-idle' is non-nil.")
-
-(defcustom erc-autoaway-use-emacs-idle nil
-  "*If non-nil, the idle time refers to idletime in Emacs.
-If nil, the idle time refers to idletime on IRC only.
-The time itself is specified by `erc-autoaway-idle-seconds'.
-See `erc-autoaway-mode' for more information on the various
-definitions of being idle.
-
-Note that using Emacs idletime is currently broken for most versions,
-since process activity (as happens all the time on IRC) makes Emacs
-non-idle.  Emacs idle-time and user idle-time are just not the same."
-  :group 'erc-autoaway
-  :type 'boolean)
-
-;;;###autoload (autoload 'erc-autoaway-mode "erc-autoaway")
@@ -62 +49 @@
-There are several kinds of being idle:
-
-
-`erc-autoaway-last-sent-time')
+
+commands to Emacs
-
-Emacs idle time measures how long Emacs has been idle.  This is
-currently not useful, since Emacs is non-idle when it handles
-
-
-
-
-
-
+
+
+
+
+
-
-If `erc-auto-discard-away' is set, then typing anything, will
@@ -79 +65 @@
-Related variables: `erc-public-away-p' and `erc-away-nickname'."
-  ;; Enable:
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-  ;; Disable:
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-(defcustom erc-auto-set-away t
@@ -121 +138 @@
-(defun erc-autoaway-reestablish-idletimer ()
-  "Reestablish the emacs idletimer.
-
-`erc-autoaway-idle-seconds', if `erc-autoaway-use-emacs-idle' is set
+
+function each time you change `erc-autoaway-idle-seconds'
-  (interactive)
-  (when erc-autoaway-idletimer
@@ -139 +156 @@
-  :set (lambda (sym val)
-         (set-default sym val)
-erc-autoaway-use-emacs-idle
+(eq erc-autoaway-idle-method 'emacs)
-           (erc-autoaway-reestablish-idletimer)))
-  :type 'number)
@@ -145 +162 @@
-(defcustom erc-autoaway-message
-  "I'm gone (autoaway after %i seconds of idletime)"
-he sets
- in
-
+setting
+
+in 
-  :group 'erc-autoaway
-  :type 'string)
@@ -154 +171 @@
-  "The last time the user sent something.")
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-  (when (and erc-auto-discard-away
-             (stringp line)
-             (not (string-match erc-autoaway-no-auto-discard-regexp line)))
- line
+
-  (setq erc-autoaway-last-sent-time (erc-current-time)))
-
-line
+
-  "Discard the away state globally."
-
-
-
+
+
+
+
-
-(defun erc-autoaway-possibly-set-away (current-time)
@@ -194 +224 @@
-  (when (and (erc-server-process-alive)
-             (not (erc-away-p)))
+    (setq erc-autoaway-caused-away t)
-    (erc-cmd-GAWAY (format erc-autoaway-message idle-time))))
+
+(defun erc-autoaway-reset-indicators (&rest stuff)
+  "Reset indicators used by the erc-autoaway module."
+  (setq erc-autoaway-last-sent-time (erc-current-time))
+  (setq erc-autoaway-caused-away nil))
-
-(provide 'erc-autoaway)