[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Possible change to startup.el
From: |
Thien-Thi Nguyen |
Subject: |
Re: Possible change to startup.el |
Date: |
Tue, 29 Mar 2005 22:19:44 +0200 |
From: Richard Stallman <address@hidden>
Date: Mon, 28 Mar 2005 17:53:33 -0500
Let's add the feature now
ok, please find below a patch for startup.el and help-fns.el, as
well as each TUTORIAL file. the title line was taken from the
text of the tutorial file instead of from the email, in case there
were changes during transport that i may be incapable of noticing.
i have lightly tested with language environments: Latin-1, English,
Thai, Ethiopic, Russian, Italian, Chinese-GB, Czech, and others i
cannot remember at the moment.
this patch does not add clickability; that's something i'll gladly
leave for someone else to add. (i don't have a mouse to test it.)
the change to `help-with-tutorial' in help-fns.el is to provide
continuity in user experience from older versions of emacs, which
saves local wizards a bit of extra explaining (a Good Thing).
thi
_____________________________________________________________________
cvs -f diff -c lisp/startup.el lisp/help-fns.el etc/TUTORIAL*
Index: lisp/startup.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/startup.el,v
retrieving revision 1.340
diff -c -r1.340 startup.el
*** lisp/startup.el 6 Mar 2005 00:48:45 -0000 1.340
--- lisp/startup.el 29 Mar 2005 19:52:28 -0000
***************
*** 1004,1012 ****
using the mouse.\n\n"
:face (variable-pitch :weight bold)
"Important Help menu items:\n"
! :face variable-pitch "\
! Emacs Tutorial\tLearn-by-doing tutorial for using Emacs efficiently
! Emacs FAQ\tFrequently asked questions and answers
Read the Emacs Manual\tView the Emacs manual using Info
\(Non)Warranty\tGNU Emacs comes with "
:face (variable-pitch :slant oblique)
--- 1004,1045 ----
using the mouse.\n\n"
:face (variable-pitch :weight bold)
"Important Help menu items:\n"
! :face variable-pitch
! (lambda ()
! (concat
! (let ((tut (expand-file-name
! (or (get-language-info current-language-environment
! 'tutorial)
! "TUTORIAL")
! data-directory)))
! (with-temp-buffer
! (insert-file-contents tut nil 0 80)
! (buffer-substring (point-min) (progn (end-of-line)
(point)))))
! "\t"))
! :face (variable-pitch :weight bold)
! (lambda ()
! (if (not data-directory)
! "Learn-by-doing tutorial for using Emacs efficiently."
! (let* ((tut (get-language-info current-language-environment
! 'tutorial))
! (en-prefix (if (or (not tut) (string= "TUTORIAL" tut))
! ""
! "(Emacs Tutorial) "))
! (break (- (length en-prefix)))
! langs s len)
! (dolist (filename (directory-files data-directory))
! (when (string-match
"TUTORIAL.\\([a-z][a-z]\\(_[A-Z]+\\)*$\\)"
! filename)
! (push (match-string 1 filename) langs)))
! (setq s (mapconcat 'identity (sort (cons "en" langs)
'string<)
! ", ")
! len (length s))
! (while (and (< (setq break (+ 50 break)) len)
! (setq break (string-match ", " s break)))
! (aset s break ?\n)
! (aset s (1+ break) ?\t))
! (concat en-prefix s "\n"))))
! :face variable-pitch "\
Read the Emacs Manual\tView the Emacs manual using Info
\(Non)Warranty\tGNU Emacs comes with "
:face (variable-pitch :slant oblique)
***************
*** 1069,1082 ****
(defun fancy-splash-insert (&rest args)
"Insert text into the current buffer, with faces.
! Arguments from ARGS should be either strings or pairs `:face FACE',
where FACE is a valid face specification, as it can be used with
`put-text-properties'."
(let ((current-face nil))
(while args
(if (eq (car args) :face)
(setq args (cdr args) current-face (car args))
! (insert (propertize (car args)
'face current-face
'help-echo fancy-splash-help-echo)))
(setq args (cdr args)))))
--- 1102,1119 ----
(defun fancy-splash-insert (&rest args)
"Insert text into the current buffer, with faces.
! Arguments from ARGS should be either strings, functions called
! with no args that return a string, or pairs `:face FACE',
where FACE is a valid face specification, as it can be used with
`put-text-properties'."
(let ((current-face nil))
(while args
(if (eq (car args) :face)
(setq args (cdr args) current-face (car args))
! (insert (propertize (let ((it (car args)))
! (if (functionp it)
! (funcall it)
! it))
'face current-face
'help-echo fancy-splash-help-echo)))
(setq args (cdr args)))))
Index: lisp/help-fns.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/help-fns.el,v
retrieving revision 1.64
diff -c -r1.64 help-fns.el
*** lisp/help-fns.el 3 Feb 2005 19:41:14 -0000 1.64
--- lisp/help-fns.el 29 Mar 2005 19:52:29 -0000
***************
*** 65,70 ****
--- 65,72 ----
(insert-file-contents (expand-file-name filename data-directory))
(hack-local-variables)
(goto-char (point-min))
+ ;; The first line conventionally contains the title.
+ (delete-region (point) (progn (forward-line 1) (point)))
(search-forward "\n<<")
(beginning-of-line)
;; Convert the <<...>> line to the proper [...] line,
Index: etc/TUTORIAL
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL,v
retrieving revision 1.59
diff -c -r1.59 TUTORIAL
*** etc/TUTORIAL 8 Feb 2005 14:20:01 -0000 1.59
--- etc/TUTORIAL 29 Mar 2005 19:52:33 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ Emacs Tutorial
You are looking at the Emacs tutorial. See end for copying conditions.
Copyright (c) 1985, 1996, 1998, 2001, 2002, 2005 Free Software Foundation.
Index: etc/TUTORIAL.bg
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.bg,v
retrieving revision 1.3
diff -c -r1.3 TUTORIAL.bg
*** etc/TUTORIAL.bg 29 Dec 2003 12:49:21 -0000 1.3
--- etc/TUTORIAL.bg 29 Mar 2005 19:52:33 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ âúâåäåíèåòî íà Åìàêñ
Âèå ãëåäàòå âúâåäåíèåòî íà Åìàêñ. Óñëîâèÿòà çà êîïèðàíå ñà â êðàÿ íà òåêñòà.
Copyright (c) 1985, 1996, 1998, 2001, 2002, 2003 Free Software Foundation.
Index: etc/TUTORIAL.cn
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.cn,v
retrieving revision 1.4
diff -c -r1.4 TUTORIAL.cn
*** etc/TUTORIAL.cn 1 Sep 2003 15:44:59 -0000 1.4
--- etc/TUTORIAL.cn 29 Mar 2005 19:52:33 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ Emacs ¿ìËÙÖ¸ÄÏ
ÄúÕýÔÚÔĶÁ Emacs ¿ìËÙÖ¸ÄÏ£¨ Emacs tutorial £©¡£Çë¼ûҳβÓйظ´ÖÆÌõ¼þ¡£
Copyright (c) 1985, 1996, 1998, 2001, 2002 Free Software Foundation.
Index: etc/TUTORIAL.cs
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.cs,v
retrieving revision 1.9
diff -c -r1.9 TUTORIAL.cs
*** etc/TUTORIAL.cs 1 Sep 2003 15:44:59 -0000 1.9
--- etc/TUTORIAL.cs 29 Mar 2005 19:52:33 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ tutoriál k Emacsu
Copyright (c) 1985 Free Software Foundation, Inc; podmínky viz na konci.
Do èe¹tiny pøelo¾il Milan Zamazal <address@hidden>.
Index: etc/TUTORIAL.de
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.de,v
retrieving revision 1.9
diff -c -r1.9 TUTORIAL.de
*** etc/TUTORIAL.de 29 Sep 2003 22:56:46 -0000 1.9
--- etc/TUTORIAL.de 29 Mar 2005 19:52:33 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ Einführung in Emacs
Einführung in Emacs. (c) 2002, 2003 Free Software Foundation, Inc.
Emacs-Befehle beinhalten im allgemeinen die CONTROL-Taste (manchmal
Index: etc/TUTORIAL.es
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.es,v
retrieving revision 1.9
diff -c -r1.9 TUTORIAL.es
*** etc/TUTORIAL.es 14 Aug 2004 12:01:01 -0000 1.9
--- etc/TUTORIAL.es 29 Mar 2005 19:52:34 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ tutorial de Emacs
Usted esta viendo el tutorial de Emacs. Vea al final las condiciones
de copiado. Copyright (c) 1985, 1996, 1998, 2001, 2002 Free Software
Foundation.
Index: etc/TUTORIAL.fr
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.fr,v
retrieving revision 1.11
diff -c -r1.11 TUTORIAL.fr
*** etc/TUTORIAL.fr 8 Oct 2004 18:10:51 -0000 1.11
--- etc/TUTORIAL.fr 29 Mar 2005 19:52:34 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ Didacticiel d'Emacs
Didacticiel d'Emacs. Voir la fin de ce document pour les conditions.
Copyright (c) 1985, 2001, 2002 Free Software Foundation, Inc.
Index: etc/TUTORIAL.it
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.it,v
retrieving revision 1.3
diff -c -r1.3 TUTORIAL.it
*** etc/TUTORIAL.it 17 Apr 2004 22:54:09 -0000 1.3
--- etc/TUTORIAL.it 29 Mar 2005 19:52:34 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ Esercitazione di Emacs
Esercitazione di Emacs. Copyright (c) 2003 Free Software Foundation, Inc.
Condizioni d'uso alla fine del file.
Index: etc/TUTORIAL.ja
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.ja,v
retrieving revision 1.8
diff -c -r1.8 TUTORIAL.ja
*** etc/TUTORIAL.ja 1 Sep 2003 15:44:59 -0000 1.8
--- etc/TUTORIAL.ja 29 Mar 2005 19:52:35 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ Emacs $BF~Lg%,%$%I$G$9(B
$B$"$J$?$,8=:_8+$F$$$k$N$O(B Emacs
$BF~Lg%,%$%I$G$9!#%U%!%$%k:G8e$r;2>H$N$3$H!#(B
Copyright (c) 1985, 1996, 1998, 2001, 2002 Free Software Foundation.
Index: etc/TUTORIAL.ko
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.ko,v
retrieving revision 1.4
diff -c -r1.4 TUTORIAL.ko
*** etc/TUTORIAL.ko 1 Sep 2003 15:44:59 -0000 1.4
--- etc/TUTORIAL.ko 29 Mar 2005 19:52:36 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ $(address@hidden:(B(Emacs) $(CAvD'<address@hidden(B
$(address@hidden@[1G(B (c) 1985, 2001 Free Software Foundation, Inc;
$(C3!?!4B(B $(C:9;g(B $(address@hidden(B
$(address@hidden@4O4Y(B. $(CAv1](B $(address@hidden(B
$(address@hidden(B $(address@hidden(B $(C1[@:(B
$(address@hidden:(B(Emacs) $(CAvD'<address@hidden(B.
Index: etc/TUTORIAL.nl
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.nl,v
retrieving revision 1.11
diff -c -r1.11 TUTORIAL.nl
*** etc/TUTORIAL.nl 14 Feb 2005 10:46:16 -0000 1.11
--- etc/TUTORIAL.nl 29 Mar 2005 19:52:36 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ Emacs-inleiding
Je leest nu de Emacs-inleiding. De kopieervoorwaarden staan onderaan.
Copyright (c) 1985, 1996, 1997, 2003, 2004, 2005 Free Software Foundation
Index: etc/TUTORIAL.pl
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.pl,v
retrieving revision 1.7
diff -c -r1.7 TUTORIAL.pl
*** etc/TUTORIAL.pl 17 Apr 2004 23:08:01 -0000 1.7
--- etc/TUTORIAL.pl 29 Mar 2005 19:52:37 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ krótki samouczek Emacsa
Czytasz w³a¶nie krótki samouczek Emacsa. Copyright (c) 1985, 2001
Free Software Foundation, Inc. Szczegó³y na koñcu pliku.
Index: etc/TUTORIAL.pt_BR
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.pt_BR,v
retrieving revision 1.3
diff -c -r1.3 TUTORIAL.pt_BR
*** etc/TUTORIAL.pt_BR 16 May 2004 06:33:00 -0000 1.3
--- etc/TUTORIAL.pt_BR 29 Mar 2005 19:52:37 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ tutorial do Emacs
Copyright (c) 2004 Free Software Foundation, Inc; Veja no fim as
condições.
Index: etc/TUTORIAL.ro
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.ro,v
retrieving revision 1.3
diff -c -r1.3 TUTORIAL.ro
*** etc/TUTORIAL.ro 1 Sep 2003 15:44:59 -0000 1.3
--- etc/TUTORIAL.ro 29 Mar 2005 19:52:38 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ tutorialului de Emacs
Copyright (c) 1998 Free Software Foundation -*-coding: latin-2;-*-
Traducere din englezã de Tudor Hulubei <address@hidden>.
Mulþumiri Aidei Hulubei <address@hidden> pentru corecturi ºi sugestii.
Index: etc/TUTORIAL.ru
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.ru,v
retrieving revision 1.7
diff -c -r1.7 TUTORIAL.ru
*** etc/TUTORIAL.ru 17 Apr 2004 22:40:52 -0000 1.7
--- etc/TUTORIAL.ru 29 Mar 2005 19:52:39 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ ÕÞÅÂÎÉË Emacs
÷Ù ÞÉÔÁÅÔÅ ÕÞÅÂÎÉË Emacs. õÓÌÏ×ÉÑ ËÏÐÉÒÏ×ÁÎÉÑ × ËÏÎÃÅ ÆÁÊÌÁ.
Copyright (c) 1985, 1996, 2004 Free Software Foundation, Inc.
Index: etc/TUTORIAL.sk
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.sk,v
retrieving revision 1.8
diff -c -r1.8 TUTORIAL.sk
*** etc/TUTORIAL.sk 1 Sep 2003 15:44:59 -0000 1.8
--- etc/TUTORIAL.sk 29 Mar 2005 19:52:40 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ tútorial k Emacsu
Copyright (c) 1985 Free Software Foundation, Inc; podmienky pozri na konci.
Do èe¹tiny prelo¾il Milan Zamazal <address@hidden>, do slovenèiny Miroslav
Va¹ko <address@hidden>.
Index: etc/TUTORIAL.sl
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.sl,v
retrieving revision 1.7
diff -c -r1.7 TUTORIAL.sl
*** etc/TUTORIAL.sl 17 Apr 2004 23:09:47 -0000 1.7
--- etc/TUTORIAL.sl 29 Mar 2005 19:52:40 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ Prvo berilo za Emacs
Prvo berilo za Emacs. Pogoji uporabe in raz¹irjanja so navedeni na koncu.
Copyright (c) 1985, 1996, 1997, 2001, 2002 Free Software Foundation, Inc.
Index: etc/TUTORIAL.sv
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.sv,v
retrieving revision 1.4
diff -c -r1.4 TUTORIAL.sv
*** etc/TUTORIAL.sv 17 Apr 2004 23:11:22 -0000 1.4
--- etc/TUTORIAL.sv 29 Mar 2005 19:52:40 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ användarhandledningen till Emacs
Detta är den Svenska användarhandledningen till Emacs. I slutet finns
kopieringsvillkoren. Copyright (c) 1985, 1996, 1998, 2001, 2002 Free
Software Foundation, Inc.
Index: etc/TUTORIAL.th
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.th,v
retrieving revision 1.4
diff -c -r1.4 TUTORIAL.th
*** etc/TUTORIAL.th 17 Apr 2004 23:15:16 -0000 1.4
--- etc/TUTORIAL.th 29 Mar 2005 19:52:41 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ 0,T7h1R9!S0EQ1'0HV1!IR0$Yh10AW1M!RCc0*i10MU1aA!0Jl1(B
,TJ'G90ET1"0JT1708Tl1(B ,T>(B.,TH(B. 2528
,Tb4B:0CT10IQ17?0CU1+M?05l1aG0Cl1?RG09l1`40*Q19(B (Free Software
Foundation, Inc); ,T!0CX13R0HV1!IR`0'Wh1M9d"5M907i1RB:7(B.
0,T7h1R9!S0EQ1'0HV1!IR0$Yh10AW1M!RCc0*i10MU1aA!0Jl1(B
(Emacs tutorial) ,TM0BYh1c9"3P09Ui1(B.
Index: etc/TUTORIAL.zh
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/TUTORIAL.zh,v
retrieving revision 1.4
diff -c -r1.4 TUTORIAL.zh
*** etc/TUTORIAL.zh 1 Sep 2003 15:44:59 -0000 1.4
--- etc/TUTORIAL.zh 29 Mar 2005 19:52:42 -0000
***************
*** 1,3 ****
--- 1,4 ----
+ Emacs §Ö³t«ü«n¡]
±z¥¿¦b¾\Ū Emacs §Ö³t«ü«n¡] Emacs tutorial ¡^¡C½Ð¨£¶§À¦³Ãö½Æ»s±ø¥ó¡C
Copyright (c) 1985, 1996, 1998, 2001, 2002 Free Software Foundation.
- Re: Possible change to startup.el, (continued)
Re: Possible change to startup.el, Thien-Thi Nguyen, 2005/03/30
Re: Possible change to startup.el, Juri Linkov, 2005/03/31