Re: Overlong nodes in the Emacs Lisp Manual

[Thien-Thi Nguyen]

Juri Linkov <address@hidden> writes:

> List of nodes:
> 
> 1347 (info "(emacs)Command Index")
> ...
> 10 (info "(emacs)Highlight Changes")

oooo -- a histogram opportunity!
(sorry, couldn't resist.)

thi

________________________________
(setq ht (make-hash-table))

(while (< (point) (point-max))
  (let ((n (read (current-buffer))))
    (puthash n (1+ (or (gethash n ht) 0)) ht)
    (forward-line 1)))

(setq al (let (acc)
           (maphash (lambda (k v) 
                      (setq acc (cons (cons k v) acc)))
                    ht)
           acc))

(mapc (lambda (p)
        (insert (format "%5d - %s\n"
                        (car p)
                        (make-string (cdr p) ?#))))
      (sort al (lambda (a b) 
                 (> (car a) (car b)))))

 1347 - #
 1334 - #
 1185 - #
  992 - #
  856 - #
  802 - #
  645 - #
  544 - #
  375 - ##
  362 - #
  361 - ##
  358 - #
  348 - #
  337 - #
  291 - #
  258 - #
  252 - ##
  242 - #
  240 - #
  236 - #
  233 - #
  232 - #
  231 - #
  221 - #
  217 - #
  216 - #
  215 - #
  211 - #
  209 - #
  208 - #
  207 - #
  205 - #
  204 - ##
  202 - ##
  200 - ##
  199 - #
  197 - #
  195 - ##
  193 - #
  192 - ##
  191 - ##
  189 - ##
  188 - #
  187 - ##
  183 - ####
  182 - #
  180 - #
  178 - #
  177 - ##
  176 - #
  175 - ##
  174 - ##
  171 - ##
  170 - ###
  169 - #
  168 - ##
  166 - #
  165 - ####
  164 - ##
  160 - #
  158 - #
  157 - ##
  156 - ####
  155 - #
  154 - ###
  153 - ###
  152 - #
  151 - ##
  149 - #
  148 - ####
  146 - ###
  145 - ##
  144 - ###
  143 - ####
  142 - ##
  141 - ###
  139 - #
  138 - ##
  137 - #
  136 - #
  135 - ##
  133 - #####
  132 - ##
  131 - #
  130 - ###
  129 - ###
  128 - ###
  127 - ##
  126 - ##
  125 - ####
  124 - #
  123 - ######
  122 - ###
  121 - #####
  120 - ##
  118 - ###
  117 - ###
  116 - #####
  115 - ###
  114 - ###
  113 - #####
  112 - #####
  111 - ####
  110 - ########
  109 - ###
  108 - ##
  107 - ####
  106 - ####
  105 - ####
  104 - ######
  103 - #####
  102 - #####
  101 - ######
  100 - ######
   99 - ###
   98 - #######
   97 - #########
   96 - ##
   95 - ########
   94 - ########
   93 - #####
   92 - #
   91 - #######
   90 - ##########
   89 - ######
   88 - ######
   87 - ############
   86 - ####
   85 - ##
   84 - ########
   83 - #####
   82 - #######
   81 - #############
   80 - ###########
   79 - ####
   78 - #######
   77 - ##############
   76 - ###########
   75 - ####
   74 - #######
   73 - ########
   72 - ####
   71 - #########
   70 - ##############
   69 - ##########
   68 - ###########
   67 - ##########
   66 - #########
   65 - ##############
   64 - #######
   63 - ############
   62 - ##############
   61 - ##########
   60 - ###############
   59 - ###########
   58 - ##############
   57 - ##############
   56 - ##############################
   55 - #################
   54 - ##################
   53 - ############
   52 - ##############
   51 - ###########
   50 - #################
   49 - ###############
   48 - ############
   47 - ###############
   46 - ####################
   45 - #####################
   44 - ##################
   43 - ################
   42 - #####################
   41 - ########################
   40 - #################
   39 - ####################
   38 - ###################
   37 - ##########################
   36 - #################
   35 - ########################
   34 - ##################
   33 - ##############
   32 - ####################
   31 - ####################
   30 - #########################
   29 - ##############################
   28 - #######################
   27 - ##################
   26 - #########################
   25 - #########################
   24 - ###################
   23 - #######################
   22 - ##################
   21 - ##################
   20 - ###############
   19 - ##################
   18 - #########
   17 - #################
   16 - ###########
   15 - ####
   14 - ########
   13 - ##
   12 - #
   11 - #
   10 - #