;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307%\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\323%\210\310\324\312\313\325DD\326\316\323%\210\310\327\312\313\330DD\331\316\323%\210\310\332\312\313\333DD\334\316\323%\210\310\335\312\313\336DD\337\316\323%\210\310\340\312\313\341DD\342\316\323%\210\310\343\312\313\344DD\345\316\346%\210\310\347\312\313\350DD\351\316\323%\207" [require hexl custom-declare-group nhexl nil "Edit a file in a hex dump format." :group data custom-declare-variable nhexl-line-width funcall function #[0 "\300\207" [16] 1] "Number of bytes per line." :type (choice (integer :tag "Fixed width") (const :tag "Adjust to window" t)) nhexl-display-unprintables #[0 "\300\207" [nil] 1] "If non-nil, display non-printable chars using the customary codes.\nIf nil, use just `.' for those chars instead of things like `\\NNN' or `^C'." boolean nhexl-obey-font-lock #[0 "\300\207" [t] 1] "If non-nil, faces will only be applied when font-lock is enabled.\nOtherwise they are applied unconditionally." nhexl-silently-convert-to-unibyte #[0 "\300\207" [nil] 1] "If non-nil `nhexl-mode' won't ask before converting the buffer to unibyte." nhexl-isearch-hex-addresses #[0 "\300\207" [t] 1] "If non-nil, hex search terms will look for matching addresses." nhexl-isearch-hex-bytes #[0 "\300\207" [t] 1] "If non-nil, hex search terms will look for matching bytes." nhexl-isearch-hex-highlight #[0 "\300\207" [t] 1] "If non-nil, nhexl will highlight Isearch matches in the hex areas as well." nhexl-group-size #[0 "\301\302\245]\207" [hexl-bits 1 8] 3] "Number of bytes in each group.\nGroups are separated by spaces." integer nhexl-separate-line #[0 "\300\207" [nil] 1] "If non-nil, put the ascii area below the hex, on a separate line."] 6) (defvar nhexl--display-table (byte-code "\301 \204G\302\303\211W\203'\211\304!\305V\203\306I\266\210\211T\262\202\266\302\303\211W\203E\211\307\302\\!\310I\266\211T\262\202+\266\211\311\312I\210\211\207" [nhexl-display-unprintables make-display-table 128 0 char-width 1 [46] unibyte-char-to-multibyte [46] 9 [9225]] 9)) (defvar nhexl--saved-vars nil nil) (make-variable-buffer-local 'nhexl--saved-vars) (defvar nhexl-nibble-edit-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\305#\210\301\307\310#\210\301\311\310#\210\211\207" [make-sparse-keymap define-key [remap self-insert-command] nhexl-nibble-self-insert [remap right-char] nhexl-nibble-forward [remap forward-char] [remap left-char] nhexl-nibble-backward [remap backward-char]] 5)) (defalias 'nhexl-hex-edit-mode 'nhexl-nibble-edit-mode) #@113 Non-nil if Nhexl-Nibble-Edit mode is enabled. Use the command `nhexl-nibble-edit-mode' to change this variable. (defvar nhexl-nibble-edit-mode nil (#$ . 3042)) (make-variable-buffer-local 'nhexl-nibble-edit-mode) #@73 Minor mode to edit the hex nibbles in `nhexl-mode'. (fn &optional ARG) (defalias 'nhexl-nibble-edit-mode #[256 "\302 \303=\203 ?\202\304!\305V\211\203 \306\301!\210\307\202$\310\301!\210\311 \210\312\313\2031\314\2022\315\"\210\316\317!\203V\302 \203F\211\302 \232\203V\320\321\322\203Q\323\202R\324#\266\210\325 \210\207" [nhexl-nibble-edit-mode cursor-type current-message toggle prefix-numeric-value 0 make-local-variable hbar kill-local-variable nhexl--refresh-cursor run-hooks nhexl-nibble-edit-mode-hook nhexl-nibble-edit-mode-on-hook nhexl-nibble-edit-mode-off-hook called-interactively-p any " in current buffer" message "Nhexl-Nibble-Edit mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 3261) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar nhexl-nibble-edit-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [nhexl-nibble-edit-mode-map nhexl-nibble-edit-mode-hook variable-documentation put "Hook run after entering or leaving `nhexl-nibble-edit-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode nhexl-nibble-edit-mode nil boundp] 6) #@304 Nibble state of the various `point's. List of elements of the form (WINDOW OFFSET POINT TICKS), where WINDOW can be nil (for the `point' of the buffer itself); OFFSET is the nibble-position within the byte at POINT (0 = leftmost); and TICKS is the `buffer-chars-modified-tick' for which this was valid. (defvar nhexl--nibbles nil (#$ . 4526)) (make-variable-buffer-local 'nhexl--nibbles) #@22 (fn &optional POS) (defalias 'nhexl--nibble #[256 "p\301 =\205 \302 \303\211\2034\211@\211@=\203\262\202,p\301!=\204,\304\"\210A\266\202\202 \210\206:`\3058=\203P\306 \3078=\203P\211A@\206V\304\"\310\207" [nhexl--nibbles window-buffer selected-window nil delq 2 buffer-chars-modified-tick 3 0] 9 (#$ . 4920)]) #@10 (fn N) (defalias 'nhexl--nibble-set #[257 "p\301 =\205 \302 \211\236\211\204C\211\262B\211`\303 E\241\207" [nhexl--nibbles window-buffer selected-window buffer-chars-modified-tick] 7 (#$ . 5265)]) (defalias 'nhexl--line-width #[0 "\250\203\207\301\207" [nhexl-line-width 16] 1]) (put 'nhexl--line-width 'byte-optimizer 'byte-compile-inline-expand) #@23 (fn &optional CHAR) (defalias 'nhexl--nibble-max #[256 "\211\204g\262\211\300W\203\301\207\301\300\245\262\302V\203'\303\245\262\211T\262\202\211\207" [256 1 0 16] 4 (#$ . 5634)]) #@24 Advance by one nibble. (defalias 'nhexl-nibble-forward #[0 "\300 \211\301 Y\203\302u\202\303T!\210\304 \207" [nhexl--nibble nhexl--nibble-max 1 nhexl--nibble-set nhexl--refresh-cursor] 3 (#$ . 5836) nil]) #@24 Advance by one nibble. (defalias 'nhexl-nibble-backward #[0 "\300 \211\301V\203\302S!\210\303 \202\304u\210\302\305 !\207" [nhexl--nibble 0 nhexl--nibble-set nhexl--refresh-cursor -1 nhexl--nibble-max] 3 (#$ . 6052) nil]) #@59 Overwrite current nibble with the hex character you type. (defalias 'nhexl-nibble-self-insert #[0 "\302 \211\303 ^\204\211\304U\203\304\202g\305\306\"\211\304O\307 !T\310OQ\311\312\"\211c\210m\204?\204;\304U\204?\313\314!\210U?\205M\315u\210\316T!\207" [overwrite-mode last-command-event nhexl--nibble-max nhexl--nibble 0 format "%02x" string nil string-to-number 16 delete-char 1 -1 nhexl--nibble-set] 9 (#$ . 6285) nil]) #@41 Byte to use to replace deleted content. (defvar nhexl-overwrite-clear-byte 0 (#$ . 6735)) (defvar nhexl-overwrite-only-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\313#\210\211\207" [make-sparse-keymap define-key [remap yank] nhexl-overwrite-yank [remap yank-pop] nhexl-overwrite-yank-pop [remap kill-region] nhexl-overwrite-kill-region [remap delete-char] nhexl-overwrite-delete-char [remap backward-delete-char-untabify] nhexl-overwrite-backward-delete-char [remap backward-delete-char]] 5)) #@103 Delete ARG chars backward by overwriting them. Uses `nhexl-overwrite-clear-byte'. (fn &optional ARG) (defalias 'nhexl-overwrite-backward-delete-char #[256 "\211\204\301\262\211\302W\203\303[!\207\211[u\210\212\304\"\210\305!)\207" [nhexl-overwrite-clear-byte 1 0 nhexl-overwrite-delete-char insert-char delete-char] 4 (#$ . 7317) "p"]) #@102 Delete ARG chars forward by overwriting them. Uses `nhexl-overwrite-clear-byte'. (fn &optional ARG) (defalias 'nhexl-overwrite-delete-char #[256 "\211\204\301\262\211\302W\203\303[!\207\304\"\210\305!\207" [nhexl-overwrite-clear-byte 1 0 nhexl-overwrite-backward-delete-char insert-char delete-char] 4 (#$ . 7670) "p"]) #@97 Kill the region, replacing it with `nhexl-overwrite-clear-byte'. (fn BEG END &optional REGION) (defalias 'nhexl-overwrite-kill-region #[770 "\301#\210\302 \210\211\203\303!\202D\211\2053\211@\211@A\211\211b\210\304Z!\266A\266\202\202\207" [region-extract-function copy-region-as-kill barf-if-buffer-read-only bounds nhexl-overwrite-delete-char] 12 (#$ . 8006) (byte-code "\300 `\301E\207" [mark region] 3)]) #@12 (fn FUN) (defalias 'nhexl-overwrite--yank-wrapper #[257 "\301  \210\301 Z\302`d`\\^\"\204\303\304\305\306\307B\310\311\312\313\314!\315\"\316\317%\320$\266\202\207" [yank-undo-function buffer-size delete-and-extract-region delete-region advice--add-function :before #[0 "\300\301!\207" [default-value yank-undo-function] 2] #[257 "\300\301\"\207" [set-default yank-undo-function] 4 "\n\n(fn GV--VAL)"] make-byte-code 514 "\212\211b\210\300c)\207" vconcat vector [] 3 "\n\n(fn BEG END)" nil] 13 (#$ . 8440)]) #@64 Like `yank' but overwriting existing text. (fn &optional ARG) (defalias 'nhexl-overwrite-yank #[256 "\300\301\302\303\304\305!\306\"\307$!\207" [nhexl-overwrite--yank-wrapper make-byte-code 0 "\301\300!\207" vconcat vector [yank] 2] 8 (#$ . 8966) "*P"]) #@68 Like `yank-pop' but overwriting existing text. (fn &optional ARG) (defalias 'nhexl-overwrite-yank-pop #[256 "\300\301\302\303\304\305!\306\"\307$!\207" [nhexl-overwrite--yank-wrapper make-byte-code 0 "\301\300!\207" vconcat vector [yank-pop] 2] 8 (#$ . 9229) "*P"]) (defvar nhexl--overwrite-save-settings nil nil) (make-variable-buffer-local 'nhexl--overwrite-save-settings) #@119 Non-nil if Nhexl-Overwrite-Only mode is enabled. Use the command `nhexl-overwrite-only-mode' to change this variable. (defvar nhexl-overwrite-only-mode nil (#$ . 9614)) (make-variable-buffer-local 'nhexl-overwrite-only-mode) #@197 Minor mode where text is only overwritten. Insertion/deletion is avoided where possible and replaced by overwriting existing text, if needed with `nhexl-overwrite-clear-byte'. (fn &optional ARG) (defalias 'nhexl-overwrite-only-mode #[256 "\304 \305=\203 ?\202\306!\307V\211\203,\301 B\nB\310\301!\210\303\310\303!\210\311\202L\n\312\211\203G\211@\211@A\211\211L\266A\266\202\202/\210\313\303!\210\314\315\203V\316\202W\317\"\210\320\321!\203{\304 \203k\211\304 \232\203{\322\323\324\203v\325\202w\326#\266\210\327 \210\207" [nhexl-overwrite-only-mode overwrite-mode nhexl--overwrite-save-settings overwrite-mode-binary current-message toggle prefix-numeric-value 0 make-local-variable " OnlyOvwrt" nil kill-local-variable run-hooks nhexl-overwrite-only-mode-hook nhexl-overwrite-only-mode-on-hook nhexl-overwrite-only-mode-off-hook called-interactively-p any " in current buffer" message "Nhexl-Overwrite-Only mode %sabled%s" "en" "dis" force-mode-line-update] 11 (#$ . 9846) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar nhexl-overwrite-only-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [nhexl-overwrite-only-mode-map nhexl-overwrite-only-mode-hook variable-documentation put "Hook run after entering or leaving `nhexl-overwrite-only-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode nhexl-overwrite-only-mode nil boundp] 6) (defvar nhexl-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\211\207" [make-sparse-keymap define-key [remap next-line] nhexl-next-line [remap previous-line] nhexl-previous-line [remap move-end-of-line] nhexl-move-end-of-line [remap move-beginning-of-line] nhexl-move-beginning-of-line [remap scroll-up-command] nhexl-scroll-up [remap scroll-down-command] nhexl-scroll-down [remap mouse-set-point] nhexl-mouse-set-point [remap mouse-drag-region] nhexl-mouse-drag-region [remap mouse-set-region] nhexl-mouse-set-region [remap overwrite-mode] binary-overwrite-mode] 5)) (defvar nhexl--point nil nil) (make-variable-buffer-local 'nhexl--point) #@89 Non-nil if Nhexl mode is enabled. Use the command `nhexl-mode' to change this variable. (defvar nhexl-mode nil (#$ . 12198)) (make-variable-buffer-local 'nhexl-mode) #@66 Minor mode to edit files via hex-dump format (fn &optional ARG) (defalias 'nhexl-mode #[256 "\306 \307=\203 ?\202\310!\311V \312\301!\210\211\203-\211@\313@!AL\210A\266\202\202\210\204\227\314\315!\210\316\317\320\321#\210\316\322\323\321#\210\n\324Y\203Q\316\325\326\327#\210\202\\\316\330\331\327#\210\316\325\326\"\210\332\333\334!\335\"\211\333\334!=\204o\336\334\"\210\210\337 \327\211\327\340\311\341\342\343!\344\"\345$\216\346ed\347\350$\210,\210\351ed\352\327$\210\202_@\203\303\353d!dU\204\303\212\214~\210eb\210\354\355\350\327#*\204\303A\204\277\356\357!\203\303\360\350!\210\361\301!\204\337\362\211\203\336\211@\211JB BA\266\202\202\312\210`B\313\363!\210\3503\313\364!\210\3654\366\367!\210\313\370!\210\3508\313\371!\210C9\372\315!\210\373\374\375\350\321$\210\373\322\323\350\321$\210\373\317\320\350\321$\210\n\324Y\203,\373\325\326\350\327$\210\2028\373\330\331\350\321$\210\373\325\326\"\210\376\377\201D\201EB\335\350$\210\201F\201G!\327=\203_p\201H =\203_\201I \210\201J\201K\203o\201L\202r\201M\"\210\201N\201O!\203\244\306 \203\212\211\306 \232\203\244\201P\201Q\201R\203\235\201S\202\240\201T#\266\210\201U \210\207" [nhexl-mode nhexl--saved-vars emacs-major-version buffer-undo-list inhibit-read-only inhibit-modification-hooks current-message toggle prefix-numeric-value 0 kill-local-variable make-local-variable jit-lock-unregister nhexl--jit remove-hook after-change-functions nhexl--change-function local post-command-hook nhexl--post-command 27 window-size-change-functions nhexl--window-size-change t window-configuration-change-hook nhexl--window-config-change advice--remove-function advice--buffer-local isearch-search-fun-function nhexl--isearch-search-fun advice--set-buffer-local buffer-modified-p make-byte-code "\300?\205\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 put-text-property display nil remove-overlays nhexl position-bytes re-search-forward "[^[:ascii:]\200-\377]" y-or-n-p "Make buffer unibyte? " set-buffer-multibyte local-variable-p (buffer-display-table buffer-invisibility-spec overwrite-mode header-line-format word-wrap) word-wrap header-line-format (:eval (nhexl--header-line)) binary-overwrite-mode 1 buffer-invisibility-spec buffer-display-table jit-lock-register add-hook change-major-mode-hook #[0 "\300\301!\207" [nhexl-mode -1] 2] advice--add-function :around enable-multibyte-characters nhexl-silently-convert-to-unibyte nhexl--point nhexl--display-table #[0 "\300\301!\207" [advice--buffer-local isearch-search-fun-function] 2] #[257 "\300\301\"\207" [advice--set-buffer-local isearch-search-fun-function] 4 "\n\n(fn GV--VAL)"] default-value nhexl-line-width window-buffer nhexl--adjust-to-width run-hooks nhexl-mode-hook nhexl-mode-on-hook nhexl-mode-off-hook called-interactively-p any " in current buffer" message "Nhexl mode %sabled%s" "en" "dis" force-mode-line-update] 10 (#$ . 12370) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar nhexl-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\311\211%\207" [nhexl-mode-map nhexl-mode-hook variable-documentation put "Hook run after entering or leaving `nhexl-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode nhexl-mode (" NHexl" (nhexl-nibble-edit-mode "/ne")) boundp nil] 6) #@60 Move cursor vertically down ARG lines. (fn &optional ARG) (defalias 'nhexl-next-line #[256 "\211\204\301\262\211\302W\203\303[!\207\304 \250\203\202\305_u\210\306!\207" [nhexl-line-width 1 0 nhexl-previous-line nhexl--nibble 16 nhexl--nibble-set] 4 (#$ . 15837) "p"]) #@58 Move cursor vertically up ARG lines. (fn &optional ARG) (defalias 'nhexl-previous-line #[256 "\211\204\301\262\211\302W\203\303[!\207\304 \250\203\202\305_\206$\301[u\210\306!\207" [nhexl-line-width 1 0 nhexl-next-line nhexl--nibble 16 nhexl--nibble-set] 4 (#$ . 16126) "p"]) #@90 Move to beginning of the hex line that lies ARG - 1 hex lines ahead. (fn &optional ARG) (defalias 'nhexl-move-beginning-of-line #[256 "\211\204\301\262\302S!\210\303`S\"\206\301[u\207" [nhexl-line-width 1 nhexl-next-line mod] 4 (#$ . 16424) "p"]) #@84 Move to end of the hex line that lies ARG - 1 hex lines ahead. (fn &optional ARG) (defalias 'nhexl-move-end-of-line #[256 "\211\204\301\262\302S!\210\303\301\304`S\"#u\207" [nhexl-line-width 1 nhexl-next-line - mod] 7 (#$ . 16685) "p"]) #@99 Scroll text of selected window down ARG lines; or near full screen if no ARG. (fn &optional ARG) (defalias 'nhexl-scroll-down #[256 "\211\204\303\304\305 \306#]\262\211\307W\203\310[!\207\211\304=\203#\310\311!\207o\203+\312!\207\313 \211 \250\2037 \2028\314_Ze=\203Q\n\203K\315!\202[\312!\202[\315!\210\316\311e]\"\207" [next-screen-context-lines nhexl-line-width scroll-error-top-bottom 1 - window-text-height 2 0 nhexl-scroll-up nil scroll-down window-start 16 nhexl-previous-line set-window-start] 7 (#$ . 16935) "P"]) #@97 Scroll text of selected window up ARG lines; or near full screen if no ARG. (fn &optional ARG) (defalias 'nhexl-scroll-up #[256 "\211\204\303\304\305 \306#]\262\211\307W\203\310[!\207\211\304=\203#\310\311!\207m\203+\312!\207\313 \211 \250\2037 \2028\314_\\\315d!\203Q\n\203K\316!\202[\312!\202[\316!\210\317\311d^\"\207" [next-screen-context-lines nhexl-line-width scroll-error-top-bottom 1 - window-text-height 2 0 nhexl-scroll-down nil scroll-up window-start 16 pos-visible-in-window-p nhexl-next-line set-window-start] 7 (#$ . 17487) "P"]) (defvar nhexl--put-LF-in-string nil) #@103 Adjust POSN when clicking on the hex area. Return the corresponding nibble, if applicable. (fn POSN) (defalias 'nhexl--posn-hexadjust #[257 "\301!A@\302:\205W@;\205W\250\205WA\250\205WAV\205WAZ\211T\303\245Z\211\304\245\250\203:\202;\305S^\\d^\303\233\211\240\266\304_Z\211\306^\262\266\204\207" [nhexl-line-width posn-string 10 5 2 16 1] 11 (#$ . 18097)]) #@67 Move point to the position clicked on with the mouse. (fn EVENT) (defalias 'nhexl-mouse-set-point #[257 "\301\302!!\303\304!\210\211\205\205\305!\210\306 \207" [nhexl-nibble-edit-mode nhexl--posn-hexadjust event-end call-interactively mouse-set-point nhexl--nibble-set nhexl--refresh-cursor] 4 (#$ . 18490) "e"]) #@72 Set the region to the text that the mouse is dragged over. (fn EVENT) (defalias 'nhexl-mouse-drag-region #[257 "\300\301!!\210\302\303!\207" [nhexl--posn-hexadjust event-start call-interactively mouse-drag-region] 4 (#$ . 18817) "e"]) #@77 Set the region to the text dragged over, and copy to kill ring. (fn EVENT) (defalias 'nhexl-mouse-set-region #[257 "\300\301!!\210\300\302!!\210\303\304!\207" [nhexl--posn-hexadjust event-start event-end call-interactively mouse-set-region] 4 (#$ . 19060) "e"]) #@20 (fn BEG END LEN) (defalias 'nhexl--change-function #[771 "\214~\210e)\250\203\202\304e\305Z\"_\\]d\306Z\"_\\^\307 \310\211\310\311\312\313\314\315!\316\"\317$\216\320\321\322$\210,\266\211ZU?\205n\307 \310\211\310\311\312\313\314\315!\323\"\317$\216\320d\321\322$,\262\207" [nhexl-line-width buffer-undo-list inhibit-read-only inhibit-modification-hooks 16 truncate ceiling buffer-modified-p t make-byte-code 0 "\300?\205\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 put-text-property fontified nil [restore-buffer-modified-p nil]] 15 (#$ . 19331)]) (defalias 'nhexl--flush #[0 "\214~\210\300ed\301 #)\207" [nhexl--change-function buffer-size] 4]) (defvar nhexl--overlay-counter 1000) (make-variable-buffer-local 'nhexl--overlay-counter) (defalias 'nhexl--debug-count-ols #[0 "\300\301ed\"\211\203\211@\302\303\"\203T\262A\266\202\202\210\211\207" [0 overlays-in overlay-get nhexl] 6]) #@15 (fn BUFFER) (defalias 'nhexl--flush-overlays #[257 "r\211q\210\304\305!\210\306\307\211\310#\250\203\202\311e\214~\210e)\312 \313 \310\211\310\314\315\316\317\320!\321\"\322$\216dW\203\254d\211\203n\211@\323!SW\203W\323!S^\262\202g\324!TW\203g\324!T\262A\266\202\202<\210\325Z\"_\\\262\326Z\"_\\\262W\203\250\327\330\310$\210\331\332\307$\210\211\\\262\210\2023,\210\312 \333\334Z#\262\266\205)\207" [nhexl-line-width buffer-undo-list inhibit-read-only inhibit-modification-hooks kill-local-variable nhexl--overlay-counter get-buffer-window-list nil t 16 nhexl--debug-count-ols buffer-modified-p make-byte-code 0 "\300?\205\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 window-start window-end ceiling truncate remove-overlays nhexl put-text-property fontified message "Flushed %d overlays, %d remaining"] 14 (#$ . 20290)]) #@39 (fn FROM NEXT ZERO &optional POINT) (defalias 'nhexl--make-line #[1027 "d^\250\203\f\202 \306{ \203\307\202\310\311C\n\205) =?\205)\312\313\203? W\204?\nY\203G\314\315\316#\202X\314\315\310 \204R \204V\317\202W\320# \nZ\"\321\322\323\324\325\326\327 #\330\"\331\332%\333#  V\205\220\334\f\nZT\f\245  Z\335_\\\336\" \203\236\312\314\337\340\341#P\202\261\314\337\340\342\343\344\335_\f\245\345\346$E#\260\347\350G\351%\210\352\350G\353\354 %\210\352\350G\355\356%\210\352\350G\357\360%\210\207" [nhexl-line-width nhexl-obey-font-lock nhexl--put-LF-in-string font-lock-mode nhexl-group-size nhexl-separate-line 16 font-lock-face face -1 "\n" format propertize "%08x:" hexl-address-region (highlight hexl-address-region default) highlight #(" " 0 1 (display (space :align-to 12))) mapconcat make-byte-code 257 "\302\211\242T\240\210\306\307\"\310 \203*\311\302\242\300\\\312\"\211\262\313>\203*\314\315G\312\316B%\210\301\203Z\301\300\302\242\\=\203Z\f\203P\317\301!GS^\314\211T\312\320%\266\202Z\314\315G\312\321%\210\322\302\242T \"\315U\204i\202l\323P\207" vconcat vector [isearch-mode nhexl-nibble-edit-mode nhexl-group-size format "%02x" nil get-char-property face (lazy-highlight isearch) put-text-property 0 (default) nhexl--nibble (highlight default) (highlight default) mod " "] 10 "\n\n(fn C)" "" make-string 2 32 " " display (space :align-to 12) space :align-to + 12 3 font-lock-append-text-property 0 default put-text-property keymap make-sparse-keymap follow-link ignore category t] 24 (#$ . 21206)]) #@16 (fn FROM TO) (defalias 'nhexl--jit #[514 "\214~\210e)\250\203\202\306e\307Z\"_\\]\262d\310Z\"_\\^\262\311\312\313$\210\314\315#\210\212b\210\316\317\313#\203S\320\321\224\321\225\322\323\324!$\210\202=)W\205, S\211\321U\203e\n\210\\\325\"\326 $\206y`Sf\f\203\304\327d^ \330#\321\211W\203\302\211\325 \\\331 \330#\"\332\312\313#\210\332\333\334\335\322\336\337\331\nT\340_ T \245\341#E##\266\211T\262\202\210\266,\204dY\204-.\203\332\202\335\342!H\320S\322\343\344=\203\360\345\202\374\203\372\321H\202\374!\346P$\266\332\312\313#\210\332/\203\347\202\350\351#\210\332\3520#\210\332\353#\210\262\266\202T\207" [nhexl-line-width nhexl--overlay-counter jit-lock-stealth-time nhexl--point nhexl-separate-line nhexl-group-size 16 truncate ceiling remove-overlays nhexl t remove-text-properties (display) search-forward "\n" put-text-property 0 display copy-sequence "␊" make-overlay nhexl--make-line - 1 + overlay-put after-string propertize " " space :align-to 2 12 unibyte-char-to-multibyte string 10 9226 #("\n" 0 1 (face default)) font-lock-face face hexl-ascii-region priority before-string nhexl--put-LF-in-string nhexl--display-table enable-multibyte-characters nhexl-obey-font-lock most-negative-fixnum] 25 (#$ . 22814)]) #@22 (fn &optional POS) (defalias 'nhexl--refresh-cursor #[256 "\211\204`\262\214~\210e)\250\203\202\304\305Z\"e_\\]dT_\\^\306 \307\211\307\310\311\312\313\314!\315\"\316$\216\317\320\321$,\262\207" [nhexl-line-width buffer-undo-list inhibit-read-only inhibit-modification-hooks 16 truncate buffer-modified-p t make-byte-code 0 "\300?\205\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 put-text-property fontified nil] 14 (#$ . 24150)]) (defalias 'nhexl--header-line #[0 "\214~\210e)\250\203\202\303\304\305\211W\203<\211\306\307\"\262\211\310W\203+\211\311\\\2020\312\313\314#B\262\210\211T\262\202\266\315\316\237\"\262\317`Z\"T\305C\320S\321\322%\210\323\324\325\326\327\330\331\332\333\n\n\"\334\"\335\336%\337# ?\205\212\340\341\342\343\344\312 \345_\n\245\335\346$E#P\260\207" [nhexl-line-width nhexl-separate-line nhexl-group-size 16 nil 0 logand 15 10 48 + -10 97 apply string mod put-text-property face highlight #(" " 0 1 (display (space :align-to 0))) "Address:" #(" " 0 1 (display (space :align-to 12))) mapconcat make-byte-code 257 "\301\211\242T\240\210\304\211\"\305\301\242\300\"\2034\n\203+\306`!GS^\307\211T\310\311%\266\2024\307\312G\310\311%\210\313\301\242 \"\312U\204B\211\202V\211\314\315\316\317\320\321\301\242\322_\301\242 \245\323#E#P\207" vconcat vector [nhexl-nibble-edit-mode nhexl-group-size string eql nhexl--nibble put-text-property face highlight 0 mod propertize " " display space :align-to + 2 12] 12 "\n\n(fn C)" "" propertize " " display space :align-to 2 3] 19]) (defalias 'nhexl--post-command #[0 "`U?\2052\214~\210e) \250\203 \202\302`\303 \210\304`Z\"\304Z\"U?\2050\303!\266\203\207" [nhexl--point nhexl-line-width 16 nhexl--refresh-cursor truncate] 7]) #@29 (fn STRING BOUND NOERROR) (defalias 'nhexl--isearch-match-hex-bytes #[771 "\302\303TGW\203\304\211\305\\O\306\"B\262\305\\\262\202\307\310\311\237\"!GY\2032\211\202YTGU\204?\312\313!\210\304\303O\306\"\311\314\306_\315\316\306_\\\317%P\262\320Q\303 \203g\321\202h\322#)\266\202\207" [case-fold-search isearch-forward 0 nil string-to-number 2 16 regexp-quote apply unibyte-string cl--assertion-failed (= (1+ i) (length string)) 91 45 15 93 "\\|" re-search-forward re-search-backward] 15 (#$ . 25960)]) #@17 (fn ORIG-FUN) (defalias 'nhexl--isearch-search-fun #[257 "\211 \300\301\302\303\304!\305\"\306\307%\207" [make-byte-code 771 "\204 \203\fd\202 e\262`\305\n\203@G\306V\203@\307\305\310\311#)\266\203\203@b\210\312#\211\203?\211\262\313\224\262\210\f\203oG\306V\203o\314\305\310\311#)\266\203\203ob\210\315#\211\203n\211\262\313\224\262\210b\210\300#\211\203\202\211\262\313\224\262\210\211\205\213\211b\210\211\207" vconcat vector [isearch-forward nhexl-isearch-hex-addresses inhibit-changing-match-data nhexl-isearch-hex-bytes nil 1 "\\`[[:xdigit:]]+:?\\'" t string-match nhexl--isearch-match-hex-address 0 "\\`[[:xdigit:]]+\\'" nhexl--isearch-match-hex-bytes] 12 "\n\n(fn STRING BOUND NOERROR)"] 8 (#$ . 26509)]) #@29 (fn STRING BOUND NOERROR) (defalias 'nhexl--isearch-match-hex-address #[771 "\302\303\"\211GSH\304=\305\306G\203\306\202\307Z\310_\"\214~\210e)\311`]ZW\203\270\312`Z\245_#\203n\211`X\203M\211\\\262\211`V\204W\313\314!\210\211 W\203\227\203h\211W\203\227\211\262\202\227\211`Y\203y\211Z\262\211`W\204\203\313\315!\210\211 V\203\227\203\224\211V\203\227\211\262\210\303_\204\245\211W\203\253\316\262\202\264\303_\262\211\262\210\202)\205\343 \250\203\305 \202\306\303\312eZ\245_e#\317D!\210\203\340\211S\202\341\266\202\207" [isearch-forward nhexl-line-width string-to-number 16 58 lsh 1 0 4 nil + cl--assertion-failed (> next (point)) (< next (point)) -1 set-match-data] 14 (#$ . 27277)]) (advice-add 'lazy-highlight-cleanup :before 'nhexl--isearch-highlight-cleanup) #@16 (fn &rest _) (defalias 'nhexl--isearch-highlight-cleanup #[128 "\205H \205H\306 \307\211\307\310\311\312\313\314!\315\"\316$\216 \211\205C\211@\317!\203<\320!p=\203<\321\322!\323!\324\325$\210A\266\202\202\262,\262\207" [nhexl-mode nhexl-isearch-hex-highlight buffer-undo-list inhibit-read-only inhibit-modification-hooks isearch-lazy-highlight-overlays buffer-modified-p t make-byte-code 0 "\300?\205\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 overlayp overlay-buffer put-text-property overlay-start overlay-end fontified nil] 10 (#$ . 28127)]) (advice-add 'isearch-lazy-highlight-match :after 'nhexl--isearch-highlight-match) #@24 (fn &optional MB ME) (defalias 'nhexl--isearch-highlight-match #[512 "\205/ \205/\250\205/\211\250\205/\305 \306\211\306\307\310\311\312\313!\314\"\315$\216\316\317\320$,\262\207" [nhexl-mode nhexl-isearch-hex-highlight buffer-undo-list inhibit-read-only inhibit-modification-hooks buffer-modified-p t make-byte-code 0 "\300?\205\301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 put-text-property fontified nil] 10 (#$ . 28804)]) #@28 (fn SYM NEWVAL OP WHERE) (defalias 'nhexl--line-width-watcher #[1028 "\301=\205,\211\203\211C\202\302 \211\205*\211@r\211q\210\203\"\303 \210)A\266\202\202\262\207" [nhexl-mode set buffer-list nhexl--flush] 7 (#$ . 29271)]) (byte-code "\300\301!\203 \301\302\303\"\210\300\207" [fboundp add-variable-watcher nhexl-line-width nhexl--line-width-watcher] 3) #@24 (fn FRAME-OR-WINDOW) (defalias 'nhexl--window-size-change #[257 "\300\301!\302=\205_\303!\203(\304!r\305\306\307\310\311!\312\"\313$\216\314@\315\"\210\316 *\207\317\320\"\211\205]\211@\321\322\323!\"\203V\304!r\305\306\307\310\311!\324\"\313$\216\314@\315\"\210\316 \210*\210A\266\202\202,\262\207" [default-value nhexl-line-width t windowp internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord nhexl--adjust-to-width window-list nomini buffer-local-value nhexl-mode window-buffer [internal--after-with-selected-window]] 10 (#$ . 29648)]) (defalias 'nhexl--window-config-change #[0 "\300\301!\302=\205\n\303 \207" [default-value nhexl-line-width t nhexl--adjust-to-width] 2]) (defalias 'nhexl--adjust-to-width #[0 "\302 \211\205;\303!\211\304Z\305\306\245\\\245\307\310\311\312\313\"!\"\245\314V\203*\211\313\245\\\262\315 \"?\2059\316\301!\210\211\211\266\203\207" [nhexl-group-size nhexl-line-width get-buffer-window window-text-width 16 3 1.0 lsh 1 truncate log 2 1.5 eql make-local-variable] 9]) #@66 Keymap used while processing nhexl-mode's \[universal-argument]. (defvar nhexl-universal-argument-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\310\211\203'\211@\303\307#\210A\266\202\202\210\211\207" [universal-argument-map make-sparse-keymap set-keymap-parent define-key [21] universal-argument-more [remap digit-argument] nhexl-digit-argument ("a" "b" "c" "d" "e" "f")] 7) (#$ . 30782)) (advice-add 'universal-argument--description :around 'nhexl--universal-argument-description) #@28 (fn ORIG-FUN &rest ARGS) (defalias 'nhexl--universal-argument-description #[385 "\204 \302\"\207 \204\303\207\304 :\203\200 @\211\305=\2030 A\211\204'\306\202+\307\310 \"\262\202{\211\250\203w A\211\204n\311\312V\203Y\313\312\"\314U\203Y\211\315P\262\312\245\262\202=\312U\203c\211\202g\307\310 \"\262\262\202r\307\310 \"\262\202{\307\310 \"\262\202\220 \250\203\214\307\316 \"\202\220\307\310 \"P\207" [nhexl-mode prefix-arg apply nil "C-u" - " -" format " %s" "" 4 mod 0 " C-u" " #x%X"] 10 (#$ . 31301)]) (advice-add 'universal-argument--mode :around 'nhexl--universal-argument-mode) #@28 (fn ORIG-FUN &rest ARGS) (defalias 'nhexl--universal-argument-mode #[385 "\204 \303\"\207 \303\")\207" [nhexl-mode nhexl-universal-argument-map universal-argument-map apply] 5 (#$ . 31930)]) #@146 Part of the hexadecimal numeric argument for the next command. \[universal-argument] following digits or minus sign ends the argument. (fn ARG) (defalias 'nhexl-digit-argument #[257 "\301 \210\302 \211GSH\211\250\205\303\304\"\305X\203'\211\306X\203'\307\305Z\\\202J\310X\203;\211\311X\203;\307\310Z\\\202J\312X\205J\211\313X\205J\211\312Z\250\203b\314_\315W\203][\202^\\\202x\316=\203w\211\315U\203r\316\202x\211[\202x\211\266\317 \207" [prefix-arg prefix-command-preserve-state this-command-keys logand 127 97 102 10 65 70 48 57 16 0 - universal-argument--mode] 8 (#$ . 32137) "P"]) (provide 'nhexl-mode)