|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: h
Length: 17884 (0x45dc)
Names: »hideif.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
└─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z«
└─⟦fa971747f⟧
└─⟦this⟧ »dist-18.55/lisp/hideif.elc«
0x0000…0020 0a 28 64 65 66 76 61 72 20 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c ┆ (defvar hide-ifdef-mode-map nil┆
0x0020…0040 20 22 5c 0a 4b 65 79 6d 61 70 20 75 73 65 64 20 77 69 74 68 20 68 69 64 65 2d 69 66 64 65 66 20 ┆ "\ Keymap used with hide-ifdef ┆
0x0040…0060 6d 6f 64 65 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 ┆mode") (defconst hide-ifdef-mod┆
0x0060…0080 65 2d 70 72 65 66 69 78 2d 6b 65 79 20 22 03 22 20 22 5c 0a 50 72 65 66 69 78 20 6b 65 79 20 66 ┆e-prefix-key " " "\ Prefix key f┆
0x0080…00a0 6f 72 20 61 6c 6c 20 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 20 63 6f 6d 6d 61 6e 64 73 2e ┆or all hide-ifdef-mode commands.┆
0x00a0…00c0 22 29 0a 0a 28 64 65 66 76 61 72 20 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 2d 6d 61 70 2d ┆") (defvar hide-ifdef-mode-map-┆
0x00c0…00e0 62 65 66 6f 72 65 20 6e 69 6c 20 22 5c 0a 42 75 66 66 65 72 2d 6c 6f 63 61 6c 20 76 61 72 69 61 ┆before nil "\ Buffer-local varia┆
0x00e0…0100 62 6c 65 20 74 6f 20 73 74 6f 72 65 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 6c 6f 63 61 6c ┆ble to store a copy of the local┆
0x0100…0120 20 6b 65 79 6d 61 70 0a 09 62 65 66 6f 72 65 20 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 20 ┆ keymap before hide-ifdef-mode ┆
0x0120…0140 6d 6f 64 69 66 69 65 73 20 69 74 2e 22 29 0a 0a 28 64 65 66 75 6e 20 64 65 66 69 6e 65 2d 68 69 ┆modifies it.") (defun define-hi┆
0x0140…0160 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 ┆de-ifdef-mode-map nil (byte-code┆
0x0160…0180 20 22 08 83 08 00 c1 82 70 00 c3 20 89 10 88 c4 08 c5 c6 23 88 c4 08 c7 c8 23 88 c4 08 c9 ca 23 ┆ " p # # #┆
0x0180…01a0 88 c4 08 cb cc 23 88 c4 08 cd ce 23 88 c4 08 cf d0 23 88 c4 08 d1 d2 23 88 c4 08 d3 d4 23 88 c4 ┆ # # # # # ┆
0x01a0…01c0 08 d5 d6 23 88 c4 08 d7 d8 23 88 c4 08 d9 da 23 88 c4 08 db dc 23 88 c4 08 dd de 23 88 c4 08 df ┆ # # # # # ┆
0x01c0…01e0 e0 23 88 c4 08 e1 e2 23 88 c4 08 e3 e4 c1 c2 23 e5 23 88 c0 08 4d 87 22 20 5b 68 69 64 65 2d 69 ┆ # # # # M " [hide-i┆
0x01e0…0200 66 64 65 66 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 74 20 6d 61 6b 65 2d 73 70 61 72 73 65 2d ┆fdef-mode-map nil t make-sparse-┆
0x0200…0220 6b 65 79 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 64 22 20 68 69 64 65 2d 69 66 64 65 66 ┆keymap define-key "d" hide-ifdef┆
0x0220…0240 2d 64 65 66 69 6e 65 20 22 75 22 20 68 69 64 65 2d 69 66 64 65 66 2d 75 6e 64 65 66 20 22 44 22 ┆-define "u" hide-ifdef-undef "D"┆
0x0240…0260 20 68 69 64 65 2d 69 66 64 65 66 2d 73 65 74 2d 64 65 66 69 6e 65 2d 61 6c 69 73 74 20 22 55 22 ┆ hide-ifdef-set-define-alist "U"┆
0x0260…0280 20 68 69 64 65 2d 69 66 64 65 66 2d 75 73 65 2d 64 65 66 69 6e 65 2d 61 6c 69 73 74 20 22 68 22 ┆ hide-ifdef-use-define-alist "h"┆
0x0280…02a0 20 68 69 64 65 2d 69 66 64 65 66 73 20 22 73 22 20 73 68 6f 77 2d 69 66 64 65 66 73 20 22 08 22 ┆ hide-ifdefs "s" show-ifdefs " "┆
0x02a0…02c0 20 68 69 64 65 2d 69 66 64 65 66 2d 62 6c 6f 63 6b 20 22 13 22 20 73 68 6f 77 2d 69 66 64 65 66 ┆ hide-ifdef-block " " show-ifdef┆
0x02c0…02e0 2d 62 6c 6f 63 6b 20 22 06 22 20 66 6f 72 77 61 72 64 2d 69 66 64 65 66 20 22 02 22 20 62 61 63 ┆-block " " forward-ifdef " " bac┆
0x02e0…0300 6b 77 61 72 64 2d 69 66 64 65 66 20 22 04 22 20 64 6f 77 6e 2d 69 66 64 65 66 20 22 15 22 20 75 ┆kward-ifdef " " down-ifdef " " u┆
0x0300…0320 70 2d 69 66 64 65 66 20 22 0e 22 20 6e 65 78 74 2d 69 66 64 65 66 20 22 10 22 20 70 72 65 76 69 ┆p-ifdef " " next-ifdef " " previ┆
0x0320…0340 6f 75 73 2d 69 66 64 65 66 20 22 11 22 20 68 69 64 65 2d 69 66 64 65 66 2d 74 6f 67 67 6c 65 2d ┆ous-ifdef " " hide-ifdef-toggle-┆
0x0340…0360 72 65 61 64 2d 6f 6e 6c 79 20 77 68 65 72 65 2d 69 73 2d 69 6e 74 65 72 6e 61 6c 20 74 6f 67 67 ┆read-only where-is-internal togg┆
0x0360…0380 6c 65 2d 72 65 61 64 2d 6f 6e 6c 79 20 68 69 64 65 2d 69 66 64 65 66 2d 74 6f 67 67 6c 65 2d 6f ┆le-read-only hide-ifdef-toggle-o┆
0x0380…03a0 75 74 73 69 64 65 2d 72 65 61 64 2d 6f 6e 6c 79 5d 20 32 32 29 29 0a 0a 28 64 65 66 75 6e 20 68 ┆utside-read-only] 22)) (defun h┆
0x03a0…03c0 69 66 2d 75 70 64 61 74 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 6e 69 6c 20 22 5c 0a 55 70 64 61 74 ┆if-update-mode-line nil "\ Updat┆
0x03c0…03e0 65 20 6d 6f 64 65 2d 6c 69 6e 65 20 62 79 20 73 65 74 74 69 6e 67 20 62 75 66 66 65 72 2d 6d 6f ┆e mode-line by setting buffer-mo┆
0x03e0…0400 64 69 66 69 65 64 20 74 6f 20 69 74 73 65 6c 66 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 ┆dified to itself." (byte-code " ┆
0x0400…0420 c1 20 21 87 22 20 5b 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 62 75 66 ┆ ! " [set-buffer-modified-p buf┆
0x0420…0440 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 5d 20 33 29 29 0a 0a 28 64 65 66 76 61 72 20 68 69 64 ┆fer-modified-p] 3)) (defvar hid┆
0x0440…0460 65 2d 69 66 64 65 66 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 6e 6f 6e 2d 6e 69 6c 20 77 68 65 6e ┆e-ifdef-mode nil "\ non-nil when┆
0x0460…0480 20 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 20 69 73 20 61 63 74 69 76 61 74 65 64 2e 22 29 ┆ hide-ifdef-mode is activated.")┆
0x0480…04a0 0a 0a 28 64 65 66 76 61 72 20 68 69 64 65 2d 69 66 64 65 66 2d 68 69 64 69 6e 67 20 6e 69 6c 20 ┆ (defvar hide-ifdef-hiding nil ┆
0x04a0…04c0 22 5c 0a 6e 6f 6e 2d 6e 69 6c 20 77 68 65 6e 20 74 65 78 74 20 6d 61 79 20 62 65 20 68 69 64 64 ┆"\ non-nil when text may be hidd┆
0x04c0…04e0 65 6e 2e 22 29 0a 0a 28 6f 72 20 28 61 73 73 71 20 28 71 75 6f 74 65 20 68 69 64 65 2d 69 66 64 ┆en.") (or (assq (quote hide-ifd┆
0x04e0…0500 65 66 2d 68 69 64 69 6e 67 29 20 6d 69 6e 6f 72 2d 6d 6f 64 65 2d 61 6c 69 73 74 29 20 28 73 65 ┆ef-hiding) minor-mode-alist) (se┆
0x0500…0520 74 71 20 6d 69 6e 6f 72 2d 6d 6f 64 65 2d 61 6c 69 73 74 20 28 63 6f 6e 73 20 28 71 75 6f 74 65 ┆tq minor-mode-alist (cons (quote┆
0x0520…0540 20 28 68 69 64 65 2d 69 66 64 65 66 2d 68 69 64 69 6e 67 20 22 20 48 69 64 69 6e 67 22 29 29 20 ┆ (hide-ifdef-hiding " Hiding")) ┆
0x0540…0560 6d 69 6e 6f 72 2d 6d 6f 64 65 2d 61 6c 69 73 74 29 29 29 0a 0a 28 6f 72 20 28 61 73 73 71 20 28 ┆minor-mode-alist))) (or (assq (┆
0x0560…0580 71 75 6f 74 65 20 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 29 20 6d 69 6e 6f 72 2d 6d 6f 64 ┆quote hide-ifdef-mode) minor-mod┆
0x0580…05a0 65 2d 61 6c 69 73 74 29 20 28 73 65 74 71 20 6d 69 6e 6f 72 2d 6d 6f 64 65 2d 61 6c 69 73 74 20 ┆e-alist) (setq minor-mode-alist ┆
0x05a0…05c0 28 63 6f 6e 73 20 28 71 75 6f 74 65 20 28 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 20 22 20 ┆(cons (quote (hide-ifdef-mode " ┆
0x05c0…05e0 49 66 64 65 66 22 29 29 20 6d 69 6e 6f 72 2d 6d 6f 64 65 2d 61 6c 69 73 74 29 29 29 0a 0a 28 64 ┆Ifdef")) minor-mode-alist))) (d┆
0x05e0…0600 65 66 75 6e 20 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 20 28 61 72 67 29 20 22 5c 0a 54 6f ┆efun hide-ifdef-mode (arg) "\ To┆
0x0600…0620 67 67 6c 65 20 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 2e 20 20 54 68 75 73 20 74 68 69 73 ┆ggle hide-ifdef-mode. Thus this┆
0x0620…0640 20 69 73 20 61 20 6d 69 6e 6f 72 20 6d 6f 64 65 2c 20 61 6c 62 65 69 74 20 61 20 6c 61 72 67 65 ┆ is a minor mode, albeit a large┆
0x0640…0660 20 6f 6e 65 2e 0a 57 69 74 68 20 61 72 67 2c 20 74 75 72 6e 20 68 69 64 65 2d 69 66 64 65 66 2d ┆ one. With arg, turn hide-ifdef-┆
0x0660…0680 6d 6f 64 65 20 6f 6e 20 69 66 66 20 61 72 67 20 69 73 20 70 6f 73 69 74 69 76 65 2e 0a 49 6e 20 ┆mode on iff arg is positive. In ┆
0x0680…06a0 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 2c 20 63 6f 64 65 20 77 69 74 68 69 6e 20 23 69 66 ┆hide-ifdef-mode, code within #if┆
0x06a0…06c0 64 65 66 20 63 6f 6e 73 74 72 75 63 74 73 20 74 68 61 74 20 74 68 65 20 43 20 70 72 65 70 72 6f ┆def constructs that the C prepro┆
0x06c0…06e0 63 65 73 73 6f 72 0a 77 6f 75 6c 64 20 65 6c 69 6d 69 6e 61 74 65 20 6d 61 79 20 62 65 20 68 69 ┆cessor would eliminate may be hi┆
0x06e0…0700 64 64 65 6e 20 66 72 6f 6d 20 76 69 65 77 2e 20 20 53 65 76 65 72 61 6c 20 76 61 72 69 61 62 6c ┆dden from view. Several variabl┆
0x0700…0720 65 73 20 61 66 66 65 63 74 0a 68 6f 77 20 74 68 65 20 68 69 64 69 6e 67 20 69 73 20 64 6f 6e 65 ┆es affect how the hiding is done┆
0x0720…0740 3a 0a 0a 68 69 64 65 2d 69 66 64 65 66 2d 65 6e 76 0a 09 41 6e 20 61 73 73 6f 63 69 61 74 69 6f ┆: hide-ifdef-env An associatio┆
0x0740…0760 6e 20 6c 69 73 74 20 6f 66 20 64 65 66 69 6e 65 64 20 61 6e 64 20 75 6e 64 65 66 69 6e 65 64 20 ┆n list of defined and undefined ┆
0x0760…0780 73 79 6d 62 6f 6c 73 20 66 6f 72 20 74 68 65 0a 09 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e ┆symbols for the current buffer.┆
0x0780…07a0 20 20 49 6e 69 74 69 61 6c 6c 79 2c 20 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 6c 75 65 20 6f 66 ┆ Initially, the global value of┆
0x07a0…07c0 20 68 69 64 65 2d 69 66 64 65 66 2d 65 6e 76 20 69 73 20 75 73 65 64 2e 0a 0a 68 69 64 65 2d 69 ┆ hide-ifdef-env is used. hide-i┆
0x07c0…07e0 66 64 65 66 2d 64 65 66 69 6e 65 2d 61 6c 69 73 74 0a 09 41 6e 20 61 73 73 6f 63 69 61 74 69 6f ┆fdef-define-alist An associatio┆
0x07e0…0800 6e 20 6c 69 73 74 20 6f 66 20 64 65 66 69 6e 65 64 20 73 79 6d 62 6f 6c 20 6c 69 73 74 73 2e 20 ┆n list of defined symbol lists. ┆
0x0800…0820 20 0a 20 20 20 20 20 20 20 20 55 73 65 20 68 69 64 65 2d 69 66 64 65 66 2d 73 65 74 2d 64 65 66 ┆ Use hide-ifdef-set-def┆
0x0820…0840 69 6e 65 2d 61 6c 69 73 74 20 74 6f 20 73 61 76 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 68 69 ┆ine-alist to save the current hi┆
0x0840…0860 64 65 2d 69 66 64 65 66 2d 65 6e 76 0a 20 20 20 20 20 20 20 20 61 6e 64 20 68 69 64 65 2d 69 66 ┆de-ifdef-env and hide-if┆
0x0860…0880 64 65 66 2d 75 73 65 2d 64 65 66 69 6e 65 2d 61 6c 69 73 74 20 74 6f 20 73 65 74 20 74 68 65 20 ┆def-use-define-alist to set the ┆
0x0880…08a0 63 75 72 72 65 6e 74 20 68 69 64 65 2d 69 66 64 65 66 2d 65 6e 76 0a 20 20 20 20 20 20 20 20 66 ┆current hide-ifdef-env f┆
0x08a0…08c0 72 6f 6d 20 6f 6e 65 20 6f 66 20 74 68 65 20 6c 69 73 74 73 20 69 6e 20 68 69 64 65 2d 69 66 64 ┆rom one of the lists in hide-ifd┆
0x08c0…08e0 65 66 2d 64 65 66 69 6e 65 2d 61 6c 69 73 74 2e 0a 0a 68 69 64 65 2d 69 66 64 65 66 2d 6c 69 6e ┆ef-define-alist. hide-ifdef-lin┆
0x08e0…0900 65 73 0a 09 53 65 74 20 74 6f 20 6e 6f 6e 2d 6e 69 6c 20 74 6f 20 6e 6f 74 20 73 68 6f 77 20 23 ┆es Set to non-nil to not show #┆
0x0900…0920 69 66 2c 20 23 69 66 64 65 66 2c 20 23 69 66 6e 64 65 66 2c 20 23 65 6c 73 65 2c 20 61 6e 64 0a ┆if, #ifdef, #ifndef, #else, and ┆
0x0920…0940 09 23 65 6e 64 69 66 20 6c 69 6e 65 73 20 77 68 65 6e 20 68 69 64 69 6e 67 2e 0a 0a 68 69 64 65 ┆ #endif lines when hiding. hide┆
0x0940…0960 2d 69 66 64 65 66 2d 69 6e 69 74 69 61 6c 6c 79 0a 09 49 6e 64 69 63 61 74 65 73 20 77 68 65 74 ┆-ifdef-initially Indicates whet┆
0x0960…0980 68 65 72 20 68 69 64 65 2d 69 66 64 65 66 73 20 73 68 6f 75 6c 64 20 62 65 20 63 61 6c 6c 65 64 ┆her hide-ifdefs should be called┆
0x0980…09a0 20 77 68 65 6e 20 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 0a 09 69 73 20 61 63 74 69 76 61 ┆ when hide-ifdef-mode is activa┆
0x09a0…09c0 74 65 64 2e 0a 0a 68 69 64 65 2d 69 66 64 65 66 2d 72 65 61 64 2d 6f 6e 6c 79 0a 09 53 65 74 20 ┆ted. hide-ifdef-read-only Set ┆
0x09c0…09e0 74 6f 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 6d 61 6b 65 20 62 ┆to non-nil if you want to make b┆
0x09e0…0a00 75 66 66 65 72 73 20 72 65 61 64 20 6f 6e 6c 79 20 77 68 69 6c 65 20 68 69 64 69 6e 67 2e 0a 09 ┆uffers read only while hiding. ┆
0x0a00…0a20 41 66 74 65 72 20 73 68 6f 77 2d 69 66 64 65 66 73 2c 20 72 65 61 64 2d 6f 6e 6c 79 20 73 74 61 ┆After show-ifdefs, read-only sta┆
0x0a20…0a40 74 75 73 20 69 73 20 72 65 73 74 6f 72 65 64 20 74 6f 20 70 72 65 76 69 6f 75 73 20 76 61 6c 75 ┆tus is restored to previous valu┆
0x0a40…0a60 65 2e 0a 0a 5c 5c 7b 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 2d 6d 61 70 7d 22 20 28 69 6e ┆e. \\{hide-ifdef-mode-map}" (in┆
0x0a60…0a80 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c9 88 ca c0 21 ┆teractive "P") (byte-code " !┆
0x0a80…0aa0 88 09 3f 83 10 00 08 3f 82 15 00 cb 09 21 cc 56 89 10 88 cd 20 88 08 83 80 00 ce cf d0 5c 22 88 ┆ ? ? ! V \" ┆
0x0aa0…0ac0 ce d1 d2 5c 22 88 ce d3 d2 5c 22 88 ca c2 21 88 d4 c2 21 89 12 88 ca c3 21 88 d4 c3 21 89 13 88 ┆ \" \" ! ! ! ! ┆
0x0ac0…0ae0 ca c4 21 88 0d 89 14 88 ca d5 21 88 d6 20 89 16 06 88 d7 d8 d6 20 21 21 88 d9 0e 07 21 88 da 0e ┆ ! ! !! ! ┆
0x0ae0…0b00 07 db 5c 22 88 dc 20 88 dd de 21 88 0e 08 83 77 00 df 20 82 79 00 e0 20 88 e1 e2 21 82 8f 00 0b ┆ \" ! w y ! ┆
0x0b00…0b20 85 86 00 e0 20 88 d7 0e 06 21 88 e1 e3 21 87 22 20 5b 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 ┆ ! ! " [hide-ifdef-mod┆
0x0b20…0b40 65 20 61 72 67 20 68 69 64 65 2d 69 66 64 65 66 2d 65 6e 76 20 68 69 64 65 2d 69 66 64 65 66 2d ┆e arg hide-ifdef-env hide-ifdef-┆
0x0b40…0b60 68 69 64 69 6e 67 20 68 69 66 2d 6f 75 74 73 69 64 65 2d 72 65 61 64 2d 6f 6e 6c 79 20 62 75 66 ┆hiding hif-outside-read-only buf┆
0x0b60…0b80 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 2d 6d 61 ┆fer-read-only hide-ifdef-mode-ma┆
0x0b80…0ba0 70 2d 62 65 66 6f 72 65 20 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 2d 70 72 65 66 69 78 2d ┆p-before hide-ifdef-mode-prefix-┆
0x0ba0…0bc0 6b 65 79 20 68 69 64 65 2d 69 66 64 65 66 2d 69 6e 69 74 69 61 6c 6c 79 20 6e 69 6c 20 6d 61 6b ┆key hide-ifdef-initially nil mak┆
0x0bc0…0be0 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d ┆e-local-variable prefix-numeric-┆
0x0be0…0c00 76 61 6c 75 65 20 30 20 68 69 66 2d 75 70 64 61 74 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 6d 6f 64 ┆value 0 hif-update-mode-line mod┆
0x0c00…0c20 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 35 20 22 77 22 20 33 38 20 22 2e 22 20 31 ┆ify-syntax-entry 95 "w" 38 "." 1┆
0x0c20…0c40 32 34 20 64 65 66 61 75 6c 74 2d 76 61 6c 75 65 20 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 2d ┆24 default-value ide-ifdef-mode-┆
0x0c40…0c60 6d 61 70 2d 62 65 66 6f 72 65 20 63 75 72 72 65 6e 74 2d 6c 6f 63 61 6c 2d 6d 61 70 20 75 73 65 ┆map-before current-local-map use┆
0x0c60…0c80 2d 6c 6f 63 61 6c 2d 6d 61 70 20 63 6f 70 79 2d 6b 65 79 6d 61 70 20 6c 6f 63 61 6c 2d 75 6e 73 ┆-local-map copy-keymap local-uns┆
0x0c80…0ca0 65 74 2d 6b 65 79 20 6c 6f 63 61 6c 2d 73 65 74 2d 6b 65 79 20 68 69 64 65 2d 69 66 64 65 66 2d ┆et-key local-set-key hide-ifdef-┆
0x0ca0…0cc0 6d 6f 64 65 2d 6d 61 70 20 64 65 66 69 6e 65 2d 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 2d ┆mode-map define-hide-ifdef-mode-┆
0x0cc0…0ce0 6d 61 70 20 72 75 6e 2d 68 6f 6f 6b 73 20 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 2d 68 6f ┆map run-hooks hide-ifdef-mode-ho┆
0x0ce0…0d00 6f 6b 20 68 69 64 65 2d 69 66 64 65 66 73 20 73 68 6f 77 2d 69 66 64 65 66 73 20 6d 65 73 73 61 ┆ok hide-ifdefs show-ifdefs messa┆
0x0d00…0d20 67 65 20 22 45 6e 74 65 72 20 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 2e 22 20 22 45 78 69 ┆ge "Enter hide-ifdef-mode." "Exi┆
0x0d20…0d40 74 20 68 69 64 65 2d 69 66 64 65 66 2d 6d 6f 64 65 2e 22 5d 20 32 37 29 29 0a 0a 28 64 65 66 75 ┆t hide-ifdef-mode."] 27)) (defu┆
0x0d40…0d60 6e 20 68 69 66 2d 6f 75 74 6c 69 6e 65 2d 66 6c 61 67 2d 72 65 67 69 6f 6e 20 28 66 72 6f 6d 20 ┆n hif-outline-flag-region (from ┆
0x0d60…0d80 74 6f 20 66 6c 61 67 29 20 22 5c 0a 48 69 64 65 73 20 6f 72 20 73 68 6f 77 73 20 6c 69 6e 65 73 ┆to flag) "\ Hides or shows lines┆
0x0d80…0da0 20 66 72 6f 6d 20 46 52 4f 4d 20 74 6f 20 54 4f 2c 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 46 ┆ from FROM to TO, according to F┆
0x0da0…0dc0 4c 41 47 2e 20 20 49 66 20 46 4c 41 47 0a 69 73 20 5c 5c 6e 20 28 6e 65 77 6c 69 6e 65 20 63 68 ┆LAG. If FLAG is \\n (newline ch┆
0x0dc0…0de0 61 72 61 63 74 65 72 29 20 74 68 65 6e 20 74 65 78 74 20 69 73 20 73 68 6f 77 6e 2c 20 77 68 69 ┆aracter) then text is shown, whi┆
0x0de0…0e00 6c 65 20 69 66 20 46 4c 41 47 20 69 73 20 5c 5c 5e 4d 0a 28 63 6f 6e 74 72 6f 6c 2d 4d 29 20 74 ┆le if FLAG is \\^M (control-M) t┆
0x0e00…0e20 68 65 20 74 65 78 74 20 69 73 20 68 69 64 64 65 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆he text is hidden." (byte-code "┆
0x0e20…0e40 c5 20 18 c6 8e c7 09 0a 0b c8 55 83 12 00 c9 82 13 00 c8 0b c4 25 29 29 87 22 20 5b 6d 6f 64 70 ┆ U %)) " [modp┆
0x0e40…0e60 20 66 72 6f 6d 20 74 6f 20 66 6c 61 67 20 74 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d ┆ from to flag t buffer-modified-┆
0x0e60…0e80 70 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 6d 6f 64 70 20 73 65 74 2d 62 ┆p ((byte-code " ! " [modp set-b┆
0x0e80…0ea0 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 5d 20 32 29 29 20 73 75 62 73 74 2d 63 68 61 72 ┆uffer-modified-p] 2)) subst-char┆
0x0ea0…0ec0 2d 69 6e 2d 72 65 67 69 6f 6e 20 31 30 20 31 33 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 68 69 ┆-in-region 10 13] 7)) (defun hi┆
0x0ec0…0ee0 66 2d 73 68 6f 77 2d 61 6c 6c 20 6e 69 6c 20 22 5c 0a 53 68 6f 77 20 61 6c 6c 20 6f 66 20 74 68 ┆f-show-all nil "\ Show all of th┆
0x0ee0…0f00 65 20 74 65 78 74 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 20 28 ┆e text in the current buffer." (┆
0x0f00…0f20 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 65 64 c2 23 ┆interactive) (byte-code " ed #┆
0x0f20…0f40 87 22 20 5b 6e 69 6c 20 68 69 66 2d 6f 75 74 6c 69 6e 65 2d 66 6c 61 67 2d 72 65 67 69 6f 6e 20 ┆ " [nil hif-outline-flag-region ┆
0x0f40…0f60 31 30 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 68 69 64 65 2d 69 66 64 65 66 2d 72 65 67 69 6f ┆10] 4)) (defun hide-ifdef-regio┆
0x0f60…0f80 6e 20 28 73 74 61 72 74 20 65 6e 64 29 20 22 5c 0a 53 54 41 52 54 20 69 73 20 74 68 65 20 73 74 ┆n (start end) "\ START is the st┆
0x0f80…0fa0 61 72 74 20 6f 66 20 61 20 23 69 66 20 6f 72 20 23 65 6c 73 65 20 66 6f 72 6d 2e 20 20 45 4e 44 ┆art of a #if or #else form. END┆
0x0fa0…0fc0 20 69 73 20 74 68 65 20 65 6e 64 69 6e 67 20 70 61 72 74 2e 0a 45 76 65 72 79 74 68 69 6e 67 20 ┆ is the ending part. Everything ┆
0x0fc0…0fe0 69 6e 63 6c 75 64 69 6e 67 20 74 68 65 73 65 20 6c 69 6e 65 73 20 69 73 20 6d 61 64 65 20 69 6e ┆including these lines is made in┆
0x0fe0…1000 76 69 73 69 62 6c 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 09 c3 23 87 22 20 5b 73 ┆visible." (byte-code " # " [s┆
0x1000…1020 74 61 72 74 20 65 6e 64 20 68 69 66 2d 6f 75 74 6c 69 6e 65 2d 66 6c 61 67 2d 72 65 67 69 6f 6e ┆tart end hif-outline-flag-region┆
0x1020…1040 20 31 33 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 68 69 66 2d 73 68 6f 77 2d 69 66 64 65 66 2d ┆ 13] 4)) (defun hif-show-ifdef-┆
0x1040…1060 72 65 67 69 6f 6e 20 28 73 74 61 72 74 20 65 6e 64 29 20 22 5c 0a 45 76 65 72 79 74 68 69 6e 67 ┆region (start end) "\ Everything┆
0x1060…1080 20 62 65 74 77 65 65 6e 20 53 54 41 52 54 20 61 6e 64 20 45 4e 44 20 69 73 20 6d 61 64 65 20 76 ┆ between START and END is made v┆
0x1080…10a0 69 73 69 62 6c 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 09 c3 23 87 22 20 5b 73 74 ┆isible." (byte-code " # " [st┆
0x10a0…10c0 61 72 74 20 65 6e 64 20 68 69 66 2d 6f 75 74 6c 69 6e 65 2d 66 6c 61 67 2d 72 65 67 69 6f 6e 20 ┆art end hif-outline-flag-region ┆
0x10c0…10e0 31 30 5d 20 34 29 29 0a 0a 28 64 65 66 76 61 72 20 68 69 64 65 2d 69 66 64 65 66 2d 65 76 61 6c ┆10] 4)) (defvar hide-ifdef-eval┆
0x10e0…1100 75 61 74 6f 72 20 28 71 75 6f 74 65 20 65 76 61 6c 29 20 22 5c 0a 54 68 65 20 65 76 61 6c 75 61 ┆uator (quote eval) "\ The evalua┆
0x1100…1120 74 6f 72 20 69 73 20 67 69 76 65 6e 20 61 20 63 61 6e 6f 6e 69 63 61 6c 20 66 6f 72 6d 20 61 6e ┆tor is given a canonical form an┆
0x1120…1140 64 20 72 65 74 75 72 6e 73 20 54 20 69 66 20 74 65 78 74 20 75 6e 64 65 72 0a 74 68 61 74 20 66 ┆d returns T if text under that f┆
0x1140…1160 6f 72 6d 20 73 68 6f 75 6c 64 20 62 65 20 64 69 73 70 6c 61 79 65 64 2e 22 29 0a 0a 28 64 65 66 ┆orm should be displayed.") (def┆
0x1160…1180 76 61 72 20 68 69 66 2d 75 6e 64 65 66 69 6e 65 64 2d 73 79 6d 62 6f 6c 20 6e 69 6c 20 22 5c 0a ┆var hif-undefined-symbol nil "\ ┆
0x1180…11a0 2e 2e 2e 69 73 20 62 79 20 64 65 66 61 75 6c 74 20 63 6f 6e 73 69 64 65 72 65 64 20 74 6f 20 62 ┆...is by default considered to b┆
0x11a0…11c0 65 20 66 61 6c 73 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 68 69 64 65 2d 69 66 64 65 66 2d 65 ┆e false.") (defvar hide-ifdef-e┆
0x11c0…11e0 6e 76 20 6e 69 6c 20 22 5c 0a 41 6e 20 61 6c 69 73 74 20 6f 66 20 64 65 66 69 6e 65 64 20 73 79 ┆nv nil "\ An alist of defined sy┆
0x11e0…1200 6d 62 6f 6c 73 20 61 6e 64 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e 22 29 0a 0a 28 64 65 66 75 ┆mbols and their values.") (defu┆
0x1200…1220 6e 20 68 69 66 2d 73 65 74 2d 76 61 72 20 28 76 61 72 20 76 61 6c 75 65 29 20 22 5c 0a 50 72 65 ┆n hif-set-var (var value) "\ Pre┆
0x1220…1240 70 65 6e 64 20 28 76 61 72 20 76 61 6c 75 65 29 20 70 61 69 72 20 74 6f 20 68 69 64 65 2d 69 66 ┆pend (var value) pair to hide-if┆
0x1240…1260 64 65 66 2d 65 6e 76 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 0a 42 08 42 89 10 87 22 20 ┆def-env." (byte-code " B B " ┆
0x1260…1280 5b 68 69 64 65 2d 69 66 64 65 66 2d 65 6e 76 20 76 61 72 20 76 61 6c 75 65 5d 20 32 29 29 0a 0a ┆[hide-ifdef-env var value] 2)) ┆
0x1280…12a0 28 64 65 66 75 6e 20 68 69 66 2d 6c 6f 6f 6b 75 70 20 28 76 61 72 29 20 28 62 79 74 65 2d 63 6f ┆(defun hif-lookup (var) (byte-co┆
0x12a0…12c0 64 65 20 22 c4 09 0a 5c 22 18 08 83 0e 00 08 41 82 0f 00 0b 29 87 22 20 5b 76 61 6c 20 76 61 72 ┆de " \" A ) " [val var┆
0x12c0…12e0 20 68 69 64 65 2d 69 66 64 65 66 2d 65 6e 76 20 68 69 66 2d 75 6e 64 65 66 69 6e 65 64 2d 73 79 ┆ hide-ifdef-env hif-undefined-sy┆
0x12e0…1300 6d 62 6f 6c 20 61 73 73 6f 63 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 68 69 66 2d 64 65 66 69 ┆mbol assoc] 3)) (defun hif-defi┆
0x1300…1320 6e 65 64 20 28 76 61 72 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 76 61 72 ┆ned (var) (byte-code " ! " [var┆
0x1320…1340 20 68 69 66 2d 6c 6f 6f 6b 75 70 5d 20 32 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 68 69 66 2d ┆ hif-lookup] 2)) (defconst hif-┆
0x1340…1360 63 70 70 2d 70 72 65 66 69 78 20 22 5c 5c 28 5e 5c 5c 7c 0d 5c 5c 29 5b 20 09 5d 2a 23 5b 20 09 ┆cpp-prefix "\\(^\\| \\)[ ]*#[ ┆
0x1360…1380 5d 2a 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 68 69 66 2d 69 66 6e 64 65 66 2d 72 65 67 65 78 ┆]*") (defconst hif-ifndef-regex┆
0x1380…13a0 70 20 28 63 6f 6e 63 61 74 20 68 69 66 2d 63 70 70 2d 70 72 65 66 69 78 20 22 69 66 6e 64 65 66 ┆p (concat hif-cpp-prefix "ifndef┆
0x13a0…13c0 22 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 68 69 66 2d 69 66 78 2d 72 65 67 65 78 70 20 28 63 ┆")) (defconst hif-ifx-regexp (c┆
0x13c0…13e0 6f 6e 63 61 74 20 68 69 66 2d 63 70 70 2d 70 72 65 66 69 78 20 22 69 66 5c 5c 28 6e 3f 64 65 66 ┆oncat hif-cpp-prefix "if\\(n?def┆
0x13e0…1400 5c 5c 29 3f 5b 20 09 5d 2b 22 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 68 69 66 2d 65 6c 73 65 ┆\\)?[ ]+")) (defconst hif-else┆
0x1400…1420 2d 72 65 67 65 78 70 20 28 63 6f 6e 63 61 74 20 68 69 66 2d 63 70 70 2d 70 72 65 66 69 78 20 22 ┆-regexp (concat hif-cpp-prefix "┆
0x1420…1440 65 6c 73 65 22 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 68 69 66 2d 65 6e 64 69 66 2d 72 65 67 ┆else")) (defconst hif-endif-reg┆
0x1440…1460 65 78 70 20 28 63 6f 6e 63 61 74 20 68 69 66 2d 63 70 70 2d 70 72 65 66 69 78 20 22 65 6e 64 69 ┆exp (concat hif-cpp-prefix "endi┆
0x1460…1480 66 22 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 68 69 66 2d 69 66 78 2d 65 6c 73 65 2d 65 6e 64 ┆f")) (defconst hif-ifx-else-end┆
0x1480…14a0 69 66 2d 72 65 67 65 78 70 20 28 63 6f 6e 63 61 74 20 68 69 66 2d 69 66 78 2d 72 65 67 65 78 70 ┆if-regexp (concat hif-ifx-regexp┆
0x14a0…14c0 20 22 5c 5c 7c 22 20 68 69 66 2d 65 6c 73 65 2d 72 65 67 65 78 70 20 22 5c 5c 7c 22 20 68 69 66 ┆ "\\|" hif-else-regexp "\\|" hif┆
0x14c0…14e0 2d 65 6e 64 69 66 2d 72 65 67 65 78 70 29 29 0a 0a 28 64 65 66 75 6e 20 68 69 66 2d 69 6e 66 69 ┆-endif-regexp)) (defun hif-infi┆
0x14e0…1500 78 2d 74 6f 2d 70 72 65 66 69 78 20 28 74 6f 6b 65 6e 2d 6c 69 73 74 29 20 22 5c 0a 43 6f 6e 76 ┆x-to-prefix (token-list) "\ Conv┆
0x1500…1520 65 72 74 20 6c 69 73 74 20 6f 66 20 74 6f 6b 65 6e 73 20 69 6e 20 69 6e 66 69 78 20 69 6e 74 6f ┆ert list of tokens in infix into┆
0x1520…1540 20 70 72 65 66 69 78 20 6c 69 73 74 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 47 55 83 10 ┆ prefix list" (byte-code " GU ┆
0x1540…1560 00 c2 c3 08 40 44 44 82 13 00 c4 08 21 87 22 20 5b 74 6f 6b 65 6e 2d 6c 69 73 74 20 31 20 68 69 ┆ @DD ! " [token-list 1 hi┆
0x1560…1580 66 2d 6c 6f 6f 6b 75 70 20 71 75 6f 74 65 20 68 69 66 2d 70 61 72 73 65 2d 69 66 2d 65 78 70 5d ┆f-lookup quote hif-parse-if-exp]┆
0x1580…15a0 20 33 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 68 69 66 2d 74 6f 6b 65 6e 2d 72 65 67 65 78 70 ┆ 3)) (defconst hif-token-regexp┆
0x15a0…15c0 20 22 5e 5c 5c 28 21 5c 5c 7c 26 26 5c 5c 7c 7c 7c 5c 5c 7c 5b 28 29 5d 5c 5c 7c 5c 5c 77 2b 5c ┆ "^\\(!\\|&&\\|||\\|[()]\\|\\w+\┆
0x15c0…15e0 5c 29 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 68 69 66 2d 65 6e 64 2d 6f 66 2d 63 6f 6d 6d 65 ┆\)") (defconst hif-end-of-comme┆
0x15e0…1600 6e 74 20 22 5c 5c 2a 2f 22 29 0a 0a 28 64 65 66 75 6e 20 68 69 66 2d 74 6f 6b 65 6e 69 7a 65 20 ┆nt "\\*/") (defun hif-tokenize ┆
0x1600…1620 28 65 78 70 72 2d 73 74 72 69 6e 67 29 20 22 5c 0a 53 65 70 61 72 61 74 65 20 73 74 72 69 6e 67 ┆(expr-string) "\ Separate string┆
0x1620…1640 20 69 6e 74 6f 20 61 20 6c 69 73 74 20 6f 66 20 74 6f 6b 65 6e 73 22 20 28 62 79 74 65 2d 63 6f ┆ into a list of tokens" (byte-co┆
0x1640…1660 64 65 20 22 c1 c9 0c 47 1b 1a 18 0a 0b 57 85 cc 00 ca cb 0c 0a 23 83 23 00 cc c9 21 89 12 88 0c ┆de " G W # # ! ┆
0x1660…1680 0a 53 cd 49 82 c8 00 ca ce 0c 0a 23 83 53 00 cc c9 21 89 12 88 0c 0a 53 cd 49 88 ca 0d 0c 0a 23 ┆ S I # S ! S I #┆
0x1680…16a0 86 44 00 ca cf 0c 0a 23 88 cc c9 21 89 12 88 0c 0a 53 cd 49 82 c8 00 ca 0e 06 0c 0a 23 83 c4 00 ┆ D # ! S I # ┆
0x16a0…16c0 0c 0a cc c9 21 4f 1e 07 cc c9 21 89 12 88 0c 0a 53 cd 49 88 d0 0e 07 d1 5c 22 83 7c 00 d2 82 bc ┆ !O ! S I \" | ┆
0x16c0…16e0 00 d0 0e 07 d3 5c 22 83 88 00 d4 82 bc 00 d0 0e 07 d5 5c 22 83 94 00 d6 82 bc 00 d0 0e 07 d7 5c ┆ \" \" \┆
0x16e0…1700 22 83 a0 00 d8 82 bc 00 d0 0e 07 d9 5c 22 83 ac 00 da 82 bc 00 d0 0e 07 db 5c 22 83 b8 00 dc 82 ┆" \" \" ┆
0x1700…1720 bc 00 dd 0e 07 21 08 42 89 10 29 82 c8 00 de df 0c 5c 22 88 82 07 00 88 e0 08 21 2b 87 22 20 5b ┆ ! B ) \" !+ " [┆
0x1720…1740 74 6f 6b 65 6e 2d 6c 69 73 74 20 6e 69 6c 20 65 78 70 72 2d 73 74 61 72 74 20 65 78 70 72 2d 6c ┆token-list nil expr-start expr-l┆
0x1740…1760 65 6e 67 74 68 20 65 78 70 72 2d 73 74 72 69 6e 67 20 68 69 66 2d 65 6e 64 2d 6f 66 2d 63 6f 6d ┆ength expr-string hif-end-of-com┆
0x1760…1780 6d 65 6e 74 20 68 69 66 2d 74 6f 6b 65 6e 2d 72 65 67 65 78 70 20 74 6f 6b 65 6e 20 74 20 30 20 ┆ment hif-token-regexp token t 0 ┆
0x1780…17a0 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 5b 20 09 5d 2b 22 20 6d 61 74 63 68 2d 65 6e 64 20 ┆string-match "^[ ]+" match-end ┆
0x17a0…17c0 31 30 20 22 5e 2f 5c 5c 2a 22 20 22 24 22 20 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 22 7c 7c 22 ┆10 "^/\\*" "$" string-equal "||"┆
0x17c0…17e0 20 6f 72 20 22 26 26 22 20 61 6e 64 20 22 21 22 20 6e 6f 74 20 22 64 65 66 69 6e 65 64 22 20 68 ┆ or "&&" and "!" not "defined" h┆
0x17e0…1800 69 66 2d 64 65 66 69 6e 65 64 20 22 28 22 20 6c 70 61 72 65 6e 20 22 29 22 20 72 70 61 72 65 6e ┆if-defined "(" lparen ")" rparen┆
0x1800…1820 20 69 6e 74 65 72 6e 20 65 72 72 6f 72 20 22 42 61 64 20 23 69 66 20 65 78 70 72 65 73 73 69 6f ┆ intern error "Bad #if expressio┆
0x1820…1840 6e 3a 20 25 73 22 20 6e 72 65 76 65 72 73 65 5d 20 32 31 29 29 0a 0a 28 64 65 66 75 6e 20 68 69 ┆n: %s" nreverse] 21)) (defun hi┆
0x1840…1860 66 2d 70 61 72 73 65 2d 69 66 2d 65 78 70 20 28 74 6f 6b 65 6e 2d 6c 69 73 74 29 20 22 5c 0a 50 ┆f-parse-if-exp (token-list) "\ P┆
0x1860…1880 61 72 73 65 20 74 68 65 20 54 4f 4b 45 4e 2d 4c 49 53 54 2e 20 20 52 65 74 75 72 6e 20 74 72 61 ┆arse the TOKEN-LIST. Return tra┆
0x1880…18a0 6e 73 6c 61 74 65 64 20 6c 69 73 74 20 69 6e 20 70 72 65 66 69 78 20 66 6f 72 6d 2e 22 20 28 62 ┆nslated list in prefix form." (b┆
0x18a0…18c0 79 74 65 2d 63 6f 64 65 20 22 c1 20 88 c2 20 08 85 0d 00 c3 c4 08 5c 22 88 87 22 20 5b 74 6f 6b ┆yte-code " \" " [tok┆
0x18c0…18e0 65 6e 20 68 69 66 2d 6e 65 78 74 74 6f 6b 65 6e 20 68 69 66 2d 65 78 70 72 20 65 72 72 6f 72 20 ┆en hif-nexttoken hif-expr error ┆
0x18e0…1900 22 45 72 72 6f 72 3a 20 75 6e 65 78 70 65 63 74 65 64 20 74 6f 6b 65 6e 3a 20 25 73 22 5d 20 36 ┆"Error: unexpected token: %s"] 6┆
0x1900…1920 29 29 0a 0a 28 64 65 66 75 6e 20 68 69 66 2d 6e 65 78 74 74 6f 6b 65 6e 20 6e 69 6c 20 22 5c 0a ┆)) (defun hif-nexttoken nil "\ ┆
[…truncated at 200 lines…]