(forward-line 2)
(setq lines (count-lines
(point)
- (search-forward
- "A href=\"/article" nil t)))
+ (re-search-forward
+ "A href=\"\\(http://slashdot.org\\)?/article" nil t)))
(push
(cons
1
(setq lines (/ (abs (- (search-forward "<td ")
(search-forward "</td>")))
70))
- (forward-line 2)
+ (forward-line 4)
(setq parent
(if (looking-at ".*cid=\\([0-9]+\\)")
(match-string 1)
(buffer-substring (point) (1- (search-forward "<")))))
(forward-line 2)
(setq lines (count-lines (point)
- (search-forward
- "A href=\"/article")))
+ (re-search-forward
+ "A href=\"\\(http://slashdot.org\\)?/article")))
(push
(cons
1
(point)
(progn
(re-search-forward
- "<p>.*A href=\"/article")
+ "<p>.*A href=\"\\(http://slashdot.org\\)?/article")
(match-beginning 0)))))
(search-forward (format "<a name=\"%d\">" (1- article)))
(setq contents