Re: Making alist that executes multiple commands

[Stephen Berman]

On Sun, 24 Nov 2024 21:51:38 +0000 Heime via Users list for the GNU Emacs text 
editor <help-gnu-emacs@gnu.org> wrote:

> What changes can I make to the following to allow me to execute more
> commands than just one (as in alkotr-ar and alkotr-go).
>
> For ar I want to call functions alkotr-ar and alkotr-af
>
>   (let ( (lookup-alist
>            '((ar . alkotr-ar)
>              (go . alkotr-go))))
>
>     (dolist (actm symbol-list)
>       (let ((func (cdr (assoc actm lookup-alist))))
>         (if func
>              (funcall func)
>           (message "ACTM Unrecognised: %s%s" "'" actm)))))

Something like this:

(let ((symbol-list '(ar go))
      (lookup-alist '((ar alkotr-ar alkotr-af)
                      (go alkotr-go alkotr-gc))))
  (dolist (actm symbol-list)
    (let ((fnlist (cdr (assoc actm lookup-alist))))
      (while fnlist
        (let ((func (pop fnlist)))
          (if (functionp func)
              (funcall func)
            (message "ACTM Unrecognised: %s%s" "'" actm)))))))

Steve Berman