;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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\302\303\304\305%\210\306\307\310\311\304\301\312\313&\210\306\314\315\316\304\301\312\317&\207" [custom-declare-group expand-region nil "Increase selected region by semantic units." :group tools custom-declare-variable expand-region-preferred-python-mode 'python "The name of your preferred python mode" :type (choice (const :tag "Emacs' python.el" 'python) (const :tag "fgallina's python.el" 'fgallina-python) (const :tag "python-mode.el" 'python-mode)) expand-region-guess-python-mode t "If expand-region should attempt to guess your preferred python mode" (choice (const :tag "Guess" t) (const :tag "Do not guess" nil))] 8) #@41 Guess the user's preferred python mode. (defalias 'expand-region-guess-python-mode #[nil "\301\302!\203\n\303\202 \304\211\207" [expand-region-preferred-python-mode fboundp python-setup-brm python fgallina-python] 2 (#$ . 1058)]) (byte-code "\302\303\304\305\306\307\310\311&\210\302\312\313\314\306\307\310\315&\210\302\316\313\317\306\307\310\320&\210\302\321\322\323\306\307\310\311&\210\302\324\325\326\306\307\310\311&\210\302\327\330\331\306\307\310\332&\210\302\333\334\335\306\307\310\336&\210\337\340\341\334#\210\342\334\211\203y @\340N\203r\341N\204r\343\341\340N#\210 A\211\204[*\344\340\341\345#\210\302\341\334\346\306\307\310\347&\210\350\351!\207" [prop --dolist-tail-- custom-declare-variable expand-region-autocopy-register "" "If set to a string of a single character (try \"e\"), then the\ncontents of the most recent expand or contract command will\nalways be copied to the register named after that character." :group expand-region :type string expand-region-skip-whitespace t "If expand-region should skip past whitespace on initial expansion" (choice (const :tag "Skip whitespace" t) (const :tag "Do not skip whitespace" nil)) expand-region-fast-keys-enabled "If expand-region should bind fast keys after initial expand/contract" (choice (const :tag "Enable fast keys" t) (const :tag "Disable fast keys" nil)) expand-region-contract-fast-key "-" "Key to use after an initial expand/contract to contract once more." expand-region-reset-fast-key "0" "Key to use after an initial expand/contract to undo." expand-region-exclude-text-mode-expansions '(html-mode nxml-mode) "List of modes which derive from `text-mode' for which text mode expansions are not appropriate." (repeat (symbol :tag "Major Mode" unknown)) expand-region-smart-cursor nil "Defines whether the cursor should be placed intelligently after expansion.\n\nIf set to t, and the cursor is already at the beginning of the new region,\nkeep it there; otherwise, put it at the end of the region.\n\nIf set to nil, always place the cursor at the beginning of the region." (choice (const :tag "Smart behaviour" t) (const :tag "Standard behaviour" nil)) defvaralias er/enable-subword-mode\? expand-region-subword-enabled (saved-value saved-variable-comment) put make-obsolete-variable "2019-03-23" "Whether expand-region should use subword expansions." (choice (const :tag "Enable subword expansions" t) (const :tag "Disable subword expansions" nil)) provide expand-region-custom] 9)