Re: Making alist that executes multiple commands

[Heime]

I get error when calling (marnap '(armg go))

That is I get message "ACTM Unrecognised: 'armg"



(defun marnap (&optional actm-service)

  (let ( (lookup-alist '((armg ((add-to-list 'load-path (marnap-sec-fpln-waypt 
"NAPLN"))
                                (require 'napyon)))

                         (go   ((napyon 'go))) )) )

    (dolist (actm actm-service)
      (let ((fnlist (cdr (assoc actm lookup-alist))))
        (while fnlist
          (dolist (cmd fnlist)
            (if (functionp (car cmd))
                (apply (car cmd) (cdr cmd))
              (message "ACTM Unrecognised: '%s\n" actm)))))) ))