DataMuseum.dk

top - metrics - download

    Length: 3126 (0xc36)
    Names: »x-menu.elc«

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

Hex Dump

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 6d 70 6c 65 6d 65 6e 74 65 64 20 65 6e 74 69 72 65 6c 79 20   ┆ menus are implemented entirely ┆
0x100…120 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 65   ┆in Lisp; popup menus, implemente┆
0x120…140 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 65   ┆d with x-popup-menu, are impleme┆
0x140…160 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 62   ┆nted using XMenu primitives." (b┆
0x160…180 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 89   ┆yte-code "  !   !   !   !   !   ┆
0x180…1a0 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 6c   ┆              " [buffer-read-onl┆
0x1a0…1c0 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 75   ┆y t truncate-lines x-process-mou┆
0x1c0…1e0 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 66   ┆se-hook mode-line-buffer-identif┆
0x1e0…200 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 65   ┆ication make-local-variable x-me┆
0x200…220 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 69   ┆nu-items-per-line x-menu-item-wi┆
0x220…240 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 73   ┆dth x-menu-items-alist x-menu-as┆
0x240…260 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 4d   ┆soc-buffer x-menu-pick-entry ("M┆
0x260…280 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 75   ┆ENU: %32b")] 7))  (defvar x-menu┆
0x280…2a0 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 74   ┆-max-width 0)  (defvar x-menu-it┆
0x2a0…2c0 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 2d   ┆ems-per-line 0)  (defvar x-menu-┆
0x2c0…2e0 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 74   ┆item-width 0)  (defvar x-menu-it┆
0x2e0…300 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 61   ┆ems-alist nil)  (defvar x-menu-a┆
0x300…320 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 75   ┆ssoc-buffer nil)  (defvar x-menu┆
0x320…340 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 69   ┆-item-spacing 1 "\ *Minimum hori┆
0x340…360 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 69   ┆zontal spacing between objects i┆
0x360…380 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 20   ┆n a permanent X menu.")  (defun ┆
0x380…3a0 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 65   ┆x-menu-create-menu (name) "\ Cre┆
0x3a0…3c0 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 73   ┆ate a permanent X menu.  Returns┆
0x3c0…3e0 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 73   ┆ an item which should be used as┆
0x3e0…400 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 6e   ┆ a menu object whenever referrin┆
0x400…420 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 21   ┆g to the menu." (byte-code "p  !┆
0x420…440 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 6d   ┆   q         q  * " [old buf nam┆
0x440…460 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 72   ┆e x-menu-assoc-buffer get-buffer┆
0x460…480 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 6e   ┆-create x-menu-mode] 4))  (defun┆
0x480…4a0 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 72   ┆ x-menu-change-associated-buffer┆
0x4a0…4c0 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 61   ┆ (menu buffer) "\ Change associa┆
0x4c0…4e0 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 42   ┆ted buffer of MENU to BUFFER.  B┆
0x4e0…500 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 2e   ┆UFFER should be a buffer object.┆
0x500…520 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 6c   ┆" (byte-code "p  q      q) " [ol┆
0x520…540 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 65   ┆d menu x-menu-assoc-buffer buffe┆
0x540…560 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 28   ┆r] 2))  (defun x-menu-add-item (┆
0x560…580 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 45   ┆menu item binding) "\ Adds to ME┆
0x580…5a0 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 63   ┆NU an item with name ITEM, assoc┆
0x5a0…5c0 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 20   ┆iated with BINDING. Following a ┆
0x5c0…5e0 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 2d   ┆sequence of calls to x-menu-add-┆
0x5e0…600 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 73   ┆item, a call to x-menu-compute s┆
0x600…620 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 65   ┆hould be performed before the me┆
0x620…640 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 65   ┆nu will be made available to the┆
0x640…660 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 63   ┆ user.  BINDING should be a func┆
0x660…680 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 74   ┆tion of one argument, which is t┆
0x680…6a0 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 20   ┆he numerical button/key code as ┆
0x6a0…6c0 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 64   ┆defined in x-menu.el." (byte-cod┆
0x6c0…6e0 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 0d   ┆e "p    q    \"        \"       ┆
0x6e0…700 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 65   ┆BC\"    q  * " [old elt menu ite┆
0x700…720 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 6c   ┆m x-menu-items-alist binding nil┆
0x720…740 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 75   ┆ assoc rplacd append] 6))  (defu┆
0x740…760 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 29   ┆n x-menu-delete-item (menu item)┆
0x760…780 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 6e   ┆ "\ Deletes from MENU the item n┆
0x780…7a0 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 6c   ┆amed ITEM.  x-menu-compute shoul┆
0x7a0…7c0 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 6d   ┆d be called before the menu is m┆
0x7c0…7e0 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 74   ┆ade available to the user." (byt┆
0x7e0…800 65 2d 63 6f 64 65 20 22 70 c5 19 18 0a 71 88 c6 0b 0c 5c 22 89 11 85 14 00 c7 09 c5 5c 22 88 08   ┆e-code "p    q    \"        \"  ┆
0x800…820 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 2d 6d 65 6e 75   ┆q  * " [old elt menu item x-menu┆
0x820…840 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 63 61 5d 20 34   ┆-items-alist nil assoc rplaca] 4┆
0x840…860 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 28 6d 65 6e 75   ┆))  (defun x-menu-activate (menu┆
0x860…880 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 20 70 61 72 61   ┆) "\ Computes all necessary para┆
0x880…8a0 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 20 62 65 20 63   ┆meters for MENU.  This must be c┆
0x8a0…8c0 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 64 69 66 69 65   ┆alled whenever a menu is modifie┆
0x8c0…8e0 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 6c 65 20 74 6f   ┆d before it is made available to┆
0x8e0…900 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 65 73 20 74 68   ┆ the user.  This also creates th┆
0x900…920 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 22 70 18 cb 09   ┆e menu itself." (byte-code "p   ┆
0x920…940 21 88 cc 1a cd 20 53 89 13 88 ce 89 14 88 cc 0e 07 1e 06 1d 0e 06 85 40 00 0e 06 40 40 85 35 00   ┆!     S                @   @@ 5 ┆
0x940…960 0e 06 40 0d 42 89 15 88 0c 0e 06 40 40 47 5d 89 14 88 0e 06 41 89 16 06 88 82 18 00 88 cf 0d 21   ┆  @ B      @@G]     A          !┆
0x960…980 89 16 07 2a 88 0e 08 0c 5c 5c 89 14 88 d0 d1 0b 0c 5c 22 5d 89 16 09 88 d2 20 88 0e 07 1d 0d 85   ┆   *    \\       \"]            ┆
0x980…9a0 94 00 ce 1e 0a 0d 85 74 00 0e 0a 54 89 16 0a 0e 09 58 85 8c 00 d3 d4 d5 0c 21 d6 51 0d 40 40 5c   ┆       t   T     X       ! Q @@\┆
0x9a0…9c0 22 63 88 0d 41 89 15 88 82 67 00 29 88 d7 63 88 82 60 00 29 88 d8 ce d9 20 da 65 64 5c 22 54 5a   ┆"c  A    g )  c  ` )      ed\"TZ┆
0x9c0…9e0 5d 21 88 65 62 29 88 cb 08 21 29 87 22 20 5b 62 75 66 20 6d 65 6e 75 20 62 75 66 66 65 72 2d 72   ┆]! eb)   !) " [buf menu buffer-r┆
0x9e0…a00 65 61 64 2d 6f 6e 6c 79 20 78 2d 6d 65 6e 75 2d 6d 61 78 2d 77 69 64 74 68 20 78 2d 6d 65 6e 75   ┆ead-only x-menu-max-width x-menu┆
0xa00…a20 2d 69 74 65 6d 2d 77 69 64 74 68 20 69 74 65 6d 73 2d 68 65 61 64 20 69 74 65 6d 73 2d 74 61 69   ┆-item-width items-head items-tai┆
0xa20…a40 6c 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 69 74 65 6d   ┆l x-menu-items-alist x-menu-item┆
0xa40…a60 2d 73 70 61 63 69 6e 67 20 78 2d 6d 65 6e 75 2d 69 74 65 6d 73 2d 70 65 72 2d 6c 69 6e 65 20 69   ┆-spacing x-menu-items-per-line i┆
0xa60…a80 74 65 6d 73 20 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 6e 69 6c 20 73 63 72 65 65 6e 2d 77 69   ┆tems pop-to-buffer nil screen-wi┆
0xa80…aa0 64 74 68 20 30 20 72 65 76 65 72 73 65 20 31 20 2f 20 65 72 61 73 65 2d 62 75 66 66 65 72 20 66   ┆dth 0 reverse 1 / erase-buffer f┆
0xaa0…ac0 6f 72 6d 61 74 20 22 25 22 20 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 20 22 73 22 20 31 30 20 73   ┆ormat "%" int-to-string "s" 10 s┆
0xac0…ae0 68 72 69 6e 6b 2d 77 69 6e 64 6f 77 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 63 6f 75 6e 74   ┆hrink-window window-height count┆
0xae0…b00 2d 6c 69 6e 65 73 5d 20 31 34 29 29 0a 0a 28 64 65 66 75 6e 20 78 2d 6d 65 6e 75 2d 70 69 63 6b   ┆-lines] 14))  (defun x-menu-pick┆
0xb00…b20 2d 65 6e 74 72 79 20 28 70 6f 73 69 74 69 6f 6e 20 65 76 65 6e 74 29 20 22 5c 0a 49 6e 74 65 72   ┆-entry (position event) "\ Inter┆
0xb20…b40 6e 61 6c 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 64 69 73 70 61 74 63 68 69 6e 67 20 6f 6e 20   ┆nal function for dispatching on ┆
0xb40…b60 6d 6f 75 73 65 2f 6d 65 6e 75 20 65 76 65 6e 74 73 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09   ┆mouse/menu events" (byte-code " ┆
0xb60…b80 53 c9 69 0a 5c 22 5e 18 ca 65 60 5c 22 cb 69 21 83 16 00 cc 82 17 00 cd 5a 1b 08 ce 0b 09 5c 22   ┆S i \"^  e`\" i!        Z     \"┆
0xb80…ba0 5c 5c 1c 0c 0e 06 38 41 1d 0d 85 2f 00 cf 0d 0e 07 5c 22 2c 88 d0 0e 08 21 87 22 20 5b 78 20 78   ┆\\    8A   /     \",    ! " [x x┆
0xba0…bc0 2d 6d 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   ┆-menu-items-per-line x-menu-item┆
0xbc0…be0 2d 77 69 64 74 68 20 79 20 69 74 65 6d 20 6c 69 74 65 6d 20 78 2d 6d 65 6e 75 2d 69 74 65 6d 73   ┆-width y item litem x-menu-items┆
0xbe0…c00 2d 61 6c 69 73 74 20 65 76 65 6e 74 20 78 2d 6d 65 6e 75 2d 61 73 73 6f 63 2d 62 75 66 66 65 72   ┆-alist event x-menu-assoc-buffer┆
0xc00…c20 20 2f 20 63 6f 75 6e 74 2d 6c 69 6e 65 73 20 7a 65 72 6f 70 20 30 20 31 20 2a 20 66 75 6e 63 61   ┆ / count-lines zerop 0 1 * funca┆
0xc20…c36 6c 6c 20 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 5d 20 37 29 29 0a   ┆ll pop-to-buffer] 7)) ┆