[Ctrl+v]code

Author: aaa. Date 2017-12-15 10:26:19, views: 239, Raw

(defun function-symbols (f)
 (let ((lst ()))
  (do-all-symbols (s lst)
   (if (and (fboundp s)
            (eq (symbol-function s) f))
     (push s lst)))))