Changeset 4200 for trunk/lisp/erc/erc-stamp.el

Timestamp:

04/07/07 15:49:28 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/erc/erc-stamp.el (modified) (3 diffs)

trunk/lisp/erc/erc-stamp.el

@@ -148 +148 @@
-      (when (and (fboundp erc-insert-away-timestamp-function)
-                 erc-away-timestamp-format
-with-current-buffer (erc-server-buffer) erc-away
+erc-away-time
-                 (not erc-timestamp-format))
-        (funcall erc-insert-away-timestamp-function
@@ -204 +204 @@
-    (unless ignore-p (setq erc-timestamp-last-inserted string))
-    (erc-put-text-property 0 len 'field 'erc-timestamp s)
+    (erc-put-text-property 0 len 'invisible 'timestamp s)
-    (insert s)))
-
@@ -320 +321 @@
-  (erc-munge-invisibility-spec))
-
+(defun erc-toggle-timestamps ()
+  "Hide or show timestamps in ERC buffers.
+
+Note that timestamps can only be shown for a message using this
+function if `erc-timestamp-format' was set and timestamping was
+enabled when the message was inserted."
+  (interactive)
+  (if erc-hide-timestamps
+      (setq erc-hide-timestamps nil)
+    (setq erc-hide-timestamps t))
+  (mapc (lambda (buffer)
+          (with-current-buffer buffer
+            (erc-munge-invisibility-spec)))
+        (erc-buffer-list)))
+
-(defun erc-echo-timestamp (before now)
-  "Print timestamp text-property of an IRC message.