 ;; and the other way around. The first three elements below are used to identify or find
 ;; the logger in question, the rest of the elements are returned back from Lisp, if logger
 ;; exists
-;; 
+;;
 ;; :package              STRING
 ;;
 ;;     Name of the logger's package

  "Find the package,file,and logger name at the site of the mouse click,
returning them in the plist form, suitable for Lisp side
EMACS-HELPER."
  (let* ((point (if (featurep 'xemacs) (event-point event) 
                  (posn-point (event-end event))))
         (window (if (featurep 'xemacs) (event-window event) (caadr event)))
         (buffer (window-buffer window))


This also can be used is same as as a better alternative to
default `add-log-current-defun-function' for CL code"
  (save-excursion
    (let ((location (point))
          name defp methodp type qualifiers specializers
          skipped-eql-p
