1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
*** trr.el.base.orig Mon Jan 11 00:26:21 1999
--- trr.el.base Mon Jan 11 00:28:05 1999
***************
*** 255,265 ****
;; files used by TRR
(defconst TRR:update-program (concat TRR:bin-directory "trr_update"))
(defconst TRR:format-program (concat TRR:bin-directory "trr_format"))
! (defconst TRR:message-file (concat TRR:directory "trr-mesg"))
! (defconst TRR:files-file (concat TRR:directory "trr-files"))
! (defconst TRR:menus-file (concat TRR:directory "trr-menus"))
! (defconst TRR:graphs-file (concat TRR:directory "trr-graphs"))
! (defconst TRR:sessions-file (concat TRR:directory "trr-sess"))
(defconst TRR:select-text-file (concat TRR:directory "CONTENTS"))
;;; load files
--- 255,265 ----
;; files used by TRR
(defconst TRR:update-program (concat TRR:bin-directory "trr_update"))
(defconst TRR:format-program (concat TRR:bin-directory "trr_format"))
! (defconst TRR:message-file "trr-mesg")
! (defconst TRR:files-file "trr-files")
! (defconst TRR:menus-file "trr-menus")
! (defconst TRR:graphs-file "trr-graphs")
! (defconst TRR:sessions-file "trr-sess")
(defconst TRR:select-text-file (concat TRR:directory "CONTENTS"))
;;; load files
*** trr_update.c.orig Wed Jul 3 13:52:08 1996
--- trr_update.c Mon Jan 11 14:28:17 1999
***************
*** 65,70 ****
--- 65,71 ----
if (argc == 2){
strcat(scorefile, argv[1]);
+ umask(002);
if ((fd = fopen(scorefile, "w")) == NULL){
perror(scorefile);
exit(1);
*** trr-menus.el.orig Wed Jul 3 13:52:07 1996
--- trr-menus.el Mon Jan 11 15:10:08 1999
***************
*** 70,75 ****
--- 70,79 ----
(insert (if TRR:japanese
"\nƥ˥塼̤˰ܹ"
"\nmove to menu after choose a text")))
+
+ (goto-char (point-min))
+ (recenter 0)
+
(setq num
(if TRR:japanese
(TRR:get-answer "ɤˤ롩 " "Ϥäꤷʤ" 99)
|
