Lines Matching +defs:print +defs:function
129 Just like the Common Lisp function of the same name."
184 (put 'eval-in-buffer 'lisp-indent-function 1)
196 (put 'eval-in-window 'lisp-indent-function 1)
215 (put 'eval-in-window 'lisp-indent-function 0)
243 "Evaluates the function or list associated with a mouse hit.
275 ;; since this function should be transparent.
423 (mapcar (function (lambda (x)
430 (function (lambda (x)
480 (defun mouse-code-function-pairs-of-region (region)
481 "Return a list of (code . function) pairs, where each code is
493 ;;; Still need a good procedure to print out a help sheet in readable format.
496 (defun one-line-doc-string (function)
500 (while (consp function) (setq function (car function)))
501 (let ((doc (documentation function)))
507 (defun print-mouse-format (binding)
510 (mapcar (function
521 (defun print-mouse-bindings (region)
523 (mapcar 'print-mouse-format (sm::event-bindings region)))
526 "Returns an alist of (function . (mouse-list1 ... mouse-listN)) for REGION,
527 where each mouse-list is bound to the function in REGION."
528 (let ((mouse-bindings (mouse-code-function-pairs-of-region region))
531 (let* ((code-function-pair (car mouse-bindings))
532 (current-entry (assoc (cdr code-function-pair) result)))
535 (cons (mouse-code-to-mouse-list (car code-function-pair))
537 (setq result (cons (cons (cdr code-function-pair)
539 (car code-function-pair))))
551 (print-mouse-bindings 'text) (terpri)
554 (print-mouse-bindings 'modeline) (terpri)
557 (print-mouse-bindings 'scrollbar)))
560 "Print a short description of the function bound to MOUSE-LIST."
562 (let ((function (mouse-lookup (mouse-list-to-mouse-code mouse-list))))
563 (if function
564 (message "%s runs the command %s" mouse-list function)
567 (defun mouse-help-menu (function-and-binding)
568 (cons (prin1-to-string (car function-and-binding))
570 (list (list (one-line-doc-string (car function-and-binding)))
571 (list (prin1-to-string (cdr function-and-binding)))))))
576 (mlist (mapcar (function mouse-help-menu)
645 "If sunfns.c uses <Menu_Base_Kludge> this function must be here!"