|
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: ┃ o ┃
Length: 2744 (0xab8)
Names: »options.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/options.elc«
0x000…020 0a 28 64 65 66 75 6e 20 6c 69 73 74 2d 6f 70 74 69 6f 6e 73 20 6e 69 6c 20 22 5c 0a 44 69 73 70 ┆ (defun list-options nil "\ Disp┆ 0x020…040 6c 61 79 20 61 20 6c 69 73 74 20 6f 66 20 45 6d 61 63 73 20 75 73 65 72 20 6f 70 74 69 6f 6e 73 ┆lay a list of Emacs user options┆ 0x040…060 2c 20 77 69 74 68 20 76 61 6c 75 65 73 20 61 6e 64 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e ┆, with values and documentation.┆ 0x060…080 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 c2 88 8a c3 ┆" (interactive) (byte-code " ┆ 0x080…0a0 c4 21 71 88 c5 20 29 88 c4 90 c2 18 c6 c7 21 88 c8 08 c9 5c 22 89 10 88 08 85 4c 00 08 40 19 ca ┆ !q ) ! \" L @ ┆ 0x0a0…0c0 cb 21 88 cc 09 21 88 ca cd 21 88 cc 09 4a 21 88 ce 20 88 ca cf d0 09 d1 5c 22 21 21 88 ca d2 21 ┆ ! ! ! J! \"!! !┆ 0x0c0…0e0 29 88 08 41 89 10 88 82 1b 00 29 91 87 22 20 5b 76 61 72 73 20 73 79 6d 20 6e 69 6c 20 67 65 74 ┆) A ) " [vars sym nil get┆ 0x0e0…100 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a 4c 69 73 74 20 4f 70 74 69 6f 6e 73 2a 22 20 ┆-buffer-create "*List Options*" ┆ 0x100…120 45 64 69 74 2d 6f 70 74 69 6f 6e 73 2d 6d 6f 64 65 20 6d 61 70 61 74 6f 6d 73 20 28 6c 61 6d 62 ┆Edit-options-mode mapatoms (lamb┆ 0x120…140 64 61 20 28 73 79 6d 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 21 83 0e 00 08 09 42 89 11 ┆da (sym) (byte-code " ! B ┆ 0x140…160 82 0f 00 c3 87 22 20 5b 73 79 6d 20 76 61 72 73 20 75 73 65 72 2d 76 61 72 69 61 62 6c 65 2d 70 ┆ " [sym vars user-variable-p┆ 0x160…180 20 6e 69 6c 5d 20 33 29 29 20 73 6f 72 74 20 73 74 72 69 6e 67 2d 6c 65 73 73 70 20 70 72 69 6e ┆ nil] 3)) sort string-lessp prin┆ 0x180…1a0 63 20 22 3b 3b 20 22 20 70 72 69 6e 31 20 22 3a 0a 09 22 20 74 65 72 70 72 69 20 73 75 62 73 74 ┆c ";; " prin1 ": " terpri subst┆ 0x1a0…1c0 69 74 75 74 65 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 73 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e ┆itute-command-keys documentation┆ 0x1c0…1e0 2d 70 72 6f 70 65 72 74 79 20 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e ┆-property variable-documentation┆ 0x1e0…200 20 22 0a 3b 3b 0a 22 5d 20 31 37 29 29 0a 0a 28 64 65 66 75 6e 20 65 64 69 74 2d 6f 70 74 69 6f ┆ " ;; "] 17)) (defun edit-optio┆ 0x200…220 6e 73 20 6e 69 6c 20 22 5c 0a 45 64 69 74 20 61 20 6c 69 73 74 20 6f 66 20 45 6d 61 63 73 20 75 ┆ns nil "\ Edit a list of Emacs u┆ 0x220…240 73 65 72 20 6f 70 74 69 6f 6e 20 76 61 6c 75 65 73 2e 0a 53 65 6c 65 63 74 73 20 61 20 62 75 66 ┆ser option values. Selects a buf┆ 0x240…260 66 65 72 20 63 6f 6e 74 61 69 6e 69 6e 67 20 73 75 63 68 20 61 20 6c 69 73 74 2c 0a 69 6e 20 77 ┆fer containing such a list, in w┆ 0x260…280 68 69 63 68 20 74 68 65 72 65 20 61 72 65 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 20 73 65 74 20 74 ┆hich there are commands to set t┆ 0x280…2a0 68 65 20 6f 70 74 69 6f 6e 20 76 61 6c 75 65 73 2e 0a 54 79 70 65 20 5c 5c 5b 64 65 73 63 72 69 ┆he option values. Type \\[descri┆ 0x2a0…2c0 62 65 2d 6d 6f 64 65 5d 20 69 6e 20 74 68 61 74 20 62 75 66 66 65 72 20 66 6f 72 20 61 20 6c 69 ┆be-mode] in that buffer for a li┆ 0x2c0…2e0 73 74 20 6f 66 20 63 6f 6d 6d 61 6e 64 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 ┆st of commands." (interactive) (┆ 0x2e0…300 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 20 88 c2 c3 21 87 22 20 5b 6e 69 6c 20 6c 69 73 74 2d ┆byte-code " ! " [nil list-┆ 0x300…320 6f 70 74 69 6f 6e 73 20 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 22 2a 4c 69 73 74 20 4f 70 74 ┆options pop-to-buffer "*List Opt┆ 0x320…340 69 6f 6e 73 2a 22 5d 20 33 29 29 0a 0a 28 64 65 66 76 61 72 20 45 64 69 74 2d 6f 70 74 69 6f 6e ┆ions*"] 3)) (defvar Edit-option┆ 0x340…360 73 2d 6d 6f 64 65 2d 6d 61 70 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d 6b 65 79 6d ┆s-mode-map (let ((map (make-keym┆ 0x360…380 61 70 29 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 73 22 20 28 71 75 6f 74 65 ┆ap))) (define-key map "s" (quote┆ 0x380…3a0 20 45 64 69 74 2d 6f 70 74 69 6f 6e 73 2d 73 65 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 ┆ Edit-options-set)) (define-key ┆ 0x3a0…3c0 6d 61 70 20 22 78 22 20 28 71 75 6f 74 65 20 45 64 69 74 2d 6f 70 74 69 6f 6e 73 2d 74 6f 67 67 ┆map "x" (quote Edit-options-togg┆ 0x3c0…3e0 6c 65 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 31 22 20 28 71 75 6f 74 65 20 ┆le)) (define-key map "1" (quote ┆ 0x3e0…400 45 64 69 74 2d 6f 70 74 69 6f 6e 73 2d 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 ┆Edit-options-t)) (define-key map┆ 0x400…420 20 22 30 22 20 28 71 75 6f 74 65 20 45 64 69 74 2d 6f 70 74 69 6f 6e 73 2d 6e 69 6c 29 29 20 28 ┆ "0" (quote Edit-options-nil)) (┆ 0x420…440 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 70 22 20 28 71 75 6f 74 65 20 62 61 63 6b 77 61 ┆define-key map "p" (quote backwa┆ 0x440…460 72 64 2d 70 61 72 61 67 72 61 70 68 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 ┆rd-paragraph)) (define-key map "┆ 0x460…480 20 22 20 28 71 75 6f 74 65 20 66 6f 72 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 29 29 20 28 64 ┆ " (quote forward-paragraph)) (d┆ 0x480…4a0 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 6e 22 20 28 71 75 6f 74 65 20 66 6f 72 77 61 72 64 ┆efine-key map "n" (quote forward┆ 0x4a0…4c0 2d 70 61 72 61 67 72 61 70 68 29 29 20 6d 61 70 29 20 22 5c 0a 22 29 0a 0a 28 70 75 74 20 28 71 ┆-paragraph)) map) "\ ") (put (q┆ 0x4c0…4e0 75 6f 74 65 20 45 64 69 74 2d 6f 70 74 69 6f 6e 73 2d 6d 6f 64 65 29 20 28 71 75 6f 74 65 20 6d ┆uote Edit-options-mode) (quote m┆ 0x4e0…500 6f 64 65 2d 63 6c 61 73 73 29 20 28 71 75 6f 74 65 20 73 70 65 63 69 61 6c 29 29 0a 0a 28 64 65 ┆ode-class) (quote special)) (de┆ 0x500…520 66 75 6e 20 45 64 69 74 2d 6f 70 74 69 6f 6e 73 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a ┆fun Edit-options-mode nil "\ Maj┆ 0x520…540 6f 72 20 6d 6f 64 65 20 66 6f 72 20 65 64 69 74 69 6e 67 20 45 6d 61 63 73 20 75 73 65 72 20 6f ┆or mode for editing Emacs user o┆ 0x540…560 70 74 69 6f 6e 20 73 65 74 74 69 6e 67 73 2e 0a 53 70 65 63 69 61 6c 20 63 6f 6d 6d 61 6e 64 73 ┆ption settings. Special commands┆ 0x560…580 20 61 72 65 3a 0a 73 20 2d 2d 20 73 65 74 20 76 61 72 69 61 62 6c 65 20 70 6f 69 6e 74 20 70 6f ┆ are: s -- set variable point po┆ 0x580…5a0 69 6e 74 73 20 61 74 2e 20 20 4e 65 77 20 76 61 6c 75 65 20 72 65 61 64 20 75 73 69 6e 67 20 6d ┆ints at. New value read using m┆ 0x5a0…5c0 69 6e 69 62 75 66 66 65 72 2e 0a 78 20 2d 2d 20 74 6f 67 67 6c 65 20 76 61 72 69 61 62 6c 65 2c ┆inibuffer. x -- toggle variable,┆ 0x5c0…5e0 20 74 20 2d 3e 20 6e 69 6c 2c 20 6e 69 6c 20 2d 3e 20 74 2e 0a 31 20 2d 2d 20 73 65 74 20 76 61 ┆ t -> nil, nil -> t. 1 -- set va┆ 0x5e0…600 72 69 61 62 6c 65 20 74 6f 20 74 2e 0a 30 20 2d 2d 20 73 65 74 20 76 61 72 69 61 62 6c 65 20 74 ┆riable to t. 0 -- set variable t┆ 0x600…620 6f 20 6e 69 6c 2e 0a 45 61 63 68 20 76 61 72 69 61 62 6c 65 20 64 65 73 63 72 69 70 74 69 6f 6e ┆o nil. Each variable description┆ 0x620…640 20 69 73 20 61 20 70 61 72 61 67 72 61 70 68 2e 0a 46 6f 72 20 63 6f 6e 76 65 6e 69 65 6e 63 65 ┆ is a paragraph. For convenience┆ 0x640…660 2c 20 74 68 65 20 63 68 61 72 61 63 74 65 72 73 20 70 20 61 6e 64 20 6e 20 6d 6f 76 65 20 62 61 ┆, the characters p and n move ba┆ 0x660…680 63 6b 20 61 6e 64 20 66 6f 72 77 61 72 64 20 62 79 20 70 61 72 61 67 72 61 70 68 73 2e 22 20 28 ┆ck and forward by paragraphs." (┆ 0x680…6a0 62 79 74 65 2d 63 6f 64 65 20 22 c8 20 88 c9 08 21 88 ca 09 21 88 cb c2 21 88 cc 89 12 88 cb c3 ┆byte-code " ! ! ! ┆ 0x6a0…6c0 21 88 cd 89 13 88 c5 89 14 88 ce 89 16 06 88 cf 89 16 07 87 22 20 5b 6c 69 73 70 2d 6d 6f 64 65 ┆! " [lisp-mode┆ 0x6c0…6e0 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 45 64 69 74 2d 6f 70 74 69 6f 6e 73 2d 6d 6f 64 65 2d ┆-syntax-table Edit-options-mode-┆ 0x6e0…700 6d 61 70 20 70 61 72 61 67 72 61 70 68 2d 73 65 70 61 72 61 74 65 20 70 61 72 61 67 72 61 70 68 ┆map paragraph-separate paragraph┆ 0x700…720 2d 73 74 61 72 74 20 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65 73 20 74 20 6d 61 6a 6f 72 2d 6d 6f ┆-start truncate-lines t major-mo┆ 0x720…740 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 ┆de mode-name kill-all-local-vari┆ 0x740…760 61 62 6c 65 73 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 75 73 65 2d 6c 6f 63 61 6c ┆ables set-syntax-table use-local┆ 0x760…780 2d 6d 61 70 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 22 5b 5e 00 2d 7f 5d ┆-map make-local-variable "[^ - ]┆ 0x780…7a0 22 20 22 5e 09 22 20 45 64 69 74 2d 6f 70 74 69 6f 6e 73 2d 6d 6f 64 65 20 22 4f 70 74 69 6f 6e ┆" "^ " Edit-options-mode "Option┆ 0x7a0…7c0 73 22 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 45 64 69 74 2d 6f 70 74 69 6f 6e 73 2d 73 65 74 ┆s"] 7)) (defun Edit-options-set┆ 0x7c0…7e0 20 6e 69 6c 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 c0 ┆ nil (interactive) (byte-code " ┆ 0x7e0…800 88 c1 c2 21 87 22 20 5b 6e 69 6c 20 45 64 69 74 2d 6f 70 74 69 6f 6e 73 2d 6d 6f 64 69 66 79 20 ┆ ! " [nil Edit-options-modify ┆ 0x800…820 28 6c 61 6d 62 64 61 20 28 76 61 72 29 20 28 65 76 61 6c 2d 6d 69 6e 69 62 75 66 66 65 72 20 28 ┆(lambda (var) (eval-minibuffer (┆ 0x820…840 63 6f 6e 63 61 74 20 22 4e 65 77 20 22 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 76 61 72 29 20 ┆concat "New " (symbol-name var) ┆ 0x840…860 22 3a 20 22 29 29 29 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 45 64 69 74 2d 6f 70 74 69 6f 6e ┆": ")))] 2)) (defun Edit-option┆ 0x860…880 73 2d 74 6f 67 67 6c 65 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 ┆s-toggle nil (interactive) (byte┆ 0x880…8a0 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 87 22 20 5b 6e 69 6c 20 45 64 69 74 2d 6f 70 74 69 6f 6e 73 ┆-code " ! " [nil Edit-options┆ 0x8a0…8c0 2d 6d 6f 64 69 66 79 20 28 6c 61 6d 62 64 61 20 28 76 61 72 29 20 28 6e 6f 74 20 28 73 79 6d 62 ┆-modify (lambda (var) (not (symb┆ 0x8c0…8e0 6f 6c 2d 76 61 6c 75 65 20 76 61 72 29 29 29 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 45 64 69 ┆ol-value var)))] 2)) (defun Edi┆ 0x8e0…900 74 2d 6f 70 74 69 6f 6e 73 2d 74 20 6e 69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 ┆t-options-t nil (interactive) (b┆ 0x900…920 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 87 22 20 5b 6e 69 6c 20 45 64 69 74 2d 6f 70 74 69 ┆yte-code " ! " [nil Edit-opti┆ 0x920…940 6f 6e 73 2d 6d 6f 64 69 66 79 20 28 6c 61 6d 62 64 61 20 28 76 61 72 29 20 74 29 5d 20 32 29 29 ┆ons-modify (lambda (var) t)] 2))┆ 0x940…960 0a 0a 28 64 65 66 75 6e 20 45 64 69 74 2d 6f 70 74 69 6f 6e 73 2d 6e 69 6c 20 6e 69 6c 20 28 69 ┆ (defun Edit-options-nil nil (i┆ 0x960…980 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 87 22 20 ┆nteractive) (byte-code " ! " ┆ 0x980…9a0 5b 6e 69 6c 20 45 64 69 74 2d 6f 70 74 69 6f 6e 73 2d 6d 6f 64 69 66 79 20 28 6c 61 6d 62 64 61 ┆[nil Edit-options-modify (lambda┆ 0x9a0…9c0 20 28 76 61 72 29 20 6e 69 6c 29 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 45 64 69 74 2d 6f 70 ┆ (var) nil)] 2)) (defun Edit-op┆ 0x9c0…9e0 74 69 6f 6e 73 2d 6d 6f 64 69 66 79 20 28 6d 6f 64 66 75 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 ┆tions-modify (modfun) (byte-code┆ 0x9e0…a00 20 22 8a c3 c3 19 18 c4 c5 21 88 c6 c7 21 88 60 89 11 88 8c c8 09 c9 20 88 60 53 5c 22 88 09 62 ┆ " ! ! ` `S\" b┆ 0xa00…a20 88 ca 70 21 89 10 29 88 09 62 88 cb cc 21 88 c6 cc 21 88 8a 08 cd 0a 08 5c 22 4c 29 88 ce cc 21 ┆ p! ) b ! ! \"L) !┆ 0xa20…a40 88 cf 08 4a 70 5c 22 2a 29 87 22 20 5b 76 61 72 20 70 6f 73 20 6d 6f 64 66 75 6e 20 6e 69 6c 20 ┆ Jp\"*) " [var pos modfun nil ┆ 0xa40…a60 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 22 5e 3b 3b 20 22 20 66 6f 72 77 61 72 ┆re-search-backward "^;; " forwar┆ 0xa60…a80 64 2d 63 68 61 72 20 33 20 6e 61 72 72 6f 77 2d 74 6f 2d 72 65 67 69 6f 6e 20 65 6e 64 2d 6f 66 ┆d-char 3 narrow-to-region end-of┆ 0xa80…aa0 2d 6c 69 6e 65 20 72 65 61 64 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 66 75 6e 63 61 6c ┆-line read forward-line 1 funcal┆ 0xaa0…ab8 6c 20 6b 69 6c 6c 2d 73 65 78 70 20 70 72 69 6e 31 5d 20 31 32 29 29 0a ┆l kill-sexp prin1] 12)) ┆