;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require multiple-cursors-core mc-mark-more] 2) #@61 Keymap for hide unmatched lines is mainly for rebinding C-g (defvar hum/hide-unmatched-lines-mode-map (make-sparse-keymap) (#$ . 175)) (byte-code "\301\302\303#\210\301\304\303#\207" [hum/hide-unmatched-lines-mode-map define-key "" hum/keyboard-quit [return]] 4) #@33 Leave hide-unmatched-lines mode (defalias 'hum/keyboard-quit #[nil "\300\301!\207" [mc-hide-unmatched-lines-mode 0] 2 (#$ . 447) nil]) (defalias 'hum/disable-hum-mode #[nil "\300\301!\207" [mc-hide-unmatched-lines-mode 0] 2]) #@125 Non-nil if Mc-Hide-Unmatched-Lines mode is enabled. Use the command `mc-hide-unmatched-lines-mode' to change this variable. (defvar mc-hide-unmatched-lines-mode nil (#$ . 680)) (make-variable-buffer-local 'mc-hide-unmatched-lines-mode) #@855 Minor mode when enabled hides all lines where no cursors (and also hum/lines-to-expand below and above) To make use of this mode press "C-'" while multiple-cursor-mode is active. You can still edit lines while you are in mc-hide-unmatched-lines mode. To leave this mode press or "C-g" This is a minor mode. If called interactively, toggle the `Mc-Hide-Unmatched-Lines mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `mc-hide-unmatched-lines-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'mc-hide-unmatched-lines-mode #[(&optional arg) "\305  \306=\203\n?\202 \247\203 \307W\203\310\202\311\312\303!\2032\313\302 \"\n\2032\302 B\n\203C\314 \210\315\316\317\311\211$\210\202K\320 \210\321\316\317\"\210\322\323\n\203U\324\202V\325\"\210\326\327!\203{\305 \203j\305 \232\203{\330\331\332\n\203v\333\202w\334\f#\210))\335 \210\n\207" [#1=#:last-message arg mc-hide-unmatched-lines-mode local-minor-modes local current-message toggle 1 nil t boundp delq hum/hide-unmatched-lines add-hook multiple-cursors-mode-disabled-hook hum/disable-hum-mode hum/unhide-unmatched-lines remove-hook run-hooks mc-hide-unmatched-lines-mode-hook mc-hide-unmatched-lines-mode-on-hook mc-hide-unmatched-lines-mode-off-hook called-interactively-p any " in current buffer" message "Mc-Hide-Unmatched-Lines mode %sabled%s" "en" "dis" force-mode-line-update] 5 (#$ . 923) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar mc-hide-unmatched-lines-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%\207" [hum/hide-unmatched-lines-mode-map mc-hide-unmatched-lines-mode-hook variable-documentation put "Hook run after entering or leaving `mc-hide-unmatched-lines-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 mc-hide-unmatched-lines-mode " hu"] 6) (defconst hum/invisible-overlay-name 'hum/invisible-overlay-name) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\207" [custom-declare-variable hum/lines-to-expand 2 "How many lines below and above cursor to show" :type (integer) :group multiple-cursors hum/placeholder "..." "Placeholder which will be placed insted of hiden text" (string)] 8) (defalias 'hum/add-invisible-overlay #[(begin end) "\305 p\306\307%\310\n \306#\210\310\n\311\306#\210\310\n\312\306#\210\310\n\313\306#\210\310\n\314\f#)\207" [begin end overlay hum/invisible-overlay-name hum/placeholder make-overlay t nil overlay-put invisible intangible evaporate after-string] 6]) (defalias 'hum/hide-unmatched-lines #[nil "e\302\303 \304\"\305\306\307\310ed\"\311\"\"\210\312\313 !!\210)\314d\")\207" [begin #1=#:real-cursor-id overlay-get mc/create-fake-cursor-at-point mc-id mapc #[(cursor) "\303!\205%\212\304!b\210 \305\n[!W\203\306 \307\n[!\"\210\305\310\n\\!\211)\207" [cursor begin hum/lines-to-expand mc/fake-cursor-p mc/cursor-beg line-beginning-position hum/add-invisible-overlay line-end-position 2] 4] sort overlays-in mc--compare-by-overlay-start mc/pop-state-from-overlay mc/cursor-with-id hum/add-invisible-overlay] 6]) (defalias 'hum/unhide-unmatched-lines #[nil "\301\302\211\303$\207" [hum/invisible-overlay-name remove-overlays nil t] 5]) (byte-code "\301\302!\210\303\304\302#\207" [mc/keymap provide mc-hide-unmatched-lines-mode define-key [67108903]] 4)