;ELC ;;; Compiled ;;; in Emacs version 25.3.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@21 Guru mode's keymap. (defvar guru-mode-map (make-sparse-keymap) (#$ . 410)) #@48 When non-nil you'll only get an error message. (defvar guru-warn-only nil (#$ . 491)) (defvar guru-affected-bindings-list '(("" "C-b" left-char) ("" "C-f" right-char) ("" "C-p" previous-line) ("" "C-n" next-line) ("" "M-b" left-word) ("" "M-f" right-word) ("" "M-{" backward-paragraph) ("" "M-}" forward-paragraph) ("" "M-b" left-word) ("" "M-f" right-word) ("" "C-d" delete-forward-char) ("" "M-d" kill-word) ("" "C-v" scroll-up-command) ("" "C-x <" scroll-left) ("" "M-v" scroll-down-command) ("" "C-x >" scroll-right) ("" "C-a" move-beginning-of-line) ("" "C-e" move-end-of-line) ("" "M-<" beginning-of-buffer) ("" "M->" end-of-buffer))) #@66 Look up the current binding for KEY without guru-mode. (fn KEY) (defalias 'guru-current-key-binding #[257 "\300\301!\210\302\303!!\300\304!\210\207" [guru-mode -1 key-binding kbd 1] 4 (#$ . 1287)]) (defalias 'guru-rebind #[771 "\300\301\302\303\304#\305\"\306\307\211&\207" [make-byte-code 0 "\304\300!\211\302=\203( \203\305\202\306\307\310\300\301$\266 \205+\311\312\313\301!!!\202+\311!\207" vconcat vector [guru-warn-only guru-current-key-binding "discouraged" "disabled" message "%s keybinding is %s! Use <%s> instead" call-interactively key-binding kbd] 7 nil] 11 "\n\n(fn ORIGINAL-KEY ALT-KEY ORIGINAL-BINDING)"]) (byte-code "\211\203)\211@\211@A@AA@\302 \303@!\304##\266A\266\202\202\207" [guru-affected-bindings-list guru-mode-map define-key read-kbd-macro guru-rebind] 12) #@87 Non-nil if Guru mode is enabled. Use the command `guru-mode' to change this variable. (defvar guru-mode nil (#$ . 2111)) (make-variable-buffer-local 'guru-mode) #@77 A minor mode that teaches you to use Emacs effectively. (fn &optional ARG) (defalias 'guru-mode #[256 "\301 \302=\203 ?\202\303!\304V\305\306\203\307\202\310\"\210\311\312!\203B\301 \2032\211\301 \232\203B\313\314\315\203=\316\202>\317#\266\210\320 \210\207" [guru-mode current-message toggle prefix-numeric-value 0 run-hooks guru-mode-hook guru-mode-on-hook guru-mode-off-hook called-interactively-p any " in current buffer" message "Guru mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 2278) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@174 Hook run after entering or leaving `guru-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar guru-mode-hook nil (#$ . 2875)) (byte-code "\301\302\303\304\211%\207" [guru-mode-map add-minor-mode guru-mode " guru" nil] 6) (defvar guru-mode-major-mode nil) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317& \207" [make-variable-buffer-local guru-mode-major-mode custom-declare-variable guru-global-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Guru-Global mode is enabled.\nSee the `guru-global-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `guru-global-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group guru :type boolean] 12) #@321 Toggle Guru mode in all buffers. With prefix ARG, enable Guru-Global mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. Guru mode is enabled in all buffers where `guru-mode' would do it. See `guru-mode' for more information on Guru mode. (fn &optional ARG) (defalias 'guru-global-mode #[256 "\302 \303\300\304=\203\305\300!?\202\306!\307V\"\210\203.\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202=\317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203c\211@r\211q\210\203S\301 \210\202[ \203[\301\321!\210)A\266\202\202?\210\322\323\305\300!\203p\324\202q\325\"\210\326\327!\203\233\330\300!\210\302 \203\211\211\302 \232\203\233\331\332\333\305\300!\203\226\334\202\227\335#\266\210\336 \210\305\300!\207" [guru-global-mode guru-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook guru-global-mode-enable-in-buffers find-file-hook guru-global-mode-check-buffers change-major-mode-hook guru-global-mode-cmhh remove-hook buffer-list -1 run-hooks guru-global-mode-hook guru-global-mode-on-hook guru-global-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Guru-Global mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 3818) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@181 Hook run after entering or leaving `guru-global-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar guru-global-mode-hook nil (#$ . 5219)) (byte-code "\301\302\303\304\300!\205\n\303\211%\207" [guru-global-mode-map add-minor-mode guru-global-mode nil boundp] 6) (defvar guru-mode-set-explicitly nil nil) (make-variable-buffer-local 'guru-mode-set-explicitly) (defalias 'guru-mode-set-explicitly #[0 "\301\211\207" [guru-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put guru-mode-set-explicitly definition-name guru-global-mode add-hook guru-mode-hook] 4) (defvar guru-global-mode-buffers nil) (defalias 'guru-global-mode-enable-in-buffers #[0 "\211\2056\211@\305!\203/r\211q\210 \204,\n =\204,\f\203)\304\306!\210\304 \210\202,\304 \210 )A\266\202\202\207" [guru-global-mode-buffers guru-mode-set-explicitly guru-mode-major-mode major-mode guru-mode buffer-live-p -1] 4]) (put 'guru-global-mode-enable-in-buffers 'definition-name 'guru-global-mode) (defalias 'guru-global-mode-check-buffers #[0 "\301 \210\302\303\304\305\"\207" [guru-global-mode-buffers guru-global-mode-enable-in-buffers nil remove-hook post-command-hook guru-global-mode-check-buffers] 3]) (put 'guru-global-mode-check-buffers 'definition-name 'guru-global-mode) (defalias 'guru-global-mode-cmhh #[0 "p\211\235\204 \211B\210\301\302\303\"\207" [guru-global-mode-buffers add-hook post-command-hook guru-global-mode-check-buffers] 3]) (byte-code "\300\301\302\303#\210\304\305!\207" [put guru-global-mode-cmhh definition-name guru-global-mode provide guru-mode] 4)