DataMuseum.dk

top - metrics - download

    Length: 7354 (0x1cba)
    Names: »tags.elc«

└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
    └─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z« 
        └─⟦fa971747f⟧ 
            └─⟦this⟧ »dist-18.55/lisp/tags.elc« 

Hex Dump

0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 74 61 67 73 29 29 0a 0a 28 64 65 66 76 61 72   ┆ (provide (quote tags))  (defvar┆
0x0020…0040 20 74 61 67 2d 74 61 62 6c 65 2d 66 69 6c 65 73 20 6e 69 6c 20 22 5c 0a 4c 69 73 74 20 6f 66 20   ┆ tag-table-files nil "\ List of ┆
0x0040…0060 66 69 6c 65 20 6e 61 6d 65 73 20 63 6f 76 65 72 65 64 20 62 79 20 63 75 72 72 65 6e 74 20 74 61   ┆file names covered by current ta┆
0x0060…0080 67 20 74 61 62 6c 65 2e 0a 6e 69 6c 20 6d 65 61 6e 73 20 69 74 20 68 61 73 20 6e 6f 74 20 62 65   ┆g table. nil means it has not be┆
0x0080…00a0 65 6e 20 63 6f 6d 70 75 74 65 64 20 79 65 74 3b 20 64 6f 20 28 74 61 67 2d 74 61 62 6c 65 2d 66   ┆en computed yet; do (tag-table-f┆
0x00a0…00c0 69 6c 65 73 29 20 74 6f 20 63 6f 6d 70 75 74 65 20 69 74 2e 22 29 0a 0a 28 64 65 66 76 61 72 20   ┆iles) to compute it.")  (defvar ┆
0x00c0…00e0 6c 61 73 74 2d 74 61 67 20 6e 69 6c 20 22 5c 0a 54 61 67 20 66 6f 75 6e 64 20 62 79 20 74 68 65   ┆last-tag nil "\ Tag found by the┆
0x00e0…0100 20 6c 61 73 74 20 66 69 6e 64 2d 74 61 67 2e 22 29 0a 0a 28 64 65 66 75 6e 20 76 69 73 69 74 2d   ┆ last find-tag.")  (defun visit-┆
0x0100…0120 74 61 67 73 2d 74 61 62 6c 65 20 28 66 69 6c 65 29 20 22 5c 0a 54 65 6c 6c 20 74 61 67 73 20 63   ┆tags-table (file) "\ Tell tags c┆
0x0120…0140 6f 6d 6d 61 6e 64 73 20 74 6f 20 75 73 65 20 74 61 67 20 74 61 62 6c 65 20 66 69 6c 65 20 46 49   ┆ommands to use tag table file FI┆
0x0140…0160 4c 45 2e 0a 46 49 4c 45 20 73 68 6f 75 6c 64 20 62 65 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61   ┆LE. FILE should be the name of a┆
0x0160…0180 20 66 69 6c 65 20 63 72 65 61 74 65 64 20 77 69 74 68 20 74 68 65 20 60 65 74 61 67 73 27 20 70   ┆ file created with the `etags' p┆
0x0180…01a0 72 6f 67 72 61 6d 2e 0a 41 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 20 69 73 20 6f 6b 20 74   ┆rogram. A directory name is ok t┆
0x01a0…01c0 6f 6f 3b 20 69 74 20 6d 65 61 6e 73 20 66 69 6c 65 20 54 41 47 53 20 69 6e 20 74 68 61 74 20 64   ┆oo; it means file TAGS in that d┆
0x01c0…01e0 69 72 65 63 74 6f 72 79 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f   ┆irectory." (interactive (byte-co┆
0x01e0…0200 64 65 20 22 c2 c3 08 08 c4 50 c1 24 43 87 22 20 5b 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f   ┆de "     P $C " [default-directo┆
0x0200…0220 72 79 20 74 20 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 56 69 73 69 74 20 74 61 67 73 20   ┆ry t read-file-name "Visit tags ┆
0x0220…0240 74 61 62 6c 65 3a 20 28 64 65 66 61 75 6c 74 20 54 41 47 53 29 20 22 20 22 54 41 47 53 22 5d 20   ┆table: (default TAGS) " "TAGS"] ┆
0x0240…0260 35 29 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c6 0a 21 89 12 88 c7 0a 21 85 13 00 0a c8   ┆5)) (byte-code "    !     !     ┆
0x0260…0280 50 89 12 88 c4 13 0a 89 15 87 22 20 5b 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 74   ┆P         " [default-directory t┆
0x0280…02a0 20 66 69 6c 65 20 74 61 67 2d 74 61 62 6c 65 2d 66 69 6c 65 73 20 6e 69 6c 20 74 61 67 73 2d 66   ┆ file tag-table-files nil tags-f┆
0x02a0…02c0 69 6c 65 2d 6e 61 6d 65 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 2d 64   ┆ile-name expand-file-name file-d┆
0x02c0…02e0 69 72 65 63 74 6f 72 79 2d 70 20 22 54 41 47 53 22 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 76   ┆irectory-p "TAGS"] 4))  (defun v┆
0x02e0…0300 69 73 69 74 2d 74 61 67 73 2d 74 61 62 6c 65 2d 62 75 66 66 65 72 20 6e 69 6c 20 22 5c 0a 53 65   ┆isit-tags-table-buffer nil "\ Se┆
0x0300…0320 6c 65 63 74 20 74 68 65 20 62 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 63   ┆lect the buffer containing the c┆
0x0320…0340 75 72 72 65 6e 74 20 74 61 67 20 74 61 62 6c 65 2e 0a 54 68 69 73 20 69 73 20 61 20 66 69 6c 65   ┆urrent tag table. This is a file┆
0x0340…0360 20 77 68 6f 73 65 20 6e 61 6d 65 20 69 73 20 69 6e 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 74   ┆ whose name is in the variable t┆
0x0360…0380 61 67 73 2d 66 69 6c 65 2d 6e 61 6d 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 86 07 00   ┆ags-file-name." (byte-code "    ┆
0x0380…03a0 c4 c5 21 88 c6 08 21 86 15 00 c2 89 11 88 c7 08 21 71 88 c8 c6 08 21 21 86 2d 00 c9 ca 21 85 2d   ┆  !   !         !q    !! -   ! -┆
0x03a0…03c0 00 cb c3 c3 5c 22 88 c2 89 11 88 cc 66 cd 3d 86 39 00 ce cf 08 5c 22 87 22 20 5b 74 61 67 73 2d   ┆    \"      f = 9    \" " [tags-┆
0x03c0…03e0 66 69 6c 65 2d 6e 61 6d 65 20 74 61 67 2d 74 61 62 6c 65 2d 66 69 6c 65 73 20 6e 69 6c 20 74 20   ┆file-name tag-table-files nil t ┆
0x03e0…0400 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 76 69 73 69 74 2d 74 61 67 73 2d 74 61   ┆call-interactively visit-tags-ta┆
0x0400…0420 62 6c 65 20 67 65 74 2d 66 69 6c 65 2d 62 75 66 66 65 72 20 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f   ┆ble get-file-buffer find-file-no┆
0x0420…0440 73 65 6c 65 63 74 20 76 65 72 69 66 79 2d 76 69 73 69 74 65 64 2d 66 69 6c 65 2d 6d 6f 64 74 69   ┆select verify-visited-file-modti┆
0x0440…0460 6d 65 20 79 65 73 2d 6f 72 2d 6e 6f 2d 70 20 22 54 61 67 73 20 66 69 6c 65 20 68 61 73 20 63 68   ┆me yes-or-no-p "Tags file has ch┆
0x0460…0480 61 6e 67 65 64 2c 20 72 65 61 64 20 6e 65 77 20 63 6f 6e 74 65 6e 74 73 3f 20 22 20 72 65 76 65   ┆anged, read new contents? " reve┆
0x0480…04a0 72 74 2d 62 75 66 66 65 72 20 31 20 31 32 20 65 72 72 6f 72 20 22 46 69 6c 65 20 25 73 20 6e 6f   ┆rt-buffer 1 12 error "File %s no┆
0x04a0…04c0 74 20 61 20 76 61 6c 69 64 20 74 61 67 20 74 61 62 6c 65 22 5d 20 31 30 29 29 0a 0a 28 64 65 66   ┆t a valid tag table"] 10))  (def┆
0x04c0…04e0 75 6e 20 66 69 6c 65 2d 6f 66 2d 74 61 67 20 6e 69 6c 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65   ┆un file-of-tag nil "\ Return the┆
0x04e0…0500 20 66 69 6c 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 66 69 6c 65 20 77 68 6f 73 65 20 74 61 67   ┆ file name of the file whose tag┆
0x0500…0520 73 20 70 6f 69 6e 74 20 69 73 20 77 69 74 68 69 6e 2e 0a 41 73 73 75 6d 65 73 20 74 68 65 20 74   ┆s point is within. Assumes the t┆
0x0520…0540 61 67 20 74 61 62 6c 65 20 69 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 0a   ┆ag table is the current buffer. ┆
0x0540…0560 46 69 6c 65 20 6e 61 6d 65 20 72 65 74 75 72 6e 65 64 20 69 73 20 72 65 6c 61 74 69 76 65 20 74   ┆File name returned is relative t┆
0x0560…0580 6f 20 74 61 67 20 74 61 62 6c 65 20 66 69 6c 65 27 73 20 64 69 72 65 63 74 6f 72 79 2e 22 20 28   ┆o tag table file's directory." (┆
0x0580…05a0 62 79 74 65 2d 63 6f 64 65 20 22 60 c3 c3 1a 19 18 8a 65 62 88 60 08 57 85 33 00 c4 c5 21 88 c6   ┆byte-code "`      eb ` W 3   !  ┆
0x05a0…05c0 20 88 c7 c8 21 88 60 89 11 88 c9 70 21 89 12 88 09 62 88 c4 c5 21 88 ca 0a 21 88 82 0a 00 88 09   ┆    ! `    p!    b   !   !      ┆
0x05c0…05e0 53 62 88 cb 60 cc 20 88 60 5c 22 29 2b 87 22 20 5b 6f 70 6f 69 6e 74 20 70 72 65 76 20 73 69 7a   ┆Sb  `   `\")+ " [opoint prev siz┆
0x05e0…0600 65 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65   ┆e nil forward-line 1 end-of-line┆
0x0600…0620 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 5e 2c 0a 22 20 72 65 61 64 20   ┆ skip-chars-backward "^, " read ┆
0x0620…0640 66 6f 72 77 61 72 64 2d 63 68 61 72 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 62 65   ┆forward-char buffer-substring be┆
0x0640…0660 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 74 61   ┆ginning-of-line] 10))  (defun ta┆
0x0660…0680 67 2d 74 61 62 6c 65 2d 66 69 6c 65 73 20 6e 69 6c 20 22 5c 0a 52 65 74 75 72 6e 20 61 20 6c 69   ┆g-table-files nil "\ Return a li┆
0x0680…06a0 73 74 20 6f 66 20 66 69 6c 65 73 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 61 67 20 74   ┆st of files in the current tag t┆
0x06a0…06c0 61 62 6c 65 2e 0a 46 69 6c 65 20 6e 61 6d 65 73 20 72 65 74 75 72 6e 65 64 20 61 72 65 20 61 62   ┆able. File names returned are ab┆
0x06c0…06e0 73 6f 6c 75 74 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a c5 20 88 08 86 50 00 c6 19 65   ┆solute." (byte-code "      P   e┆
0x06e0…0700 62 88 6d 3f 85 49 00 c7 c8 21 88 c9 20 88 ca cb 21 88 60 89 12 88 cc 70 21 89 13 88 0a 62 88 cd   ┆b m? I   !      ! `    p!    b  ┆
0x0700…0720 ce 60 53 8a cf 20 88 60 29 5c 22 d0 0c 21 5c 22 09 42 89 11 88 c7 c8 21 88 d1 0b 21 88 82 0d 00   ┆ `S    `)\"  !\" B     !   !    ┆
0x0720…0740 88 d2 09 21 89 10 29 29 87 22 20 5b 74 61 67 2d 74 61 62 6c 65 2d 66 69 6c 65 73 20 66 69 6c 65   ┆   !  )) " [tag-table-files file┆
0x0740…0760 73 20 70 72 65 76 20 73 69 7a 65 20 74 61 67 73 2d 66 69 6c 65 2d 6e 61 6d 65 20 76 69 73 69 74   ┆s prev size tags-file-name visit┆
0x0760…0780 2d 74 61 67 73 2d 74 61 62 6c 65 2d 62 75 66 66 65 72 20 6e 69 6c 20 66 6f 72 77 61 72 64 2d 6c   ┆-tags-table-buffer nil forward-l┆
0x0780…07a0 69 6e 65 20 31 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63   ┆ine 1 end-of-line skip-chars-bac┆
0x07a0…07c0 6b 77 61 72 64 20 22 5e 2c 0a 22 20 72 65 61 64 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d   ┆kward "^, " read expand-file-nam┆
0x07c0…07e0 65 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d   ┆e buffer-substring beginning-of-┆
0x07e0…0800 6c 69 6e 65 20 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 66 6f 72 77 61 72 64   ┆line file-name-directory forward┆
0x0800…0820 2d 63 68 61 72 20 6e 72 65 76 65 72 73 65 5d 20 31 34 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e   ┆-char nreverse] 14))  (defun fin┆
0x0820…0840 64 2d 74 61 67 2d 64 65 66 61 75 6c 74 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a c2   ┆d-tag-default nil (byte-code "  ┆
0x0840…0860 c3 21 85 0e 00 c4 c5 21 88 82 01 00 88 c6 c3 c0 c1 23 83 34 00 c4 c5 21 88 c7 60 c8 c9 21 88 c2   ┆ !     !         # 4   !  `  !  ┆
0x0860…0880 ca 21 85 2e 00 c4 c5 21 88 82 21 00 88 60 5c 22 82 35 00 c0 29 87 22 20 5b 6e 69 6c 20 74 20 6c   ┆ ! .   !  !  `\" 5  ) " [nil t l┆
0x0880…08a0 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 77 5c 5c 7c 5c 5c 73 5f 22 20 66 6f 72 77 61 72 64 2d   ┆ooking-at "\\sw\\|\\s_" forward-┆
0x08a0…08c0 63 68 61 72 20 31 20 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 62 75 66 66 65 72   ┆char 1 re-search-backward buffer┆
0x08c0…08e0 2d 73 75 62 73 74 72 69 6e 67 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 2d 31 20 22 5c 5c 73 27   ┆-substring forward-sexp -1 "\\s'┆
0x08e0…0900 22 5d 20 31 31 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 74 61 67 2d 74 61 67 20 28 73 74   ┆"] 11))  (defun find-tag-tag (st┆
0x0900…0920 72 69 6e 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 20 18 c4 08 83 10 00 c5 c6 0a 08 23 82   ┆ring) (byte-code "            # ┆
0x0920…0940 11 00 0a 21 19 c7 09 c8 5c 22 83 1e 00 08 82 1f 00 09 43 2a 87 22 20 5b 64 65 66 61 75 6c 74 20   ┆   !    \"        C* " [default ┆
0x0940…0960 73 70 65 63 20 73 74 72 69 6e 67 20 66 69 6e 64 2d 74 61 67 2d 64 65 66 61 75 6c 74 20 72 65 61   ┆spec string find-tag-default rea┆
0x0960…0980 64 2d 73 74 72 69 6e 67 20 66 6f 72 6d 61 74 20 22 25 73 28 64 65 66 61 75 6c 74 20 25 73 29 20   ┆d-string format "%s(default %s) ┆
0x0980…09a0 22 20 65 71 75 61 6c 20 22 22 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 74 61 67   ┆" equal ""] 6))  (defun find-tag┆
0x09a0…09c0 20 28 74 61 67 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 65 78 74 20 6f 74 68 65 72 2d 77   ┆ (tagname &optional next other-w┆
0x09c0…09e0 69 6e 64 6f 77 29 20 22 5c 0a 46 69 6e 64 20 74 61 67 20 28 69 6e 20 63 75 72 72 65 6e 74 20 74   ┆indow) "\ Find tag (in current t┆
0x09e0…0a00 61 67 20 74 61 62 6c 65 29 20 77 68 6f 73 65 20 6e 61 6d 65 20 63 6f 6e 74 61 69 6e 73 20 54 41   ┆ag table) whose name contains TA┆
0x0a00…0a20 47 4e 41 4d 45 2e 0a 20 53 65 6c 65 63 74 73 20 74 68 65 20 62 75 66 66 65 72 20 74 68 61 74 20   ┆GNAME.  Selects the buffer that ┆
0x0a20…0a40 74 68 65 20 74 61 67 20 69 73 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e 0a 61 6e 64 20 70 75 74 73   ┆the tag is contained in and puts┆
0x0a40…0a60 20 70 6f 69 6e 74 20 61 74 20 69 74 73 20 64 65 66 69 6e 69 74 69 6f 6e 2e 0a 20 49 66 20 54 41   ┆ point at its definition.  If TA┆
0x0a60…0a80 47 4e 41 4d 45 20 69 73 20 61 20 6e 75 6c 6c 20 73 74 72 69 6e 67 2c 20 74 68 65 20 65 78 70 72   ┆GNAME is a null string, the expr┆
0x0a80…0aa0 65 73 73 69 6f 6e 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 0a 61 72 6f 75 6e 64 20 6f 72 20 62   ┆ession in the buffer around or b┆
0x0aa0…0ac0 65 66 6f 72 65 20 70 6f 69 6e 74 20 69 73 20 75 73 65 64 20 61 73 20 74 68 65 20 74 61 67 20 6e   ┆efore point is used as the tag n┆
0x0ac0…0ae0 61 6d 65 2e 0a 20 49 66 20 73 65 63 6f 6e 64 20 61 72 67 20 4e 45 58 54 20 69 73 20 6e 6f 6e 2d   ┆ame.  If second arg NEXT is non-┆
0x0ae0…0b00 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2c 20 77 69 74 68 20 70 72 65 66 69 78 20   ┆nil (interactively, with prefix ┆
0x0b00…0b20 61 72 67 29 2c 0a 73 65 61 72 63 68 65 73 20 66 6f 72 20 74 68 65 20 6e 65 78 74 20 74 61 67 20   ┆arg), searches for the next tag ┆
0x0b20…0b40 69 6e 20 74 68 65 20 74 61 67 20 74 61 62 6c 65 0a 74 68 61 74 20 6d 61 74 63 68 65 73 20 74 68   ┆in the tag table that matches th┆
0x0b40…0b60 65 20 74 61 67 6e 61 6d 65 20 75 73 65 64 20 69 6e 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 66   ┆e tagname used in the previous f┆
0x0b60…0b80 69 6e 64 2d 74 61 67 2e 0a 0a 53 65 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 76   ┆ind-tag.  See documentation of v┆
0x0b80…0ba0 61 72 69 61 62 6c 65 20 74 61 67 73 2d 66 69 6c 65 2d 6e 61 6d 65 2e 22 20 28 69 6e 74 65 72 61   ┆ariable tags-file-name." (intera┆
0x0ba0…0bc0 63 74 69 76 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 83 08 00 c1 82 0b 00 c2 c3 21 87 22 20   ┆ctive (byte-code "          ! " ┆
0x0bc0…0be0 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 28 6e 69 6c 20 74 29 20 66 69 6e 64   ┆[current-prefix-arg (nil t) find┆
0x0be0…0c00 2d 74 61 67 2d 74 61 67 20 22 46 69 6e 64 20 74 61 67 3a 20 22 5d 20 32 29 29 20 28 62 79 74 65   ┆-tag-tag "Find tag: "] 2)) (byte┆
0x0c00…0c20 2d 63 6f 64 65 20 22 c8 88 c8 c8 c8 c8 1c 1b 1a 19 8a d0 20 88 0d 3f 83 18 00 65 62 82 1d 00 0e   ┆-code "               ?   eb    ┆
0x0c20…0c40 07 89 16 06 88 0e 06 89 16 07 88 d1 0e 06 c8 c9 23 3f 85 3c 00 d2 d3 0d 83 38 00 d4 82 39 00 d5   ┆                #? <     8   9  ┆
0x0c40…0c60 0e 06 23 88 d6 d7 21 3f 85 49 00 c8 88 82 24 00 88 d1 d8 21 88 d9 da 20 db 0e 0a 21 5c 22 89 12   ┆  #   !? I    $    !       !\"  ┆
0x0c60…0c80 88 dc 60 53 8a dd 20 88 60 29 5c 22 89 13 88 d1 de 21 88 df 70 21 89 14 29 88 0e 0b 83 7c 00 e0   ┆  `S    `)\"     !  p!  )    |  ┆
0x0c80…0ca0 0a 21 82 7f 00 e1 0a 21 88 e2 20 88 e3 20 88 e4 c8 e5 e6 0b 21 50 1e 0e 1e 0d 1e 0c 0c 86 9a 00   ┆ !     !            !P          ┆
0x0ca0…0cc0 65 89 14 88 0e 0d 3f 85 a9 00 0c 0e 0c 5a 62 88 6f 3f 85 c5 00 e7 0e 0e 0c 0e 0c 5c 5c c9 23 89   ┆e     ?      Zb o?         \\ # ┆
0x0cc0…0ce0 16 0d 88 e8 e9 0e 0c 5c 22 89 16 0c 88 82 9b 00 88 0e 0d 86 da 00 e7 0e 0e c8 c9 23 86 da 00 d2   ┆       \"                  #    ┆
0x0ce0…0d00 ea 0e 0e 0a 23 2b 88 dd 20 2c 88 eb 89 16 0f 88 c9 87 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65   ┆    #+   ,        " [current-pre┆
0x0d00…0d20 66 69 78 2d 61 72 67 20 62 75 66 66 65 72 20 66 69 6c 65 20 6c 69 6e 65 62 65 67 20 73 74 61 72   ┆fix-arg buffer file linebeg star┆
0x0d20…0d40 74 70 6f 73 20 6e 65 78 74 20 74 61 67 6e 61 6d 65 20 6c 61 73 74 2d 74 61 67 20 6e 69 6c 20 74   ┆tpos next tagname last-tag nil t┆
0x0d40…0d60 20 74 61 67 73 2d 66 69 6c 65 2d 6e 61 6d 65 20 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 6f 66 66   ┆ tags-file-name other-window off┆
0x0d60…0d80 73 65 74 20 66 6f 75 6e 64 20 70 61 74 20 74 61 67 73 2d 6c 6f 6f 70 2d 66 6f 72 6d 20 76 69 73   ┆set found pat tags-loop-form vis┆
0x0d80…0da0 69 74 2d 74 61 67 73 2d 74 61 62 6c 65 2d 62 75 66 66 65 72 20 73 65 61 72 63 68 2d 66 6f 72 77   ┆it-tags-table-buffer search-forw┆
0x0da0…0dc0 61 72 64 20 65 72 72 6f 72 20 22 4e 6f 20 25 73 65 6e 74 72 69 65 73 20 63 6f 6e 74 61 69 6e 69   ┆ard error "No %sentries containi┆
0x0dc0…0de0 6e 67 20 25 73 22 20 22 6d 6f 72 65 20 22 20 22 22 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b 5e   ┆ng %s" "more " "" looking-at "[^┆
0x0de0…0e00 0a 7f 5d 2a 7f 22 20 22 7f 22 20 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65   ┆  ]* " " " expand-file-name file┆
0x0e00…0e20 2d 6f 66 2d 74 61 67 20 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 62 75 66 66   ┆-of-tag file-name-directory buff┆
0x0e20…0e40 65 72 2d 73 75 62 73 74 72 69 6e 67 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 22   ┆er-substring beginning-of-line "┆
0x0e40…0e60 2c 22 20 72 65 61 64 20 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 66   ┆," read find-file-other-window f┆
0x0e60…0e80 69 6e 64 2d 66 69 6c 65 20 77 69 64 65 6e 20 70 75 73 68 2d 6d 61 72 6b 20 31 30 30 30 20 22 5e   ┆ind-file widen push-mark 1000 "^┆
0x0e80…0ea0 22 20 72 65 67 65 78 70 2d 71 75 6f 74 65 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64   ┆" regexp-quote re-search-forward┆
0x0ea0…0ec0 20 2a 20 33 20 22 25 73 20 6e 6f 74 20 66 6f 75 6e 64 20 69 6e 20 25 73 22 20 28 66 69 6e 64 2d   ┆ * 3 "%s not found in %s" (find-┆
0x0ec0…0ee0 74 61 67 20 6e 69 6c 20 74 29 5d 20 32 34 29 29 0a 0a 28 64 65 66 75 6e 20 66 69 6e 64 2d 74 61   ┆tag nil t)] 24))  (defun find-ta┆
0x0ee0…0f00 67 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 28 74 61 67 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61   ┆g-other-window (tagname &optiona┆
0x0f00…0f20 6c 20 6e 65 78 74 29 20 22 5c 0a 46 69 6e 64 20 74 61 67 20 28 69 6e 20 63 75 72 72 65 6e 74 20   ┆l next) "\ Find tag (in current ┆
0x0f20…0f40 74 61 67 20 74 61 62 6c 65 29 20 77 68 6f 73 65 20 6e 61 6d 65 20 63 6f 6e 74 61 69 6e 73 20 54   ┆tag table) whose name contains T┆
0x0f40…0f60 41 47 4e 41 4d 45 2e 0a 20 53 65 6c 65 63 74 73 20 74 68 65 20 62 75 66 66 65 72 20 74 68 61 74   ┆AGNAME.  Selects the buffer that┆
0x0f60…0f80 20 74 68 65 20 74 61 67 20 69 73 20 63 6f 6e 74 61 69 6e 65 64 20 69 6e 20 69 6e 20 61 6e 6f 74   ┆ the tag is contained in in anot┆
0x0f80…0fa0 68 65 72 20 77 69 6e 64 6f 77 0a 61 6e 64 20 70 75 74 73 20 70 6f 69 6e 74 20 61 74 20 69 74 73   ┆her window and puts point at its┆
0x0fa0…0fc0 20 64 65 66 69 6e 69 74 69 6f 6e 2e 0a 20 49 66 20 54 41 47 4e 41 4d 45 20 69 73 20 61 20 6e 75   ┆ definition.  If TAGNAME is a nu┆
0x0fc0…0fe0 6c 6c 20 73 74 72 69 6e 67 2c 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 69 6e 20 74 68 65   ┆ll string, the expression in the┆
0x0fe0…1000 20 62 75 66 66 65 72 0a 61 72 6f 75 6e 64 20 6f 72 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 20 69   ┆ buffer around or before point i┆
0x1000…1020 73 20 75 73 65 64 20 61 73 20 74 68 65 20 74 61 67 20 6e 61 6d 65 2e 0a 20 49 66 20 73 65 63 6f   ┆s used as the tag name.  If seco┆
0x1020…1040 6e 64 20 61 72 67 20 4e 45 58 54 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 28 69 6e 74 65 72 61 63 74   ┆nd arg NEXT is non-nil (interact┆
0x1040…1060 69 76 65 6c 79 2c 20 77 69 74 68 20 70 72 65 66 69 78 20 61 72 67 29 2c 0a 73 65 61 72 63 68 65   ┆ively, with prefix arg), searche┆
0x1060…1080 73 20 66 6f 72 20 74 68 65 20 6e 65 78 74 20 74 61 67 20 69 6e 20 74 68 65 20 74 61 67 20 74 61   ┆s for the next tag in the tag ta┆
0x1080…10a0 62 6c 65 0a 74 68 61 74 20 6d 61 74 63 68 65 73 20 74 68 65 20 74 61 67 6e 61 6d 65 20 75 73 65   ┆ble that matches the tagname use┆
0x10a0…10c0 64 20 69 6e 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 66 69 6e 64 2d 74 61 67 2e 0a 0a 53 65 65   ┆d in the previous find-tag.  See┆
0x10c0…10e0 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 76 61 72 69 61 62 6c 65 20 74 61 67 73 2d   ┆ documentation of variable tags-┆
0x10e0…1100 66 69 6c 65 2d 6e 61 6d 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 62 79 74 65 2d 63   ┆file-name." (interactive (byte-c┆
0x1100…1120 6f 64 65 20 22 08 83 08 00 c1 82 0b 00 c2 c3 21 87 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66   ┆ode "          ! " [current-pref┆
0x1120…1140 69 78 2d 61 72 67 20 28 6e 69 6c 20 74 29 20 66 69 6e 64 2d 74 61 67 2d 74 61 67 20 22 46 69 6e   ┆ix-arg (nil t) find-tag-tag "Fin┆
0x1140…1160 64 20 74 61 67 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 3a 20 22 5d 20 32 29 29 20 28 62 79 74 65   ┆d tag other window: "] 2)) (byte┆
0x1160…1180 2d 63 6f 64 65 20 22 c4 88 c5 09 0a c3 23 87 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78   ┆-code "      # " [current-prefix┆
0x1180…11a0 2d 61 72 67 20 74 61 67 6e 61 6d 65 20 6e 65 78 74 20 74 20 6e 69 6c 20 66 69 6e 64 2d 74 61 67   ┆-arg tagname next t nil find-tag┆
0x11a0…11c0 5d 20 34 29 29 0a 0a 28 64 65 66 76 61 72 20 6e 65 78 74 2d 66 69 6c 65 2d 6c 69 73 74 20 6e 69   ┆] 4))  (defvar next-file-list ni┆
0x11c0…11e0 6c 20 22 5c 0a 4c 69 73 74 20 6f 66 20 66 69 6c 65 73 20 66 6f 72 20 6e 65 78 74 2d 66 69 6c 65   ┆l "\ List of files for next-file┆
0x11e0…1200 20 74 6f 20 70 72 6f 63 65 73 73 2e 22 29 0a 0a 28 64 65 66 75 6e 20 6e 65 78 74 2d 66 69 6c 65   ┆ to process.")  (defun next-file┆
0x1200…1220 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 69 74 69 61 6c 69 7a 65 29 20 22 5c 0a 53 65 6c 65 63   ┆ (&optional initialize) "\ Selec┆
0x1220…1240 74 20 6e 65 78 74 20 66 69 6c 65 20 61 6d 6f 6e 67 20 66 69 6c 65 73 20 69 6e 20 63 75 72 72 65   ┆t next file among files in curre┆
0x1240…1260 6e 74 20 74 61 67 20 74 61 62 6c 65 2e 0a 4e 6f 6e 2d 6e 69 6c 20 61 72 67 75 6d 65 6e 74 20 28   ┆nt tag table. Non-nil argument (┆
0x1260…1280 70 72 65 66 69 78 20 61 72 67 2c 20 69 66 20 69 6e 74 65 72 61 63 74 69 76 65 29 0a 69 6e 69 74   ┆prefix arg, if interactive) init┆
0x1280…12a0 69 61 6c 69 7a 65 73 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20   ┆ializes to the beginning of the ┆
0x12a0…12c0 6c 69 73 74 20 6f 66 20 66 69 6c 65 73 20 69 6e 20 74 68 65 20 74 61 67 20 74 61 62 6c 65 2e 22   ┆list of files in the tag table."┆
0x12c0…12e0 20 28 69 6e 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 c2   ┆ (interactive "P") (byte-code " ┆
0x12e0…1300 88 08 85 0a 00 c3 20 89 11 88 09 86 12 00 c4 c5 21 88 c6 09 40 21 88 09 41 89 11 87 22 20 5b 69   ┆                !   @!  A   " [i┆
0x1300…1320 6e 69 74 69 61 6c 69 7a 65 20 6e 65 78 74 2d 66 69 6c 65 2d 6c 69 73 74 20 6e 69 6c 20 74 61 67   ┆nitialize next-file-list nil tag┆
0x1320…1340 2d 74 61 62 6c 65 2d 66 69 6c 65 73 20 65 72 72 6f 72 20 22 41 6c 6c 20 66 69 6c 65 73 20 70 72   ┆-table-files error "All files pr┆
0x1340…1360 6f 63 65 73 73 65 64 2e 22 20 66 69 6e 64 2d 66 69 6c 65 5d 20 35 29 29 0a 0a 28 64 65 66 76 61   ┆ocessed." find-file] 5))  (defva┆
0x1360…1380 72 20 74 61 67 73 2d 6c 6f 6f 70 2d 66 6f 72 6d 20 6e 69 6c 20 22 5c 0a 46 6f 72 6d 20 66 6f 72   ┆r tags-loop-form nil "\ Form for┆
0x1380…13a0 20 74 61 67 73 2d 6c 6f 6f 70 2d 63 6f 6e 74 69 6e 75 65 20 74 6f 20 65 76 61 6c 20 74 6f 20 70   ┆ tags-loop-continue to eval to p┆
0x13a0…13c0 72 6f 63 65 73 73 20 6f 6e 65 20 66 69 6c 65 2e 0a 49 66 20 69 74 20 72 65 74 75 72 6e 73 20 6e   ┆rocess one file. If it returns n┆
0x13c0…13e0 69 6c 2c 20 69 74 20 69 73 20 74 68 72 6f 75 67 68 20 77 69 74 68 20 6f 6e 65 20 66 69 6c 65 3b   ┆il, it is through with one file;┆
0x13e0…1400 20 6d 6f 76 65 20 6f 6e 20 74 6f 20 6e 65 78 74 2e 22 29 0a 0a 28 64 65 66 75 6e 20 74 61 67 73   ┆ move on to next.")  (defun tags┆
0x1400…1420 2d 6c 6f 6f 70 2d 63 6f 6e 74 69 6e 75 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 69 72 73 74 2d   ┆-loop-continue (&optional first-┆
0x1420…1440 74 69 6d 65 29 20 22 5c 0a 43 6f 6e 74 69 6e 75 65 20 6c 61 73 74 20 5c 5c 5b 74 61 67 73 2d 73   ┆time) "\ Continue last \\[tags-s┆
0x1440…1460 65 61 72 63 68 5d 20 6f 72 20 5c 5c 5b 74 61 67 73 2d 71 75 65 72 79 2d 72 65 70 6c 61 63 65 5d   ┆earch] or \\[tags-query-replace]┆
0x1460…1480 20 63 6f 6d 6d 61 6e 64 2e 0a 55 73 65 64 20 6e 6f 6e 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20   ┆ command. Used noninteractively ┆
0x1480…14a0 77 69 74 68 20 6e 6f 6e 2d 6e 69 6c 20 61 72 67 75 6d 65 6e 74 0a 74 6f 20 62 65 67 69 6e 20 73   ┆with non-nil argument to begin s┆
0x14a0…14c0 75 63 68 20 61 20 63 6f 6d 6d 61 6e 64 2e 20 20 53 65 65 20 76 61 72 69 61 62 6c 65 20 74 61 67   ┆uch a command.  See variable tag┆
0x14c0…14e0 73 2d 6c 6f 6f 70 2d 66 6f 72 6d 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74   ┆s-loop-form." (interactive) (byt┆
0x14e0…1500 65 2d 63 6f 64 65 20 22 c4 88 08 85 0c 00 c5 c1 21 88 65 62 88 c6 0a 21 3f 85 5c 22 00 c5 20 88   ┆e-code "        ! eb   !? \"    ┆
0x1500…1520 c7 c8 0b 5c 22 88 65 62 88 82 0d 00 87 22 20 5b 66 69 72 73 74 2d 74 69 6d 65 20 74 20 74 61 67   ┆   \" eb     " [first-time t tag┆
0x1520…1540 73 2d 6c 6f 6f 70 2d 66 6f 72 6d 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 69 6c   ┆s-loop-form buffer-file-name nil┆
0x1540…1560 20 6e 65 78 74 2d 66 69 6c 65 20 65 76 61 6c 20 6d 65 73 73 61 67 65 20 22 53 63 61 6e 6e 69 6e   ┆ next-file eval message "Scannin┆
0x1560…1580 67 20 66 69 6c 65 20 25 73 2e 2e 2e 22 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 74 61 67 73 2d   ┆g file %s..."] 7))  (defun tags-┆
0x1580…15a0 73 65 61 72 63 68 20 28 72 65 67 65 78 70 29 20 22 5c 0a 53 65 61 72 63 68 20 74 68 72 6f 75 67   ┆search (regexp) "\ Search throug┆
0x15a0…15c0 68 20 61 6c 6c 20 66 69 6c 65 73 20 6c 69 73 74 65 64 20 69 6e 20 74 61 67 20 74 61 62 6c 65 20   ┆h all files listed in tag table ┆
0x15c0…15e0 66 6f 72 20 6d 61 74 63 68 20 66 6f 72 20 52 45 47 45 58 50 2e 0a 53 74 6f 70 73 20 77 68 65 6e   ┆for match for REGEXP. Stops when┆
0x15e0…1600 20 61 20 6d 61 74 63 68 20 69 73 20 66 6f 75 6e 64 2e 0a 54 6f 20 63 6f 6e 74 69 6e 75 65 20 73   ┆ a match is found. To continue s┆
0x1600…1620 65 61 72 63 68 69 6e 67 20 66 6f 72 20 6e 65 78 74 20 6d 61 74 63 68 2c 20 75 73 65 20 63 6f 6d   ┆earching for next match, use com┆
0x1620…1640 6d 61 6e 64 20 5c 5c 5b 74 61 67 73 2d 6c 6f 6f 70 2d 63 6f 6e 74 69 6e 75 65 5d 2e 0a 0a 53 65   ┆mand \\[tags-loop-continue].  Se┆
0x1640…1660 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 76 61 72 69 61 62 6c 65 20 74 61 67 73   ┆e documentation of variable tags┆
0x1660…1680 2d 66 69 6c 65 2d 6e 61 6d 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 73 54 61 67 73   ┆-file-name." (interactive "sTags┆
0x1680…16a0 20 73 65 61 72 63 68 20 28 72 65 67 65 78 70 29 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20   ┆ search (regexp): ") (byte-code ┆
0x16a0…16c0 22 c2 88 c4 08 c5 5c 22 85 0d 00 09 40 c6 3d 83 16 00 c7 c2 21 82 21 00 c6 08 c2 c3 46 89 11 88   ┆"     \"    @ =     ! !     F   ┆
0x16c0…16e0 c7 c3 21 87 22 20 5b 72 65 67 65 78 70 20 74 61 67 73 2d 6c 6f 6f 70 2d 66 6f 72 6d 20 6e 69 6c   ┆  ! " [regexp tags-loop-form nil┆
0x16e0…1700 20 74 20 65 71 75 61 6c 20 22 22 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 74 61   ┆ t equal "" re-search-forward ta┆
0x1700…1720 67 73 2d 6c 6f 6f 70 2d 63 6f 6e 74 69 6e 75 65 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 74 61   ┆gs-loop-continue] 6))  (defun ta┆
0x1720…1740 67 73 2d 71 75 65 72 79 2d 72 65 70 6c 61 63 65 20 28 66 72 6f 6d 20 74 6f 20 26 6f 70 74 69 6f   ┆gs-query-replace (from to &optio┆
0x1740…1760 6e 61 6c 20 64 65 6c 69 6d 69 74 65 64 29 20 22 5c 0a 51 75 65 72 79 2d 72 65 70 6c 61 63 65 2d   ┆nal delimited) "\ Query-replace-┆
0x1760…1780 72 65 67 65 78 70 20 46 52 4f 4d 20 77 69 74 68 20 54 4f 20 74 68 72 6f 75 67 68 20 61 6c 6c 20   ┆regexp FROM with TO through all ┆
0x1780…17a0 66 69 6c 65 73 20 6c 69 73 74 65 64 20 69 6e 20 74 61 67 20 74 61 62 6c 65 2e 0a 54 68 69 72 64   ┆files listed in tag table. Third┆
0x17a0…17c0 20 61 72 67 20 44 45 4c 49 4d 49 54 45 44 20 28 70 72 65 66 69 78 20 61 72 67 29 20 6d 65 61 6e   ┆ arg DELIMITED (prefix arg) mean┆
0x17c0…17e0 73 20 72 65 70 6c 61 63 65 20 6f 6e 6c 79 20 77 6f 72 64 2d 64 65 6c 69 6d 69 74 65 64 20 6d 61   ┆s replace only word-delimited ma┆
0x17e0…1800 74 63 68 65 73 2e 0a 49 66 20 79 6f 75 20 65 78 69 74 20 28 43 2d 47 20 6f 72 20 45 53 43 29 2c   ┆tches. If you exit (C-G or ESC),┆
0x1800…1820 20 79 6f 75 20 63 61 6e 20 72 65 73 75 6d 65 20 74 68 65 20 71 75 65 72 79 2d 72 65 70 6c 61 63   ┆ you can resume the query-replac┆
0x1820…1840 65 0a 77 69 74 68 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 5c 5c 5b 74 61 67 73 2d 6c 6f 6f 70 2d   ┆e with the command \\[tags-loop-┆
0x1840…1860 63 6f 6e 74 69 6e 75 65 5d 2e 0a 0a 53 65 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 66   ┆continue].  See documentation of┆
0x1860…1880 20 76 61 72 69 61 62 6c 65 20 74 61 67 73 2d 66 69 6c 65 2d 6e 61 6d 65 2e 22 20 28 69 6e 74 65   ┆ variable tags-file-name." (inte┆
0x1880…18a0 72 61 63 74 69 76 65 20 22 73 54 61 67 73 20 71 75 65 72 79 20 72 65 70 6c 61 63 65 20 28 72 65   ┆ractive "sTags query replace (re┆
0x18a0…18c0 67 65 78 70 29 3a 20 0a 73 54 61 67 73 20 71 75 65 72 79 20 72 65 70 6c 61 63 65 20 25 73 20 62   ┆gexp):  sTags query replace %s b┆
0x18c0…18e0 79 3a 20 0a 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c6 c7 c8 09 c2 c3 46 44 c9 ca   ┆y:  P") (byte-code "        FD  ┆
0x18e0…1900 cb 09 0c c3 c3 0d 3f 3f 26 06 44 45 89 10 88 cc c3 21 87 22 20 5b 74 61 67 73 2d 6c 6f 6f 70 2d   ┆      ??& DE     ! " [tags-loop-┆
0x1900…1920 66 6f 72 6d 20 66 72 6f 6d 20 6e 69 6c 20 74 20 74 6f 20 64 65 6c 69 6d 69 74 65 64 20 61 6e 64   ┆form from nil t to delimited and┆
[…truncated at 200 lines…]