Changeset 33 for lang/elisp

Timestamp:

04/26/08 15:46:34 (17 years ago)

Author:

tsuyoshi

Message:

Fix j,k,n,p functions error.

Files:

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

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

@@ -946 +946 @@
   (let ((pos))
     (setq pos (twittering-get-next-username-face-pos (point)))
-    (when pos
-      (goto-char pos))))
+    (if pos
+        (goto-char pos)
+      (message "End of status."))))
 
 (defun twittering-get-next-username-face-pos (pos)
   (interactive)
   (let ((prop))
-    (while (not (eq prop twittering-username-face))
-      (setq pos (next-single-property-change pos 'face))
-      (setq prop (get-text-property pos 'face)))
+    (catch 'not-found
+      (while (and pos (not (eq prop twittering-username-face)))
+        (setq pos (next-single-property-change pos 'face))
+        (when (eq pos nil) (throw 'not-found 0))
+        (setq prop (get-text-property pos 'face))))
     pos))
 
@@ -962 +965 @@
   (let ((pos))
     (setq pos (twittering-get-previous-username-face-pos (point)))
-    (when pos
-      (goto-char pos))))
+    (if pos
+        (goto-char pos)
+      (message "Start of status."))))
 
 (defun twittering-get-previous-username-face-pos (pos)
   (interactive)
   (let ((prop))
-    (while (not (eq prop twittering-username-face))
-      (setq pos (previous-single-property-change pos 'face))
-      (setq prop (get-text-property pos 'face)))
+    (catch 'not-found
+      (while (and pos (not (eq prop twittering-username-face)))
+        (setq pos (previous-single-property-change pos 'face))
+        (when (eq pos nil) (throw 'not-found 0))
+        (setq prop (get-text-property pos 'face))))
     pos))
 
@@ -978 +984 @@
   (let ((user-name (twittering-get-username-at-pos (point)))
         (pos (twittering-get-next-username-face-pos (point))))
-    (while (not (equal (twittering-get-username-at-pos pos) user-name))
-      (setq pos (twittering-get-next-username-face-pos pos)))
-    (goto-char pos)))
+    (catch 'not-found
+      (while (not (equal (twittering-get-username-at-pos pos) user-name))
+        (setq pos (twittering-get-next-username-face-pos pos))
+        (when (eq pos nil) (throw 'not-found 0))))
+    (if pos
+        (goto-char pos)
+      (message "End of %s's status." user-name))))
 
 (defun twittering-goto-previous-status-of-user ()
@@ -987 +997 @@
   (let ((user-name (twittering-get-username-at-pos (point)))
         (pos (twittering-get-previous-username-face-pos (point))))
-    (while (not (equal (twittering-get-username-at-pos pos) user-name))
-      (setq pos (twittering-get-previous-username-face-pos pos)))
-    (goto-char pos)))
+    (catch 'not-found
+      (while (not (equal (twittering-get-username-at-pos pos) user-name))
+        (setq pos (twittering-get-previous-username-face-pos pos))
+        (when (eq pos nil) (throw 'not-found 0))))
+    (if pos
+        (goto-char pos)
+      (message "Start of %s's status." user-name))))
 
 (defun twittering-get-username-at-pos (pos)