Re: [External] : Emacs website, Lisp, and other

[Emanuel Berg <incal@dataswamp.org>]

Here is some more stats and data on this.

30 434 functions, see random 100 sample below.

Fun fact: Only 1.5% functions are from cl-lib.

(require 'cl-lib)

(defvar funs)
(defvar cl-funs)
(defvar funs-len)
(defvar cl-funs-len)

(mapatoms (lambda (e) (when (functionp e) (cl-pushnew e funs))))
(setq funs-len (length funs))
(setq cl-funs
  (cl-remove-if-not (lambda (e) (eq 0 (string-match "cl-" (symbol-name e)))) funs))
(setq cl-funs-len (length cl-funs))

(defvar oh)
(let ((len (length funs)))
  (setq oh nil)
  (dotimes (_ 100)
    (push (nth (random len) funs) oh)))

(progn
  (insert
    (format "\n\ncl-funs: %d of %d, %.1f%%\n"
            cl-funs-len
            funs-len
            (* 100 (/ cl-funs-len funs-len 1.0))))

  (let ((beg (point)))
    (dolist (o oh)
      (insert (format ";; %s\n" o)))
    (sort-region nil beg (point-max))))

cl-funs: 442 of 30 434, 1.5%

;; ad-has-proper-definition
;; advice--make
;; article-date-iso8601
;; byte-compile-indent-to
;; byte-compile-log-file
;; c-c++-vsemi-p
;; c-electric-brace
;; c-forward-decl-arglist
;; c-partial-ws-p
;; checkdoc-interactive-loop
;; class-of
;; color-xyz-to-xyy
;; debug--variable-list
;; default-boundp
;; delete-region
;; display-buffer-other-frame
;; doc-view-initiate-display
;; ediff-patch-file
;; epa-info-mode
;; epg-key-sub-key-list--cmacro
;; erc-modified-channels-object
;; erc-subseq
;; eshell-mode-hook-f
;; files--ask-user-about-large-file-help-text
;; follow-delete-other-windows-and-split
;; font-lock-debug-fontify
;; gnus-all-score-files
;; gnus-cite-delete-overlays
;; gnus-convert-article-to-rmail
;; gnus-dribble-clear
;; gnus-group-description-apropos
;; gnus-group-update-eval-form
;; gnus-html-cache-expired
;; gnus-message-citation-mode
;; gnus-method-to-server
;; gnus-summary-limit-to-recipient
;; gnus-summary-next-page
;; gnus-summary-show-article-from-menu-as-charset-ibm775
;; hack-connection-local-variables
;; image-dired-jump-thumbnail-buffer
;; image-transform-fit-to-width
;; imap-message-flags-add
;; info-goto-top
;; info-xref-check-all-custom
;; isearch-message
;; isearch-unread
;; ld-script-mode
;; mail-bury
;; mail-mail-followup-to
;; mail-source-start-idle-timer
;; make-face-x-resource-internal
;; make-temp-file-internal
;; map-charset-chars
;; markdown-match-bold
;; markdown-promote
;; menu-bar-left-scroll-bar
;; mh-goto-header-end
;; mh-junk-allowlist-a-msg
;; mh-uncompface
;; mhtml--submode-syntax-table
;; minibuffer-force-complete
;; mm-encode-body
;; mode-line-toggle-modified
;; mouse-set-mark-fast
;; nntp-wait-for
;; nsm-check-tls-connection
;; org-babel-describe-bindings
;; org-babel-edit-prep:emacs-lisp
;; org-decode-time
;; org-force-cycle-archived
;; outline-hide-sublevels
;; package-install-from-archive
;; pcomplete-completions-at-point
;; pcomplete-opt
;; puny-encode-string
;; quote-ref
;; remember-notes
;; scroll-other-window-down
;; set-face-background
;; shell-command-guess-mailcap
;; slime--compile-hotspots
;; slime-autodoc--cache-get
;; slime-prin1-to-string
;; speedbar-buffers-tail-notes
;; speedbar-frame-mode
;; subed--post-command-handler
;; subed-backward-subtitle-text
;; subed-copy-player-pos-to-stop-time
;; subed-jump-to-subtitle-text
;; tab-bar--undefine-keys
;; tab-select
;; vc-bzr-find-revision
;; vc-git-conflicted-files
;; vc-hg-pull
;; w3m-check-refresh-attribute
;; w3m-cookie-retrieve
;; w3m-select-buffer-window-size
;; w3m-tab-drag-mouse-function
;; window-full-height-p
;; xref-find-references-and-replace

-- 
underground experts united
https://dataswamp.org/~incal