;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'picture) (defvar quarter-plane-mode-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\307#\210\302\310\311#\210\302\312\313#\210)\207" [map make-sparse-keymap define-key [remap right-char] picture-forward-column [remap forward-char] [remap previous-line] picture-move-up [remap next-line] picture-move-down [remap mouse-set-point] picture-mouse-set-point] 4)) (defvar quarter-plane-saved-values nil) (make-variable-buffer-local 'quarter-plane-saved-values) #@105 Non-nil if Quarter-Plane mode is enabled. Use the command `quarter-plane-mode' to change this variable. (defvar quarter-plane-mode nil (#$ . 576)) (make-variable-buffer-local 'quarter-plane-mode) #@493 Toggle Quarter-Plane mode on or off. Interactively, with no prefix argument, toggle the mode. With universal prefix ARG turn mode on. With zero or negative ARG turn mode off. Use point movement commands that act as if the text extended infinitely down and to the right, inserting spaces as necessary. Excess whitespace is trimmed when saving or exiting Quarter-Plane mode. Because it works by inserting spaces, Quarter-Plane mode won't work in read-only buffers. \{quarter-plane-mode-map} (defalias 'quarter-plane-mode #[(&optional arg) "\306  \307=\203\n?\202 \247\203 \310W\203\311\202\312\313\303!\2032\314\302 \"\n\2032\302 B\315\316\317\312#\210\f\311\211\211 \203V @\211@ AL\210 A\211 \204C*\n\203\217\320\316\317\311\312$\210\320\321\322\311\312$\210\323\311\211 \203\216 @\211@ @JB\fB @ AL\210 A\211 \204r*\324\325\n\203\231\326\202\232\327\"\210\330\331!\203\301\306 \203\256\306 \232\203\301\332!\333\334\n\203\273\335\202\274\336!#\210))\337 \210\n\207" [#1=#:last-message arg quarter-plane-mode local-minor-modes quarter-plane-saved-values symval current-message toggle 1 nil t boundp delq remove-hook before-save-hook quarter-plane-delete-whitespace add-hook change-major-mode-hook #[nil "\300\301!\207" [quarter-plane-mode -1] 2] ((truncate-lines . t) (show-trailing-whitespace)) run-hooks quarter-plane-mode-hook quarter-plane-mode-on-hook quarter-plane-mode-off-hook called-interactively-p any " in current buffer" message "Quarter-Plane mode %sabled%s" "en" "dis" force-mode-line-update --dolist-tail-- local] 6 (#$ . 779) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar quarter-plane-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\310\211%\210\303\314\315\316#\207" [quarter-plane-mode-map quarter-plane-mode-hook variable-documentation put "Hook run after entering or leaving `quarter-plane-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode quarter-plane-mode " Plane" global-quarter-plane-mode globalized-minor-mode t] 6) (defvar quarter-plane-mode-major-mode nil nil) (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315& \207" [make-variable-buffer-local quarter-plane-mode-major-mode custom-declare-variable global-quarter-plane-mode nil "Non-nil if Global Quarter-Plane mode is enabled.\nSee the `global-quarter-plane-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 `global-quarter-plane-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group picture] 12) #@356 Toggle Quarter-Plane mode in all buffers. With prefix ARG, enable Global Quarter-Plane mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. Quarter-Plane mode is enabled in all buffers where `quarter-plane-mode' would do it. See `quarter-plane-mode' for more information on Quarter-Plane mode. (defalias 'global-quarter-plane-mode #[(&optional arg) "\306 \307\303 \310=\203\311\303!?\202\" \247\203! \312W\203!\313\202\"\314\"\210\315\302!\2039\316\303\n\"\311\303!\2039\303\nB \203O\317\320\321\"\210\317\322\323\"\210\317\324\325\"\210\202^\326\320\321\"\210\326\322\323\"\210\326\324\325\"\210\327 \313\211\203\211 @r\fq\210 \203x\330 \210\202\201\203\201\330\331!\210) A\211\204g*\332\333\311\303!\203\226\334\202\227\335\"\210\336\337!\203\304\340\303!\210\306 \203\257\306 \232\203\304\341'\342\343\311\303!\203\276\344\202\277\345'#\210))\346 \210\311\303!\207" [#1=#:last-message arg global-minor-modes global-quarter-plane-mode buf --dolist-tail-- current-message set-default toggle default-value 1 nil t boundp delq add-hook after-change-major-mode-hook global-quarter-plane-mode-enable-in-buffers find-file-hook global-quarter-plane-mode-check-buffers change-major-mode-hook global-quarter-plane-mode-cmhh remove-hook buffer-list quarter-plane-mode -1 run-hooks global-quarter-plane-mode-hook global-quarter-plane-mode-on-hook global-quarter-plane-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Quarter-Plane mode %sabled%s" "en" "dis" force-mode-line-update local] 5 (#$ . 3670) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar global-quarter-plane-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [global-quarter-plane-mode-map global-quarter-plane-mode-hook variable-documentation put "Hook run after entering or leaving `global-quarter-plane-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode global-quarter-plane-mode boundp] 6) (defvar quarter-plane-mode-set-explicitly nil nil) (make-variable-buffer-local 'quarter-plane-mode-set-explicitly) (defalias 'quarter-plane-mode-set-explicitly #[nil "\301\211\207" [quarter-plane-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put quarter-plane-mode-set-explicitly definition-name global-quarter-plane-mode add-hook quarter-plane-mode-hook] 4) (defvar global-quarter-plane-mode-buffers nil) (defalias 'global-quarter-plane-mode-enable-in-buffers #[nil "\306 \306\211\205B @\307\n!\203:r\nq\210\f\2046 \n=\2046\2033\310\311!\210\310 \210\2026\310 \210\n) A\211\204\f\306+\207" [global-quarter-plane-mode-buffers buffers buf --dolist-tail-- quarter-plane-mode-set-explicitly quarter-plane-mode-major-mode nil buffer-live-p quarter-plane-mode -1 major-mode] 3]) (put 'global-quarter-plane-mode-enable-in-buffers 'definition-name 'global-quarter-plane-mode) (defalias 'global-quarter-plane-mode-check-buffers #[nil "\300 \210\301\302\303\"\207" [global-quarter-plane-mode-enable-in-buffers remove-hook post-command-hook global-quarter-plane-mode-check-buffers] 3]) (put 'global-quarter-plane-mode-check-buffers 'definition-name 'global-quarter-plane-mode) (defalias 'global-quarter-plane-mode-cmhh #[nil "p\211 \235\204\f B)\302\303\304\"\207" [#1=#:x global-quarter-plane-mode-buffers add-hook post-command-hook global-quarter-plane-mode-check-buffers] 4]) (put 'global-quarter-plane-mode-cmhh 'definition-name 'global-quarter-plane-mode) #@67 Call `delete-trailing-whitespace' if the buffer is not read-only. (defalias 'quarter-plane-delete-whitespace #[nil "?\205\301 \207" [buffer-read-only delete-trailing-whitespace] 1 (#$ . 7439)]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook quarter-plane-mode-off-hook quarter-plane-delete-whitespace provide quarter-plane] 3)