;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\304\305%\210\310\314\315\316\304\305%\210\310\317\320\321\304\305%\210\310\322\323\324\304\305%\207" [custom-declare-group etc-authors-mode nil "Display the \"etc/AUTHORS\" file from the Emacs distribution." :version "28.1" :group internal custom-declare-face etc-authors-default ((t :inherit variable-pitch)) "Default face used to display the \"etc/AUTHORS\" file.\nSee also `etc-authors-mode'." etc-authors-author ((((class color) (min-colors 88) (background light)) :foreground "midnight blue" :weight bold :height 1.05 :inherit variable-pitch) (((class color) (min-colors 88) (background dark)) :foreground "cyan" :weight bold :height 1.05 :inherit variable-pitch) (((supports :weight bold) (supports :height 1.05)) :weight bold :height 1.05 :inherit variable-pitch) (((supports :weight bold)) :weight bold :inherit variable-pitch) (t :inherit variable-pitch)) "Face used for the author in the \"etc/AUTHORS\" file.\nSee also `etc-authors-mode'." etc-authors-descriptor ((((class color) (min-colors 88) (background light)) :foreground "sienna" :inherit variable-pitch) (((class color) (min-colors 88) (background dark)) :foreground "peru" :inherit variable-pitch) (t :inherit variable-pitch)) "Face used for the description text in the \"etc/AUTHORS\" file.\nSee also `etc-authors-mode'." etc-authors-other-files ((t :inherit etc-authors-descriptor)) "Face used for the \"other files\" text in the \"etc/AUTHORS\" file.\nSee also `etc-authors-mode'."] 8) #@45 Regexp matching an author in "etc/AUTHORS". (defconst etc-authors--author-re "^\\([^\n[:blank:]][^\n:]+?\\):" (#$ . 1610)) (defvar etc-authors-mode-font-lock-keywords (byte-code "\301B\302\303B\304\305B\306\307BF\207" [etc-authors--author-re (1 'etc-authors-author) "wrote\\|\\(?:and \\)?\\(?:c\\(?:hanged\\|o-wrote\\)\\)" (0 'etc-authors-descriptor) "and [[:digit:]]+ other files" (0 'etc-authors-other-files) "^[^[:space:]].+$" (0 'etc-authors-default)] 5)) #@69 Hide local variables in "etc/AUTHORS". Used by `etc-authors-mode'. (defalias 'etc-authors-mode--hide-local-variables #[0 "e\212eb\210\300\301\302\303#\203\304y\210`\202d)}\207" [re-search-forward "^Local Variables:$" nil t -1] 5 (#$ . 2077)]) #@130 Move point to the next author in "etc/AUTHORS". With a prefix arg ARG, move point that many authors forward. (fn &optional ARG) (defalias 'etc-authors-next-author #[256 "\301W\203\302!\203\303y\210\304\305\306$\210\202+\302!\203\"\307y\210\310\305\306\311!$\210\312 b\207" [etc-authors--author-re 0 looking-at 1 re-search-forward nil t -1 re-search-backward abs line-beginning-position] 7 (#$ . 2332) ["p" (etc-authors-mode)]]) #@135 Move point to the previous author in "etc/AUTHORS". With a prefix arg ARG, move point that many authors backward. (fn &optional ARG) (defalias 'etc-authors-prev-author #[256 "\300[!\207" [etc-authors-next-author] 3 (#$ . 2781) ["p" (etc-authors-mode)]]) #@32 Keymap for `etc-authors-mode'. (defvar etc-authors-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\207" [make-sparse-keymap define-key "n" etc-authors-next-author "p" etc-authors-prev-author] 5) (#$ . 3043)) (defvar etc-authors-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [etc-authors-mode-hook variable-documentation put "Hook run after entering Authors View mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp etc-authors-mode-map definition-name etc-authors-mode] 4) (defvar etc-authors-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [etc-authors-mode-abbrev-table etc-authors-mode-map variable-documentation put purecopy "Keymap for `etc-authors-mode'." boundp etc-authors-mode-syntax-table definition-name etc-authors-mode (lambda (#1=#:def-tmp-var) (defvar etc-authors-mode-syntax-table #1#)) make-syntax-table "Syntax table for `etc-authors-mode'." (lambda (#1#) (defvar etc-authors-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `etc-authors-mode'." derived-mode-parent special-mode] 5) #@322 Major mode for viewing "etc/AUTHORS" from the Emacs distribution. Provides some basic font locking and not much else. In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `etc-authors-mode-hook', as the final or penultimate step during initialization. \{etc-authors-mode-map} (defalias 'etc-authors-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \306\331!\210\332\333 \334 \210)\335\336!\207" [delay-mode-hooks major-mode mode-name etc-authors-mode-map etc-authors-mode-syntax-table etc-authors-mode-abbrev-table make-local-variable t special-mode etc-authors-mode "Authors View" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table font-lock-defaults (etc-authors-mode-font-lock-keywords nil nil ((95 . "w"))) nil etc-authors-mode--hide-local-variables run-mode-hooks etc-authors-mode-hook local-abbrev-table font-lock-multiline] 5 (#$ . 4490) nil]) (provide 'etc-authors-mode)