DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Names: »add-log.elc«

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

Hex Dump

0x000…020 0a 28 64 65 66 75 6e 20 61 64 64 2d 63 68 61 6e 67 65 2d 6c 6f 67 2d 65 6e 74 72 79 20 28 77 68   ┆ (defun add-change-log-entry (wh┆
0x020…040 6f 61 6d 69 20 66 69 6c 65 2d 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 74 68 65 72 2d 77   ┆oami file-name &optional other-w┆
0x040…060 69 6e 64 6f 77 29 20 22 5c 0a 46 69 6e 64 20 63 68 61 6e 67 65 20 6c 6f 67 20 66 69 6c 65 20 61   ┆indow) "\ Find change log file a┆
0x060…080 6e 64 20 61 64 64 20 61 6e 20 65 6e 74 72 79 20 66 6f 72 20 74 6f 64 61 79 2e 0a 46 69 72 73 74   ┆nd add an entry for today. First┆
0x080…0a0 20 61 72 67 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 70 72 65 66 69 78 29 20 6e 6f 6e 2d 6e 69   ┆ arg (interactive prefix) non-ni┆
0x0a0…0c0 6c 20 6d 65 61 6e 73 20 70 72 6f 6d 70 74 20 66 6f 72 20 75 73 65 72 20 6e 61 6d 65 20 61 6e 64   ┆l means prompt for user name and┆
0x0c0…0e0 20 73 69 74 65 2e 0a 53 65 63 6f 6e 64 20 61 72 67 20 69 73 20 66 69 6c 65 20 6e 61 6d 65 20 6f   ┆ site. Second arg is file name o┆
0x0e0…100 66 20 63 68 61 6e 67 65 20 6c 6f 67 2e 0a 4f 70 74 69 6f 6e 61 6c 20 74 68 69 72 64 20 61 72 67   ┆f change log. Optional third arg┆
0x100…120 20 4f 54 48 45 52 2d 57 49 4e 44 4f 57 20 6e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 76 69 73 69   ┆ OTHER-WINDOW non-nil means visi┆
0x120…140 74 20 69 6e 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65   ┆t in other window." (interactive┆
0x140…160 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 0a c4 3d 83 0b 00 c5 82 0c 00 c6 19 c7 c8 c9 ca 09 5c   ┆ (byte-code "   =              \┆
0x160…180 22 c3 09 23 21 29 44 87 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 64 65   ┆"  #!)D " [current-prefix-arg de┆
0x180…1a0 66 61 75 6c 74 20 73 79 73 74 65 6d 2d 74 79 70 65 20 6e 69 6c 20 76 61 78 2d 76 6d 73 20 22 24   ┆fault system-type nil vax-vms "$┆
0x1a0…1c0 43 48 41 4e 47 45 5f 4c 4f 47 24 2e 54 58 54 22 20 22 43 68 61 6e 67 65 4c 6f 67 22 20 65 78 70   ┆CHANGE_LOG$.TXT" "ChangeLog" exp┆
0x1c0…1e0 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 6f 72   ┆and-file-name read-file-name for┆
0x1e0…200 6d 61 74 20 22 4c 6f 67 20 66 69 6c 65 20 28 64 65 66 61 75 6c 74 20 25 73 29 3a 20 22 5d 20 37   ┆mat "Log file (default %s): "] 7┆
0x200…220 29 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 0a cd 3d 83 0c 00 ce 82 0d 00 cf 19 0d 83 1a   ┆)) (byte-code "    =            ┆
0x220…240 00 d0 d1 d2 20 5c 22 82 1c 00 d2 20 1c 0d 83 29 00 d0 d3 d4 20 5c 22 82 2b 00 d4 20 1e 06 0d 83   ┆     \"        )     \" +       ┆
0x240…260 39 00 d0 d5 d6 20 5c 22 82 3b 00 d6 20 1e 07 d7 0e 08 21 85 4d 00 d8 0e 08 21 09 50 89 16 08 88   ┆9     \" ;        ! M    ! P    ┆
0x260…280 0e 09 83 5a 00 d9 0e 08 21 82 5e 00 da 0e 08 21 88 0e 0a db 3d 86 72 00 db 20 88 dc 89 16 0b 88   ┆   Z    ! ^    !    = r         ┆
0x280…2a0 dd 89 16 0c 88 de df 21 88 e0 20 88 65 62 88 e1 e2 20 e3 e4 4f 21 85 95 00 8a e5 e6 21 88 e7 e8   ┆       !    eb      O!      !   ┆
0x2a0…2c0 21 88 e1 0e 06 21 29 3f 85 a7 00 e9 e2 20 ea 0c eb 0e 06 ec 0e 07 ed 26 08 88 65 62 88 ee df 21   ┆!    !)?               &  eb   !┆
0x2c0…2e0 88 e1 ef 21 85 bc 00 ee df 21 88 82 af 00 88 f0 60 e7 f1 21 88 60 5c 22 88 f2 f3 21 88 ee f4 21   ┆   !     !      `  ! `\"   !   !┆
0x2e0…300 88 0e 0b 6a 88 f5 63 2c 87 22 20 5b 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 64   ┆   j  c, " [current-prefix-arg d┆
0x300…320 65 66 61 75 6c 74 20 73 79 73 74 65 6d 2d 74 79 70 65 20 6e 69 6c 20 66 75 6c 6c 2d 6e 61 6d 65   ┆efault system-type nil full-name┆
0x320…340 20 77 68 6f 61 6d 69 20 6c 6f 67 69 6e 2d 6e 61 6d 65 20 73 69 74 65 2d 6e 61 6d 65 20 66 69 6c   ┆ whoami login-name site-name fil┆
0x340…360 65 2d 6e 61 6d 65 20 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6c   ┆e-name other-window major-mode l┆
0x360…380 65 66 74 2d 6d 61 72 67 69 6e 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 20 76 61 78 2d 76 6d 73 20 22   ┆eft-margin fill-column vax-vms "┆
0x380…3a0 24 43 48 41 4e 47 45 5f 4c 4f 47 24 2e 54 58 54 22 20 22 43 68 61 6e 67 65 4c 6f 67 22 20 72 65   ┆$CHANGE_LOG$.TXT" "ChangeLog" re┆
0x3a0…3c0 61 64 2d 69 6e 70 75 74 20 22 46 75 6c 6c 20 6e 61 6d 65 3a 20 22 20 75 73 65 72 2d 66 75 6c 6c   ┆ad-input "Full name: " user-full┆
0x3c0…3e0 2d 6e 61 6d 65 20 22 4c 6f 67 69 6e 20 6e 61 6d 65 3a 20 22 20 75 73 65 72 2d 6c 6f 67 69 6e 2d   ┆-name "Login name: " user-login-┆
0x3e0…400 6e 61 6d 65 20 22 53 69 74 65 20 6e 61 6d 65 3a 20 22 20 73 79 73 74 65 6d 2d 6e 61 6d 65 20 66   ┆name "Site name: " system-name f┆
0x400…420 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72   ┆ile-directory-p file-name-as-dir┆
0x420…440 65 63 74 6f 72 79 20 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 66 69   ┆ectory find-file-other-window fi┆
0x440…460 6e 64 2d 66 69 6c 65 20 69 6e 64 65 6e 74 65 64 2d 74 65 78 74 2d 6d 6f 64 65 20 38 20 37 34 20   ┆nd-file indented-text-mode 8 74 ┆
0x460…480 61 75 74 6f 2d 66 69 6c 6c 2d 6d 6f 64 65 20 31 20 75 6e 64 6f 2d 62 6f 75 6e 64 61 72 79 20 6c   ┆auto-fill-mode 1 undo-boundary l┆
0x480…4a0 6f 6f 6b 69 6e 67 2d 61 74 20 63 75 72 72 65 6e 74 2d 74 69 6d 65 2d 73 74 72 69 6e 67 20 30 20   ┆ooking-at current-time-string 0 ┆
0x4a0…4c0 31 30 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 28 2e 2a 20 61 74 22 20 73 6b   ┆10 re-search-forward "(.* at" sk┆
0x4c0…4e0 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 5e 28 22 20 69 6e 73 65 72 74 20 22 20   ┆ip-chars-backward "^(" insert " ┆
0x4e0…500 20 22 20 22 20 20 28 22 20 22 20 61 74 20 22 20 22 29 0a 0a 22 20 66 6f 72 77 61 72 64 2d 6c 69   ┆ " "  (" " at " ")  " forward-li┆
0x500…520 6e 65 20 22 5c 5c 73 57 22 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 22 0a 22 20 6f 70 65 6e   ┆ne "\\sW" delete-region " " open┆
0x520…540 2d 6c 69 6e 65 20 33 20 32 20 22 2a 20 22 5d 20 33 31 29 29 0a 0a 28 64 65 66 75 6e 20 61 64 64   ┆-line 3 2 "* "] 31))  (defun add┆
0x540…560 2d 63 68 61 6e 67 65 2d 6c 6f 67 2d 65 6e 74 72 79 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 6e   ┆-change-log-entry-other-window n┆
0x560…580 69 6c 20 22 5c 0a 46 69 6e 64 20 63 68 61 6e 67 65 20 6c 6f 67 20 66 69 6c 65 20 69 6e 20 6f 74   ┆il "\ Find change log file in ot┆
0x580…5a0 68 65 72 20 77 69 6e 64 6f 77 2c 20 61 6e 64 20 61 64 64 20 61 6e 20 65 6e 74 72 79 20 66 6f 72   ┆her window, and add an entry for┆
0x5a0…5c0 20 74 6f 64 61 79 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   ┆ today." (interactive) (byte-cod┆
0x5c0…5e0 65 20 22 c0 88 c3 c0 09 c2 23 87 22 20 5b 6e 69 6c 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74   ┆e "      # " [nil default-direct┆
0x5e0…600 6f 72 79 20 74 20 61 64 64 2d 63 68 61 6e 67 65 2d 6c 6f 67 2d 65 6e 74 72 79 5d 20 34 29 29 0a   ┆ory t add-change-log-entry] 4)) ┆