;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable glyphless-mode-types funcall function #[0 "\300\207" [(all)] 1 ""] "Which glyphless characters to display.\nThe value can be any of the groups supported by\n`glyphless-char-display-control' (which see), and in addition\n`all', for all glyphless characters." :version "29.1" :type (repeat (choice (const :tag "All" all) (const :tag "No font" no-font) (const :tag "C0 Control" c0-control) (const :tag "C1 Control" c1-control) (const :tag "Format Control" format-control) (const :tag "Bidirectional Control" bidi-control) (const :tag "Variation Selectors" variation-selectors) (const :tag "No Font" no-font))) :group display] 10)#@113 Non-nil if Glyphless-Display mode is enabled. Use the command `glyphless-display-mode' to change this variable. (defvar glyphless-display-mode nil (#$ . 806)) (make-variable-buffer-local 'glyphless-display-mode)#@733 Minor mode for displaying glyphless characters in the current buffer. If enabled, all glyphless characters will be displayed as boxes that display their acronyms. This is a minor mode. If called interactively, toggle the `Glyphless-Display mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `glyphless-display-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'glyphless-display-mode #[256 "\303 \304=\203 ?\202\247\203\305W\203\306\202\307\310\301!\2031\311\300 \"\2031\300 B\203J\312\302!\210\313 \314\n\"\210\211\262\315 \210\202N\316\302!\210\317\320\203X\321\202Y\322\"\210\323\324!\203|\303 \203m\211\303 \232\203|\325\326\327\203x\330\202y\331\332$\210\210\333 \210\207" [glyphless-display-mode local-minor-modes glyphless-char-display current-message toggle 1 nil t boundp delq make-local-variable make-display-table set-char-table-parent glyphless-mode--setup kill-local-variable run-hooks glyphless-display-mode-hook glyphless-display-mode-on-hook glyphless-display-mode-off-hook called-interactively-p any message "%s %sabled%s" "Glyphless-Display mode" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 1024) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar glyphless-display-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\207" [glyphless-display-mode-map glyphless-display-mode-hook variable-documentation put "Hook run after entering or leaving `glyphless-display-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode glyphless-display-mode " Glyphless" boundp] 6) (defalias 'glyphless-mode--setup #[0 "\301>\203\n\302\202 \211\205\303\304\305\306\"\"\207" [glyphless-mode-types all (c0-control c1-control format-control variation-selectors no-font) update-glyphless-char-display nil mapcar #[257 "\211\300B\207" [acronym] 3 "\n\n(fn E)"]] 6]) (provide 'glyphless-mode)