🚀 go-pugleaf

Setting buffer-substring-lessp reveals the following bug:
	sort-build-lists fails to optimize conses.

Here is a quick hack.

*** /usr/local/emacs/lisp/sort.el	Tue May 31 06:53:34 1988
--- ./sort.el	Thu Nov 29 21:34:40 1990
***************
*** 128,134 ****
  					  (equal (car key) start-rec)
  					  (equal (cdr key) (point)))
  				     (cons key key)
! 				     (list key start-rec (point)))
  				sort-lists)))
        (and (not done) nextrecfun (funcall nextrecfun)))
      sort-lists))
--- 128,134 ----
  					  (equal (car key) start-rec)
  					  (equal (cdr key) (point)))
  				     (cons key key)
! 				     (cons key (cons start-rec (point))))
  				sort-lists)))
        (and (not done) nextrecfun (funcall nextrecfun)))
      sort-lists))
***************
*** 145,152 ****
        (goto-char (point-max))
        (insert-buffer-substring (current-buffer)
  			       (nth 1 (car sort-lists))
! 			       (nth 2 (car sort-lists)))
!       (setq last (nth 2 (car old))
  	    sort-lists (cdr sort-lists)
  	    old (cdr old)))
      (goto-char (point-max))
--- 145,152 ----
        (goto-char (point-max))
        (insert-buffer-substring (current-buffer)
  			       (nth 1 (car sort-lists))
! 			       (cdr (cdr (car sort-lists))))
!       (setq last (cdr (cdr (car old)))
  	    sort-lists (cdr sort-lists)
  	    old (cdr old)))
      (goto-char (point-max))
--
--------------------------------------------------
 Kaoru Maeda		 kaoru@is.s.u-tokyo.ac.jp
 Dept. of Inf. Sci., Fac. of Sci., Univ. of Tokyo
--------------------------------------------------