|
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 - downloadIndex: ┃ x ┃
Length: 3135 (0xc3f)
Names: »x-menu.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/x-menu.elc«
0x000…020 0a 28 64 65 66 6d 61 63 72 6f 20 63 61 61 72 20 28 63 6f 6e 73 63 65 6c 6c 29 20 28 62 79 74 65 ┆ (defmacro caar (conscell) (byte┆
0x020…040 2d 63 6f 64 65 20 22 c1 c1 08 44 44 87 22 20 5b 63 6f 6e 73 63 65 6c 6c 20 63 61 72 5d 20 33 29 ┆-code " DD " [conscell car] 3)┆
0x040…060 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 63 64 61 72 20 28 63 6f 6e 73 63 65 6c 6c 29 20 28 62 79 ┆) (defmacro cdar (conscell) (by┆
0x060…080 74 65 2d 63 6f 64 65 20 22 c1 c2 08 44 44 87 22 20 5b 63 6f 6e 73 63 65 6c 6c 20 63 64 72 20 63 ┆te-code " DD " [conscell cdr c┆
0x080…0a0 61 72 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 78 2d 6d 65 6e 75 2d 6d 6f 64 65 20 6e 69 6c 20 ┆ar] 3)) (defun x-menu-mode nil ┆
0x0a0…0c0 22 5c 0a 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 63 72 65 61 74 69 6e 67 20 70 65 72 6d 61 ┆"\ Major mode for creating perma┆
0x0c0…0e0 6e 65 6e 74 20 6d 65 6e 75 73 20 66 6f 72 20 75 73 65 20 77 69 74 68 20 58 2e 0a 54 68 65 73 65 ┆nent menus for use with X. These┆
0x0e0…100 20 6d 65 6e 75 73 20 61 72 65 20 69 69 6d 70 6c 65 6d 65 6e 74 65 64 20 65 6e 74 69 72 65 6c 79 ┆ menus are iimplemented entirely┆
0x100…120 20 69 6e 20 4c 69 73 70 3b 20 70 6f 70 75 70 20 6d 65 6e 75 73 2c 20 69 6d 70 6c 65 6d 65 6e 74 ┆ in Lisp; popup menus, implement┆
0x120…140 65 64 0a 77 69 74 68 20 78 2d 70 6f 70 75 70 2d 6d 65 6e 75 2c 20 61 72 65 20 69 6d 70 6c 65 6d ┆ed with x-popup-menu, are implem┆
0x140…160 65 6e 74 65 64 20 75 73 69 6e 67 20 58 4d 65 6e 75 20 70 72 69 6d 69 74 69 76 65 73 2e 22 20 28 ┆ented using XMenu primitives." (┆
0x160…180 62 79 74 65 2d 63 6f 64 65 20 22 c5 c6 21 88 c5 c7 21 88 c5 c8 21 88 c5 c3 21 88 c5 c9 21 88 c1 ┆byte-code " ! ! ! ! ! ┆
0x180…1a0 89 10 88 c1 89 12 88 ca 89 13 88 cb 89 14 87 22 20 5b 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e ┆ " [buffer-read-on┆
0x1a0…1c0 6c 79 20 74 20 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 20 78 2d 70 72 6f 63 65 73 73 2d 6d 6f ┆ly t truncate-lines x-process-mo┆
0x1c0…1e0 75 73 65 2d 68 6f 6f 6b 20 6d 6f 64 65 2d 6c 69 6e 65 2d 62 75 66 66 65 72 2d 69 64 65 6e 74 69 ┆use-hook mode-line-buffer-identi┆
0x1e0…200 66 69 63 61 74 69 6f 6e 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 78 2d 6d ┆fication make-local-variable x-m┆
0x200…220 65 6e 75 2d 69 74 65 6d 73 2d 70 65 72 2d 6c 69 6e 65 20 78 2d 6d 65 6e 75 2d 69 74 65 6d 2d 77 ┆enu-items-per-line x-menu-item-w┆
0x220…240 69 64 74 68 20 78 2d 6d 65 6e 75 2d 69 74 65 6d 73 2d 61 6c 69 73 74 20 78 2d 6d 65 6e 75 2d 61 ┆idth x-menu-items-alist x-menu-a┆
0x240…260 73 73 6f 63 2d 62 75 66 66 65 72 20 78 2d 6d 65 6e 75 2d 70 69 63 6b 2d 65 6e 74 72 79 20 28 22 ┆ssoc-buffer x-menu-pick-entry ("┆
0x260…280 4d 45 4e 55 3a 20 25 33 32 62 22 29 5d 20 37 29 29 0a 0a 28 64 65 66 76 61 72 20 78 2d 6d 65 6e ┆MENU: %32b")] 7)) (defvar x-men┆
0x280…2a0 75 2d 6d 61 78 2d 77 69 64 74 68 20 30 29 0a 0a 28 64 65 66 76 61 72 20 78 2d 6d 65 6e 75 2d 69 ┆u-max-width 0) (defvar x-menu-i┆
0x2a0…2c0 74 65 6d 73 2d 70 65 72 2d 6c 69 6e 65 20 30 29 0a 0a 28 64 65 66 76 61 72 20 78 2d 6d 65 6e 75 ┆tems-per-line 0) (defvar x-menu┆
0x2c0…2e0 2d 69 74 65 6d 2d 77 69 64 74 68 20 30 29 0a 0a 28 64 65 66 76 61 72 20 78 2d 6d 65 6e 75 2d 69 ┆-item-width 0) (defvar x-menu-i┆
0x2e0…300 74 65 6d 73 2d 61 6c 69 73 74 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 78 2d 6d 65 6e 75 2d ┆tems-alist nil) (defvar x-menu-┆
0x300…320 61 73 73 6f 63 2d 62 75 66 66 65 72 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 78 2d 6d 65 6e ┆assoc-buffer nil) (defvar x-men┆
0x320…340 75 2d 69 74 65 6d 2d 73 70 61 63 69 6e 67 20 31 20 22 5c 0a 2a 4d 69 6e 69 6d 75 6d 20 68 6f 72 ┆u-item-spacing 1 "\ *Minimum hor┆
0x340…360 69 7a 6f 6e 74 61 6c 20 73 70 61 63 69 6e 67 20 62 65 74 77 65 65 6e 20 6f 62 6a 65 63 74 73 20 ┆izontal spacing between objects ┆
0x360…380 69 6e 20 61 20 70 65 72 6d 61 6e 65 6e 74 20 58 20 6d 65 6e 75 2e 22 29 0a 0a 28 64 65 66 75 6e ┆in a permanent X menu.") (defun┆
0x380…3a0 20 78 2d 6d 65 6e 75 2d 63 72 65 61 74 65 2d 6d 65 6e 75 20 28 6e 61 6d 65 29 20 22 5c 0a 43 72 ┆ x-menu-create-menu (name) "\ Cr┆
0x3a0…3c0 65 61 74 65 20 61 20 70 65 72 6d 61 6e 65 6e 74 20 58 20 6d 65 6e 75 2e 20 20 52 65 74 75 72 6e ┆eate a permanent X menu. Return┆
0x3c0…3e0 73 20 61 6e 20 69 74 65 6d 20 77 68 69 63 68 20 73 68 6f 75 6c 64 20 62 65 20 75 73 65 64 20 61 ┆s an item which should be used a┆
0x3e0…400 73 20 61 0a 6d 65 6e 75 20 6f 62 6a 65 63 74 20 77 68 65 6e 65 76 65 72 20 72 65 66 65 72 72 69 ┆s a menu object whenever referri┆
0x400…420 6e 67 20 74 6f 20 74 68 65 20 6d 65 6e 75 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 70 c4 0a ┆ng to the menu." (byte-code "p ┆
0x420…440 21 19 18 09 71 88 c5 20 88 08 89 13 88 08 71 88 09 2a 87 22 20 5b 6f 6c 64 20 62 75 66 20 6e 61 ┆! q q * " [old buf na┆
0x440…460 6d 65 20 78 2d 6d 65 6e 75 2d 61 73 73 6f 63 2d 62 75 66 66 65 72 20 67 65 74 2d 62 75 66 66 65 ┆me x-menu-assoc-buffer get-buffe┆
0x460…480 72 2d 63 72 65 61 74 65 20 78 2d 6d 65 6e 75 2d 6d 6f 64 65 5d 20 34 29 29 0a 0a 28 64 65 66 75 ┆r-create x-menu-mode] 4)) (defu┆
0x480…4a0 6e 20 78 2d 6d 65 6e 75 2d 63 68 61 6e 67 65 2d 61 73 73 6f 63 69 61 74 65 64 2d 62 75 66 66 65 ┆n x-menu-change-associated-buffe┆
0x4a0…4c0 72 20 28 6d 65 6e 75 20 62 75 66 66 65 72 29 20 22 5c 0a 43 68 61 6e 67 65 20 61 73 73 6f 63 69 ┆r (menu buffer) "\ Change associ┆
0x4c0…4e0 61 74 65 64 20 62 75 66 66 65 72 20 6f 66 20 4d 45 4e 55 20 74 6f 20 42 55 46 46 45 52 2e 20 20 ┆ated buffer of MENU to BUFFER. ┆
0x4e0…500 42 55 46 46 45 52 20 73 68 6f 75 6c 64 20 62 65 20 61 20 62 75 66 66 65 72 0a 6f 62 6a 65 63 74 ┆BUFFER should be a buffer object┆
0x500…520 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 70 18 09 71 88 0b 89 12 88 08 71 29 87 22 20 5b 6f ┆." (byte-code "p q q) " [o┆
0x520…540 6c 64 20 6d 65 6e 75 20 78 2d 6d 65 6e 75 2d 61 73 73 6f 63 2d 62 75 66 66 65 72 20 62 75 66 66 ┆ld menu x-menu-assoc-buffer buff┆
0x540…560 65 72 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 78 2d 6d 65 6e 75 2d 61 64 64 2d 69 74 65 6d 20 ┆er] 2)) (defun x-menu-add-item ┆
0x560…580 28 6d 65 6e 75 20 69 74 65 6d 20 62 69 6e 64 69 6e 67 29 20 22 5c 0a 41 64 64 73 20 74 6f 20 4d ┆(menu item binding) "\ Adds to M┆
0x580…5a0 45 4e 55 20 61 6e 20 69 74 65 6d 20 77 69 74 68 20 6e 61 6d 65 20 49 54 45 4d 2c 20 61 73 73 6f ┆ENU an item with name ITEM, asso┆
0x5a0…5c0 63 69 61 74 65 64 20 77 69 74 68 20 42 49 4e 44 49 4e 47 2e 0a 46 6f 6c 6c 6f 77 69 6e 67 20 61 ┆ciated with BINDING. Following a┆
0x5c0…5e0 20 73 65 71 75 65 6e 63 65 20 6f 66 20 63 61 6c 6c 73 20 74 6f 20 78 2d 6d 65 6e 75 2d 61 64 64 ┆ sequence of calls to x-menu-add┆
0x5e0…600 2d 69 74 65 6d 2c 20 61 20 63 61 6c 6c 20 74 6f 20 78 2d 6d 65 6e 75 2d 63 6f 6d 70 75 74 65 0a ┆-item, a call to x-menu-compute ┆
0x600…620 73 68 6f 75 6c 64 20 62 65 20 70 65 72 66 6f 72 6d 65 64 20 62 65 66 6f 72 65 20 74 68 65 20 6d ┆should be performed before the m┆
0x620…640 65 6e 75 20 77 69 6c 6c 20 62 65 20 6d 61 64 65 20 61 76 61 69 6c 61 62 6c 65 20 74 6f 20 74 68 ┆enu will be made available to th┆
0x640…660 65 20 75 73 65 72 2e 0a 0a 42 49 4e 44 49 4e 47 20 73 68 6f 75 6c 64 20 62 65 20 61 20 66 75 6e ┆e user. BINDING should be a fun┆
0x660…680 63 74 69 6f 6e 20 6f 66 20 6f 6e 65 20 61 72 67 75 6d 65 6e 74 2c 20 77 68 69 63 68 20 69 73 20 ┆ction of one argument, which is ┆
0x680…6a0 74 68 65 20 6e 75 6d 65 72 69 63 61 6c 0a 62 75 74 74 6f 6e 2f 6b 65 79 20 63 6f 64 65 20 61 73 ┆the numerical button/key code as┆
0x6a0…6c0 20 64 65 66 69 6e 65 64 20 69 6e 20 78 2d 6d 65 6e 75 2e 65 6c 2e 22 20 28 62 79 74 65 2d 63 6f ┆ defined in x-menu.el." (byte-co┆
0x6c0…6e0 64 65 20 22 70 c6 19 18 0a 71 88 c7 0b 0c 5c 22 89 11 83 17 00 c8 09 0d 5c 22 82 20 00 c9 0c 0b ┆de "p q \" \" ┆
0x6e0…700 0d 42 43 5c 22 89 14 88 08 71 88 0b 2a 87 22 20 5b 6f 6c 64 20 65 6c 74 20 6d 65 6e 75 20 69 74 ┆ BC\" q * " [old elt menu it┆
0x700…720 65 6d 20 78 2d 6d 65 6e 75 2d 69 74 65 6d 73 2d 61 6c 69 73 74 20 62 69 6e 64 69 6e 67 20 6e 69 ┆em x-menu-items-alist binding ni┆
0x720…740 6c 20 61 73 73 6f 63 20 72 70 6c 61 63 64 20 61 70 70 65 6e 64 5d 20 36 29 29 0a 0a 28 64 65 66 ┆l assoc rplacd append] 6)) (def┆
0x740…760 75 6e 20 78 2d 6d 65 6e 75 2d 64 65 6c 65 74 65 2d 69 74 65 6d 20 28 6d 65 6e 75 20 69 74 65 6d ┆un x-menu-delete-item (menu item┆
0x760…780 29 20 22 5c 0a 44 65 6c 65 74 65 73 20 66 72 6f 6d 20 4d 45 4e 55 20 74 68 65 20 69 74 65 6d 20 ┆) "\ Deletes from MENU the item ┆
0x780…7a0 6e 61 6d 65 64 20 49 54 45 4d 2e 20 20 78 2d 6d 65 6e 75 2d 63 6f 6d 70 75 74 65 20 73 68 6f 75 ┆named ITEM. x-menu-compute shou┆
0x7a0…7c0 6c 64 20 62 65 20 63 61 6c 6c 65 64 0a 62 65 66 6f 72 65 20 74 68 65 20 6d 65 6e 75 20 69 73 20 ┆ld be called before the menu is ┆
0x7c0…7e0 6d 61 64 65 20 61 76 61 69 6c 61 62 6c 65 20 74 6f 20 74 68 65 20 75 73 65 72 2e 22 20 28 62 79 ┆made available to the user." (by┆
0x7e0…800 74 65 2d 63 6f 64 65 20 22 70 c5 19 18 0a 71 88 c6 0b 0c 5c 22 89 11 83 17 00 c7 09 c5 5c 22 82 ┆te-code "p q \" \" ┆
0x800…820 18 00 c5 88 08 71 88 0b 2a 87 22 20 5b 6f 6c 64 20 65 6c 74 20 6d 65 6e 75 20 69 74 65 6d 20 78 ┆ q * " [old elt menu item x┆
0x820…840 2d 6d 65 6e 75 2d 69 74 65 6d 73 2d 61 6c 69 73 74 20 6e 69 6c 20 61 73 73 6f 63 20 72 70 6c 61 ┆-menu-items-alist nil assoc rpla┆
0x840…860 63 61 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 78 2d 6d 65 6e 75 2d 61 63 74 69 76 61 74 65 20 ┆ca] 4)) (defun x-menu-activate ┆
0x860…880 28 6d 65 6e 75 29 20 22 5c 0a 43 6f 6d 70 75 74 65 73 20 61 6c 6c 20 6e 65 63 65 73 73 61 72 79 ┆(menu) "\ Computes all necessary┆
0x880…8a0 20 70 61 72 61 6d 65 74 65 72 73 20 66 6f 72 20 4d 45 4e 55 2e 20 20 54 68 69 73 20 6d 75 73 74 ┆ parameters for MENU. This must┆
0x8a0…8c0 20 62 65 20 63 61 6c 6c 65 64 20 77 68 65 6e 65 76 65 72 0a 61 20 6d 65 6e 75 20 69 73 20 6d 6f ┆ be called whenever a menu is mo┆
0x8c0…8e0 64 69 66 69 65 64 20 62 65 66 6f 72 65 20 69 74 20 69 73 20 6d 61 64 65 20 61 76 61 69 6c 61 62 ┆dified before it is made availab┆
0x8e0…900 6c 65 20 74 6f 20 74 68 65 20 75 73 65 72 2e 0a 0a 54 68 69 73 20 61 6c 73 6f 20 63 72 65 61 74 ┆le to the user. This also creat┆
0x900…920 65 73 20 74 68 65 20 6d 65 6e 75 20 69 74 73 65 6c 66 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆es the menu itself." (byte-code ┆
0x920…940 22 70 18 cb 09 21 88 cc 1a cd 20 53 89 13 88 ce 89 14 88 cc 0e 07 1e 06 1d 0e 06 85 44 00 0e 06 ┆"p ! S D ┆
0x940…960 40 40 83 38 00 0e 06 40 0d 42 89 15 88 0c 0e 06 40 40 47 5d 89 14 82 39 00 cc 88 0e 06 41 89 16 ┆@@ 8 @ B @@G] 9 A ┆
0x960…980 06 88 82 18 00 88 cf 0d 21 89 16 07 2a 88 0e 08 0c 5c 5c 89 14 88 d0 d1 0b 0c 5c 22 5d 89 16 09 ┆ ! * \\ \"] ┆
0x980…9a0 88 d2 20 88 0e 07 1d 0d 85 98 00 ce 1e 0a 0d 85 78 00 0e 0a 54 89 16 0a 0e 09 58 85 90 00 d3 d4 ┆ x T X ┆
0x9a0…9c0 d5 0c 21 d6 51 0d 40 40 5c 22 63 88 0d 41 89 15 88 82 6b 00 29 88 d7 63 88 82 64 00 29 88 d8 ce ┆ ! Q @@\"c A k ) c d ) ┆
0x9c0…9e0 d9 20 da 65 64 5c 22 54 5a 5d 21 88 65 62 29 88 cb 08 21 29 87 22 20 5b 62 75 66 20 6d 65 6e 75 ┆ ed\"TZ]! eb) !) " [buf menu┆
0x9e0…a00 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 78 2d 6d 65 6e 75 2d 6d 61 78 2d 77 69 64 ┆ buffer-read-only x-menu-max-wid┆
0xa00…a20 74 68 20 78 2d 6d 65 6e 75 2d 69 74 65 6d 2d 77 69 64 74 68 20 69 74 65 6d 73 2d 68 65 61 64 20 ┆th x-menu-item-width items-head ┆
0xa20…a40 69 74 65 6d 73 2d 74 61 69 6c 20 78 2d 6d 65 6e 75 2d 69 74 65 6d 73 2d 61 6c 69 73 74 20 78 2d ┆items-tail x-menu-items-alist x-┆
0xa40…a60 6d 65 6e 75 2d 69 74 65 6d 2d 73 70 61 63 69 6e 67 20 78 2d 6d 65 6e 75 2d 69 74 65 6d 73 2d 70 ┆menu-item-spacing x-menu-items-p┆
0xa60…a80 65 72 2d 6c 69 6e 65 20 69 74 65 6d 73 20 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 6e 69 6c 20 ┆er-line items pop-to-buffer nil ┆
0xa80…aa0 73 63 72 65 65 6e 2d 77 69 64 74 68 20 30 20 72 65 76 65 72 73 65 20 31 20 2f 20 65 72 61 73 65 ┆screen-width 0 reverse 1 / erase┆
0xaa0…ac0 2d 62 75 66 66 65 72 20 66 6f 72 6d 61 74 20 22 25 22 20 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 ┆-buffer format "%" int-to-string┆
0xac0…ae0 20 22 73 22 20 31 30 20 73 68 72 69 6e 6b 2d 77 69 6e 64 6f 77 20 77 69 6e 64 6f 77 2d 68 65 69 ┆ "s" 10 shrink-window window-hei┆
0xae0…b00 67 68 74 20 63 6f 75 6e 74 2d 6c 69 6e 65 73 5d 20 31 34 29 29 0a 0a 28 64 65 66 75 6e 20 78 2d ┆ght count-lines] 14)) (defun x-┆
0xb00…b20 6d 65 6e 75 2d 70 69 63 6b 2d 65 6e 74 72 79 20 28 70 6f 73 69 74 69 6f 6e 20 65 76 65 6e 74 29 ┆menu-pick-entry (position event)┆
0xb20…b40 20 22 5c 0a 49 6e 74 65 72 6e 61 6c 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 64 69 73 70 61 74 ┆ "\ Internal function for dispat┆
0xb40…b60 63 68 69 6e 67 20 6f 6e 20 6d 6f 75 73 65 2f 6d 65 6e 75 20 65 76 65 6e 74 73 22 20 28 62 79 74 ┆ching on mouse/menu events" (byt┆
0xb60…b80 65 2d 63 6f 64 65 20 22 09 53 c9 69 0a 5c 22 5e 18 ca 65 60 5c 22 cb 69 21 83 16 00 cc 82 17 00 ┆e-code " S i \"^ e`\" i! ┆
0xb80…ba0 cd 5a 1b 08 ce 0b 09 5c 22 5c 5c 1c 0c 0e 06 38 41 1d 0d 85 2f 00 cf 0d 0e 07 5c 22 2c 88 d0 0e ┆ Z \"\\ 8A / \", ┆
0xba0…bc0 08 21 87 22 20 5b 78 20 78 2d 6d 65 6e 75 2d 69 74 65 6d 73 2d 70 65 72 2d 6c 69 6e 65 20 78 2d ┆ ! " [x x-menu-items-per-line x-┆
0xbc0…be0 6d 65 6e 75 2d 69 74 65 6d 2d 77 69 64 74 68 20 79 20 69 74 65 6d 20 6c 69 74 65 6d 20 78 2d 6d ┆menu-item-width y item litem x-m┆
0xbe0…c00 65 6e 75 2d 69 74 65 6d 73 2d 61 6c 69 73 74 20 65 76 65 6e 74 20 78 2d 6d 65 6e 75 2d 61 73 73 ┆enu-items-alist event x-menu-ass┆
0xc00…c20 6f 63 2d 62 75 66 66 65 72 20 2f 20 63 6f 75 6e 74 2d 6c 69 6e 65 73 20 7a 65 72 6f 70 20 30 20 ┆oc-buffer / count-lines zerop 0 ┆
0xc20…c3f 31 20 2a 20 66 75 6e 63 61 6c 6c 20 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 5d 20 37 29 29 0a ┆1 * funcall pop-to-buffer] 7)) ┆