|
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: s
Length: 12030 (0x2efe) Names: »shell.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89 └─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z« └─⟦fa971747f⟧ └─⟦this⟧ »dist-18.55/lisp/shell.elc«
0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 73 68 65 6c 6c 29 29 0a 0a 28 64 65 66 76 61 ┆ (provide (quote shell)) (defva┆ 0x0020…0040 72 20 6c 61 73 74 2d 69 6e 70 75 74 2d 73 74 61 72 74 20 6e 69 6c 20 22 5c 0a 49 6e 20 61 20 73 ┆r last-input-start nil "\ In a s┆ 0x0040…0060 68 65 6c 6c 2d 6d 6f 64 65 20 62 75 66 66 65 72 2c 20 6d 61 72 6b 65 72 20 66 6f 72 20 73 74 61 ┆hell-mode buffer, marker for sta┆ 0x0060…0080 72 74 20 6f 66 20 6c 61 73 74 20 75 6e 69 74 20 6f 66 20 69 6e 70 75 74 2e 22 29 0a 0a 28 64 65 ┆rt of last unit of input.") (de┆ 0x0080…00a0 66 76 61 72 20 6c 61 73 74 2d 69 6e 70 75 74 2d 65 6e 64 20 6e 69 6c 20 22 5c 0a 49 6e 20 61 20 ┆fvar last-input-end nil "\ In a ┆ 0x00a0…00c0 73 68 65 6c 6c 2d 6d 6f 64 65 20 62 75 66 66 65 72 2c 20 6d 61 72 6b 65 72 20 66 6f 72 20 65 6e ┆shell-mode buffer, marker for en┆ 0x00c0…00e0 64 20 6f 66 20 6c 61 73 74 20 75 6e 69 74 20 6f 66 20 69 6e 70 75 74 2e 22 29 0a 0a 28 64 65 66 ┆d of last unit of input.") (def┆ 0x00e0…0100 76 61 72 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 ┆var shell-mode-map nil) (defvar┆ 0x0100…0120 20 73 68 65 6c 6c 2d 64 69 72 65 63 74 6f 72 79 2d 73 74 61 63 6b 20 6e 69 6c 20 22 5c 0a 4c 69 ┆ shell-directory-stack nil "\ Li┆ 0x0120…0140 73 74 20 6f 66 20 64 69 72 65 63 74 6f 72 69 65 73 20 73 61 76 65 64 20 62 79 20 70 75 73 68 64 ┆st of directories saved by pushd┆ 0x0140…0160 20 69 6e 20 74 68 69 73 20 62 75 66 66 65 72 27 73 20 73 68 65 6c 6c 2e 22 29 0a 0a 28 64 65 66 ┆ in this buffer's shell.") (def┆ 0x0160…0180 76 61 72 20 73 68 65 6c 6c 2d 70 6f 70 64 2d 72 65 67 65 78 70 20 22 70 6f 70 64 22 20 22 5c 0a ┆var shell-popd-regexp "popd" "\ ┆ 0x0180…01a0 2a 52 65 67 65 78 70 20 74 6f 20 6d 61 74 63 68 20 73 75 62 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e ┆*Regexp to match subshell comman┆ 0x01a0…01c0 64 73 20 65 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 70 6f 70 64 2e 22 29 0a 0a 28 64 65 66 76 61 ┆ds equivalent to popd.") (defva┆ 0x01c0…01e0 72 20 73 68 65 6c 6c 2d 70 75 73 68 64 2d 72 65 67 65 78 70 20 22 70 75 73 68 64 22 20 22 5c 0a ┆r shell-pushd-regexp "pushd" "\ ┆ 0x01e0…0200 2a 52 65 67 65 78 70 20 74 6f 20 6d 61 74 63 68 20 73 75 62 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e ┆*Regexp to match subshell comman┆ 0x0200…0220 64 73 20 65 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 70 75 73 68 64 2e 22 29 0a 0a 28 64 65 66 76 ┆ds equivalent to pushd.") (defv┆ 0x0220…0240 61 72 20 73 68 65 6c 6c 2d 63 64 2d 72 65 67 65 78 70 20 22 63 64 22 20 22 5c 0a 2a 52 65 67 65 ┆ar shell-cd-regexp "cd" "\ *Rege┆ 0x0240…0260 78 70 20 74 6f 20 6d 61 74 63 68 20 73 75 62 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 73 20 65 71 ┆xp to match subshell commands eq┆ 0x0260…0280 75 69 76 61 6c 65 6e 74 20 74 6f 20 63 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 65 78 70 6c 69 ┆uivalent to cd.") (defvar expli┆ 0x0280…02a0 63 69 74 2d 73 68 65 6c 6c 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 69 6c 20 22 5c 0a 2a 49 66 20 6e ┆cit-shell-file-name nil "\ *If n┆ 0x02a0…02c0 6f 6e 2d 6e 69 6c 2c 20 69 73 20 66 69 6c 65 20 6e 61 6d 65 20 74 6f 20 75 73 65 20 66 6f 72 20 ┆on-nil, is file name to use for ┆ 0x02c0…02e0 65 78 70 6c 69 63 69 74 6c 79 20 72 65 71 75 65 73 74 65 64 20 69 6e 66 65 72 69 6f 72 20 73 68 ┆explicitly requested inferior sh┆ 0x02e0…0300 65 6c 6c 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 68 65 6c 6c 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c ┆ell.") (defun shell-mode nil "\┆ 0x0300…0320 0a 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 69 6e 74 65 72 61 63 74 69 6e 67 20 77 69 74 68 ┆ Major mode for interacting with┆ 0x0320…0340 20 61 6e 20 69 6e 66 65 72 69 6f 72 20 73 68 65 6c 6c 2e 0a 53 68 65 6c 6c 20 6e 61 6d 65 20 69 ┆ an inferior shell. Shell name i┆ 0x0340…0360 73 20 73 61 6d 65 20 61 73 20 62 75 66 66 65 72 20 6e 61 6d 65 2c 20 73 61 6e 73 20 74 68 65 20 ┆s same as buffer name, sans the ┆ 0x0360…0380 61 73 74 65 72 69 73 6b 73 2e 0a 52 65 74 75 72 6e 20 61 74 20 65 6e 64 20 6f 66 20 62 75 66 66 ┆asterisks. Return at end of buff┆ 0x0380…03a0 65 72 20 73 65 6e 64 73 20 6c 69 6e 65 20 61 73 20 69 6e 70 75 74 2e 0a 52 65 74 75 72 6e 20 6e ┆er sends line as input. Return n┆ 0x03a0…03c0 6f 74 20 61 74 20 65 6e 64 20 63 6f 70 69 65 73 20 72 65 73 74 20 6f 66 20 6c 69 6e 65 20 74 6f ┆ot at end copies rest of line to┆ 0x03c0…03e0 20 65 6e 64 20 61 6e 64 20 73 65 6e 64 73 20 69 74 2e 0a 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e ┆ end and sends it. The followin┆ 0x03e0…0400 67 20 63 6f 6d 6d 61 6e 64 73 20 69 6d 69 74 61 74 65 20 74 68 65 20 75 73 75 61 6c 20 55 6e 69 ┆g commands imitate the usual Uni┆ 0x0400…0420 78 20 69 6e 74 65 72 72 75 70 74 20 61 6e 64 0a 65 64 69 74 69 6e 67 20 63 6f 6e 74 72 6f 6c 20 ┆x interrupt and editing control ┆ 0x0420…0440 63 68 61 72 61 63 74 65 72 73 3a 0a 5c 5c 7b 73 68 65 6c 6c 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 0a ┆characters: \\{shell-mode-map} ┆ 0x0440…0460 45 6e 74 72 79 20 74 6f 20 74 68 69 73 20 6d 6f 64 65 20 63 61 6c 6c 73 20 74 68 65 20 76 61 6c ┆Entry to this mode calls the val┆ 0x0460…0480 75 65 20 6f 66 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 77 69 74 68 20 6e 6f 20 61 72 ┆ue of shell-mode-hook with no ar┆ 0x0480…04a0 67 73 2c 0a 69 66 20 74 68 61 74 20 76 61 6c 75 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 0a 0a 63 ┆gs, if that value is non-nil. c┆ 0x04a0…04c0 64 2c 20 70 75 73 68 64 20 61 6e 64 20 70 6f 70 64 20 63 6f 6d 6d 61 6e 64 73 20 67 69 76 65 6e ┆d, pushd and popd commands given┆ 0x04c0…04e0 20 74 6f 20 74 68 65 20 73 68 65 6c 6c 20 61 72 65 20 77 61 74 63 68 65 64 0a 62 79 20 45 6d 61 ┆ to the shell are watched by Ema┆ 0x04e0…0500 63 73 20 74 6f 20 6b 65 65 70 20 74 68 69 73 20 62 75 66 66 65 72 27 73 20 64 65 66 61 75 6c 74 ┆cs to keep this buffer's default┆ 0x0500…0520 20 64 69 72 65 63 74 6f 72 79 0a 74 68 65 20 73 61 6d 65 20 61 73 20 74 68 65 20 73 68 65 6c 6c ┆ directory the same as the shell┆ 0x0520…0540 27 73 20 77 6f 72 6b 69 6e 67 20 64 69 72 65 63 74 6f 72 79 2e 0a 56 61 72 69 61 62 6c 65 73 20 ┆'s working directory. Variables ┆ 0x0540…0560 73 68 65 6c 6c 2d 63 64 2d 72 65 67 65 78 70 2c 20 73 68 65 6c 6c 2d 70 75 73 68 64 2d 72 65 67 ┆shell-cd-regexp, shell-pushd-reg┆ 0x0560…0580 65 78 70 20 61 6e 64 20 73 68 65 6c 6c 2d 70 6f 70 64 2d 72 65 67 65 78 70 0a 61 72 65 20 75 73 ┆exp and shell-popd-regexp are us┆ 0x0580…05a0 65 64 20 74 6f 20 6d 61 74 63 68 20 74 68 65 73 65 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 73 2e ┆ed to match these command names.┆ 0x05a0…05c0 0a 0a 59 6f 75 20 63 61 6e 20 73 65 6e 64 20 74 65 78 74 20 74 6f 20 74 68 65 20 73 68 65 6c 6c ┆ You can send text to the shell┆ 0x05c0…05e0 20 28 6f 72 20 69 74 73 20 73 75 62 6a 6f 62 73 29 20 66 72 6f 6d 20 6f 74 68 65 72 20 62 75 66 ┆ (or its subjobs) from other buf┆ 0x05e0…0600 66 65 72 73 0a 75 73 69 6e 67 20 74 68 65 20 63 6f 6d 6d 61 6e 64 73 20 70 72 6f 63 65 73 73 2d ┆fers using the commands process-┆ 0x0600…0620 73 65 6e 64 2d 72 65 67 69 6f 6e 2c 20 70 72 6f 63 65 73 73 2d 73 65 6e 64 2d 73 74 72 69 6e 67 ┆send-region, process-send-string┆ 0x0620…0640 0a 61 6e 64 20 6c 69 73 70 2d 73 65 6e 64 2d 64 65 66 75 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 ┆ and lisp-send-defun." (interact┆ 0x0640…0660 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 88 c8 20 88 c9 89 10 88 ca 89 11 88 cb 89 ┆ive) (byte-code " ┆ 0x0660…0680 12 88 cc 0b 21 88 cd c4 21 88 c5 89 14 88 cd c6 21 88 ce 20 89 16 06 88 cd c7 21 88 ce 20 89 16 ┆ ! ! ! ! ┆ 0x0680…06a0 07 88 cf d0 21 87 22 20 5b 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 6d 6f ┆ ! " [major-mode mode-name mo┆ 0x06a0…06c0 64 65 2d 6c 69 6e 65 2d 70 72 6f 63 65 73 73 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d 6d 61 70 20 73 ┆de-line-process shell-mode-map s┆ 0x06c0…06e0 68 65 6c 6c 2d 64 69 72 65 63 74 6f 72 79 2d 73 74 61 63 6b 20 6e 69 6c 20 6c 61 73 74 2d 69 6e ┆hell-directory-stack nil last-in┆ 0x06e0…0700 70 75 74 2d 73 74 61 72 74 20 6c 61 73 74 2d 69 6e 70 75 74 2d 65 6e 64 20 6b 69 6c 6c 2d 61 6c ┆put-start last-input-end kill-al┆ 0x0700…0720 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 73 68 65 6c 6c 2d 6d 6f 64 65 20 22 53 68 ┆l-local-variables shell-mode "Sh┆ 0x0720…0740 65 6c 6c 22 20 28 22 3a 20 25 73 22 29 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6d 61 6b 65 ┆ell" (": %s") use-local-map make┆ 0x0740…0760 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 6d 61 6b 65 2d 6d 61 72 6b 65 72 20 72 75 6e 2d ┆-local-variable make-marker run-┆ 0x0760…0780 68 6f 6f 6b 73 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 39 29 29 0a 0a 28 69 66 20 ┆hooks shell-mode-hook] 9)) (if ┆ 0x0780…07a0 73 68 65 6c 6c 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 71 20 73 68 65 6c 6c 2d 6d ┆shell-mode-map nil (setq shell-m┆ 0x07a0…07c0 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28 64 ┆ode-map (make-sparse-keymap)) (d┆ 0x07c0…07e0 65 66 69 6e 65 2d 6b 65 79 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d 6d 61 70 20 22 0d 22 20 28 71 75 ┆efine-key shell-mode-map " " (qu┆ 0x07e0…0800 6f 74 65 20 73 68 65 6c 6c 2d 73 65 6e 64 2d 69 6e 70 75 74 29 29 20 28 64 65 66 69 6e 65 2d 6b ┆ote shell-send-input)) (define-k┆ 0x0800…0820 65 79 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 04 22 20 28 71 75 6f 74 65 20 73 68 ┆ey shell-mode-map " " (quote sh┆ 0x0820…0840 65 6c 6c 2d 73 65 6e 64 2d 65 6f 66 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 68 65 6c 6c ┆ell-send-eof)) (define-key shell┆ 0x0840…0860 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 15 22 20 28 71 75 6f 74 65 20 6b 69 6c 6c 2d 73 68 65 6c 6c ┆-mode-map " " (quote kill-shell┆ 0x0860…0880 2d 69 6e 70 75 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d ┆-input)) (define-key shell-mode-┆ 0x0880…08a0 6d 61 70 20 22 03 17 22 20 28 71 75 6f 74 65 20 62 61 63 6b 77 61 72 64 2d 6b 69 6c 6c 2d 77 6f ┆map " " (quote backward-kill-wo┆ 0x08a0…08c0 72 64 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d 6d 61 70 20 ┆rd)) (define-key shell-mode-map ┆ 0x08c0…08e0 22 03 03 22 20 28 71 75 6f 74 65 20 69 6e 74 65 72 72 75 70 74 2d 73 68 65 6c 6c 2d 73 75 62 6a ┆" " (quote interrupt-shell-subj┆ 0x08e0…0900 6f 62 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d 6d 61 70 20 ┆ob)) (define-key shell-mode-map ┆ 0x0900…0920 22 03 1a 22 20 28 71 75 6f 74 65 20 73 74 6f 70 2d 73 68 65 6c 6c 2d 73 75 62 6a 6f 62 29 29 20 ┆" " (quote stop-shell-subjob)) ┆ 0x0920…0940 28 64 65 66 69 6e 65 2d 6b 65 79 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 1c 22 20 ┆(define-key shell-mode-map " " ┆ 0x0940…0960 28 71 75 6f 74 65 20 71 75 69 74 2d 73 68 65 6c 6c 2d 73 75 62 6a 6f 62 29 29 20 28 64 65 66 69 ┆(quote quit-shell-subjob)) (defi┆ 0x0960…0980 6e 65 2d 6b 65 79 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 0f 22 20 28 71 75 6f 74 ┆ne-key shell-mode-map " " (quot┆ 0x0980…09a0 65 20 6b 69 6c 6c 2d 6f 75 74 70 75 74 2d 66 72 6f 6d 2d 73 68 65 6c 6c 29 29 20 28 64 65 66 69 ┆e kill-output-from-shell)) (defi┆ 0x09a0…09c0 6e 65 2d 6b 65 79 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 12 22 20 28 71 75 6f 74 ┆ne-key shell-mode-map " " (quot┆ 0x09c0…09e0 65 20 73 68 6f 77 2d 6f 75 74 70 75 74 2d 66 72 6f 6d 2d 73 68 65 6c 6c 29 29 20 28 64 65 66 69 ┆e show-output-from-shell)) (defi┆ 0x09e0…0a00 6e 65 2d 6b 65 79 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 19 22 20 28 71 75 6f 74 ┆ne-key shell-mode-map " " (quot┆ 0x0a00…0a20 65 20 63 6f 70 79 2d 6c 61 73 74 2d 73 68 65 6c 6c 2d 69 6e 70 75 74 29 29 29 0a 0a 28 64 65 66 ┆e copy-last-shell-input))) (def┆ 0x0a20…0a40 76 61 72 20 65 78 70 6c 69 63 69 74 2d 63 73 68 2d 61 72 67 73 20 28 69 66 20 28 65 71 20 73 79 ┆var explicit-csh-args (if (eq sy┆ 0x0a40…0a60 73 74 65 6d 2d 74 79 70 65 20 28 71 75 6f 74 65 20 68 70 75 78 29 29 20 28 71 75 6f 74 65 20 28 ┆stem-type (quote hpux)) (quote (┆ 0x0a60…0a80 22 2d 69 22 20 22 2d 54 22 29 29 20 28 71 75 6f 74 65 20 28 22 2d 69 22 29 29 29 20 22 5c 0a 41 ┆"-i" "-T")) (quote ("-i"))) "\ A┆ 0x0a80…0aa0 72 67 73 20 70 61 73 73 65 64 20 74 6f 20 69 6e 66 65 72 69 6f 72 20 73 68 65 6c 6c 20 62 79 20 ┆rgs passed to inferior shell by ┆ 0x0aa0…0ac0 4d 2d 78 20 73 68 65 6c 6c 2c 20 69 66 20 74 68 65 20 73 68 65 6c 6c 20 69 73 20 63 73 68 2e 0a ┆M-x shell, if the shell is csh. ┆ 0x0ac0…0ae0 56 61 6c 75 65 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 2c 20 77 68 69 63 ┆Value is a list of strings, whic┆ 0x0ae0…0b00 68 20 6d 61 79 20 62 65 20 6e 69 6c 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 68 65 6c 6c 20 6e 69 ┆h may be nil.") (defun shell ni┆ 0x0b00…0b20 6c 20 22 5c 0a 52 75 6e 20 61 6e 20 69 6e 66 65 72 69 6f 72 20 73 68 65 6c 6c 2c 20 77 69 74 68 ┆l "\ Run an inferior shell, with┆ 0x0b20…0b40 20 49 2f 4f 20 74 68 72 6f 75 67 68 20 62 75 66 66 65 72 20 2a 73 68 65 6c 6c 2a 2e 0a 49 66 20 ┆ I/O through buffer *shell*. If ┆ 0x0b40…0b60 62 75 66 66 65 72 20 65 78 69 73 74 73 20 62 75 74 20 73 68 65 6c 6c 20 70 72 6f 63 65 73 73 20 ┆buffer exists but shell process ┆ 0x0b60…0b80 69 73 20 6e 6f 74 20 72 75 6e 6e 69 6e 67 2c 20 6d 61 6b 65 20 6e 65 77 20 73 68 65 6c 6c 2e 0a ┆is not running, make new shell. ┆ 0x0b80…0ba0 50 72 6f 67 72 61 6d 20 75 73 65 64 20 63 6f 6d 65 73 20 66 72 6f 6d 20 76 61 72 69 61 62 6c 65 ┆Program used comes from variable┆ 0x0ba0…0bc0 20 65 78 70 6c 69 63 69 74 2d 73 68 65 6c 6c 2d 66 69 6c 65 2d 6e 61 6d 65 2c 0a 20 6f 72 20 28 ┆ explicit-shell-file-name, or (┆ 0x0bc0…0be0 69 66 20 74 68 61 74 20 69 73 20 6e 69 6c 29 20 66 72 6f 6d 20 74 68 65 20 45 53 48 45 4c 4c 20 ┆if that is nil) from the ESHELL ┆ 0x0be0…0c00 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 2c 0a 20 6f 72 20 65 6c 73 65 20 66 ┆environment variable, or else f┆ 0x0c00…0c20 72 6f 6d 20 53 48 45 4c 4c 20 69 66 20 74 68 65 72 65 20 69 73 20 6e 6f 20 45 53 48 45 4c 4c 2e ┆rom SHELL if there is no ESHELL.┆ 0x0c20…0c40 0a 49 66 20 61 20 66 69 6c 65 20 7e 2f 2e 65 6d 61 63 73 5f 53 48 45 4c 4c 4e 41 4d 45 20 65 78 ┆ If a file ~/.emacs_SHELLNAME ex┆ 0x0c40…0c60 69 73 74 73 2c 20 69 74 20 69 73 20 67 69 76 65 6e 20 61 73 20 69 6e 69 74 69 61 6c 20 69 6e 70 ┆ists, it is given as initial inp┆ 0x0c60…0c80 75 74 0a 20 28 4e 6f 74 65 20 74 68 61 74 20 74 68 69 73 20 6d 61 79 20 6c 6f 73 65 20 64 75 65 ┆ut (Note that this may lose due┆ 0x0c80…0ca0 20 74 6f 20 61 20 74 69 6d 69 6e 67 20 65 72 72 6f 72 20 69 66 20 74 68 65 20 73 68 65 6c 6c 0a ┆ to a timing error if the shell ┆ 0x0ca0…0cc0 20 20 64 69 73 63 61 72 64 73 20 69 6e 70 75 74 20 77 68 65 6e 20 69 74 20 73 74 61 72 74 73 20 ┆ discards input when it starts ┆ 0x0cc0…0ce0 75 70 2e 29 0a 54 68 65 20 62 75 66 66 65 72 20 69 73 20 70 75 74 20 69 6e 20 73 68 65 6c 6c 2d ┆up.) The buffer is put in shell-┆ 0x0ce0…0d00 6d 6f 64 65 2c 20 67 69 76 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 73 65 6e 64 69 6e ┆mode, giving commands for sendin┆ 0x0d00…0d20 67 20 69 6e 70 75 74 0a 61 6e 64 20 63 6f 6e 74 72 6f 6c 6c 69 6e 67 20 74 68 65 20 73 75 62 6a ┆g input and controlling the subj┆ 0x0d20…0d40 6f 62 73 20 6f 66 20 74 68 65 20 73 68 65 6c 6c 2e 20 20 53 65 65 20 73 68 65 6c 6c 2d 6d 6f 64 ┆obs of the shell. See shell-mod┆ 0x0d40…0d60 65 2e 0a 53 65 65 20 61 6c 73 6f 20 76 61 72 69 61 62 6c 65 20 73 68 65 6c 6c 2d 70 72 6f 6d 70 ┆e. See also variable shell-promp┆ 0x0d60…0d80 74 2d 70 61 74 74 65 72 6e 2e 0a 0a 54 68 65 20 73 68 65 6c 6c 20 66 69 6c 65 20 6e 61 6d 65 20 ┆t-pattern. The shell file name ┆ 0x0d80…0da0 28 73 61 6e 73 20 64 69 72 65 63 74 6f 72 69 65 73 29 20 69 73 20 75 73 65 64 20 74 6f 20 6d 61 ┆(sans directories) is used to ma┆ 0x0da0…0dc0 6b 65 20 61 20 73 79 6d 62 6f 6c 20 6e 61 6d 65 0a 73 75 63 68 20 61 73 20 60 65 78 70 6c 69 63 ┆ke a symbol name such as `explic┆ 0x0dc0…0de0 69 74 2d 63 73 68 2d 61 72 67 75 6d 65 6e 74 73 27 2e 20 20 49 66 20 74 68 61 74 20 73 79 6d 62 ┆it-csh-arguments'. If that symb┆ 0x0de0…0e00 6f 6c 20 69 73 20 61 20 76 61 72 69 61 62 6c 65 2c 0a 69 74 73 20 76 61 6c 75 65 20 69 73 20 75 ┆ol is a variable, its value is u┆ 0x0e00…0e20 73 65 64 20 61 73 20 61 20 6c 69 73 74 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 77 68 65 6e 20 ┆sed as a list of arguments when ┆ 0x0e20…0e40 69 6e 76 6f 6b 69 6e 67 20 74 68 65 20 73 68 65 6c 6c 2e 0a 4f 74 68 65 72 77 69 73 65 2c 20 6f ┆invoking the shell. Otherwise, o┆ 0x0e40…0e60 6e 65 20 61 72 67 75 6d 65 6e 74 20 60 2d 69 27 20 69 73 20 70 61 73 73 65 64 20 74 6f 20 74 68 ┆ne argument `-i' is passed to th┆ 0x0e60…0e80 65 20 73 68 65 6c 6c 2e 0a 0a 4e 6f 74 65 20 74 68 61 74 20 6d 61 6e 79 20 70 65 6f 70 6c 65 27 ┆e shell. Note that many people'┆ 0x0e80…0ea0 73 20 2e 63 73 68 72 63 20 66 69 6c 65 73 20 75 6e 63 6f 6e 64 69 74 69 6f 6e 61 6c 6c 79 20 63 ┆s .cshrc files unconditionally c┆ 0x0ea0…0ec0 6c 65 61 72 20 74 68 65 20 70 72 6f 6d 70 74 2e 0a 49 66 20 79 6f 75 72 73 20 64 6f 65 73 2c 20 ┆lear the prompt. If yours does, ┆ 0x0ec0…0ee0 79 6f 75 20 77 69 6c 6c 20 70 72 6f 62 61 62 6c 79 20 77 61 6e 74 20 74 6f 20 63 68 61 6e 67 65 ┆you will probably want to change┆ 0x0ee0…0f00 20 69 74 2e 22 20 28 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 ┆ it." (interactive) (byte-code "┆ 0x0f00…0f20 c4 88 09 86 13 00 c5 c6 21 86 13 00 c5 c7 21 86 13 00 c8 18 c9 08 21 1a ca cb cc cd 08 ce cf 0a ┆ ! ! ! ┆ 0x0f20…0f40 50 21 85 28 00 cf 0a 50 d0 d1 0a d2 51 21 1b 0b 85 36 00 d3 0b 21 83 3e 00 0b 4a 82 3f 00 d4 29 ┆P! ( P Q! 6 ! > J ? )┆ 0x0f40…0f60 25 21 2a 87 22 20 5b 70 72 6f 67 20 65 78 70 6c 69 63 69 74 2d 73 68 65 6c 6c 2d 66 69 6c 65 2d ┆%!* " [prog explicit-shell-file-┆ 0x0f60…0f80 6e 61 6d 65 20 6e 61 6d 65 20 73 79 6d 62 6f 6c 20 6e 69 6c 20 67 65 74 65 6e 76 20 22 45 53 48 ┆name name symbol nil getenv "ESH┆ 0x0f80…0fa0 45 4c 4c 22 20 22 53 48 45 4c 4c 22 20 22 2f 62 69 6e 2f 73 68 22 20 66 69 6c 65 2d 6e 61 6d 65 ┆ELL" "SHELL" "/bin/sh" file-name┆ 0x0fa0…0fc0 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 61 ┆-nondirectory switch-to-buffer a┆ 0x0fc0…0fe0 70 70 6c 79 20 6d 61 6b 65 2d 73 68 65 6c 6c 20 22 73 68 65 6c 6c 22 20 66 69 6c 65 2d 65 78 69 ┆pply make-shell "shell" file-exi┆ 0x0fe0…1000 73 74 73 2d 70 20 22 7e 2f 2e 65 6d 61 63 73 5f 22 20 69 6e 74 65 72 6e 2d 73 6f 66 74 20 22 65 ┆sts-p "~/.emacs_" intern-soft "e┆ 0x1000…1020 78 70 6c 69 63 69 74 2d 22 20 22 2d 61 72 67 73 22 20 62 6f 75 6e 64 70 20 28 22 2d 69 22 29 5d ┆xplicit-" "-args" boundp ("-i")]┆ 0x1020…1040 20 31 34 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 73 68 65 6c 6c 20 28 6e 61 6d 65 20 70 ┆ 14)) (defun make-shell (name p┆ 0x1040…1060 72 6f 67 72 61 6d 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 61 72 74 66 69 6c 65 20 26 72 65 73 74 ┆rogram &optional startfile &rest┆ 0x1060…1080 20 73 77 69 74 63 68 65 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 cb cc 09 cc 51 21 c5 c5 c5 ┆ switches) (byte-code " Q! ┆ 0x1080…10a0 1c 1b 1a 18 cd 08 21 89 12 88 0a 85 1c 00 ce 0a 21 89 13 88 8a 08 71 88 0b cf 3e 83 2b 00 c5 82 ┆ ! ! q > + ┆ 0x10a0…10c0 8a 00 0a 85 32 00 d0 0a 21 88 d1 d2 09 08 0e 06 d3 50 d4 d5 d6 20 5c 22 d7 d8 d9 0e 07 86 5a 00 ┆ 2 ! P \" Z ┆ 0x10c0…10e0 0e 08 86 5a 00 da db 21 86 5a 00 da dc 21 86 5a 00 dd 0e 09 26 0a 89 12 88 0e 0a 85 84 00 de df ┆ Z ! Z ! Z & ┆ 0x10e0…1100 21 88 64 62 88 e0 0e 0a 21 88 e1 60 64 5c 22 89 16 0a 88 e2 60 64 5c 22 88 e3 0a 0e 0a 5c 22 88 ┆! db ! `d\" `d\" \" ┆ 0x1100…1120 e4 0a 21 89 11 88 64 62 88 e5 e6 0a 21 60 5c 22 88 e7 20 29 88 08 2c 87 22 20 5b 62 75 66 66 65 ┆ ! db !`\" ) , " [buffe┆ 0x1120…1140 72 20 6e 61 6d 65 20 70 72 6f 63 20 73 74 61 74 75 73 20 73 69 7a 65 20 6e 69 6c 20 65 78 65 63 ┆r name proc status size nil exec┆ 0x1140…1160 2d 64 69 72 65 63 74 6f 72 79 20 70 72 6f 67 72 61 6d 20 65 78 70 6c 69 63 69 74 2d 73 68 65 6c ┆-directory program explicit-shel┆ 0x1160…1180 6c 2d 66 69 6c 65 2d 6e 61 6d 65 20 73 77 69 74 63 68 65 73 20 73 74 61 72 74 66 69 6c 65 20 67 ┆l-file-name switches startfile g┆ 0x1180…11a0 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a 22 20 67 65 74 2d 62 75 66 66 65 72 2d ┆et-buffer-create "*" get-buffer-┆ 0x11a0…11c0 70 72 6f 63 65 73 73 20 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 28 72 75 6e 20 73 74 6f 70 ┆process process-status (run stop┆ 0x11c0…11e0 29 20 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 20 61 70 70 6c 79 20 73 74 61 72 74 2d 70 72 6f ┆) delete-process apply start-pro┆ 0x11e0…1200 63 65 73 73 20 22 65 6e 76 22 20 66 6f 72 6d 61 74 20 22 54 45 52 4d 43 41 50 3d 65 6d 61 63 73 ┆cess "env" format "TERMCAP=emacs┆ 0x1200…1220 3a 63 6f 23 25 64 3a 74 63 3d 75 6e 6b 6e 6f 77 6e 3a 22 20 73 63 72 65 65 6e 2d 77 69 64 74 68 ┆:co#%d:tc=unknown:" screen-width┆ 0x1220…1240 20 22 54 45 52 4d 3d 65 6d 61 63 73 22 20 22 45 4d 41 43 53 3d 74 22 20 22 2d 22 20 67 65 74 65 ┆ "TERM=emacs" "EMACS=t" "-" gete┆ 0x1240…1260 6e 76 20 22 45 53 48 45 4c 4c 22 20 22 53 48 45 4c 4c 22 20 22 2f 62 69 6e 2f 73 68 22 20 73 6c ┆nv "ESHELL" "SHELL" "/bin/sh" sl┆ 0x1260…1280 65 65 70 2d 66 6f 72 20 31 20 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 20 62 ┆eep-for 1 insert-file-contents b┆ 0x1280…12a0 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 70 72 ┆uffer-substring delete-region pr┆ 0x12a0…12c0 6f 63 65 73 73 2d 73 65 6e 64 2d 73 74 72 69 6e 67 20 70 72 6f 63 65 73 73 2d 6e 61 6d 65 20 73 ┆ocess-send-string process-name s┆ 0x12c0…12e0 65 74 2d 6d 61 72 6b 65 72 20 70 72 6f 63 65 73 73 2d 6d 61 72 6b 20 73 68 65 6c 6c 2d 6d 6f 64 ┆et-marker process-mark shell-mod┆ 0x12e0…1300 65 5d 20 31 39 29 29 0a 0a 28 64 65 66 76 61 72 20 73 68 65 6c 6c 2d 73 65 74 2d 64 69 72 65 63 ┆e] 19)) (defvar shell-set-direc┆ 0x1300…1320 74 6f 72 79 2d 65 72 72 6f 72 2d 68 6f 6f 6b 20 28 71 75 6f 74 65 20 69 67 6e 6f 72 65 29 20 22 ┆tory-error-hook (quote ignore) "┆ 0x1320…1340 5c 0a 46 75 6e 63 74 69 6f 6e 20 63 61 6c 6c 65 64 20 77 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 ┆\ Function called with no argume┆ 0x1340…1360 6e 74 73 20 77 68 65 6e 20 73 68 65 6c 6c 2d 73 65 6e 64 2d 69 6e 70 75 74 0a 72 65 63 6f 67 6e ┆nts when shell-send-input recogn┆ 0x1360…1380 69 7a 65 73 20 61 20 63 68 61 6e 67 65 2d 64 69 72 65 63 74 6f 72 79 20 63 6f 6d 6d 61 6e 64 20 ┆izes a change-directory command ┆ 0x1380…13a0 62 75 74 20 67 65 74 73 20 61 6e 20 65 72 72 6f 72 0a 74 72 79 69 6e 67 20 74 6f 20 63 68 61 6e ┆but gets an error trying to chan┆ 0x13a0…13c0 67 65 20 45 6d 61 63 73 27 73 20 64 65 66 61 75 6c 74 20 64 69 72 65 63 74 6f 72 79 2e 22 29 0a ┆ge Emacs's default directory.") ┆ 0x13c0…13e0 0a 28 64 65 66 75 6e 20 73 68 65 6c 6c 2d 73 65 6e 64 2d 69 6e 70 75 74 20 6e 69 6c 20 22 5c 0a ┆ (defun shell-send-input nil "\ ┆ 0x13e0…1400 53 65 6e 64 20 69 6e 70 75 74 20 74 6f 20 73 75 62 73 68 65 6c 6c 2e 0a 41 74 20 65 6e 64 20 6f ┆Send input to subshell. At end o┆ 0x1400…1420 66 20 62 75 66 66 65 72 2c 20 73 65 6e 64 73 20 61 6c 6c 20 74 65 78 74 20 61 66 74 65 72 20 6c ┆f buffer, sends all text after l┆ 0x1420…1440 61 73 74 20 6f 75 74 70 75 74 0a 20 61 73 20 69 6e 70 75 74 20 74 6f 20 74 68 65 20 73 75 62 73 ┆ast output as input to the subs┆ 0x1440…1460 68 65 6c 6c 2c 20 69 6e 63 6c 75 64 69 6e 67 20 61 20 6e 65 77 6c 69 6e 65 20 69 6e 73 65 72 74 ┆hell, including a newline insert┆ 0x1460…1480 65 64 20 61 74 20 74 68 65 20 65 6e 64 2e 0a 57 68 65 6e 20 6e 6f 74 20 61 74 20 65 6e 64 2c 20 ┆ed at the end. When not at end, ┆ 0x1480…14a0 63 6f 70 69 65 73 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 74 6f 20 74 68 65 20 65 6e 64 20 6f ┆copies current line to the end o┆ 0x14a0…14c0 66 20 74 68 65 20 62 75 66 66 65 72 20 61 6e 64 20 73 65 6e 64 73 20 69 74 2c 0a 61 66 74 65 72 ┆f the buffer and sends it, after┆ 0x14c0…14e0 20 66 69 72 73 74 20 61 74 74 65 6d 70 74 69 6e 67 20 74 6f 20 64 69 73 63 61 72 64 20 61 6e 79 ┆ first attempting to discard any┆ 0x14e0…1500 20 70 72 6f 6d 70 74 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 ┆ prompt at the beginning of the ┆ 0x1500…1520 6c 69 6e 65 0a 62 79 20 6d 61 74 63 68 69 6e 67 20 74 68 65 20 72 65 67 65 78 70 20 74 68 61 74 ┆line by matching the regexp that┆ 0x1520…1540 20 69 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 73 68 65 6c 6c 2d 70 72 6f 6d 70 74 2d 70 61 ┆ is the value of shell-prompt-pa┆ 0x1540…1560 74 74 65 72 6e 20 69 66 20 70 6f 73 73 69 62 6c 65 2e 0a 54 68 69 73 20 72 65 67 65 78 70 20 73 ┆ttern if possible. This regexp s┆ 0x1560…1580 68 6f 75 6c 64 20 73 74 61 72 74 20 77 69 74 68 20 5c 22 5e 5c 22 2e 22 20 28 69 6e 74 65 72 61 ┆hould start with \"^\"." (intera┆ 0x1580…15a0 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 88 c7 70 21 86 0b 00 c8 c9 21 88 ca ┆ctive) (byte-code " p! ! ┆ 0x15a0…15c0 20 88 6d 83 26 00 cb 08 cc c7 70 21 21 5c 22 88 cd 63 88 cb 09 60 5c 22 82 4d 00 ce 20 88 cf 0a ┆ m & p!!\" c `\" M ┆ 0x15c0…15e0 8a ca 20 88 60 29 c3 23 88 d0 60 d1 d2 21 88 60 5c 22 1c 64 62 88 cb 08 60 5c 22 88 0c 63 88 cb ┆ `) # ` ! `\" db `\" c ┆ 0x15e0…1600 09 60 5c 22 29 88 c6 d3 d4 8f 88 c7 70 21 1d d5 0d 08 09 23 88 d6 cc 0d 21 60 5c 22 29 87 22 20 ┆ `\") p! # !`\") " ┆ 0x1600…1620 5b 6c 61 73 74 2d 69 6e 70 75 74 2d 73 74 61 72 74 20 6c 61 73 74 2d 69 6e 70 75 74 2d 65 6e 64 ┆[last-input-start last-input-end┆ 0x1620…1640 20 73 68 65 6c 6c 2d 70 72 6f 6d 70 74 2d 70 61 74 74 65 72 6e 20 74 20 63 6f 70 79 20 70 72 6f ┆ shell-prompt-pattern t copy pro┆ 0x1640…1660 63 65 73 73 20 6e 69 6c 20 67 65 74 2d 62 75 66 66 65 72 2d 70 72 6f 63 65 73 73 20 65 72 72 6f ┆cess nil get-buffer-process erro┆ 0x1660…1680 72 20 22 43 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 68 61 73 20 6e 6f 20 70 72 6f 63 65 73 73 ┆r "Current buffer has no process┆ 0x1680…16a0 22 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 6d 6f 76 65 2d 6d 61 72 6b 65 72 20 70 72 6f 63 65 73 ┆" end-of-line move-marker proces┆ 0x16a0…16c0 73 2d 6d 61 72 6b 20 31 30 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 72 65 2d 73 ┆s-mark 10 beginning-of-line re-s┆ 0x16c0…16e0 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 66 ┆earch-forward buffer-substring f┆ 0x16e0…1700 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a 08 62 88 c1 20 ┆orward-line 1 (byte-code " b ┆ 0x1700…1720 29 87 22 20 5b 6c 61 73 74 2d 69 6e 70 75 74 2d 73 74 61 72 74 20 73 68 65 6c 6c 2d 73 65 74 2d ┆) " [last-input-start shell-set-┆ 0x1720…1740 64 69 72 65 63 74 6f 72 79 5d 20 32 29 20 28 28 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 ┆directory] 2) ((error (byte-code┆ 0x1740…1760 20 22 c1 08 21 87 22 20 5b 73 68 65 6c 6c 2d 73 65 74 2d 64 69 72 65 63 74 6f 72 79 2d 65 72 72 ┆ " ! " [shell-set-directory-err┆ 0x1760…1780 6f 72 2d 68 6f 6f 6b 20 66 75 6e 63 61 6c 6c 5d 20 32 29 29 29 20 70 72 6f 63 65 73 73 2d 73 65 ┆or-hook funcall] 2))) process-se┆ 0x1780…17a0 6e 64 2d 72 65 67 69 6f 6e 20 73 65 74 2d 6d 61 72 6b 65 72 5d 20 32 30 29 29 0a 0a 28 64 65 66 ┆nd-region set-marker] 20)) (def┆ 0x17a0…17c0 75 6e 20 73 68 65 6c 6c 2d 73 65 74 2d 64 69 72 65 63 74 6f 72 79 20 6e 69 6c 20 28 62 79 74 65 ┆un shell-set-directory nil (byte┆ 0x17c0…17e0 2d 63 6f 64 65 20 22 c7 08 21 85 0c 00 c8 c9 21 66 ca 3e 83 1f 00 09 85 1c 00 cb 09 40 21 88 09 ┆-code " ! !f > @! ┆ 0x17e0…1800 41 89 11 82 b8 00 c7 0a 21 83 76 00 c8 c9 21 66 cc 3e 83 43 00 09 85 40 00 0c 1b cb 09 40 21 88 ┆A ! v !f > C @ @! ┆ 0x1800…1820 0b 09 41 42 89 11 29 82 73 00 c8 c9 21 66 cd 3e 85 73 00 ce 1d cf d0 21 88 cf d1 21 88 d2 d3 d4 ┆ AB ) s !f > s ! ! ┆ 0x1820…1840 d5 60 cf d6 21 88 60 5c 22 21 21 89 15 21 85 72 00 0c 09 42 89 11 88 cb 0d 21 29 82 b8 00 c7 0e ┆ ` ! `\"!! ! r B !) ┆ 0x1840…1860 06 21 85 b8 00 c8 c9 21 66 d7 3e 83 8e 00 cb d8 d9 21 21 82 b8 00 c8 c9 21 66 da 3e 85 b8 00 ce ┆ ! !f > !! !f > ┆ 0x1860…1880 1d db dc 21 88 cf d1 21 88 d2 d3 d4 d5 60 cf d6 21 88 60 5c 22 21 21 89 15 21 85 b7 00 cb 0d 21 ┆ ! ! ` ! `\"!! ! !┆ 0x1880…18a0 29 87 22 20 5b 73 68 65 6c 6c 2d 70 6f 70 64 2d 72 65 67 65 78 70 20 73 68 65 6c 6c 2d 64 69 72 ┆) " [shell-popd-regexp shell-dir┆ 0x18a0…18c0 65 63 74 6f 72 79 2d 73 74 61 63 6b 20 73 68 65 6c 6c 2d 70 75 73 68 64 2d 72 65 67 65 78 70 20 ┆ectory-stack shell-pushd-regexp ┆ 0x18c0…18e0 6f 6c 64 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 20 73 68 65 6c 6c 2d ┆old default-directory dir shell-┆ 0x18e0…1900 63 64 2d 72 65 67 65 78 70 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 6d 61 74 63 68 2d 65 6e 64 20 30 ┆cd-regexp looking-at match-end 0┆ 0x1900…1920 20 28 35 39 20 31 30 29 20 63 64 20 28 35 39 20 31 30 29 20 28 33 32 20 39 29 20 6e 69 6c 20 73 ┆ (59 10) cd (59 10) (32 9) nil s┆ […truncated at 200 lines…]