;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\312\313\314&\210\303\315\305\306\316DD\317\311\312\313\314&\210\303\320\305\306\321DD\322\311\312\313\314&\207" [require mm-util gnus-util custom-declare-variable gnus-score-edit-done-hook funcall function #[0 "\300\207" [nil] 1 #1=""] "Hook run at the end of closing the score buffer." :group gnus-score :type hook gnus-score-mode-hook #[0 "\300\207" [nil] 1 #1#] "Hook run in score mode buffers." gnus-score-menu-hook #[0 "\300\207" [nil] 1 #1#] "Hook run after creating the score mode menu."] 8)#@45 Function run on exit from the score buffer. (defvar gnus-score-edit-exit-function nil (#$ . 654)) (defvar gnus-score-mode-map (define-keymap :parent emacs-lisp-mode-map "C-c C-c" 'gnus-score-edit-exit "C-c C-d" 'gnus-score-edit-insert-date "C-c C-p" 'gnus-score-pretty-print))#@42 Syntax table used in score-mode buffers. (defvar score-mode-syntax-table (byte-code "\301!\302\303\304#\210\207" [lisp-mode-syntax-table copy-syntax-table modify-syntax-entry 124 "w"] 5) (#$ . 936)) (defvar score-mode-coding-system mm-universal-coding-system) (defvar gnus-score-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [gnus-score-mode-hook variable-documentation put "Hook run after entering Score mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp gnus-score-mode-map definition-name gnus-score-mode] 4) (defvar gnus-score-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" [gnus-score-mode-abbrev-table gnus-score-mode-map variable-documentation put purecopy "Keymap for `gnus-score-mode'." boundp gnus-score-mode-syntax-table definition-name gnus-score-mode defvar-1 nil make-syntax-table "Syntax table for `gnus-score-mode'." define-abbrev-table "Abbrev table for `gnus-score-mode'." derived-mode-parent emacs-lisp-mode] 5)#@282 Mode for editing Gnus score files. This mode is an extended emacs-lisp mode. \{gnus-score-mode-map} In addition to any hooks its parent mode `emacs-lisp-mode' might have run, this mode runs the hook `gnus-score-mode-hook', as the final or penultimate step during initialization. (defalias 'gnus-score-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 \331 \210\306\332!)\210\333\334!\207" [delay-mode-hooks major-mode mode-name gnus-score-mode-map gnus-score-mode-syntax-table gnus-score-mode-abbrev-table make-local-variable t emacs-lisp-mode gnus-score-mode "Score" 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 gnus-score-make-menu-bar gnus-score-edit-exit-function run-mode-hooks gnus-score-mode-hook local-abbrev-table] 5 (#$ . 2345) nil]) (defalias 'gnus-score-make-menu-bar #[0 "\301\302!?\205\303\302\304\305#\210\306\302\305\307$\210\310\311!\207" [gnus-score-mode-map boundp gnus-score-menu defvar-1 nil "" easy-menu-do-define ("Score" ["Exit" gnus-score-edit-exit t] ["Insert date" gnus-score-edit-insert-date t] ["Format" gnus-score-pretty-print t]) run-hooks gnus-score-menu-hook] 5])#@34 Insert date in numerical format. (defalias 'gnus-score-edit-insert-date #[0 "\300\301\302!p\"\207" [princ time-to-days nil] 3 (#$ . 3809) [nil (gnus-score-mode)]])#@32 Format the current score file. (defalias 'gnus-score-pretty-print #[0 "eb\210\302p!\303 \210\304!)\266eb\207" [score-mode-syntax-table emacs-lisp-mode-syntax-table read erase-buffer gnus-pp] 3 (#$ . 3978) [nil (gnus-score-mode)]])#@30 Stop editing the score file. (defalias 'gnus-score-edit-exit #[0 "\303\304\305 !!\204\306\304\305 !\307\"\210\310 )\210\311p!\210p\n\203#\n \210\211p=\205.\312\313p!!\207" [score-mode-coding-system coding-system-for-write gnus-score-edit-exit-function file-exists-p file-name-directory buffer-file-name make-directory t save-buffer bury-buffer switch-to-buffer other-buffer] 4 (#$ . 4218) [nil (gnus-score-mode)]]) (provide 'score-mode)