Changeset 37 for lang/elisp/twittering-mode

Timestamp:

05/01/08 14:28:21 (16 years ago)

Author:

tsuyoshi

Message:

append nico's patches and hook variable add.

Files:

• lang/elisp/twittering-mode/branches/tsuyoshi/twittering-mode.el (modified) (4 diffs)

lang/elisp/twittering-mode/branches/tsuyoshi/twittering-mode.el

@@ -70 +70 @@
 
 (defvar twittering-scroll-mode nil)
+(make-variable-buffer-local 'twittering-scroll-mode)
 
 (defvar twittering-jojo-mode nil)
+(make-variable-buffer-local 'twittering-jojo-mode)
 
 (defvar twittering-status-format nil)
@@ -161 +163 @@
 
 (defvar twittering-icon-mode nil "You MUST NOT CHANGE this variable directory. You should change through function'twittering-icon-mode'")
+(make-variable-buffer-local 'twittering-icon-mode)
 (defun twittering-icon-mode (&optional arg)
   (interactive)
@@ -298 +301 @@
 
 (defvar twittering-mode-string "Twittering mode")
+
+(defvar twittering-mode-hook nil
+  "Twittering-mode hook.")
 
 (defun twittering-mode ()
@@ -404 +410 @@
       (setq buffer-read-only nil)
       (erase-buffer)
-      (insert
-       (mapconcat (lambda (status)
-                    (twittering-format-status status twittering-status-format))
-                  twittering-friends-timeline-data
-                  "\n"))
+;      (insert
+;       (mapconcat (lambda (status)
+;                   (twittering-format-status status twittering-status-format))
+;                 twittering-friends-timeline-data
+;                 "\n"))
+      (mapc (lambda (status)
+              (insert (twittering-format-status
+                       status twittering-status-format))
+              (fill-region-as-paragraph
+               (save-excursion (beginning-of-line) (point)) (point))
+              (insert "\n"))
+            twittering-friends-timeline-data)
       (if twittering-image-stack
           (clear-image-cache))