DataMuseum.dk Presents historical artifacts from the history of: DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦59c66e0ad⟧

    Length: 2763 (0xacb)
    Names: »medit.elc«

Derivation

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/medit.elc« 

Hex Dump

0x000…020 0a 28 72 65 71 75 69 72 65 20 28 71 75 6f 74 65 20 6d 69 6d 2d 6d 6f 64 65 29 29 0a 0a 28 64 65   ┆ (require (quote mim-mode))  (de┆
0x020…040 66 63 6f 6e 73 74 20 6d 65 64 69 74 2d 7a 61 70 2d 66 69 6c 65 20 28 63 6f 6e 63 61 74 20 22 2f   ┆fconst medit-zap-file (concat "/┆
0x040…060 74 6d 70 2f 22 20 28 67 65 74 65 6e 76 20 22 55 53 45 52 22 29 20 22 2e 6d 65 64 69 74 2e 6d 75   ┆tmp/" (getenv "USER") ".medit.mu┆
0x060…080 64 22 29 20 22 5c 0a 46 69 6c 65 20 6e 61 6d 65 20 66 6f 72 20 64 61 74 61 20 73 65 6e 74 20 74   ┆d") "\ File name for data sent t┆
0x080…0a0 6f 20 4d 44 4c 20 62 79 20 4d 65 64 69 74 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d 65 64   ┆o MDL by Medit.")  (defconst med┆
0x0a0…0c0 69 74 2d 62 75 66 66 65 72 20 22 2a 4d 45 44 49 54 2a 22 20 22 5c 0a 4e 61 6d 65 20 6f 66 20 62   ┆it-buffer "*MEDIT*" "\ Name of b┆
0x0c0…0e0 75 66 66 65 72 20 69 6e 20 77 68 69 63 68 20 4d 65 64 69 74 20 61 63 63 75 6d 75 6c 61 74 65 73   ┆uffer in which Medit accumulates┆
0x0e0…100 20 64 61 74 61 20 74 6f 20 73 65 6e 64 20 74 6f 20 4d 44 4c 2e 22 29 0a 0a 28 64 65 66 63 6f 6e   ┆ data to send to MDL.")  (defcon┆
0x100…120 73 74 20 6d 65 64 69 74 2d 73 61 76 65 2d 66 69 6c 65 73 20 74 20 22 5c 0a 49 66 20 6e 6f 6e 2d   ┆st medit-save-files t "\ If non-┆
0x120…140 6e 69 6c 2c 20 4d 65 64 69 74 20 6f 66 66 65 72 73 20 74 6f 20 73 61 76 65 20 66 69 6c 65 73 20   ┆nil, Medit offers to save files ┆
0x140…160 6f 6e 20 72 65 74 75 72 6e 20 74 6f 20 4d 44 4c 2e 22 29 0a 0a 28 64 65 66 75 6e 20 6d 65 64 69   ┆on return to MDL.")  (defun medi┆
0x160…180 74 2d 73 61 76 65 2d 64 65 66 69 6e 65 20 6e 69 6c 20 22 5c 0a 4d 61 72 6b 20 74 68 65 20 70 72   ┆t-save-define nil "\ Mark the pr┆
0x180…1a0 65 76 69 6f 75 73 20 6f 72 20 73 75 72 72 6f 75 6e 64 69 6e 67 20 74 6f 70 6c 65 76 65 6c 20 6f   ┆evious or surrounding toplevel o┆
0x1a0…1c0 62 6a 65 63 74 20 74 6f 20 62 65 20 73 65 6e 74 20 62 61 63 6b 20 74 6f 20 4d 44 4c 2e 22 20 28   ┆bject to be sent back to MDL." (┆
0x1c0…1e0 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 c2 88 8a c3 20 88 60   ┆interactive) (byte-code "      `┆
0x1e0…200 18 c4 c5 21 88 c6 09 08 60 23 88 08 62 88 c7 c8 08 c9 20 88 60 5c 22 21 29 29 87 22 20 5b 73 74   ┆   !    `#  b       `\"!)) " [st┆
0x200…220 61 72 74 20 6d 65 64 69 74 2d 62 75 66 66 65 72 20 6e 69 6c 20 62 65 67 69 6e 6e 69 6e 67 2d 6f   ┆art medit-buffer nil beginning-o┆
0x220…240 66 2d 44 45 46 49 4e 45 20 66 6f 72 77 61 72 64 2d 6d 69 6d 2d 6f 62 6a 65 63 74 20 31 20 61 70   ┆f-DEFINE forward-mim-object 1 ap┆
0x240…260 70 65 6e 64 2d 74 6f 2d 62 75 66 66 65 72 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 2d 73 75   ┆pend-to-buffer message buffer-su┆
0x260…280 62 73 74 72 69 6e 67 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e   ┆bstring end-of-line] 8))  (defun┆
0x280…2a0 20 6d 65 64 69 74 2d 73 61 76 65 2d 72 65 67 69 6f 6e 20 28 73 74 61 72 74 20 65 6e 64 29 20 22   ┆ medit-save-region (start end) "┆
0x2a0…2c0 5c 0a 4d 61 72 6b 20 74 68 65 20 63 75 72 72 65 6e 74 20 72 65 67 69 6f 6e 20 74 6f 20 62 65 20   ┆\ Mark the current region to be ┆
0x2c0…2e0 73 65 6e 74 20 74 6f 20 62 61 63 6b 20 74 6f 20 4d 44 4c 2e 22 20 28 69 6e 74 65 72 61 63 74 69   ┆sent to back to MDL." (interacti┆
0x2e0…300 76 65 20 22 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 08 09 0a 23 88 c5 c6 21 87   ┆ve "r") (byte-code "      #   ! ┆
0x300…320 22 20 5b 6d 65 64 69 74 2d 62 75 66 66 65 72 20 73 74 61 72 74 20 65 6e 64 20 6e 69 6c 20 61 70   ┆" [medit-buffer start end nil ap┆
0x320…340 70 65 6e 64 2d 74 6f 2d 62 75 66 66 65 72 20 6d 65 73 73 61 67 65 20 22 43 75 72 72 65 6e 74 20   ┆pend-to-buffer message "Current ┆
0x340…360 72 65 67 69 6f 6e 20 73 61 76 65 64 20 66 6f 72 20 4d 44 4c 2e 22 5d 20 34 29 29 0a 0a 28 64 65   ┆region saved for MDL."] 4))  (de┆
0x360…380 66 75 6e 20 6d 65 64 69 74 2d 73 61 76 65 2d 62 75 66 66 65 72 20 6e 69 6c 20 22 5c 0a 4d 61 72   ┆fun medit-save-buffer nil "\ Mar┆
0x380…3a0 6b 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 74 6f 20 62 65 20 73 65 6e 74 20   ┆k the current buffer to be sent ┆
0x3a0…3c0 62 61 63 6b 20 74 6f 20 4d 44 4c 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74   ┆back to MDL." (interactive) (byt┆
0x3c0…3e0 65 2d 63 6f 64 65 20 22 c1 88 c2 08 65 64 23 88 c3 c4 21 87 22 20 5b 6d 65 64 69 74 2d 62 75 66   ┆e-code "    ed#   ! " [medit-buf┆
0x3e0…400 66 65 72 20 6e 69 6c 20 61 70 70 65 6e 64 2d 74 6f 2d 62 75 66 66 65 72 20 6d 65 73 73 61 67 65   ┆fer nil append-to-buffer message┆
0x400…420 20 22 43 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 73 61 76 65 64 20 66 6f 72 20 4d 44 4c 2e 22   ┆ "Current buffer saved for MDL."┆
0x420…440 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 6d 65 64 69 74 2d 7a 61 70 2d 64 65 66 69 6e 65 2d 74   ┆] 4))  (defun medit-zap-define-t┆
0x440…460 6f 2d 6d 64 6c 20 6e 69 6c 20 22 5c 0a 52 65 74 75 72 6e 20 74 6f 20 4d 44 4c 20 77 69 74 68 20   ┆o-mdl nil "\ Return to MDL with ┆
0x460…480 73 75 72 72 6f 75 6e 64 69 6e 67 20 6f 72 20 70 72 65 76 69 6f 75 73 20 74 6f 70 6c 65 76 65 6c   ┆surrounding or previous toplevel┆
0x480…4a0 20 4d 44 4c 20 6f 62 6a 65 63 74 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 20 88 c1 20 88   ┆ MDL object." (byte-code "      ┆
0x4a0…4c0 c2 20 87 22 20 5b 69 6e 64 65 74 61 72 63 74 69 76 65 20 6d 65 64 69 74 2d 73 61 76 65 2d 64 65   ┆   " [indetarctive medit-save-de┆
0x4c0…4e0 66 75 6e 20 6d 65 64 69 74 2d 67 6f 2d 74 6f 2d 6d 64 6c 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e   ┆fun medit-go-to-mdl] 4))  (defun┆
0x4e0…500 20 6d 65 64 69 74 2d 7a 61 70 2d 72 65 67 69 6f 6e 2d 6d 64 6c 20 28 73 74 61 72 74 20 65 6e 64   ┆ medit-zap-region-mdl (start end┆
0x500…520 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 6f 20 4d 44 4c 20 77 69 74 68 20 63 75 72 72 65 6e 74 20   ┆) "\ Return to MDL with current ┆
0x520…540 72 65 67 69 6f 6e 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   ┆region." (interactive) (byte-cod┆
0x540…560 65 20 22 c2 88 c3 08 09 5c 22 88 c4 20 87 22 20 5b 73 74 61 72 74 20 65 6e 64 20 6e 69 6c 20 6d   ┆e "     \"    " [start end nil m┆
0x560…580 65 64 69 74 2d 73 61 76 65 2d 72 65 67 69 6f 6e 20 6d 65 64 69 74 2d 67 6f 2d 74 6f 2d 6d 64 6c   ┆edit-save-region medit-go-to-mdl┆
0x580…5a0 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 6d 65 64 69 74 2d 7a 61 70 2d 62 75 66 66 65 72 20 6e   ┆] 3))  (defun medit-zap-buffer n┆
0x5a0…5c0 69 6c 20 22 5c 0a 52 65 74 75 72 6e 20 74 6f 20 4d 44 4c 20 77 69 74 68 20 63 75 72 72 65 6e 74   ┆il "\ Return to MDL with current┆
0x5c0…5e0 20 62 75 66 66 65 72 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   ┆ buffer." (interactive) (byte-co┆
0x5e0…600 64 65 20 22 c0 88 c1 20 88 c2 20 87 22 20 5b 6e 69 6c 20 6d 65 64 69 74 2d 73 61 76 65 2d 62 75   ┆de "        " [nil medit-save-bu┆
0x600…620 66 66 65 72 20 6d 65 64 69 74 2d 67 6f 2d 74 6f 2d 6d 64 6c 5d 20 33 29 29 0a 0a 28 64 65 66 75   ┆ffer medit-go-to-mdl] 3))  (defu┆
0x620…640 6e 20 6d 65 64 69 74 2d 67 6f 74 6f 2d 6d 64 6c 20 6e 69 6c 20 22 5c 0a 52 65 74 75 72 6e 20 66   ┆n medit-goto-mdl nil "\ Return f┆
0x640…660 72 6f 6d 20 45 6d 61 63 73 20 74 6f 20 73 75 70 65 72 69 6f 72 20 4d 44 4c 2c 20 73 65 6e 64 69   ┆rom Emacs to superior MDL, sendi┆
0x660…680 6e 67 20 73 61 76 65 64 20 63 6f 64 65 2e 0a 4f 70 74 69 6f 6e 61 6c 6c 79 2c 20 6f 66 66 65 72   ┆ng saved code. Optionally, offer┆
0x680…6a0 73 20 74 6f 20 73 61 76 65 20 63 68 61 6e 67 65 64 20 66 69 6c 65 73 2e 22 20 28 69 6e 74 65 72   ┆s to save changed files." (inter┆
0x6a0…6c0 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c5 09 21 18 08 83 28 00 8a 08   ┆active) (byte-code "    !   (   ┆
0x6c0…6e0 71 88 c6 08 21 83 1c 00 c7 65 64 0a 23 82 1d 00 c3 88 c8 c3 21 88 c9 20 29 82 29 00 c3 88 0c 83   ┆q   !    ed #       !   ) )     ┆
0x6e0…700 33 00 ca 20 82 34 00 c3 88 cb 20 29 87 22 20 5b 62 75 66 66 65 72 20 6d 65 64 69 74 2d 62 75 66   ┆3    4     ) " [buffer medit-buf┆
0x700…720 66 65 72 20 6d 65 64 69 74 2d 7a 61 70 2d 66 69 6c 65 20 6e 69 6c 20 6d 65 64 69 74 2d 73 61 76   ┆fer medit-zap-file nil medit-sav┆
0x720…740 65 2d 66 69 6c 65 73 20 67 65 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69   ┆e-files get-buffer buffer-modifi┆
0x740…760 65 64 2d 70 20 77 72 69 74 65 2d 72 65 67 69 6f 6e 20 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64   ┆ed-p write-region set-buffer-mod┆
0x760…780 69 66 69 65 64 2d 70 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 73 61 76 65 2d 73 6f 6d 65 2d 62   ┆ified-p erase-buffer save-some-b┆
0x780…7a0 75 66 66 65 72 73 20 73 75 73 70 65 6e 64 2d 65 6d 61 63 73 5d 20 38 29 29 0a 0a 28 64 65 66 63   ┆uffers suspend-emacs] 8))  (defc┆
0x7a0…7c0 6f 6e 73 74 20 6d 65 64 69 74 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 28 6e   ┆onst medit-mode-map nil)  (if (n┆
0x7c0…7e0 6f 74 20 6d 65 64 69 74 2d 6d 6f 64 65 2d 6d 61 70 29 20 28 70 72 6f 67 6e 20 28 73 65 74 71 20   ┆ot medit-mode-map) (progn (setq ┆
0x7e0…800 6d 65 64 69 74 2d 6d 6f 64 65 2d 6d 61 70 20 28 63 6f 70 79 2d 61 6c 69 73 74 20 6d 69 6d 2d 6d   ┆medit-mode-map (copy-alist mim-m┆
0x800…820 6f 64 65 2d 6d 61 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 65 64 69 74 2d 6d 6f 64 65   ┆ode-map)) (define-key medit-mode┆
0x820…840 2d 6d 61 70 20 22 1b 7a 22 20 28 71 75 6f 74 65 20 6d 65 64 69 74 2d 73 61 76 65 2d 64 65 66 69   ┆-map " z" (quote medit-save-defi┆
0x840…860 6e 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 65 64 69 74 2d 6d 6f 64 65 2d 6d 61 70 20   ┆ne)) (define-key medit-mode-map ┆
0x860…880 22 1b 1a 22 20 28 71 75 6f 74 65 20 6d 65 64 69 74 2d 73 61 76 65 2d 62 75 66 66 65 72 29 29 20   ┆"  " (quote medit-save-buffer)) ┆
0x880…8a0 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 65 64 69 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 18 7a 22 20   ┆(define-key medit-mode-map " z" ┆
0x8a0…8c0 28 71 75 6f 74 65 20 6d 65 64 69 74 2d 67 6f 74 6f 2d 6d 64 6c 29 29 20 28 64 65 66 69 6e 65 2d   ┆(quote medit-goto-mdl)) (define-┆
0x8c0…8e0 6b 65 79 20 6d 65 64 69 74 2d 6d 6f 64 65 2d 6d 61 70 20 22 18 73 22 20 28 71 75 6f 74 65 20 6d   ┆key medit-mode-map " s" (quote m┆
0x8e0…900 65 64 69 74 2d 7a 61 70 2d 62 75 66 66 65 72 29 29 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6d   ┆edit-zap-buffer))))  (defconst m┆
0x900…920 65 64 69 74 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 28 71 75 6f   ┆edit-mode-hook (and (boundp (quo┆
0x920…940 74 65 20 6d 69 6d 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 29 20 6d 69 6d 2d 6d 6f 64 65 2d 68 6f 6f 6b   ┆te mim-mode-hook)) mim-mode-hook┆
0x940…960 29 20 22 5c 0a 22 29 0a 0a 28 73 65 74 71 20 6d 69 6d 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 28 71 75   ┆) "\ ")  (setq mim-mode-hook (qu┆
0x960…980 6f 74 65 20 28 6c 61 6d 62 64 61 20 6e 69 6c 20 28 6d 65 64 69 74 2d 6d 6f 64 65 29 29 29 29 0a   ┆ote (lambda nil (medit-mode)))) ┆
0x980…9a0 0a 28 64 65 66 75 6e 20 6d 65 64 69 74 2d 6d 6f 64 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 73 74   ┆ (defun medit-mode (&optional st┆
0x9a0…9c0 61 74 65 29 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 65 64 69 74 69 6e 67 20 74   ┆ate) "\ Major mode for editing t┆
0x9c0…9e0 65 78 74 20 61 6e 64 20 72 65 74 75 72 6e 69 6e 67 20 69 74 20 74 6f 20 61 20 73 75 70 65 72 69   ┆ext and returning it to a superi┆
0x9e0…a00 6f 72 20 4d 44 4c 2e 0a 4c 69 6b 65 20 4d 69 6d 20 6d 6f 64 65 2c 20 70 6c 75 73 20 74 68 65 73   ┆or MDL. Like Mim mode, plus thes┆
0xa00…a20 65 20 73 70 65 63 69 61 6c 20 63 6f 6d 6d 61 6e 64 73 3a 0a 5c 5c 7b 6d 65 64 69 74 2d 6d 6f 64   ┆e special commands: \\{medit-mod┆
0xa20…a40 65 2d 6d 61 70 7d 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   ┆e-map}" (interactive) (byte-code┆
0xa40…a60 20 22 c3 88 c4 08 21 88 c5 c6 21 88 c7 89 11 88 c8 89 12 87 22 20 5b 6d 65 64 69 74 2d 6d 6f 64   ┆ "    !   !         " [medit-mod┆
0xa60…a80 65 2d 6d 61 70 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 6e 69 6c 20 75   ┆e-map major-mode mode-name nil u┆
0xa80…aa0 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 72 75 6e 2d 68 6f 6f 6b 73 20 6d 65 64 69 74 2d 6d 6f 64   ┆se-local-map run-hooks medit-mod┆
0xaa0…ac0 65 2d 68 6f 6f 6b 20 6d 65 64 69 74 2d 6d 6f 64 65 20 22 4d 65 64 69 74 22 5d 20 34 29 29 0a 0a   ┆e-hook medit-mode "Medit"] 4))  ┆
0xac0…acb 28 6d 69 6d 2d 6d 6f 64 65 29 0a   ┆(mim-mode) ┆