;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require subr-x custom-declare-group emacs-authors-mode nil "Display the \"etc/AUTHORS\" file from the Emacs distribution." :version "29.1" :group internal] 8) (custom-declare-face 'emacs-authors-default '((t :inherit variable-pitch)) "Default face used to display the \"etc/AUTHORS\" file.\nSee also `emacs-authors-mode'." :version "29.1") (custom-declare-face 'emacs-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 `emacs-authors-mode'." :version "29.1") (custom-declare-face 'emacs-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 `emacs-authors-mode'." :version "29.1") (custom-declare-face 'emacs-authors-other-files '((t :inherit emacs-authors-descriptor)) "Face used for the \"other files\" text in the \"etc/AUTHORS\" file.\nSee also `emacs-authors-mode'." :version "29.1")#@45 Regexp matching an author in "etc/AUTHORS". (defconst emacs-authors--author-re "^\\([^\n[:blank:]][^\n:]+?\\):" (#$ . 1681)) (defvar emacs-authors-mode-font-lock-keywords (byte-code "\301B\302\303B\304\305B\306\307BF\207" [emacs-authors--author-re (1 'emacs-authors-author) "wrote\\|\\(?:and \\)?\\(?:c\\(?:hanged\\|o-wrote\\)\\)" (0 'emacs-authors-descriptor) "and [[:digit:]]+ other files" (0 'emacs-authors-other-files) "^[^[:space:]].+$" (0 'emacs-authors-default)] 5))#@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 'emacs-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" [emacs-authors--author-re 0 looking-at 1 re-search-forward nil t -1 re-search-backward abs line-beginning-position] 7 (#$ . 2162) ["p" (emacs-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 'emacs-authors-prev-author #[256 "\300[!\207" [emacs-authors-next-author] 3 (#$ . 2616) ["p" (emacs-authors-mode)]]) (defvar emacs-authors-imenu-generic-expression (byte-code "\300\301\302BBC\207" [nil "^\\([^:]+\\): \\(?:c\\(?:hanged\\|o-wrote\\)\\|wrote\\) " (1)] 3)) (byte-code "\300\301\302\303#\210\304\211\203(\211@\301N\203!\302N\204!\305\302\301N#\210A\266\202\202\210\306\301\302\307#\207" [defvaralias etc-authors-mode-map emacs-authors-mode-map nil (saved-value saved-variable-comment) put make-obsolete-variable "29.1"] 7)#@34 Keymap for `emacs-authors-mode'. (defvar emacs-authors-mode-map (define-keymap "n" 'emacs-authors-next-author "p" 'emacs-authors-prev-author) (#$ . 3311)) (defvar emacs-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" [emacs-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 emacs-authors-mode-map definition-name emacs-authors-mode] 4) (defvar emacs-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\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\321#\207" [emacs-authors-mode-abbrev-table emacs-authors-mode-map variable-documentation put purecopy "Keymap for `emacs-authors-mode'." boundp emacs-authors-mode-syntax-table definition-name emacs-authors-mode defvar-1 nil make-syntax-table "Syntax table for `emacs-authors-mode'." define-abbrev-table "Abbrev table for `emacs-authors-mode'." derived-mode-parent special-mode] 5)#@326 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 `emacs-authors-mode-hook', as the final or penultimate step during initialization. \{emacs-authors-mode-map} (defalias 'emacs-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 \325%C#\210\327 !\210\330\f!\210 %\306\331!\210\332\333&'(\334 \210\306\335!\210\336\306\337!\210\307\306\340!\210\341 \342 )\210\343\344!\207" [delay-mode-hooks major-mode mode-name emacs-authors-mode-map emacs-authors-mode-syntax-table emacs-authors-mode-abbrev-table make-local-variable t special-mode emacs-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 (emacs-authors-mode-font-lock-keywords nil nil ((95 . "w"))) nil emacs-etc--hide-local-variables outline-regexp "[^\n:]+: \\(?:c\\(?:hanged\\|o-wrote\\)\\|wrote\\) " outline-minor-mode-cycle outline-level #[0 "\300\301!\203\302\207\303\207" [looking-at "^\\(?: \\|and \\(?:c\\(?:hanged\\|o-wrote\\)\\)\\|$\\)" 2 1] 2] outline-minor-mode run-mode-hooks emacs-authors-mode-hook local-abbrev-table font-lock-multiline emacs-authors-imenu-generic-expression imenu-generic-expression] 5 (#$ . 4653) nil]) (byte-code "\300\301\302\303#\210\300\301\304\305\306!\206\307#\210\300\310\302\311#\210\300\310\304\305\306!\206\"\307#\210\300\312\302\313#\210\300\312\304\305\306!\2064\307#\210\300\314\302\315#\210\300\314\304\305\306!\206F\307#\210\316\317\320\321#\210\322\317\320\306#\210\316\323\324\321#\210\322\323\324\306#\210\316\325\326\321#\210\322\325\326\306#\210\327\326!\207" [put etc-authors-default face-alias emacs-authors-default obsolete-face purecopy "29.1" t etc-authors-author emacs-authors-author etc-authors-descriptor emacs-authors-descriptor etc-authors-other-files emacs-authors-other-files defalias etc-authors-next-author emacs-authors-next-author nil make-obsolete etc-authors-prev-author emacs-authors-prev-author etc-authors-mode emacs-authors-mode provide] 5)