aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiles Bader2007-07-10 02:02:35 +0000
committerMiles Bader2007-07-10 02:02:35 +0000
commitc89d0fd415a67ad09d0f18cbe1e0b805f6fe3f56 (patch)
tree537120ca8025edae0537a6e44c1a64a990e73b17
parent3912763611584f887ce23730ffeda55e297b68ae (diff)
parent60b0b6685e16dd58897922e7cecd95a821aedc38 (diff)
downloademacs-c89d0fd415a67ad09d0f18cbe1e0b805f6fe3f56.tar.gz
emacs-c89d0fd415a67ad09d0f18cbe1e0b805f6fe3f56.zip
Merge from emacs--rel--22
Patches applied: * emacs--rel--22 (patch 51-54) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 233-234) - Merge from emacs--devo--0 - Update from CVS 2007-07-08 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/cus-start.el (file-coding-system-alist): Fix custom type. 2007-07-08 Chong Yidong <cyd@stupidchicken.com> * lisp/longlines.el (longlines-wrap-region): Avoid marking buffer as modified. (longlines-auto-wrap, longlines-window-change-function): Remove unnecessary calls to set-buffer-modified-p. 2007-07-03 Dan Nicolaescu <dann@ics.uci.edu> * lisp/progmodes/gud.el (auto-mode-alist): Match more valid gdb init file names. 2007-07-01 Richard M. Stallman <rms@gnu.org> * lisp/files.el (find-file-visit-truename): Fix safe-local-variable value. 2007-07-04 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/gnus-sum.el (gnus-summary-catchup): Don't recognize cached articles as unfetched articles. 2007-07-02 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/gnus-start.el (gnus-level-unsubscribed): Improve doc string. 2007-06-26 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/gnus-art.el (gnus-article-summary-command-nosave) (gnus-article-read-summary-keys): Don't set the 3rd arg of pop-to-buffer for XEmacs. 2007-07-02 Reiner Steib <Reiner.Steib@gmx.de> * man/gnus-faq.texi ([3.2]): Fix locating of environment variables in the Control Panel. * man/gnus.texi (Misc Article): Add index entry for gnus-single-article-buffer. 2007-06-27 Andreas Seltenreich <andreas@gate450.dyndns.org> * man/gnus.texi (Starting Up): Fix typo. 2007-06-25 Katsumi Yamaoka <yamaoka@jpl.org> * man/gnus.texi (Asynchronous Fetching): Fix typo. Revision: emacs@sv.gnu.org/emacs--devo--0--patch-806
-rw-r--r--etc/NEWS.225
-rw-r--r--lisp/ChangeLog22
-rw-r--r--lisp/ChangeLog.124
-rw-r--r--lisp/files.el2
-rw-r--r--lisp/gnus/ChangeLog15
-rw-r--r--lisp/gnus/gnus-art.el11
-rw-r--r--lisp/gnus/gnus-start.el9
-rw-r--r--lisp/gnus/gnus-sum.el3
-rw-r--r--lisp/progmodes/gud.el6
-rw-r--r--man/ChangeLog16
-rw-r--r--man/gnus-faq.texi11
-rw-r--r--man/gnus.texi27
-rw-r--r--man/texinfo.tex35
13 files changed, 130 insertions, 36 deletions
diff --git a/etc/NEWS.22 b/etc/NEWS.22
index 4da26ff9271..3d5ff1aff3a 100644
--- a/etc/NEWS.22
+++ b/etc/NEWS.22
@@ -46,6 +46,11 @@ before deleting/copying the indicated directory recursively.
46than the window, the usual keys for moving the cursor cause the image 46than the window, the usual keys for moving the cursor cause the image
47to be scrolled horizontally or vertically instead. 47to be scrolled horizontally or vertically instead.
48 48
49** Scrollbars follow the system theme on Windows XP and later.
50Windows XP introduced themed scrollbars, but applications have to take
51special steps to use them. Emacs now has the appropriate resources linked
52in to make it use the scrollbars from the system theme.
53
49* New Modes and Packages in Emacs 22.2 54* New Modes and Packages in Emacs 22.2
50 55
51** The new package css-mode.el provides a major mode for editing CSS files. 56** The new package css-mode.el provides a major mode for editing CSS files.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8a3e84fe12e..58cfca107cb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
12007-07-08 Katsumi Yamaoka <yamaoka@jpl.org>
2
3 * cus-start.el (file-coding-system-alist): Fix custom type.
4
52007-07-08 Chong Yidong <cyd@stupidchicken.com>
6
7 * longlines.el (longlines-wrap-region): Avoid marking buffer as
8 modified.
9 (longlines-auto-wrap, longlines-window-change-function): Remove
10 unnecessary calls to set-buffer-modified-p.
11
12007-07-09 Reiner Steib <Reiner.Steib@gmx.de> 122007-07-09 Reiner Steib <Reiner.Steib@gmx.de>
2 13
3 * textmodes/tex-mode.el (tex-fontify-script) 14 * textmodes/tex-mode.el (tex-fontify-script)
@@ -249,6 +260,11 @@
249 * calculator.el (calculator-expt): Use more cases to determine 260 * calculator.el (calculator-expt): Use more cases to determine
250 the value. 261 the value.
251 262
2632007-07-03 Dan Nicolaescu <dann@ics.uci.edu>
264
265 * progmodes/gud.el (auto-mode-alist): Match more valid gdb init
266 file names.
267
2522007-07-03 Jay Belanger <jay.p.belanger@gmail.com> 2682007-07-03 Jay Belanger <jay.p.belanger@gmail.com>
253 269
254 * calculator.el (calculator-expt, calculator-integer-p): 270 * calculator.el (calculator-expt, calculator-integer-p):
@@ -332,6 +348,10 @@
332 348
3332007-07-01 Richard Stallman <rms@gnu.org> 3492007-07-01 Richard Stallman <rms@gnu.org>
334 350
351 * files.el (find-file-visit-truename): Fix safe-local-variable value.
352
3532007-07-01 Richard Stallman <rms@gnu.org>
354
335 * cus-start.el (max-mini-window-height): Added. 355 * cus-start.el (max-mini-window-height): Added.
336 356
3372007-07-01 Sean O'Rourke <sorourke@cs.ucsd.edu> (tiny change) 3572007-07-01 Sean O'Rourke <sorourke@cs.ucsd.edu> (tiny change)
@@ -981,7 +1001,7 @@
981 post-command-hook. 1001 post-command-hook.
982 (rcirc-window-configuration-change-1): Update mode-line and 1002 (rcirc-window-configuration-change-1): Update mode-line and
983 overlay arrows here. 1003 overlay arrows here.
984 (rcirc-authenticate): Fix chanserv identification. 1004 (rcirc-authenticate): Fixc hanserv identification.
985 (rcirc-default-server): Remove variable. 1005 (rcirc-default-server): Remove variable.
986 (rcirc): Connect according to rcirc-connections. 1006 (rcirc): Connect according to rcirc-connections.
987 (rcirc-connections): Add variable. 1007 (rcirc-connections): Add variable.
diff --git a/lisp/ChangeLog.12 b/lisp/ChangeLog.12
index 68d3021d4d6..12ea658afd0 100644
--- a/lisp/ChangeLog.12
+++ b/lisp/ChangeLog.12
@@ -1092,8 +1092,8 @@
1092 North American rule. Replace "daylight savings" with "daylight 1092 North American rule. Replace "daylight savings" with "daylight
1093 saving" in doc. 1093 saving" in doc.
1094 1094
1095 * calendar/cal-china.el,cal-dst.el,calendar.el,diary-lib.el: 1095 * calendar/cal-china.el, cal-dst.el, calendar.el, diary-lib.el:
1096 * calendar/lunar.el,solar.el: Replace "daylight savings" with 1096 * calendar/lunar.el, solar.el: Replace "daylight savings" with
1097 "daylight saving" in text. 1097 "daylight saving" in text.
1098 1098
1099 * woman.el (woman-change-fonts): Tweak previous change by using 1099 * woman.el (woman-change-fonts): Tweak previous change by using
diff --git a/lisp/files.el b/lisp/files.el
index 9458f231c8d..849d09b4215 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -162,7 +162,7 @@ The truename of a file is found by chasing all links
162both at the file level and at the levels of the containing directories." 162both at the file level and at the levels of the containing directories."
163 :type 'boolean 163 :type 'boolean
164 :group 'find-file) 164 :group 'find-file)
165(put 'find-file-visit-truename 'safe-local-variable 'boolean) 165(put 'find-file-visit-truename 'safe-local-variable 'booleanp)
166 166
167(defcustom revert-without-query nil 167(defcustom revert-without-query nil
168 "Specify which files should be reverted without query. 168 "Specify which files should be reverted without query.
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 0e9da63da1a..6ff604ab53f 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,18 @@
12007-07-04 Katsumi Yamaoka <yamaoka@jpl.org>
2
3 * gnus-sum.el (gnus-summary-catchup): Don't recognize cached articles
4 as unfetched articles.
5
62007-07-02 Reiner Steib <Reiner.Steib@gmx.de>
7
8 * gnus-start.el (gnus-level-unsubscribed): Improve doc string.
9
102007-06-26 Katsumi Yamaoka <yamaoka@jpl.org>
11
12 * gnus-art.el (gnus-article-summary-command-nosave)
13 (gnus-article-read-summary-keys): Don't set the 3rd arg of
14 pop-to-buffer for XEmacs.
15
12007-06-14 Katsumi Yamaoka <yamaoka@jpl.org> 162007-06-14 Katsumi Yamaoka <yamaoka@jpl.org>
2 17
3 * gnus-agent.el (gnus-agent-fetch-headers) 18 * gnus-agent.el (gnus-agent-fetch-headers)
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 90af0740318..cbfa6bded93 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -5607,7 +5607,7 @@ not have a face in `gnus-article-boring-faces'."
5607 "Execute the last keystroke in the summary buffer." 5607 "Execute the last keystroke in the summary buffer."
5608 (interactive) 5608 (interactive)
5609 (let (func) 5609 (let (func)
5610 (pop-to-buffer gnus-article-current-summary nil 'norecord) 5610 (pop-to-buffer gnus-article-current-summary nil (not (featurep 'xemacs)))
5611 (setq func (lookup-key (current-local-map) (this-command-keys))) 5611 (setq func (lookup-key (current-local-map) (this-command-keys)))
5612 (call-interactively func))) 5612 (call-interactively func)))
5613 5613
@@ -5646,7 +5646,8 @@ not have a face in `gnus-article-boring-faces'."
5646 (member keys nosave-in-article)) 5646 (member keys nosave-in-article))
5647 (let (func) 5647 (let (func)
5648 (save-window-excursion 5648 (save-window-excursion
5649 (pop-to-buffer gnus-article-current-summary nil 'norecord) 5649 (pop-to-buffer gnus-article-current-summary
5650 nil (not (featurep 'xemacs)))
5650 ;; We disable the pick minor mode commands. 5651 ;; We disable the pick minor mode commands.
5651 (let (gnus-pick-mode) 5652 (let (gnus-pick-mode)
5652 (setq func (lookup-key (current-local-map) keys)))) 5653 (setq func (lookup-key (current-local-map) keys))))
@@ -5658,14 +5659,16 @@ not have a face in `gnus-article-boring-faces'."
5658 (call-interactively func) 5659 (call-interactively func)
5659 (setq new-sum-point (point))) 5660 (setq new-sum-point (point)))
5660 (when (member keys nosave-but-article) 5661 (when (member keys nosave-but-article)
5661 (pop-to-buffer gnus-article-buffer nil 'norecord))) 5662 (pop-to-buffer gnus-article-buffer
5663 nil (not (featurep 'xemacs)))))
5662 ;; These commands should restore window configuration. 5664 ;; These commands should restore window configuration.
5663 (let ((obuf (current-buffer)) 5665 (let ((obuf (current-buffer))
5664 (owin (current-window-configuration)) 5666 (owin (current-window-configuration))
5665 (opoint (point)) 5667 (opoint (point))
5666 win func in-buffer selected new-sum-start new-sum-hscroll) 5668 win func in-buffer selected new-sum-start new-sum-hscroll)
5667 (cond (not-restore-window 5669 (cond (not-restore-window
5668 (pop-to-buffer gnus-article-current-summary nil 'norecord)) 5670 (pop-to-buffer gnus-article-current-summary
5671 nil (not (featurep 'xemacs))))
5669 ((setq win (get-buffer-window gnus-article-current-summary)) 5672 ((setq win (get-buffer-window gnus-article-current-summary))
5670 (select-window win)) 5673 (select-window win))
5671 (t 5674 (t
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index d906cec6c6a..01b320e7186 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -178,8 +178,13 @@ properly with all servers."
178 178
179(defconst gnus-level-unsubscribed 7 179(defconst gnus-level-unsubscribed 7
180 "Groups with levels less than or equal to this variable are unsubscribed. 180 "Groups with levels less than or equal to this variable are unsubscribed.
181Groups with levels less than `gnus-level-subscribed', which should be 181
182less than this variable, are subscribed.") 182Groups with levels less than `gnus-level-subscribed', which
183should be less than this variable, are subscribed. Groups with
184levels from `gnus-level-subscribed' (exclusive) upto this
185variable (inclusive) are unsubscribed. See also
186`gnus-level-zombie', `gnus-level-killed' and the Info node `Group
187Levels' for details.")
183 188
184(defconst gnus-level-zombie 8 189(defconst gnus-level-zombie 8
185 "Groups with this level are zombie groups.") 190 "Groups with this level are zombie groups.")
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index b1b6c8b760b..56c5fffb7e5 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -10514,7 +10514,8 @@ The number of articles marked as read is returned."
10514 (gnus-sorted-nunion 10514 (gnus-sorted-nunion
10515 (gnus-sorted-intersection gnus-newsgroup-unreads 10515 (gnus-sorted-intersection gnus-newsgroup-unreads
10516 gnus-newsgroup-downloadable) 10516 gnus-newsgroup-downloadable)
10517 gnus-newsgroup-unfetched))) 10517 (gnus-sorted-difference gnus-newsgroup-unfetched
10518 gnus-newsgroup-cached))))
10518 ;; We actually mark all articles as canceled, which we 10519 ;; We actually mark all articles as canceled, which we
10519 ;; have to do when using auto-expiry or adaptive scoring. 10520 ;; have to do when using auto-expiry or adaptive scoring.
10520 (gnus-summary-show-all-threads) 10521 (gnus-summary-show-all-threads)
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index aa382d4e185..57eed959f8b 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -3193,8 +3193,12 @@ Treats actions as defuns."
3193 (goto-char (point-max))) 3193 (goto-char (point-max)))
3194 t) 3194 t)
3195 3195
3196;; Besides .gdbinit, gdb documents other names to be usable for init
3197;; files, cross-debuggers can use something like
3198;; .PROCESSORNAME-gdbinit so that the host and target gdbinit files
3199;; don't interfere with each other.
3196;;;###autoload 3200;;;###autoload
3197(add-to-list 'auto-mode-alist '("/\\.gdbinit" . gdb-script-mode)) 3201(add-to-list 'auto-mode-alist '("/\\.[a-z0-9-]*gdbinit" . gdb-script-mode))
3198 3202
3199;;;###autoload 3203;;;###autoload
3200(define-derived-mode gdb-script-mode nil "GDB-Script" 3204(define-derived-mode gdb-script-mode nil "GDB-Script"
diff --git a/man/ChangeLog b/man/ChangeLog
index e185cd51f7b..13d4c7b1b29 100644
--- a/man/ChangeLog
+++ b/man/ChangeLog
@@ -7,6 +7,22 @@
7 7
8 * org.texi (Properties): New chapter. 8 * org.texi (Properties): New chapter.
9 9
102007-07-02 Reiner Steib <Reiner.Steib@gmx.de>
11
12 * gnus-faq.texi ([3.2]): Fix locating of environment variables in the
13 Control Panel.
14
15 * gnus.texi (Misc Article): Add index entry for
16 gnus-single-article-buffer.
17
182007-06-27 Andreas Seltenreich <andreas@gate450.dyndns.org>
19
20 * gnus.texi (Starting Up): Fix typo.
21
222007-06-25 Katsumi Yamaoka <yamaoka@jpl.org>
23
24 * gnus.texi (Asynchronous Fetching): Fix typo.
25
102007-06-24 Karl Berry <karl@gnu.org> 262007-06-24 Karl Berry <karl@gnu.org>
11 27
12 * emacs.texi: new Back-Cover Text. 28 * emacs.texi: new Back-Cover Text.
diff --git a/man/gnus-faq.texi b/man/gnus-faq.texi
index 093cb4c289b..6bfb3477627 100644
--- a/man/gnus-faq.texi
+++ b/man/gnus-faq.texi
@@ -427,12 +427,11 @@ SET HOME=C:\myhome
427@end example 427@end example
428@noindent 428@noindent
429 429
430in your autoexec.bat and reboot. Under NT, 2000 and XP, 430in your autoexec.bat and reboot. Under NT, 2000 and XP, hit
431hit Winkey+Pause/Break to enter system options (if it 431Winkey+Pause/Break to enter system options (if it doesn't work, go to
432doesn't work, go to Control Panel -> System). There you'll 432Control Panel -> System -> Advanced). There you'll find the possibility
433find the possibility to set environment variables, create 433to set environment variables. Create a new one with name HOME and value
434a new one with name HOME and value C:\myhome, a reboot is 434C:\myhome. Rebooting is not necessary.
435not necessary.
436 435
437Now to create ~/.gnus.el, say 436Now to create ~/.gnus.el, say
438@samp{C-x C-f ~/.gnus.el RET C-x C-s}. 437@samp{C-x C-f ~/.gnus.el RET C-x C-s}.
diff --git a/man/gnus.texi b/man/gnus.texi
index 85167d53432..fe26aa5f662 100644
--- a/man/gnus.texi
+++ b/man/gnus.texi
@@ -947,8 +947,8 @@ Emacs for Heathens
947@chapter Starting Gnus 947@chapter Starting Gnus
948@cindex starting up 948@cindex starting up
949 949
950If you are haven't used Emacs much before using Gnus, read @ref{Emacs 950If you haven't used Emacs much before using Gnus, read @ref{Emacs for
951for Heathens} first. 951Heathens} first.
952 952
953@kindex M-x gnus 953@kindex M-x gnus
954@findex gnus 954@findex gnus
@@ -7173,12 +7173,12 @@ pre-fetch all the articles it can without bound. If it is
7173@code{nil}, no pre-fetching will be done. 7173@code{nil}, no pre-fetching will be done.
7174 7174
7175@vindex gnus-async-prefetch-article-p 7175@vindex gnus-async-prefetch-article-p
7176@findex gnus-async-read-p 7176@findex gnus-async-unread-p
7177There are probably some articles that you don't want to pre-fetch---read 7177There are probably some articles that you don't want to pre-fetch---read
7178articles, for instance. The @code{gnus-async-prefetch-article-p} 7178articles, for instance. The @code{gnus-async-prefetch-article-p}
7179variable controls whether an article is to be pre-fetched. This 7179variable controls whether an article is to be pre-fetched. This
7180function should return non-@code{nil} when the article in question is 7180function should return non-@code{nil} when the article in question is
7181to be pre-fetched. The default is @code{gnus-async-read-p}, which 7181to be pre-fetched. The default is @code{gnus-async-unread-p}, which
7182returns @code{nil} on read articles. The function is called with an 7182returns @code{nil} on read articles. The function is called with an
7183article data structure as the only parameter. 7183article data structure as the only parameter.
7184 7184
@@ -11504,6 +11504,7 @@ region.
11504 11504
11505@item gnus-single-article-buffer 11505@item gnus-single-article-buffer
11506@vindex gnus-single-article-buffer 11506@vindex gnus-single-article-buffer
11507@cindex article buffers, several
11507If non-@code{nil}, use the same article buffer for all the groups. 11508If non-@code{nil}, use the same article buffer for all the groups.
11508(This is the default.) If @code{nil}, each group will have its own 11509(This is the default.) If @code{nil}, each group will have its own
11509article buffer. 11510article buffer.
@@ -13509,14 +13510,18 @@ Header lines longer than the value of
13509@code{nnmail-split-header-length-limit} are excluded from the split 13510@code{nnmail-split-header-length-limit} are excluded from the split
13510function. 13511function.
13511 13512
13512@vindex nnmail-mail-splitting-charset
13513@vindex nnmail-mail-splitting-decodes 13513@vindex nnmail-mail-splitting-decodes
13514By default, splitting @acronym{MIME}-decodes headers so you 13514@vindex nnmail-mail-splitting-charset
13515can match on non-@acronym{ASCII} strings. The 13515By default, splitting does not decode headers, so you can not match on
13516@code{nnmail-mail-splitting-charset} variable specifies the default 13516non-@acronym{ASCII} strings. But it is useful if you want to match
13517charset for decoding. The behavior can be turned off completely by 13517articles based on the raw header data. To enable it, set the
13518binding @code{nnmail-mail-splitting-decodes} to @code{nil}, which is 13518@code{nnmail-mail-splitting-decodes} variable to a non-@code{nil} value.
13519useful if you want to match articles based on the raw header data. 13519In addition, the value of the @code{nnmail-mail-splitting-charset}
13520variable is used for decoding non-@acronym{MIME} encoded string when
13521@code{nnmail-mail-splitting-decodes} is non-@code{nil}. The default
13522value is @code{nil} which means not to decode non-@acronym{MIME} encoded
13523string. A suitable value for you will be @code{undecided} or be the
13524charset used normally in mails you are interested in.
13520 13525
13521@vindex nnmail-resplit-incoming 13526@vindex nnmail-resplit-incoming
13522By default, splitting is performed on all incoming messages. If you 13527By default, splitting is performed on all incoming messages. If you
diff --git a/man/texinfo.tex b/man/texinfo.tex
index 017eeac5d6d..fe6285b3bc5 100644
--- a/man/texinfo.tex
+++ b/man/texinfo.tex
@@ -3,7 +3,7 @@
3% Load plain if necessary, i.e., if running under initex. 3% Load plain if necessary, i.e., if running under initex.
4\expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi 4\expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
5% 5%
6\def\texinfoversion{2007-06-16.10} 6\def\texinfoversion{2007-07-09.21}
7% 7%
8% Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995, 8% Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995,
9% 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 9% 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
@@ -7434,22 +7434,41 @@ end
7434 7434
7435% @documentlanguage is usually given very early, just after 7435% @documentlanguage is usually given very early, just after
7436% @setfilename. If done too late, it may not override everything 7436% @setfilename. If done too late, it may not override everything
7437% properly. Single argument is the language abbreviation. 7437% properly. Single argument is the language (de) or locale (de_DE)
7438% It would be nice if we could set up a hyphenation file here. 7438% abbreviation. It would be nice if we could set up a hyphenation file.
7439% 7439%
7440\parseargdef\documentlanguage{% 7440{
7441 \catcode`\_ = \active
7442 \globaldefs=1
7443\parseargdef\documentlanguage{\begingroup
7444 \let_=\normalunderscore % normal _ character for filenames
7441 \tex % read txi-??.tex file in plain TeX. 7445 \tex % read txi-??.tex file in plain TeX.
7442 % Read the file if it exists. 7446 % Read the file by the name they passed if it exists.
7443 \openin 1 txi-#1.tex 7447 \openin 1 txi-#1.tex
7444 \ifeof 1 7448 \ifeof 1
7445 \errhelp = \nolanghelp 7449 \documentlanguagetrywithoutunderscore{#1_\finish}%
7446 \errmessage{Cannot read language file txi-#1.tex}%
7447 \else 7450 \else
7448 \input txi-#1.tex 7451 \input txi-#1.tex
7449 \fi 7452 \fi
7450 \closein 1 7453 \closein 1
7451 \endgroup 7454 \endgroup
7455\endgroup}
7452} 7456}
7457%
7458% If they passed de_DE, and txi-de_DE.tex doesn't exist,
7459% try txi-de.tex.
7460%
7461\def\documentlanguagetrywithoutunderscore#1_#2\finish{%
7462 \openin 1 txi-#1.tex
7463 \ifeof 1
7464 \errhelp = \nolanghelp
7465 \errmessage{Cannot read language file txi-#1.tex}%
7466 \else
7467 \input txi-#1.tex
7468 \fi
7469 \closein 1
7470}
7471%
7453\newhelp\nolanghelp{The given language definition file cannot be found or 7472\newhelp\nolanghelp{The given language definition file cannot be found or
7454is empty. Maybe you need to install it? In the current directory 7473is empty. Maybe you need to install it? In the current directory
7455should work if nowhere else does.} 7474should work if nowhere else does.}
@@ -8316,6 +8335,8 @@ should work if nowhere else does.}
8316 \ifpdf 8335 \ifpdf
8317 \pdfpageheight #7\relax 8336 \pdfpageheight #7\relax
8318 \pdfpagewidth #8\relax 8337 \pdfpagewidth #8\relax
8338 \pdfhorigin = 1 true in
8339 \pdfvorigin = 1 true in
8319 \fi 8340 \fi
8320 % 8341 %
8321 \setleading{\textleading} 8342 \setleading{\textleading}