Re: address@hidden: links in Help buffer aren'talwayscorrect]

[Kevin Rodgers]

Kevin Rodgers wrote:
> "Richard M. Stallman" <address@hidden> wrote:
>
>>It looks like this code extracts the list of frame parameter names
>>when it is _loaded_.  That is inconvenient.  Could you
>>do that when the function is called for the first time?
>
> ...
>
>>replace-regexp is meant for users; could you please write a simple
>>while loop instead?
>
>
> Sure, this version fixes both concerns.

According to Stefan, the following can be simplified in Emacs 22:

>           ;; in Emacs 21.4 there are 41 documented frame parameters; 83
>           ;; is the smallest prime that's at least twice that:
>           (param-table (let ((table (make-vector 83 0)))
>                          (mapc (lambda (assoc)
>                                  (intern (symbol-name (car assoc)) 
table))
>                                (or frame-parameter-docstring-alist
>                                    (setq frame-parameter-docstring-alist
> 
(default-frame-parameter-docstring-alist))))
>                          (mapc (lambda (assoc)
>                                  (intern (symbol-name (car assoc)) 
table))
>                                (frame-parameters nil))
>                          table))

To just:

          (param-table
           (mapcar (lambda (assoc) (symbol-name (car assoc)))
                   (nconc (frame-parameters nil)
                          (or frame-parameter-docstring-alist
                              (setq frame-parameter-docstring-alist

(default-frame-parameter-docstring-alist))))))

--
Kevin