Permalink
Browse files

* navi2ch-board-misc.el (navi2ch-bm-sort-by-number): Use numeric sort

instead of text sort; For little `navi2ch-bm-number-width'.
  • Loading branch information...
1 parent a3d1c5c commit 5ec29a728fcda4602739c87f83bc9b38a25129b2 @kaoru6 kaoru6 committed Oct 27, 2010
Showing with 14 additions and 2 deletions.
  1. +5 −0 ChangeLog
  2. +9 −2 navi2ch-board-misc.el
View
@@ -1,3 +1,8 @@
+2010-10-27 TAKAHASHI Kaoru <kaoru@kaisei.org>
+
+ * navi2ch-board-misc.el (navi2ch-bm-sort-by-number): Use numeric
+ sort instead of text sort; For little `navi2ch-bm-number-width'.
+
2010-10-21 Naohiro Aota <naota@elisp.net>
* navi2ch-article.el (navi2ch-article-mode-map): Change
View
@@ -797,8 +797,15 @@ ARG $B$,(B non-nil $B$J$i0\F0J}8~$r5U$K$9$k!#(B"
(interactive "P")
(navi2ch-bm-sort-subr
rev
- 'beginning-of-line
- 'navi2ch-bm-goto-state-column))
+ (lambda ()
+ (beginning-of-line)
+ (save-match-data
+ (if (looking-at "^ *\\([0-9]+\\)")
+ (string-to-number
+ (buffer-substring (match-beginning 1) (match-end 1)))
+ ;; not a number
+ -1)))
+ nil))
(defun navi2ch-bm-sort-by-state (&optional rev)
(interactive "P")

0 comments on commit 5ec29a7

Please sign in to comment.