`twittering-goto-previous-status' is simplified.

* twittering-mode.el (twittering-goto-previous-status): simplified.
hayamiz · Feb 9, 2010 · c9f314a · c9f314a
1 parent 08ca7ae
commit c9f314a
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,7 @@
+2010-02-09  Tadashi MATSUO  <tad@mymail.twin.jp>
+
+	* twittering-mode.el (twittering-goto-previous-status): simplified.
+
 2010-02-08  Satoshi Yatagawa  <yata_github@y.hauN.org>
 
 	* twittering-mode.el (twittering-http-default-sentinel): Delete a

diff --git a/twittering-mode.el b/twittering-mode.el
@@ -2911,9 +2911,8 @@ The return value is nil or a positive integer greater than POS."
 (defun twittering-goto-previous-status ()
   "Go to previous status."
   (interactive)
-  (let* ((current-pos (point))
-         (prev-pos (twittering-get-previous-status-head current-pos)))
-    (if (and prev-pos (not (eq current-pos prev-pos)))
+  (let ((prev-pos (twittering-get-previous-status-head)))
+    (if prev-pos
         (goto-char prev-pos)
       (message "Start of status."))))