;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'web-mode) (defvar web-narrow-narrow-mode-map (make-sparse-keymap)) (defvar web-narrow-mode-map (make-sparse-keymap)) (byte-code "\302\303\304#\210\302\305\306#\210\302\307\310#\210\302 \311\312#\207" [web-narrow-mode-map web-narrow-narrow-mode-map define-key "u" web-narrow-to-element "j" web-narrow-to-block "l" web-narrow-to-region " " kill-this-buffer] 4) #@113 Non-nil if Web-narrow-narrow mode is enabled. Use the command `web-narrow-narrow-mode' to change this variable. (defvar web-narrow-narrow-mode nil (#$ . 467)) (make-variable-buffer-local 'web-narrow-narrow-mode) #@581 in narrow-mode can quickly quit This is a minor mode. If called interactively, toggle the `Web-narrow-narrow 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 `web-narrow-narrow-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'web-narrow-narrow-mode #[(&optional arg) "\305  \306=\203\n?\202 \247\203 \307W\203\310\202\311\312\303!\2032\313\302 \"\n\2032\302 B\314\315\n\203<\316\202=\317\"\210\320\321!\203b\305 \203Q\305 \232\203b\322\323\324\n\203]\325\202^\326\f#\210))\327 \210\n\207" [#1=#:last-message arg web-narrow-narrow-mode local-minor-modes local current-message toggle 1 nil t boundp delq run-hooks web-narrow-narrow-mode-hook web-narrow-narrow-mode-on-hook web-narrow-narrow-mode-off-hook called-interactively-p any " in current buffer" message "Web-narrow-narrow mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 686) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar web-narrow-narrow-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" [web-narrow-narrow-mode-map web-narrow-narrow-mode-hook variable-documentation put "Hook run after entering or leaving `web-narrow-narrow-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 web-narrow-narrow-mode " narrow"] 6) #@99 Non-nil if Web-Narrow mode is enabled. Use the command `web-narrow-mode' to change this variable. (defvar web-narrow-mode nil (#$ . 2529)) (make-variable-buffer-local 'web-narrow-mode) #@562 web-narrow split your code This is a minor mode. If called interactively, toggle the `Web-Narrow 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 `web-narrow-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'web-narrow-mode #[(&optional arg) "\305  \306=\203\n?\202 \247\203 \307W\203\310\202\311\312\303!\2032\313\302 \"\n\2032\302 B\314\315\n\203<\316\202=\317\"\210\320\321!\203b\305 \203Q\305 \232\203b\322\323\324\n\203]\325\202^\326\f#\210))\327 \210\n\207" [#1=#:last-message arg web-narrow-mode local-minor-modes local current-message toggle 1 nil t boundp delq run-hooks web-narrow-mode-hook web-narrow-mode-on-hook web-narrow-mode-off-hook called-interactively-p any " in current buffer" message "Web-Narrow mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 2721) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar web-narrow-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" [web-narrow-mode-map web-narrow-mode-hook variable-documentation put "Hook run after entering or leaving `web-narrow-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 web-narrow-mode " wnarrow"] 6) #@25 Narrow by html element. (defalias 'web-narrow-to-element #[nil "\303\304\211\"\212\305 b\210\306 )\307 T\310 \"+\207" [end begin buf clone-indirect-buffer nil web-mode-element-beginning-position line-beginning-position web-mode-element-end-position web-narrow-to-region-raw] 3 (#$ . 4470) nil]) #@23 Narrow by code block. (defalias 'web-narrow-to-block #[nil "\212\302 \210\303 \304 \210`\305 \"+\207" [end begin backward-up-list line-beginning-position forward-list web-narrow-to-region-raw] 3 (#$ . 4775) nil]) #@70 Narrow subroute. Argument START start point. Argument END end point. (defalias 'web-narrow-to-region-raw #[(start end) "\303\304\211\"rq\210 \n}\210\305!\210\306 *\207" [buf start end clone-indirect-buffer nil switch-to-buffer web-narrow-narrow-mode] 3 (#$ . 4997)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put web-narrow-to-region-raw speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@68 Narrow region. Argument BEGIN begin point. Argument END end point. (defalias 'web-narrow-to-region #[(begin end) " \304\305\211\"r q\210\n }\210\306 !\210\307 ,\207" [begin end start buf clone-indirect-buffer nil switch-to-buffer web-narrow-narrow-mode] 3 (#$ . 5423) "r"]) (provide 'web-narrow-mode)