ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/gnus/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/gnus/score-mode.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require mm-util gnus-util] 2)
#@51 *Hook run at the end of closing the score buffer.
(defvar gnus-score-edit-done-hook nil (#$ . -481))
#@34 *Hook run in score mode buffers.
(defvar gnus-score-mode-hook nil (#$ . -588))
#@47 *Hook run after creating the score mode menu.
(defvar gnus-score-menu-hook nil (#$ . -673))
#@45 Function run on exit from the score buffer.
(defvar gnus-score-edit-exit-function nil (#$ . 771))
(defvar gnus-score-mode-map (byte-code "\302 \303 \"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210)\207" [map emacs-lisp-mode-map make-sparse-keymap set-keymap-parent define-key "" gnus-score-edit-exit "" gnus-score-edit-insert-date "" gnus-score-pretty-print] 4))
#@42 Syntax table used in score-mode buffers.
(defvar score-mode-syntax-table (byte-code "\302!\303\304\305 #\210 )\207" [lisp-mode-syntax-table table copy-syntax-table modify-syntax-entry 124 "w"] 4) (#$ . 1161))
(defvar score-mode-coding-system mm-universal-coding-system)
#@162 Hook run after entering Score mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar gnus-score-mode-hook nil (#$ . 1440))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp gnus-score-mode-map put definition-name gnus-score-mode] 4)
(defvar gnus-score-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [gnus-score-mode-map variable-documentation put purecopy "Keymap for `gnus-score-mode'." boundp gnus-score-mode-syntax-table definition-name gnus-score-mode] 5)
(defvar gnus-score-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [gnus-score-mode-syntax-table variable-documentation put purecopy "Syntax table for `gnus-score-mode'." gnus-score-mode-abbrev-table definition-name gnus-score-mode] 5)
(defvar gnus-score-mode-abbrev-table (progn (define-abbrev-table 'gnus-score-mode-abbrev-table nil) gnus-score-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [gnus-score-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `gnus-score-mode'." gnus-score-mode derived-mode-parent emacs-lisp-mode] 5)
#@267 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 step
during initialization.
(defalias 'gnus-score-mode #[nil "\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 \2036
\321 =\203< \322\f\323 \"\210)\324 \325\"\204V =\204V \326 \325 C#\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 parent 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 gnus-score-mode-abbrev-table local-abbrev-table] 6 (#$ . 2761) nil])
(defalias 'gnus-score-make-menu-bar #[nil "\301\302!?\205 \303\304!\210\305\302\306\307$\210\310\311!\207" [gnus-score-mode-map boundp gnus-score-menu (lambda (#1=#:def-tmp-var) (defvar gnus-score-menu #1# #2="")) nil easy-menu-do-define #2# ("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 #[nil "\300\301\302 !p\"\207" [princ time-to-days current-time] 3 (#$ . 4268) nil])
#@32 Format the current score file.
(defalias 'gnus-score-pretty-print #[nil "eb\210\303p!\304 \210 \305!\210*eb\207" [form score-mode-syntax-table emacs-lisp-mode-syntax-table read erase-buffer gnus-pp] 2 (#$ . 4430) nil])
#@30 Stop editing the score file.
(defalias 'gnus-score-edit-exit #[nil "\304\305\306 !!\204 \307\305\306 !\310\"\210\311 \210)\312p!\210p \203$ \210\np=\205/ \313\314p!!)\207" [score-mode-coding-system coding-system-for-write buf 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] 3 (#$ . 4658) nil])
(provide 'score-mode)
Kontol Shell Bypass