() Michael Heerdegen <michael_heerdegen@web.de>
() Sat, 29 Mar 2014 19:10:26 +0100

       (let ((sym (symbol-at-point)))
         (funcall (pcase sym
                    ((pred facep)           #'find-face)
                    ((pred symbol-function) #'find-function)
                    (_                      #'find-variable))
                  sym))

Any particular reason you use ‘pcase’ here instead of ‘cond’?

-- 
Thien-Thi Nguyen
   GPG key: 4C807502
   (if you're human and you know it)
      read my lisp: (responsep (questions 'technical)
                               (not (via 'mailing-list)))
                     => nil