Function: calc-user-function-list

calc-user-function-list is a byte-compiled function defined in calc-ext.el.gz.

Signature

(calc-user-function-list MAP FLAGS)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-ext.el.gz
	(t 4)))   ; other

(defun calc-user-function-list (map flags)
  (and map
       (let* ((key (car (car map)))
	      (kind (calc-user-function-classify key))
	      (func (cdr (car map))))
	 (if (or (= (logand kind flags) 0)
		 (not (symbolp func)))
	     ()
	   (let* ((name (symbol-name func))
		  (name (if (string-match "\\`calc-" name)
			    (substring name 5) name))
		  (pos (string-match (char-to-string key) name))
		  (desc
		   (if (symbolp func)
		       (if (= (logand kind 3) 0)
			   (format-message "`%c' = %s" key name)
			 (if pos
			     (format "%s%c%s"
				     (downcase (substring name 0 pos))
				     (upcase key)
				     (downcase (substring name (1+ pos))))
			   (format "%c = %s"
				   (upcase key)
				   (downcase name))))
		     (char-to-string (upcase key)))))
	     (if (= (length calc-z-prefix-buf) 0)
		 (setq calc-z-prefix-buf (concat (if (= flags 1) "SHIFT + " "")
				   desc))
	       (if (> (+ (length calc-z-prefix-buf) (length desc)) 58)
		   (setq calc-z-prefix-msgs
                         (cons calc-z-prefix-buf calc-z-prefix-msgs)
			 calc-z-prefix-buf (concat (if (= flags 1) "SHIFT + " "")
				     desc))
		 (setq calc-z-prefix-buf (concat calc-z-prefix-buf ", " desc))))))
	 (calc-user-function-list (cdr map) flags))))