diff options
| author | Kenichi Handa | 2010-07-26 13:29:08 +0900 |
|---|---|---|
| committer | Kenichi Handa | 2010-07-26 13:29:08 +0900 |
| commit | 50efd41b43c9b1b540c49c53d4e7824468ec7879 (patch) | |
| tree | 4a3be8d0322c537816f47a0c6450fc13495edf35 | |
| parent | dfe3c90fa5974e200483297e11bb889d0589b8f5 (diff) | |
| parent | 7d383292d10b876efec43e77fd51c2665e912688 (diff) | |
| download | emacs-50efd41b43c9b1b540c49c53d4e7824468ec7879.tar.gz emacs-50efd41b43c9b1b540c49c53d4e7824468ec7879.zip | |
merge trunk
96 files changed, 1148 insertions, 1572 deletions
diff --git a/.gitignore b/.gitignore index 760c452aab1..57537b8a503 100644 --- a/.gitignore +++ b/.gitignore | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | autom4te.cache | 1 | autom4te.cache |
| 2 | makefile | 2 | makefile |
| 3 | *~ | 3 | *~ |
| 4 | /README.W32 | ||
| 4 | 5 | ||
| 5 | /bin/ | 6 | /bin/ |
| 6 | /site-lisp/ | 7 | /site-lisp/ |
| @@ -1,3 +1,19 @@ | |||
| 1 | 2010-07-25 Andreas Schwab <schwab@linux-m68k.org> | ||
| 2 | |||
| 3 | * configure.in: Check for __executable_start. | ||
| 4 | |||
| 5 | 2010-07-24 Ken Brown <kbrown@cornell.edu> | ||
| 6 | |||
| 7 | * configure.in (LINKER, LIB_GCC): Remove cygwin special cases (Bug#6715) | ||
| 8 | |||
| 9 | 2010-07-24 Juanma Barranquero <lekktu@gmail.com> | ||
| 10 | |||
| 11 | * .bzrignore, .gitignore: Ignore README.W32 on the root directory. | ||
| 12 | |||
| 13 | 2010-07-24 Ken Brown <kbrown@cornell.edu> (tiny change) | ||
| 14 | |||
| 15 | * configure.in (START_FILES) [cygwin]: Set to pre-crt0.o (Bug#6715). | ||
| 16 | |||
| 1 | 2010-07-12 Andreas Schwab <schwab@linux-m68k.org> | 17 | 2010-07-12 Andreas Schwab <schwab@linux-m68k.org> |
| 2 | 18 | ||
| 3 | * configure.in (C_WARNINGS_SWITCH, PROFILING_CFLAGS) | 19 | * configure.in (C_WARNINGS_SWITCH, PROFILING_CFLAGS) |
| @@ -8373,7 +8389,7 @@ | |||
| 8373 | (EMACSROOT): New variable, giving the directory under which all of | 8389 | (EMACSROOT): New variable, giving the directory under which all of |
| 8374 | Emacs's libraries should be installed. Changed rest of file to | 8390 | Emacs's libraries should be installed. Changed rest of file to |
| 8375 | use it. | 8391 | use it. |
| 8376 | (LIBDIR): Now denotes only architecture-dependent dir - relevant cha | 8392 | (LIBDIR): Now denotes only architecture-dependent dir. |
| 8377 | (DATADIR): New variable, denoting architecture-independent dir. | 8393 | (DATADIR): New variable, denoting architecture-independent dir. |
| 8378 | (LOCKDIR): New variable, for completeness. | 8394 | (LOCKDIR): New variable, for completeness. |
| 8379 | (SUBDIR): No more etc, new lib-src. | 8395 | (SUBDIR): No more etc, new lib-src. |
diff --git a/admin/ChangeLog b/admin/ChangeLog index 7a3104c9c40..e082eee36bf 100644 --- a/admin/ChangeLog +++ b/admin/ChangeLog | |||
| @@ -1,3 +1,10 @@ | |||
| 1 | 2010-07-24 Christoph Scholtes <cschol2112@gmail.com> | ||
| 2 | |||
| 3 | * admin.el: Write version number to nt/makefile.w32-in. | ||
| 4 | * nt/makedist.bat: Remove; replaced with `zipdist.bat' | ||
| 5 | in the nt/ directory. | ||
| 6 | * nt/README.W32: Relocate to nt/ directory. | ||
| 7 | |||
| 1 | 2010-07-11 Andreas Schwab <schwab@linux-m68k.org> | 8 | 2010-07-11 Andreas Schwab <schwab@linux-m68k.org> |
| 2 | 9 | ||
| 3 | * CPP-DEFINES (HAVE_INDEX, HAVE_RINDEX): Remove. | 10 | * CPP-DEFINES (HAVE_INDEX, HAVE_RINDEX): Remove. |
| @@ -432,7 +439,7 @@ | |||
| 432 | 439 | ||
| 433 | * charsets/mapconv: Handle UNICODE2. | 440 | * charsets/mapconv: Handle UNICODE2. |
| 434 | 441 | ||
| 435 | * charsets/Makefile (CJK): Include CP932-2BYTE.map | 442 | * charsets/Makefile (CJK): Include CP932-2BYTE.map. |
| 436 | (CP932-2BYTE.map): New target. | 443 | (CP932-2BYTE.map): New target. |
| 437 | 444 | ||
| 438 | 2008-02-01 Kenichi Handa <handa@m17n.org> | 445 | 2008-02-01 Kenichi Handa <handa@m17n.org> |
| @@ -752,7 +759,7 @@ | |||
| 752 | 759 | ||
| 753 | 2004-08-28 Jan Djärv <jan.h.d@swipnet.se> | 760 | 2004-08-28 Jan Djärv <jan.h.d@swipnet.se> |
| 754 | 761 | ||
| 755 | * FOR-RELEASE (Indications): Remove entry about GTK and geometry, | 762 | * FOR-RELEASE (Indications): Remove entry about GTK and geometry |
| 756 | (now behaves as well as other ports). | 763 | (now behaves as well as other ports). |
| 757 | 764 | ||
| 758 | 2004-06-28 Jan Djärv <jan.h.d@swipnet.se> | 765 | 2004-06-28 Jan Djärv <jan.h.d@swipnet.se> |
diff --git a/admin/admin.el b/admin/admin.el index f2cf008f475..51bbecf4c57 100644 --- a/admin/admin.el +++ b/admin/admin.el | |||
| @@ -95,6 +95,9 @@ Root must be the root of an Emacs source tree." | |||
| 95 | (set-version-in-file root "lib-src/makefile.w32-in" version | 95 | (set-version-in-file root "lib-src/makefile.w32-in" version |
| 96 | (rx (and "VERSION" (0+ space) "=" (0+ space) | 96 | (rx (and "VERSION" (0+ space) "=" (0+ space) |
| 97 | (submatch (1+ (in "0-9.")))))) | 97 | (submatch (1+ (in "0-9.")))))) |
| 98 | (set-version-in-file root "nt/makefile.w32-in" version | ||
| 99 | (rx (and "VERSION" (0+ space) "=" (0+ space) | ||
| 100 | (submatch (1+ (in "0-9.")))))) | ||
| 98 | ;; nt/emacs.rc also contains the version number, but in an awkward | 101 | ;; nt/emacs.rc also contains the version number, but in an awkward |
| 99 | ;; format. It must contain four components, separated by commas, and | 102 | ;; format. It must contain four components, separated by commas, and |
| 100 | ;; in two places those commas are followed by space, in two other | 103 | ;; in two places those commas are followed by space, in two other |
diff --git a/admin/nt/makedist.bat b/admin/nt/makedist.bat deleted file mode 100755 index 6546e6e10dc..00000000000 --- a/admin/nt/makedist.bat +++ /dev/null | |||
| @@ -1,65 +0,0 @@ | |||
| 1 | @echo off | ||
| 2 | |||
| 3 | rem Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 | ||
| 4 | rem Free Software Foundation, Inc. | ||
| 5 | |||
| 6 | rem Cannot use brackets in andrewi's email below because | ||
| 7 | rem older Windows shells will treat that as redirection. | ||
| 8 | |||
| 9 | rem Author: Andrew Innes andrewi@gnu.org | ||
| 10 | |||
| 11 | rem This file is part of GNU Emacs. | ||
| 12 | |||
| 13 | rem GNU Emacs is free software: you can redistribute it and/or modify | ||
| 14 | rem it under the terms of the GNU General Public License as published by | ||
| 15 | rem the Free Software Foundation, either version 3 of the License, or | ||
| 16 | rem (at your option) any later version. | ||
| 17 | |||
| 18 | rem GNU Emacs is distributed in the hope that it will be useful, | ||
| 19 | rem but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 20 | rem MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 21 | rem GNU General Public License for more details. | ||
| 22 | |||
| 23 | rem You should have received a copy of the GNU General Public License | ||
| 24 | rem along with GNU Emacs. If not, see http://www.gnu.org/licenses/. | ||
| 25 | |||
| 26 | |||
| 27 | if (%3) == () goto usage | ||
| 28 | if not (%4) == () goto %4 | ||
| 29 | |||
| 30 | :bin | ||
| 31 | |||
| 32 | echo Create full bin distribution | ||
| 33 | copy %3\README.W32 emacs-%1\README.W32 | ||
| 34 | rem Info-ZIP zip seems to be broken on Windows. | ||
| 35 | rem It always writes to zip.zip and treats the zipfile argument as one | ||
| 36 | rem of the files to go in it. | ||
| 37 | rem zip -9 -r %2-bin-i386 emacs-%1/BUGS emacs-%1/COPYING emacs-%1/README emacs-%1/README.W32 emacs-%1/INSTALL emacs-%1/bin emacs-%1/etc emacs-%1/info emacs-%1/lisp emacs-%1/leim -x emacs.mdp *.pdb *.opt *~ CVS | ||
| 38 | 7z a -tZIP -mx=9 -xr!emacs.mdp -xr!*.pdb -xr!*.opt -xr!*~ -xr!CVS -xr!.arch-inventory %2-bin-i386.zip emacs-%1/BUGS emacs-%1/COPYING emacs-%1/README emacs-%1/README.W32 emacs-%1/INSTALL emacs-%1/bin emacs-%1/etc emacs-%1/info emacs-%1/lisp emacs-%1/leim emacs-%1/site-lisp | ||
| 39 | del emacs-%1\README.W32 | ||
| 40 | if not (%4) == () goto end | ||
| 41 | |||
| 42 | :barebin | ||
| 43 | echo Create archive with just the basic binaries and generated files | ||
| 44 | echo (the user needs to unpack the full source distribution for | ||
| 45 | echo everything else) | ||
| 46 | copy %3\README.W32 emacs-%1\README.W32 | ||
| 47 | rem Info-ZIP zip seems to be broken on Windows. | ||
| 48 | rem It always writes to zip.zip and treats the zipfile argument as one | ||
| 49 | rem of the files to go in it. | ||
| 50 | rem zip -9 -r %2-barebin-i386.zip emacs-%1/README.W32 emacs-%1/bin emacs-%1/etc/DOC-X emacs-%1/COPYING | ||
| 51 | 7z a -tZIP -mx=9 %2-barebin-i386.zip emacs-%1/README.W32 emacs-%1/bin emacs-%1/etc/DOC-X emacs-%1/COPYING | ||
| 52 | del emacs-%1\README.W32 | ||
| 53 | if not (%4) == () goto end | ||
| 54 | |||
| 55 | goto end | ||
| 56 | |||
| 57 | :usage | ||
| 58 | echo Generate source and binary distributions of emacs. | ||
| 59 | echo Usage: %0 emacs-version dist-basename distfiles [bin,barebin] | ||
| 60 | echo (e.g., %0 19.34 emacs-19.34.5 d:\andrewi\distfiles) | ||
| 61 | :end | ||
| 62 | |||
| 63 | goto skipArchTag | ||
| 64 | arch-tag: 6e2ddd92-c1c9-4992-b6b5-207aaab72f68 | ||
| 65 | :skipArchTag | ||
| @@ -5885,7 +5885,7 @@ START_FILES= | |||
| 5885 | case $opsys in | 5885 | case $opsys in |
| 5886 | cygwin ) | 5886 | cygwin ) |
| 5887 | LIB_MATH= | 5887 | LIB_MATH= |
| 5888 | START_FILES='ecrt0.o' | 5888 | START_FILES='pre-crt0.o' |
| 5889 | ;; | 5889 | ;; |
| 5890 | darwin ) | 5890 | darwin ) |
| 5891 | ## Adding -lm confuses the dynamic linker, so omit it. | 5891 | ## Adding -lm confuses the dynamic linker, so omit it. |
| @@ -11190,7 +11190,7 @@ __fpending mblen mbrlen mbsinit strsignal setitimer ualarm strchr strrchr \ | |||
| 11190 | sendto recvfrom getsockopt setsockopt getsockname getpeername \ | 11190 | sendto recvfrom getsockopt setsockopt getsockname getpeername \ |
| 11191 | gai_strerror mkstemp getline getdelim mremap memmove fsync sync \ | 11191 | gai_strerror mkstemp getline getdelim mremap memmove fsync sync \ |
| 11192 | memset memcmp difftime memcpy mempcpy mblen mbrlen posix_memalign \ | 11192 | memset memcmp difftime memcpy mempcpy mblen mbrlen posix_memalign \ |
| 11193 | cfmakeraw cfsetspeed isnan copysign | 11193 | cfmakeraw cfsetspeed isnan copysign __executable_start |
| 11194 | do : | 11194 | do : |
| 11195 | as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` | 11195 | as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` |
| 11196 | ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" | 11196 | ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" |
| @@ -14149,9 +14149,7 @@ LINKER= | |||
| 14149 | ORDINARY_LINK= | 14149 | ORDINARY_LINK= |
| 14150 | case "$opsys" in | 14150 | case "$opsys" in |
| 14151 | ## gnu: GNU needs its own crt0. | 14151 | ## gnu: GNU needs its own crt0. |
| 14152 | aix4-2|darwin|gnu|usg5-4|irix6-5|sol2*|unixware) ORDINARY_LINK=yes ;; | 14152 | aix4-2|cygwin|darwin|gnu|usg5-4|irix6-5|sol2*|unixware) ORDINARY_LINK=yes ;; |
| 14153 | |||
| 14154 | cygwin) LINKER="\$(CC)" ;; | ||
| 14155 | 14153 | ||
| 14156 | ## On post 1.3 releases of NetBSD, gcc -nostdlib also clears the | 14154 | ## On post 1.3 releases of NetBSD, gcc -nostdlib also clears the |
| 14157 | ## library search parth, i.e. it won't search /usr/lib for libc and | 14155 | ## library search parth, i.e. it won't search /usr/lib for libc and |
| @@ -14206,8 +14204,7 @@ LIB_GCC= | |||
| 14206 | if test "x$GCC" = "xyes" && test "x$ORDINARY_LINK" != "xyes"; then | 14204 | if test "x$GCC" = "xyes" && test "x$ORDINARY_LINK" != "xyes"; then |
| 14207 | 14205 | ||
| 14208 | case "$opsys" in | 14206 | case "$opsys" in |
| 14209 | ## cygwin: don't link against static libgcc. | 14207 | freebsd|netbsd|openbsd) LIB_GCC= ;; |
| 14210 | cygwin|freebsd|netbsd|openbsd) LIB_GCC= ;; | ||
| 14211 | 14208 | ||
| 14212 | gnu-*) | 14209 | gnu-*) |
| 14213 | ## armin76@gentoo.org reported that the lgcc_s flag is necessary to | 14210 | ## armin76@gentoo.org reported that the lgcc_s flag is necessary to |
diff --git a/configure.in b/configure.in index ed229916eb8..0f4a3c7564b 100644 --- a/configure.in +++ b/configure.in | |||
| @@ -1060,7 +1060,7 @@ START_FILES= | |||
| 1060 | case $opsys in | 1060 | case $opsys in |
| 1061 | cygwin ) | 1061 | cygwin ) |
| 1062 | LIB_MATH= | 1062 | LIB_MATH= |
| 1063 | START_FILES='ecrt0.o' | 1063 | START_FILES='pre-crt0.o' |
| 1064 | ;; | 1064 | ;; |
| 1065 | darwin ) | 1065 | darwin ) |
| 1066 | ## Adding -lm confuses the dynamic linker, so omit it. | 1066 | ## Adding -lm confuses the dynamic linker, so omit it. |
| @@ -2611,7 +2611,7 @@ __fpending mblen mbrlen mbsinit strsignal setitimer ualarm strchr strrchr \ | |||
| 2611 | sendto recvfrom getsockopt setsockopt getsockname getpeername \ | 2611 | sendto recvfrom getsockopt setsockopt getsockname getpeername \ |
| 2612 | gai_strerror mkstemp getline getdelim mremap memmove fsync sync \ | 2612 | gai_strerror mkstemp getline getdelim mremap memmove fsync sync \ |
| 2613 | memset memcmp difftime memcpy mempcpy mblen mbrlen posix_memalign \ | 2613 | memset memcmp difftime memcpy mempcpy mblen mbrlen posix_memalign \ |
| 2614 | cfmakeraw cfsetspeed isnan copysign) | 2614 | cfmakeraw cfsetspeed isnan copysign __executable_start) |
| 2615 | 2615 | ||
| 2616 | AC_CHECK_HEADERS(sys/un.h) | 2616 | AC_CHECK_HEADERS(sys/un.h) |
| 2617 | 2617 | ||
| @@ -3326,9 +3326,7 @@ LINKER= | |||
| 3326 | ORDINARY_LINK= | 3326 | ORDINARY_LINK= |
| 3327 | case "$opsys" in | 3327 | case "$opsys" in |
| 3328 | ## gnu: GNU needs its own crt0. | 3328 | ## gnu: GNU needs its own crt0. |
| 3329 | aix4-2|darwin|gnu|usg5-4|irix6-5|sol2*|unixware) ORDINARY_LINK=yes ;; | 3329 | aix4-2|cygwin|darwin|gnu|usg5-4|irix6-5|sol2*|unixware) ORDINARY_LINK=yes ;; |
| 3330 | |||
| 3331 | cygwin) LINKER="\$(CC)" ;; | ||
| 3332 | 3330 | ||
| 3333 | ## On post 1.3 releases of NetBSD, gcc -nostdlib also clears the | 3331 | ## On post 1.3 releases of NetBSD, gcc -nostdlib also clears the |
| 3334 | ## library search parth, i.e. it won't search /usr/lib for libc and | 3332 | ## library search parth, i.e. it won't search /usr/lib for libc and |
| @@ -3381,8 +3379,7 @@ LIB_GCC= | |||
| 3381 | if test "x$GCC" = "xyes" && test "x$ORDINARY_LINK" != "xyes"; then | 3379 | if test "x$GCC" = "xyes" && test "x$ORDINARY_LINK" != "xyes"; then |
| 3382 | 3380 | ||
| 3383 | case "$opsys" in | 3381 | case "$opsys" in |
| 3384 | ## cygwin: don't link against static libgcc. | 3382 | freebsd|netbsd|openbsd) LIB_GCC= ;; |
| 3385 | cygwin|freebsd|netbsd|openbsd) LIB_GCC= ;; | ||
| 3386 | 3383 | ||
| 3387 | gnu-*) | 3384 | gnu-*) |
| 3388 | ## armin76@gentoo.org reported that the lgcc_s flag is necessary to | 3385 | ## armin76@gentoo.org reported that the lgcc_s flag is necessary to |
diff --git a/doc/emacs/ChangeLog b/doc/emacs/ChangeLog index 487663109bd..a082f8ddb65 100644 --- a/doc/emacs/ChangeLog +++ b/doc/emacs/ChangeLog | |||
| @@ -606,7 +606,7 @@ | |||
| 606 | 606 | ||
| 607 | 2009-06-23 Miles Bader <miles@gnu.org> | 607 | 2009-06-23 Miles Bader <miles@gnu.org> |
| 608 | 608 | ||
| 609 | * display.texi (Scrolling): Document `recenter-redisplay' | 609 | * display.texi (Scrolling): Document `recenter-redisplay'. |
| 610 | (Temporary Face Changes): Document `text-scale-set'. | 610 | (Temporary Face Changes): Document `text-scale-set'. |
| 611 | 611 | ||
| 612 | 2009-06-21 Chong Yidong <cyd@stupidchicken.com> | 612 | 2009-06-21 Chong Yidong <cyd@stupidchicken.com> |
| @@ -5704,7 +5704,7 @@ | |||
| 5704 | 2005-03-05 Juri Linkov <juri@jurta.org> | 5704 | 2005-03-05 Juri Linkov <juri@jurta.org> |
| 5705 | 5705 | ||
| 5706 | * cmdargs.texi (Emacs Invocation): Add cindex | 5706 | * cmdargs.texi (Emacs Invocation): Add cindex |
| 5707 | "invocation (command line arguments)" | 5707 | "invocation (command line arguments)". |
| 5708 | (Misc X): Add -nbc, --no-blinking-cursor. | 5708 | (Misc X): Add -nbc, --no-blinking-cursor. |
| 5709 | 5709 | ||
| 5710 | 2005-03-04 Ulf Jasper <ulf.jasper@web.de> | 5710 | 2005-03-04 Ulf Jasper <ulf.jasper@web.de> |
diff --git a/doc/lispintro/ChangeLog b/doc/lispintro/ChangeLog index 093a7018ca3..1ab06891961 100644 --- a/doc/lispintro/ChangeLog +++ b/doc/lispintro/ChangeLog | |||
| @@ -212,7 +212,7 @@ | |||
| 212 | (Simple Extension): Replace longer expression with | 212 | (Simple Extension): Replace longer expression with |
| 213 | `emacs-major-version'. Remove comment about `number-to-string' | 213 | `emacs-major-version'. Remove comment about `number-to-string' |
| 214 | function. | 214 | function. |
| 215 | (Miscellaneous): Add filename option, `-H', to `grep' example | 215 | (Miscellaneous): Add filename option, `-H', to `grep' example. |
| 216 | (debug, debug-on-entry): Replace `GNU Emacs 22' with `a recent | 216 | (debug, debug-on-entry): Replace `GNU Emacs 22' with `a recent |
| 217 | GNU Emacs'. | 217 | GNU Emacs'. |
| 218 | (edebug): More properly state where to place point for 'M-x | 218 | (edebug): More properly state where to place point for 'M-x |
| @@ -234,7 +234,7 @@ | |||
| 234 | (sentence-end): Specify `in English' for glyphs that end a sentence. | 234 | (sentence-end): Specify `in English' for glyphs that end a sentence. |
| 235 | Note that in GNU Emacs 22, the name refers to both a variable and a | 235 | Note that in GNU Emacs 22, the name refers to both a variable and a |
| 236 | function. | 236 | function. |
| 237 | (fwd-sentence while loops): Write a function as one, not as a form | 237 | (fwd-sentence while loops): Write a function as one, not as a form. |
| 238 | (fwd-para let): Add `which' to sentence with `parstart' and `parsep'. | 238 | (fwd-para let): Add `which' to sentence with `parstart' and `parsep'. |
| 239 | (etags): Move sentences involving `find-tag' and sources. State | 239 | (etags): Move sentences involving `find-tag' and sources. State |
| 240 | location of Emacs `src' directory. | 240 | location of Emacs `src' directory. |
| @@ -356,7 +356,7 @@ | |||
| 356 | 2003-11-16 Kevin Ryde <user42@zip.com.au> | 356 | 2003-11-16 Kevin Ryde <user42@zip.com.au> |
| 357 | 357 | ||
| 358 | * emacs-lisp-intro.texi: [CVS commitment by <bob@rattlesnake.com>] | 358 | * emacs-lisp-intro.texi: [CVS commitment by <bob@rattlesnake.com>] |
| 359 | Corrections to cross references, | 359 | Corrections to cross references. |
| 360 | (Interactive Options): elisp "interactive" -> "Using Interactive". | 360 | (Interactive Options): elisp "interactive" -> "Using Interactive". |
| 361 | (defvar and asterisk): Remove emacs "Edit Options" reference, | 361 | (defvar and asterisk): Remove emacs "Edit Options" reference, |
| 362 | edit-options is no longer described in the emacs manual. | 362 | edit-options is no longer described in the emacs manual. |
diff --git a/doc/lispref/ChangeLog b/doc/lispref/ChangeLog index 20e8150599b..cb275335ad7 100644 --- a/doc/lispref/ChangeLog +++ b/doc/lispref/ChangeLog | |||
| @@ -6015,7 +6015,7 @@ | |||
| 6015 | 2005-02-05 Eli Zaretskii <eliz@gnu.org> | 6015 | 2005-02-05 Eli Zaretskii <eliz@gnu.org> |
| 6016 | 6016 | ||
| 6017 | * frames.texi (Color Names): Add pointer to the X docs about RGB | 6017 | * frames.texi (Color Names): Add pointer to the X docs about RGB |
| 6018 | color specifications. Improve indexing | 6018 | color specifications. Improve indexing. |
| 6019 | (Text Terminal Colors): Replace the description of RGB values by | 6019 | (Text Terminal Colors): Replace the description of RGB values by |
| 6020 | an xref to "Color Names". | 6020 | an xref to "Color Names". |
| 6021 | 6021 | ||
| @@ -7778,7 +7778,7 @@ | |||
| 7778 | * minibuf.texi (Reading File Names): read-file-name has new | 7778 | * minibuf.texi (Reading File Names): read-file-name has new |
| 7779 | arg PREDICATE. New function read-directory-name. | 7779 | arg PREDICATE. New function read-directory-name. |
| 7780 | 7780 | ||
| 7781 | * macros.texi (Defining Macros): Give definition of `declare' | 7781 | * macros.texi (Defining Macros): Give definition of `declare'. |
| 7782 | (Indenting Macros): New node. | 7782 | (Indenting Macros): New node. |
| 7783 | 7783 | ||
| 7784 | * frames.texi (Parameter Access): Add modify-all-frames-parameters. | 7784 | * frames.texi (Parameter Access): Add modify-all-frames-parameters. |
| @@ -7882,7 +7882,7 @@ | |||
| 7882 | * numbers.texi (Integer Basics): Add most-positive-fixnum, | 7882 | * numbers.texi (Integer Basics): Add most-positive-fixnum, |
| 7883 | most-negative-fixnum. | 7883 | most-negative-fixnum. |
| 7884 | 7884 | ||
| 7885 | * compile.texi (Byte Compilation): Explain no-byte-compile | 7885 | * compile.texi (Byte Compilation): Explain no-byte-compile. |
| 7886 | (Compiler Errors): New node. | 7886 | (Compiler Errors): New node. |
| 7887 | 7887 | ||
| 7888 | * os.texi (User Identification): user-uid, user-real-uid | 7888 | * os.texi (User Identification): user-uid, user-real-uid |
diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog index 44d1e00be0d..29767dfa2a7 100644 --- a/doc/misc/ChangeLog +++ b/doc/misc/ChangeLog | |||
| @@ -4777,7 +4777,7 @@ | |||
| 4777 | 4777 | ||
| 4778 | * org.texi (FAQ): Document `org-table-tab-jumps-over-hlines'. | 4778 | * org.texi (FAQ): Document `org-table-tab-jumps-over-hlines'. |
| 4779 | (Agenda): Document commands `org-cycle-agenda-files' and | 4779 | (Agenda): Document commands `org-cycle-agenda-files' and |
| 4780 | `org-agenda-file-to-front' | 4780 | `org-agenda-file-to-front'. |
| 4781 | (Built-in table editor): Document `org-table-sort-lines'. | 4781 | (Built-in table editor): Document `org-table-sort-lines'. |
| 4782 | (HTML formatting): Export of hand-formatted lists. | 4782 | (HTML formatting): Export of hand-formatted lists. |
| 4783 | 4783 | ||
| @@ -6366,7 +6366,7 @@ | |||
| 6366 | 6366 | ||
| 6367 | 2000-12-14 Dave Love <fx@gnu.org> | 6367 | 2000-12-14 Dave Love <fx@gnu.org> |
| 6368 | 6368 | ||
| 6369 | * Makefile.in (mostlyclean): Remove gnustmp.* | 6369 | * Makefile.in (mostlyclean): Remove gnustmp.*. |
| 6370 | (gnus.dvi): Change rule to remove @latex stuff. | 6370 | (gnus.dvi): Change rule to remove @latex stuff. |
| 6371 | 6371 | ||
| 6372 | 2000-10-19 Eric M. Ludlam <zappo@ultranet.com> | 6372 | 2000-10-19 Eric M. Ludlam <zappo@ultranet.com> |
diff --git a/etc/ChangeLog b/etc/ChangeLog index ee1915245a0..a2770c12305 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2010-07-24 Christoph Scholtes <cschol2112@gmail.com> | ||
| 2 | |||
| 3 | * NEWS: Document new --distfiles configure.bat option and | ||
| 4 | `dist' make target on Windows. | ||
| 5 | |||
| 1 | 2010-07-20 Juanma Barranquero <lekktu@gmail.com> | 6 | 2010-07-20 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 7 | ||
| 3 | * PROBLEMS: Add note about use of backslashes in Windows paths. | 8 | * PROBLEMS: Add note about use of backslashes in Windows paths. |
| @@ -4941,7 +4946,7 @@ | |||
| 4941 | * etags.c: Changes for VMS. | 4946 | * etags.c: Changes for VMS. |
| 4942 | Always define ETAGS on VMS. | 4947 | Always define ETAGS on VMS. |
| 4943 | Define macros GOOD and BAD for success and failure exit codes. | 4948 | Define macros GOOD and BAD for success and failure exit codes. |
| 4944 | (begtk, intk): Allow `$' in identifiers | 4949 | (begtk, intk): Allow `$' in identifiers. |
| 4945 | (main): Don't support -B, -F or -u on VMS. | 4950 | (main): Don't support -B, -F or -u on VMS. |
| 4946 | Alternate loop for scanning filename arguments. | 4951 | Alternate loop for scanning filename arguments. |
| 4947 | (system): Delete definition of this function. | 4952 | (system): Delete definition of this function. |
| @@ -432,6 +432,12 @@ displayed with a "spinning bar". | |||
| 432 | ** New configure.bat option --enable-checking builds emacs with extra | 432 | ** New configure.bat option --enable-checking builds emacs with extra |
| 433 | runtime checks. | 433 | runtime checks. |
| 434 | 434 | ||
| 435 | ** New configure.bat option --distfiles to specify files to be | ||
| 436 | included in binary distribution | ||
| 437 | |||
| 438 | ** New make target `dist' to create binary disttribution for Windows | ||
| 439 | platform | ||
| 440 | |||
| 435 | 441 | ||
| 436 | ---------------------------------------------------------------------- | 442 | ---------------------------------------------------------------------- |
| 437 | This file is part of GNU Emacs. | 443 | This file is part of GNU Emacs. |
diff --git a/leim/ChangeLog b/leim/ChangeLog index 972a3279a29..174102b7817 100644 --- a/leim/ChangeLog +++ b/leim/ChangeLog | |||
| @@ -1189,7 +1189,7 @@ | |||
| 1189 | 1189 | ||
| 1190 | 2001-03-31 Kenichi Handa <handa@etl.go.jp> | 1190 | 2001-03-31 Kenichi Handa <handa@etl.go.jp> |
| 1191 | 1191 | ||
| 1192 | * Makefile.in (TIT-GB): Delete quail/PY.elc and quail/ZIRANMA.elc | 1192 | * Makefile.in (TIT-GB): Delete quail/PY.elc and quail/ZIRANMA.elc. |
| 1193 | (NON-TIT-BIG5): Delete ${srcdir}/quail/quick-b5.elc | 1193 | (NON-TIT-BIG5): Delete ${srcdir}/quail/quick-b5.elc |
| 1194 | ${srcdir}/quail/tsang-b5.elc. | 1194 | ${srcdir}/quail/tsang-b5.elc. |
| 1195 | (CHINESE-NON-TIT): Delete ${NON-TIT-CNS}. | 1195 | (CHINESE-NON-TIT): Delete ${NON-TIT-CNS}. |
diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog index 1b6a16dd524..d0ab1087aa9 100644 --- a/lib-src/ChangeLog +++ b/lib-src/ChangeLog | |||
| @@ -1,3 +1,30 @@ | |||
| 1 | 2010-07-25 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * emacsclient.c (getcwd): Fix previous change: make getcwd | ||
| 4 | conditional on HAVE_GETCWD and declare with the correct POSIX | ||
| 5 | profile (for some reason MinGW headers define its 2nd arg as int, | ||
| 6 | not size_t; but getcwd is not used on Windows nonetheless). | ||
| 7 | |||
| 8 | 2010-07-25 Juanma Barranquero <lekktu@gmail.com> | ||
| 9 | |||
| 10 | * emacsclient.c (getcwd, w32_getenv): | ||
| 11 | * ntlib.h (getlogin, getuid, getegid, getgid): Fix prototypes. | ||
| 12 | |||
| 13 | 2010-07-24 Dan Nicolaescu <dann@ics.uci.edu> | ||
| 14 | |||
| 15 | * update-game-score.c (usage): Add NO_RETURN specifier. | ||
| 16 | * movemail.c (fatal, pfatal_with_name, pfatal_and_delete): | ||
| 17 | * make-docfile.c (fatal): | ||
| 18 | * hexl.c (usage): | ||
| 19 | * fakemail.c (fatal): | ||
| 20 | * etags.c (fatal, suggest_asking_for_help, pfatal): | ||
| 21 | * emacsclient.c (fatal): | ||
| 22 | * b2m.c (fatal): Likewise. | ||
| 23 | |||
| 24 | 2010-07-23 Juanma Barranquero <lekktu@gmail.com> | ||
| 25 | |||
| 26 | * make-docfile.c (write_c_args): Correctly handle prefixes of "defalt". | ||
| 27 | |||
| 1 | 2010-07-20 Juanma Barranquero <lekktu@gmail.com> | 28 | 2010-07-20 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 29 | ||
| 3 | * emacsclient.c (get_current_dir_name, w32_get_resource) | 30 | * emacsclient.c (get_current_dir_name, w32_get_resource) |
| @@ -775,7 +802,7 @@ | |||
| 775 | 802 | ||
| 776 | 2008-02-01 Jason Rumney <jasonr@gnu.org> | 803 | 2008-02-01 Jason Rumney <jasonr@gnu.org> |
| 777 | 804 | ||
| 778 | * makefile.w32-in (obj): Sync with src/Makefile.in | 805 | * makefile.w32-in (obj): Sync with src/Makefile.in. |
| 779 | (TOOLTIP_SUPPORT, WINDOW_SUPPORT): New definitions. | 806 | (TOOLTIP_SUPPORT, WINDOW_SUPPORT): New definitions. |
| 780 | (WINNT_SUPPORT): Add term/w32-win.elc. | 807 | (WINNT_SUPPORT): Add term/w32-win.elc. |
| 781 | (lisp1, lisp2): Sync with lisp in src/Makefile.in. | 808 | (lisp1, lisp2): Sync with lisp in src/Makefile.in. |
| @@ -2471,7 +2498,7 @@ | |||
| 2471 | 2498 | ||
| 2472 | * makefile.w32-in (WINNT_SUPPORT, MOUSE_SUPPORT, lisp): Revert to | 2499 | * makefile.w32-in (WINNT_SUPPORT, MOUSE_SUPPORT, lisp): Revert to |
| 2473 | using .elc files. | 2500 | using .elc files. |
| 2474 | (lisp): Sync with list in src/Makefile.in | 2501 | (lisp): Sync with list in src/Makefile.in. |
| 2475 | (VMS_SUPPORT, MSDOS_SUPPORT): Define, so DOC files can be shared. | 2502 | (VMS_SUPPORT, MSDOS_SUPPORT): Define, so DOC files can be shared. |
| 2476 | 2503 | ||
| 2477 | 2002-02-10 Paul Eggert <eggert@twinsun.com> | 2504 | 2002-02-10 Paul Eggert <eggert@twinsun.com> |
| @@ -6313,7 +6340,7 @@ | |||
| 6313 | (TOKEN): Member linestart removed. | 6340 | (TOKEN): Member linestart removed. |
| 6314 | (linepos, prev_linepos, lb1): Deleted. | 6341 | (linepos, prev_linepos, lb1): Deleted. |
| 6315 | (main): Call initbuffer on lbs array instead of lb1. | 6342 | (main): Call initbuffer on lbs array instead of lb1. |
| 6316 | (init): Removed the initialisation of the logical _gd array; | 6343 | (init): Removed the initialisation of the logical _gd array. |
| 6317 | (find_entries): A .sa suffix means assembler file. | 6344 | (find_entries): A .sa suffix means assembler file. |
| 6318 | (C_create_stab): "auto", "void", "extern", "static" are st_C_typespec. | 6345 | (C_create_stab): "auto", "void", "extern", "static" are st_C_typespec. |
| 6319 | All C state machines rewritten. | 6346 | All C state machines rewritten. |
| @@ -7177,7 +7204,7 @@ | |||
| 7177 | * etags.c: Changes for VMS. | 7204 | * etags.c: Changes for VMS. |
| 7178 | Always define ETAGS on VMS. | 7205 | Always define ETAGS on VMS. |
| 7179 | Define macros GOOD and BAD for success and failure exit codes. | 7206 | Define macros GOOD and BAD for success and failure exit codes. |
| 7180 | (begtk, intk): Allow `$' in identifiers | 7207 | (begtk, intk): Allow `$' in identifiers. |
| 7181 | (main): Don't support -B, -F or -u on VMS. | 7208 | (main): Don't support -B, -F or -u on VMS. |
| 7182 | Alternate loop for scanning filename arguments. | 7209 | Alternate loop for scanning filename arguments. |
| 7183 | (system): Delete definition of this function. | 7210 | (system): Delete definition of this function. |
diff --git a/lib-src/b2m.c b/lib-src/b2m.c index 733cd276653..f31b33f9780 100644 --- a/lib-src/b2m.c +++ b/lib-src/b2m.c | |||
| @@ -70,7 +70,7 @@ long *xmalloc (unsigned int size); | |||
| 70 | long *xrealloc (char *ptr, unsigned int size); | 70 | long *xrealloc (char *ptr, unsigned int size); |
| 71 | char *concat (char *s1, char *s2, char *s3); | 71 | char *concat (char *s1, char *s2, char *s3); |
| 72 | long readline (struct linebuffer *linebuffer, register FILE *stream); | 72 | long readline (struct linebuffer *linebuffer, register FILE *stream); |
| 73 | void fatal (char *message); | 73 | void fatal (char *message) NO_RETURN; |
| 74 | 74 | ||
| 75 | /* | 75 | /* |
| 76 | * xnew -- allocate storage. SYNOPSIS: Type *xnew (int n, Type); | 76 | * xnew -- allocate storage. SYNOPSIS: Type *xnew (int n, Type); |
diff --git a/lib-src/emacsclient.c b/lib-src/emacsclient.c index bafc7e02720..1ca9b793f3a 100644 --- a/lib-src/emacsclient.c +++ b/lib-src/emacsclient.c | |||
| @@ -82,10 +82,12 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 82 | 82 | ||
| 83 | 83 | ||
| 84 | char *getenv (const char *), *getwd (char *); | 84 | char *getenv (const char *), *getwd (char *); |
| 85 | char *(getcwd) (); | 85 | #ifdef HAVE_GETCWD |
| 86 | char *(getcwd) (char *, size_t); | ||
| 87 | #endif | ||
| 86 | 88 | ||
| 87 | #ifdef WINDOWSNT | 89 | #ifdef WINDOWSNT |
| 88 | char *w32_getenv (); | 90 | char *w32_getenv (char *); |
| 89 | #define egetenv(VAR) w32_getenv(VAR) | 91 | #define egetenv(VAR) w32_getenv(VAR) |
| 90 | #else | 92 | #else |
| 91 | #define egetenv(VAR) getenv(VAR) | 93 | #define egetenv(VAR) getenv(VAR) |
| @@ -158,6 +160,8 @@ char *server_file = NULL; | |||
| 158 | int emacs_pid = 0; | 160 | int emacs_pid = 0; |
| 159 | 161 | ||
| 160 | void print_help_and_exit (void) NO_RETURN; | 162 | void print_help_and_exit (void) NO_RETURN; |
| 163 | void fail (void) NO_RETURN; | ||
| 164 | |||
| 161 | 165 | ||
| 162 | struct option longopts[] = | 166 | struct option longopts[] = |
| 163 | { | 167 | { |
| @@ -400,7 +404,7 @@ w32_set_user_model_id (void) | |||
| 400 | /* On Windows 7 and later, we need to set the user model ID | 404 | /* On Windows 7 and later, we need to set the user model ID |
| 401 | to associate emacsclient launched files with Emacs frames | 405 | to associate emacsclient launched files with Emacs frames |
| 402 | in the UI. */ | 406 | in the UI. */ |
| 403 | shell = LoadLibrary("shell32.dll"); | 407 | shell = LoadLibrary ("shell32.dll"); |
| 404 | if (shell) | 408 | if (shell) |
| 405 | { | 409 | { |
| 406 | set_user_model | 410 | set_user_model |
| @@ -430,7 +434,7 @@ w32_window_app (void) | |||
| 430 | nonconsole apps. Testing for the console title seems to work. */ | 434 | nonconsole apps. Testing for the console title seems to work. */ |
| 431 | window_app = (GetConsoleTitleA (szTitle, MAX_PATH) == 0); | 435 | window_app = (GetConsoleTitleA (szTitle, MAX_PATH) == 0); |
| 432 | if (window_app) | 436 | if (window_app) |
| 433 | InitCommonControls(); | 437 | InitCommonControls (); |
| 434 | } | 438 | } |
| 435 | 439 | ||
| 436 | return window_app; | 440 | return window_app; |
| @@ -481,7 +485,7 @@ ttyname (int fd) | |||
| 481 | void | 485 | void |
| 482 | message (int is_error, char *message, ...) | 486 | message (int is_error, char *message, ...) |
| 483 | { | 487 | { |
| 484 | char msg [2048]; | 488 | char msg[2048]; |
| 485 | va_list args; | 489 | va_list args; |
| 486 | 490 | ||
| 487 | va_start (args, message); | 491 | va_start (args, message); |
| @@ -1468,7 +1472,7 @@ start_daemon_and_retry_set_socket (void) | |||
| 1468 | pid_t w; | 1472 | pid_t w; |
| 1469 | w = waitpid (dpid, &status, WUNTRACED | WCONTINUED); | 1473 | w = waitpid (dpid, &status, WUNTRACED | WCONTINUED); |
| 1470 | 1474 | ||
| 1471 | if ((w == -1) || !WIFEXITED (status) || WEXITSTATUS(status)) | 1475 | if ((w == -1) || !WIFEXITED (status) || WEXITSTATUS (status)) |
| 1472 | { | 1476 | { |
| 1473 | message (TRUE, "Error: Could not start the Emacs daemon\n"); | 1477 | message (TRUE, "Error: Could not start the Emacs daemon\n"); |
| 1474 | exit (EXIT_FAILURE); | 1478 | exit (EXIT_FAILURE); |
diff --git a/lib-src/etags.c b/lib-src/etags.c index 79475fe9922..b78686dde57 100644 --- a/lib-src/etags.c +++ b/lib-src/etags.c | |||
| @@ -406,9 +406,9 @@ static void analyse_regex (char *); | |||
| 406 | static void free_regexps (void); | 406 | static void free_regexps (void); |
| 407 | static void regex_tag_multiline (void); | 407 | static void regex_tag_multiline (void); |
| 408 | static void error (const char *, const char *); | 408 | static void error (const char *, const char *); |
| 409 | static void suggest_asking_for_help (void); | 409 | static void suggest_asking_for_help (void) NO_RETURN; |
| 410 | void fatal (char *, char *); | 410 | void fatal (char *, char *) NO_RETURN; |
| 411 | static void pfatal (char *); | 411 | static void pfatal (char *) NO_RETURN; |
| 412 | static void add_node (node *, node **); | 412 | static void add_node (node *, node **); |
| 413 | 413 | ||
| 414 | static void init (void); | 414 | static void init (void); |
diff --git a/lib-src/fakemail.c b/lib-src/fakemail.c index f4d978b7d11..72e1b7179c0 100644 --- a/lib-src/fakemail.c +++ b/lib-src/fakemail.c | |||
| @@ -147,6 +147,8 @@ static line_list file_preface; | |||
| 147 | static stream_list the_streams; | 147 | static stream_list the_streams; |
| 148 | static boolean no_problems = true; | 148 | static boolean no_problems = true; |
| 149 | 149 | ||
| 150 | static void fatal (char *s1) NO_RETURN; | ||
| 151 | |||
| 150 | extern FILE *popen (const char *, const char *); | 152 | extern FILE *popen (const char *, const char *); |
| 151 | extern int fclose (FILE *), pclose (FILE *); | 153 | extern int fclose (FILE *), pclose (FILE *); |
| 152 | 154 | ||
diff --git a/lib-src/hexl.c b/lib-src/hexl.c index d730cac6814..b31ab812534 100644 --- a/lib-src/hexl.c +++ b/lib-src/hexl.c | |||
| @@ -49,7 +49,7 @@ int base = DEFAULT_BASE, un_flag = FALSE, iso_flag = FALSE, endian = 1; | |||
| 49 | int group_by = DEFAULT_GROUPING; | 49 | int group_by = DEFAULT_GROUPING; |
| 50 | char *progname; | 50 | char *progname; |
| 51 | 51 | ||
| 52 | void usage(void); | 52 | void usage(void) NO_RETURN; |
| 53 | 53 | ||
| 54 | int | 54 | int |
| 55 | main (int argc, char **argv) | 55 | main (int argc, char **argv) |
diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c index 51c30f91d8f..4b5012902a0 100644 --- a/lib-src/make-docfile.c +++ b/lib-src/make-docfile.c | |||
| @@ -70,6 +70,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 70 | int scan_file (char *filename); | 70 | int scan_file (char *filename); |
| 71 | int scan_lisp_file (char *filename, char *mode); | 71 | int scan_lisp_file (char *filename, char *mode); |
| 72 | int scan_c_file (char *filename, char *mode); | 72 | int scan_c_file (char *filename, char *mode); |
| 73 | void fatal (char *s1, char *s2) NO_RETURN; | ||
| 73 | 74 | ||
| 74 | #ifdef MSDOS | 75 | #ifdef MSDOS |
| 75 | /* s/msdos.h defines this as sys_chdir, but we're not linking with the | 76 | /* s/msdos.h defines this as sys_chdir, but we're not linking with the |
| @@ -488,7 +489,7 @@ write_c_args (FILE *out, char *func, char *buf, int minargs, int maxargs) | |||
| 488 | 489 | ||
| 489 | /* In C code, `default' is a reserved word, so we spell it | 490 | /* In C code, `default' is a reserved word, so we spell it |
| 490 | `defalt'; unmangle that here. */ | 491 | `defalt'; unmangle that here. */ |
| 491 | if (strncmp (ident_start, "defalt", ident_length) == 0) | 492 | if (ident_length == 6 && strncmp (ident_start, "defalt", 6) == 0) |
| 492 | fprintf (out, "DEFAULT"); | 493 | fprintf (out, "DEFAULT"); |
| 493 | else | 494 | else |
| 494 | while (ident_length-- > 0) | 495 | while (ident_length-- > 0) |
diff --git a/lib-src/movemail.c b/lib-src/movemail.c index 541edf545df..bb4a922014c 100644 --- a/lib-src/movemail.c +++ b/lib-src/movemail.c | |||
| @@ -147,10 +147,10 @@ static char *mail_spool_name (); | |||
| 147 | char *strerror (int); | 147 | char *strerror (int); |
| 148 | #endif | 148 | #endif |
| 149 | 149 | ||
| 150 | static void fatal (char *s1, char *s2, char *s3); | 150 | static void fatal (char *s1, char *s2, char *s3) NO_RETURN; |
| 151 | static void error (char *s1, char *s2, char *s3); | 151 | static void error (char *s1, char *s2, char *s3); |
| 152 | static void pfatal_with_name (char *name); | 152 | static void pfatal_with_name (char *name) NO_RETURN; |
| 153 | static void pfatal_and_delete (char *name); | 153 | static void pfatal_and_delete (char *name) NO_RETURN; |
| 154 | static char *concat (char *s1, char *s2, char *s3); | 154 | static char *concat (char *s1, char *s2, char *s3); |
| 155 | static long *xmalloc (unsigned int size); | 155 | static long *xmalloc (unsigned int size); |
| 156 | #ifdef MAIL_USE_POP | 156 | #ifdef MAIL_USE_POP |
diff --git a/lib-src/ntlib.h b/lib-src/ntlib.h index fd51269fdfd..4dd6a32ee32 100644 --- a/lib-src/ntlib.h +++ b/lib-src/ntlib.h | |||
| @@ -30,14 +30,14 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 30 | #ifdef sleep | 30 | #ifdef sleep |
| 31 | #undef sleep | 31 | #undef sleep |
| 32 | #endif | 32 | #endif |
| 33 | void sleep(unsigned long seconds); | 33 | void sleep (unsigned long seconds); |
| 34 | char *getwd (char *dir); | 34 | char *getwd (char *dir); |
| 35 | int getppid(void); | 35 | int getppid (void); |
| 36 | char * getlogin (); | 36 | char * getlogin (void); |
| 37 | char * cuserid (char * s); | 37 | char * cuserid (char * s); |
| 38 | unsigned getuid (); | 38 | unsigned getuid (void); |
| 39 | unsigned getegid (); | 39 | unsigned getegid (void); |
| 40 | unsigned getgid (); | 40 | unsigned getgid (void); |
| 41 | int setuid (unsigned uid); | 41 | int setuid (unsigned uid); |
| 42 | int setegid (unsigned gid); | 42 | int setegid (unsigned gid); |
| 43 | char * getpass (const char * prompt); | 43 | char * getpass (const char * prompt); |
diff --git a/lib-src/update-game-score.c b/lib-src/update-game-score.c index a96422a09a9..30208d5c8d2 100644 --- a/lib-src/update-game-score.c +++ b/lib-src/update-game-score.c | |||
| @@ -60,6 +60,8 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 60 | extern char *optarg; | 60 | extern char *optarg; |
| 61 | extern int optind, opterr; | 61 | extern int optind, opterr; |
| 62 | 62 | ||
| 63 | int usage (int err) NO_RETURN; | ||
| 64 | |||
| 63 | #define MAX_ATTEMPTS 5 | 65 | #define MAX_ATTEMPTS 5 |
| 64 | #define MAX_SCORES 200 | 66 | #define MAX_SCORES 200 |
| 65 | #define MAX_DATA_LEN 1024 | 67 | #define MAX_DATA_LEN 1024 |
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3ee371f06b2..e5629f41588 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,51 @@ | |||
| 1 | 2010-07-25 Daiki Ueno <ueno@unixuser.org> | ||
| 2 | |||
| 3 | * epa-file.el (epa-file-insert-file-contents): Check if LOCAL-FILE | ||
| 4 | exists before passing an error to find-file-not-found-functions | ||
| 5 | (bug#6723). | ||
| 6 | |||
| 7 | 2010-07-23 Lukas Huonker <l.huonker@gmail.com> | ||
| 8 | |||
| 9 | * play/tetris.el (tetris-tty-colors, tetris-x-colors, tetris-blank): | ||
| 10 | Remove leading nil element, adjust values. | ||
| 11 | (tetris-shapes, tetris-shape-scores): | ||
| 12 | Change representation of shapes and remove some redundancy. | ||
| 13 | (tetris-get-shape-cell, tetris-shape-width, tetris-draw-next-shape) | ||
| 14 | (tetris-draw-shape, tetris-erase-shape, tetris-test-shape): | ||
| 15 | Adjust for working with new representation of shapes. | ||
| 16 | (tetris-shape-rotations): New function. | ||
| 17 | (tetris-move-bottom, tetris-move-left, tetris-move-right) | ||
| 18 | (tetris-rotate-prev, tetris-rotate-next): | ||
| 19 | Adjust for working with the new version of tetris-test-shape. | ||
| 20 | |||
| 21 | 2010-07-23 Markus Triska <markus.triska@gmx.at> | ||
| 22 | |||
| 23 | * progmodes/ps-mode.el: Use comint (bug#5954). | ||
| 24 | (ps-run-mode-map): Adapt for comint-mode; omit "\r", [return].. | ||
| 25 | (ps-mode-other-newline): Simplify. | ||
| 26 | (ps-run-mode): Derive from comint-mode instead of | ||
| 27 | fundamental-mode, yielding input history etc. | ||
| 28 | (ps-run-start, ps-run-quit, ps-run-clear, ps-run-region) | ||
| 29 | (ps-run-send-string): Adapt for comint-mode. | ||
| 30 | (ps-run-newline): Remove now unneeded function. | ||
| 31 | |||
| 32 | 2010-07-23 Michael Albinus <michael.albinus@gmx.de> | ||
| 33 | |||
| 34 | * net/tramp.el (tramp-methods): Move hostname to the end in all | ||
| 35 | plink `tramp-login-args'. | ||
| 36 | |||
| 37 | 2010-07-23 Michael Albinus <michael.albinus@gmx.de> | ||
| 38 | |||
| 39 | * net/tramp.el (tramp-open-shell): New defun. | ||
| 40 | (tramp-find-shell, tramp-open-connection-setup-interactive-shell): | ||
| 41 | Use it. | ||
| 42 | |||
| 43 | 2010-07-23 Michael Albinus <michael.albinus@gmx.de> | ||
| 44 | |||
| 45 | * net/tramp.el (tramp-file-name-regexp-unified) | ||
| 46 | (tramp-completion-file-name-regexp-unified): On W32 systems, do | ||
| 47 | not regard the volume letter as remote filename. (Bug#5447) | ||
| 48 | |||
| 1 | 2010-07-23 Juanma Barranquero <lekktu@gmail.com> | 49 | 2010-07-23 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 50 | ||
| 3 | * custom.el (custom-declare-variable): Give a clearer error message | 51 | * custom.el (custom-declare-variable): Give a clearer error message |
| @@ -15,7 +63,7 @@ | |||
| 15 | (sql-linter-login-params): Use it. | 63 | (sql-linter-login-params): Use it. |
| 16 | (sql-sqlite-login-params): Use it; Define "database" parameter as | 64 | (sql-sqlite-login-params): Use it; Define "database" parameter as |
| 17 | a file name. | 65 | a file name. |
| 18 | (sql-sqlite-program): Change to "sqlite3" | 66 | (sql-sqlite-program): Change to "sqlite3". |
| 19 | (sql-comint-sqlite): Make sure database name is complete. | 67 | (sql-comint-sqlite): Make sure database name is complete. |
| 20 | (sql-for-each-login): New function. | 68 | (sql-for-each-login): New function. |
| 21 | (sql-connect, sql-save-connection): Use it. | 69 | (sql-connect, sql-save-connection): Use it. |
| @@ -99,7 +147,7 @@ | |||
| 99 | (sql-informix-login-params, sql-ingres-login-params) | 147 | (sql-informix-login-params, sql-ingres-login-params) |
| 100 | (sql-ms-login-params, sql-postgres-login-params) | 148 | (sql-ms-login-params, sql-postgres-login-params) |
| 101 | (sql-interbase-login-params, sql-db2-login-params) | 149 | (sql-interbase-login-params, sql-db2-login-params) |
| 102 | (sql-linter-login-params): Add `port' option | 150 | (sql-linter-login-params): Add `port' option. |
| 103 | (sql-get-product-feature): Added NO-INDIRECT parameter. | 151 | (sql-get-product-feature): Added NO-INDIRECT parameter. |
| 104 | (sql-comint-oracle, sql-comint-sybase) | 152 | (sql-comint-oracle, sql-comint-sybase) |
| 105 | (sql-comint-informix, sql-comint-sqlite, sql-comint-mysql) | 153 | (sql-comint-informix, sql-comint-sqlite, sql-comint-mysql) |
| @@ -109,7 +157,7 @@ | |||
| 109 | sql-comint-*. | 157 | sql-comint-*. |
| 110 | (sql-product-alist, sql-mode-menu): Renamed as above and | 158 | (sql-product-alist, sql-mode-menu): Renamed as above and |
| 111 | :sqli-connect-func to :sqli-comint-func. | 159 | :sqli-connect-func to :sqli-comint-func. |
| 112 | (sql-connection): New variable | 160 | (sql-connection): New variable. |
| 113 | (sql-interactive-mode): Set it. | 161 | (sql-interactive-mode): Set it. |
| 114 | (sql-connection-alist): New variable. | 162 | (sql-connection-alist): New variable. |
| 115 | (sql-connect): New function. | 163 | (sql-connect): New function. |
| @@ -305,7 +353,7 @@ | |||
| 305 | 353 | ||
| 306 | * epa-file.el (epa-file-error, epa-file--find-file-not-found-function) | 354 | * epa-file.el (epa-file-error, epa-file--find-file-not-found-function) |
| 307 | (epa-file-insert-file-contents): Hack to prevent | 355 | (epa-file-insert-file-contents): Hack to prevent |
| 308 | find-file from opening empty buffer when decryptin failed | 356 | find-file from opening empty buffer when decryption failed |
| 309 | (bug#6568). | 357 | (bug#6568). |
| 310 | 358 | ||
| 311 | 2010-07-07 AgustÃn MartÃn <agustin.martin@hispalinux.es> | 359 | 2010-07-07 AgustÃn MartÃn <agustin.martin@hispalinux.es> |
| @@ -3250,7 +3298,7 @@ | |||
| 3250 | (verilog-pretty-declarations): Support lineup of declarations in | 3298 | (verilog-pretty-declarations): Support lineup of declarations in |
| 3251 | port lists. | 3299 | port lists. |
| 3252 | (verilog-skip-backward-comments, verilog-skip-forward-comment-p): | 3300 | (verilog-skip-backward-comments, verilog-skip-forward-comment-p): |
| 3253 | fix bug for /* / comments | 3301 | fix bug for /* / comments. |
| 3254 | (verilog-backward-syntactic-ws, verilog-forward-syntactic-ws): | 3302 | (verilog-backward-syntactic-ws, verilog-forward-syntactic-ws): |
| 3255 | Speed up and simplfy as this is never called with a bound. | 3303 | Speed up and simplfy as this is never called with a bound. |
| 3256 | (verilog-pretty-declarations): Enhance to line up declarations | 3304 | (verilog-pretty-declarations): Enhance to line up declarations |
| @@ -5359,7 +5407,7 @@ | |||
| 5359 | 5407 | ||
| 5360 | 2010-01-02 Karl Fogel <kfogel@red-bean.com> | 5408 | 2010-01-02 Karl Fogel <kfogel@red-bean.com> |
| 5361 | 5409 | ||
| 5362 | * bookmark.el (bookmark-bmenu-any-marks): New function | 5410 | * bookmark.el (bookmark-bmenu-any-marks): New function. |
| 5363 | (bookmark-bmenu-save): Clear buffer modification if no marks. | 5411 | (bookmark-bmenu-save): Clear buffer modification if no marks. |
| 5364 | 5412 | ||
| 5365 | 2010-01-02 Karl Fogel <kfogel@red-bean.com> | 5413 | 2010-01-02 Karl Fogel <kfogel@red-bean.com> |
diff --git a/lisp/ChangeLog.1 b/lisp/ChangeLog.1 index bd8b8c3ae27..8d9cf2a6eb2 100644 --- a/lisp/ChangeLog.1 +++ b/lisp/ChangeLog.1 | |||
| @@ -1021,8 +1021,6 @@ | |||
| 1021 | in the *compilation* buffer, thus allowing buffers to have local | 1021 | in the *compilation* buffer, thus allowing buffers to have local |
| 1022 | compilation-error-regexp variables. | 1022 | compilation-error-regexp variables. |
| 1023 | 1023 | ||
| 1024 | (provide 'compile) | ||
| 1025 | |||
| 1026 | 1985-12-05 Richard M. Stallman (rms@prep) | 1024 | 1985-12-05 Richard M. Stallman (rms@prep) |
| 1027 | 1025 | ||
| 1028 | * files.el (recover-file): | 1026 | * files.el (recover-file): |
| @@ -1495,7 +1493,7 @@ | |||
| 1495 | 1493 | ||
| 1496 | * mouseinit.el | 1494 | * mouseinit.el |
| 1497 | Delete this file. Put its contents in files | 1495 | Delete this file. Put its contents in files |
| 1498 | term-bg.el, term-bgnv.el, term-bgrv.el, term-bbn.el | 1496 | term-bg.el, term-bgnv.el, term-bgrv.el, term-bbn.el. |
| 1499 | (Perhaps there should be a subdirectory emacs/lisp/term/ ??) | 1497 | (Perhaps there should be a subdirectory emacs/lisp/term/ ??) |
| 1500 | 1498 | ||
| 1501 | 1985-10-23 Richard M. Stallman (rms@prep) | 1499 | 1985-10-23 Richard M. Stallman (rms@prep) |
| @@ -1915,7 +1913,7 @@ | |||
| 1915 | 1913 | ||
| 1916 | * texinfo.el: | 1914 | * texinfo.el: |
| 1917 | Change syntax for @xref and @pxref to use braces. | 1915 | Change syntax for @xref and @pxref to use braces. |
| 1918 | Change syntax for @node to read entire line | 1916 | Change syntax for @node to read entire line. |
| 1919 | (new function texinfo-format-parse-line-args for that). | 1917 | (new function texinfo-format-parse-line-args for that). |
| 1920 | Change paragraph-separate, etc., so only directives without | 1918 | Change paragraph-separate, etc., so only directives without |
| 1921 | braces separate paragraphs. When formatting, discard all of the | 1919 | braces separate paragraphs. When formatting, discard all of the |
| @@ -2178,8 +2176,8 @@ | |||
| 2178 | "c-continued-statement-offset" as in the documentation and manual | 2176 | "c-continued-statement-offset" as in the documentation and manual |
| 2179 | 2177 | ||
| 2180 | * rmail.el (rmail-find): | 2178 | * rmail.el (rmail-find): |
| 2181 | Hack default of last search string, hack reverse search | 2179 | Hack default of last search string, hack reverse search. |
| 2182 | (-ve prefix arg) | 2180 | (-ve prefix arg): |
| 2183 | Make "-" be negative-argument | 2181 | Make "-" be negative-argument |
| 2184 | 2182 | ||
| 2185 | 1985-07-23 Richard Mlynarik (mly@mit-prep) | 2183 | 1985-07-23 Richard Mlynarik (mly@mit-prep) |
| @@ -3097,7 +3095,7 @@ | |||
| 3097 | 3095 | ||
| 3098 | * sendmail.el, loaddefs.el | 3096 | * sendmail.el, loaddefs.el |
| 3099 | added send-mail-function; initially sendmail-send-it | 3097 | added send-mail-function; initially sendmail-send-it |
| 3100 | (also, mail-yank-ignored-headers had a typo) | 3098 | (also, mail-yank-ignored-headers had a typo). |
| 3101 | 3099 | ||
| 3102 | * rmail.el (rmail-get-new-mail, convert-to-babyl-format, ...) | 3100 | * rmail.el (rmail-get-new-mail, convert-to-babyl-format, ...) |
| 3103 | * loaddefs.el: | 3101 | * loaddefs.el: |
diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10 index 50b82e13a15..cf4d13ccefb 100644 --- a/lisp/ChangeLog.10 +++ b/lisp/ChangeLog.10 | |||
| @@ -1357,7 +1357,7 @@ | |||
| 1357 | 1357 | ||
| 1358 | 2003-06-10 Rajesh Vaidheeswarran <rv@gnu.org> | 1358 | 2003-06-10 Rajesh Vaidheeswarran <rv@gnu.org> |
| 1359 | 1359 | ||
| 1360 | * whitespace.el (whitespace-version): Bump to 3.3 | 1360 | * whitespace.el (whitespace-version): Bump to 3.3. |
| 1361 | (whitespace-cleanup): Respect user preference for silence | 1361 | (whitespace-cleanup): Respect user preference for silence |
| 1362 | 1362 | ||
| 1363 | * whitespace.el: Remove :tag in commentary :link. Remove empty | 1363 | * whitespace.el: Remove :tag in commentary :link. Remove empty |
| @@ -1645,7 +1645,7 @@ | |||
| 1645 | (bibtex-version): Remove support for bug reporting. | 1645 | (bibtex-version): Remove support for bug reporting. |
| 1646 | (bibtex-field-delimiters, bibtex-entry-delimiters) | 1646 | (bibtex-field-delimiters, bibtex-entry-delimiters) |
| 1647 | (bibtex-sort-ignore-string-entries, bibtex-maintain-sorted-entries) | 1647 | (bibtex-sort-ignore-string-entries, bibtex-maintain-sorted-entries) |
| 1648 | Replace make-variable-buffer-local by make-local-variable for | 1648 | Replace make-variable-buffer-local by make-local-variable. |
| 1649 | (bibtex-entry-format): New tag `required-fields'. | 1649 | (bibtex-entry-format): New tag `required-fields'. |
| 1650 | (bibtex-maintain-sorted-entries): New var. | 1650 | (bibtex-maintain-sorted-entries): New var. |
| 1651 | (bibtex-sort-entry-class, bibtex-sort-entry-class-alist): New vars. | 1651 | (bibtex-sort-entry-class, bibtex-sort-entry-class-alist): New vars. |
| @@ -4069,9 +4069,9 @@ | |||
| 4069 | (ccl-encode-mule-utf-16-le-with-signature) | 4069 | (ccl-encode-mule-utf-16-le-with-signature) |
| 4070 | (ccl-encode-mule-utf-16-be-with-signature): New CCL programs. | 4070 | (ccl-encode-mule-utf-16-be-with-signature): New CCL programs. |
| 4071 | (mule-utf-16-post-read-conversion): New function. | 4071 | (mule-utf-16-post-read-conversion): New function. |
| 4072 | (mule-utf-16-le-with-signature, mule-utf-16-be-with-signature), | 4072 | (mule-utf-16-le-with-signature, mule-utf-16-be-with-signature) |
| 4073 | (mule-utf-16): New coding systems. | 4073 | (mule-utf-16): New coding systems. |
| 4074 | (utf-16-le-with-signature, utf-16-be-with-signature), | 4074 | (utf-16-le-with-signature, utf-16-be-with-signature) |
| 4075 | (utf-16): Aliases of the above coding systems. | 4075 | (utf-16): Aliases of the above coding systems. |
| 4076 | 4076 | ||
| 4077 | 2003-04-08 Martin Stjernholm <bug-cc-mode@gnu.org> | 4077 | 2003-04-08 Martin Stjernholm <bug-cc-mode@gnu.org> |
| @@ -4109,7 +4109,7 @@ | |||
| 4109 | Other cleanups. | 4109 | Other cleanups. |
| 4110 | Command line option --no-desktop introduced. | 4110 | Command line option --no-desktop introduced. |
| 4111 | (desktop-read): Record buffers in the desktop file in | 4111 | (desktop-read): Record buffers in the desktop file in |
| 4112 | the same order as that in the buffer list, | 4112 | the same order as that in the buffer list. |
| 4113 | (desktop-save): Put buffers in the order given in desktop file, | 4113 | (desktop-save): Put buffers in the order given in desktop file, |
| 4114 | regardless of what handlers do. | 4114 | regardless of what handlers do. |
| 4115 | (desktop-file-version): New variable. Version number of desktop | 4115 | (desktop-file-version): New variable. Version number of desktop |
| @@ -7684,7 +7684,7 @@ | |||
| 7684 | * gdb-ui.el : Remove inappropriate key-bindings. | 7684 | * gdb-ui.el : Remove inappropriate key-bindings. |
| 7685 | (gdb-info-breakpoints-custom, gdb-goto-bp-this-line): | 7685 | (gdb-info-breakpoints-custom, gdb-goto-bp-this-line): |
| 7686 | Parse correctly when breakpoint has no line number. | 7686 | Parse correctly when breakpoint has no line number. |
| 7687 | (def-gdb-auto-update-handler, gdb-info-locals-handler), | 7687 | (def-gdb-auto-update-handler, gdb-info-locals-handler) |
| 7688 | (gdb-display-end): Avoid using insert-buffer. | 7688 | (gdb-display-end): Avoid using insert-buffer. |
| 7689 | (gdb-frames-select-by-mouse): Rename gdb-frames-mouse-select. | 7689 | (gdb-frames-select-by-mouse): Rename gdb-frames-mouse-select. |
| 7690 | 7690 | ||
| @@ -20177,10 +20177,10 @@ | |||
| 20177 | 20177 | ||
| 20178 | 2002-01-05 Andre Spiegel <spiegel@gnu.org> | 20178 | 2002-01-05 Andre Spiegel <spiegel@gnu.org> |
| 20179 | 20179 | ||
| 20180 | * vc.el (vc-branch-part): Return nil if there's no `.' | 20180 | * vc.el (vc-branch-part): Return nil if there's no `.'. |
| 20181 | (vc-default-previous-version): Renamed from vc-previous-version. | 20181 | (vc-default-previous-version): Renamed from vc-previous-version. |
| 20182 | New args BACKEND and FILE. Return nil for revision numbers | 20182 | New args BACKEND and FILE. Return nil for revision numbers |
| 20183 | without a `.' | 20183 | without a `.'. |
| 20184 | (vc-version-diff): Call vc-BACKEND-previous-version. | 20184 | (vc-version-diff): Call vc-BACKEND-previous-version. |
| 20185 | (vc-steal-lock): Steal lock before composing mail, so that no mail | 20185 | (vc-steal-lock): Steal lock before composing mail, so that no mail |
| 20186 | is sent when the stealing goes wrong. And we'll actually see the | 20186 | is sent when the stealing goes wrong. And we'll actually see the |
| @@ -23253,11 +23253,11 @@ | |||
| 23253 | lambda expression. | 23253 | lambda expression. |
| 23254 | (ps-mode-menu-main): Submenu with options on/off was replaced with | 23254 | (ps-mode-menu-main): Submenu with options on/off was replaced with |
| 23255 | a toggle button. | 23255 | a toggle button. |
| 23256 | (ps-mode, ps-run-mode): Define with `define-derived-mode' | 23256 | (ps-mode, ps-run-mode): Define with `define-derived-mode'. |
| 23257 | (ps-mode): Autoload cookie added on same line as comment. | 23257 | (ps-mode): Autoload cookie added on same line as comment. |
| 23258 | (ps-mode-tabkey, ps-mode-backward-delete-char): | 23258 | (ps-mode-tabkey, ps-mode-backward-delete-char): |
| 23259 | (ps-mode-r-balance): Replace `delete-horizontal-space' and | 23259 | (ps-mode-r-balance): Replace `delete-horizontal-space' and |
| 23260 | `indent-to' with `indent-line-to' | 23260 | `indent-to' with `indent-line-to'. |
| 23261 | (ps-mode-print-buffer, ps-mode-print-region): Use `funcall' | 23261 | (ps-mode-print-buffer, ps-mode-print-region): Use `funcall' |
| 23262 | instead of `eval'. | 23262 | instead of `eval'. |
| 23263 | (ps-mode-print-region): Use `with-temp-buffer'. | 23263 | (ps-mode-print-region): Use `with-temp-buffer'. |
| @@ -23464,7 +23464,7 @@ | |||
| 23464 | (vc-default-annotate-current-time): Added. | 23464 | (vc-default-annotate-current-time): Added. |
| 23465 | 23465 | ||
| 23466 | * vc-cvs.el (vc-cvs-annotate-difference): Removed to generic | 23466 | * vc-cvs.el (vc-cvs-annotate-difference): Removed to generic |
| 23467 | version in vc.el, with | 23467 | version in vc.el. |
| 23468 | (vc-cvs-annotate-current-time): Added, as override of default. | 23468 | (vc-cvs-annotate-current-time): Added, as override of default. |
| 23469 | (vc-cvs-annotate-time): Added. Taken mostly from the (now removed) | 23469 | (vc-cvs-annotate-time): Added. Taken mostly from the (now removed) |
| 23470 | `vc-cvs-annotate-difference'. | 23470 | `vc-cvs-annotate-difference'. |
diff --git a/lisp/ChangeLog.11 b/lisp/ChangeLog.11 index 86bf9434fc9..c1ee441ea6b 100644 --- a/lisp/ChangeLog.11 +++ b/lisp/ChangeLog.11 | |||
| @@ -84,7 +84,7 @@ | |||
| 84 | 84 | ||
| 85 | 2004-12-30 Andreas Leue <al@sphenon.de> | 85 | 2004-12-30 Andreas Leue <al@sphenon.de> |
| 86 | 86 | ||
| 87 | * textmodes/artist.el (artist-version): 1.2.6 | 87 | * textmodes/artist.el (artist-version): 1.2.6. |
| 88 | (artist-prev-next-op-alist): New variable. | 88 | (artist-prev-next-op-alist): New variable. |
| 89 | (artist-select-next-op-in-list): New function. | 89 | (artist-select-next-op-in-list): New function. |
| 90 | (artist-select-prev-op-in-list): New function. | 90 | (artist-select-prev-op-in-list): New function. |
| @@ -380,7 +380,7 @@ | |||
| 380 | (calculator-radix-grouping-digits) | 380 | (calculator-radix-grouping-digits) |
| 381 | (calculator-radix-grouping-separator): | 381 | (calculator-radix-grouping-separator): |
| 382 | New defcustoms for the new radix grouping mode functionality. | 382 | New defcustoms for the new radix grouping mode functionality. |
| 383 | (calculator-mode-hook): Now used in electric mode too, | 383 | (calculator-mode-hook): Now used in electric mode too. |
| 384 | (calculator): Call it. | 384 | (calculator): Call it. |
| 385 | (calculator-mode-map): Some new keys. | 385 | (calculator-mode-map): Some new keys. |
| 386 | (calculator-message): New function. Some new calls. | 386 | (calculator-message): New function. Some new calls. |
| @@ -2239,7 +2239,7 @@ | |||
| 2239 | (math-so-far, math-integ-expr, math-expr-parts, calc-low) | 2239 | (math-so-far, math-integ-expr, math-expr-parts, calc-low) |
| 2240 | (calc-high, math-solve-var, math-solve-full, math-solve-vars) | 2240 | (calc-high, math-solve-var, math-solve-full, math-solve-vars) |
| 2241 | (math-try-solve-sign, math-solve-b, math-solve-system-vv) | 2241 | (math-try-solve-sign, math-solve-b, math-solve-system-vv) |
| 2242 | (math-solve-res): New variables | 2242 | (math-solve-res): New variables. |
| 2243 | (math-derivative, calcFunc-deriv, calcFunc-tderiv) | 2243 | (math-derivative, calcFunc-deriv, calcFunc-tderiv) |
| 2244 | (math-integral, math-replace-integral-parts) | 2244 | (math-integral, math-replace-integral-parts) |
| 2245 | (math-integrate-by-parts, calc-dump-integral-cache) | 2245 | (math-integrate-by-parts, calc-dump-integral-cache) |
| @@ -4692,7 +4692,7 @@ | |||
| 4692 | mark mode (to include the current match to region boundaries). | 4692 | mark mode (to include the current match to region boundaries). |
| 4693 | Push the search string to `query-replace-from-history-variable'. | 4693 | Push the search string to `query-replace-from-history-variable'. |
| 4694 | Add prompt "Query replace regexp" for isearch-regexp. | 4694 | Add prompt "Query replace regexp" for isearch-regexp. |
| 4695 | Add region beginning/end as last arguments of `perform-replace.' | 4695 | Add region beginning/end as last arguments of `perform-replace'. |
| 4696 | (isearch-query-replace-regexp): Replace code by the call to | 4696 | (isearch-query-replace-regexp): Replace code by the call to |
| 4697 | `isearch-query-replace' with arg `t'. | 4697 | `isearch-query-replace' with arg `t'. |
| 4698 | 4698 | ||
| @@ -9809,7 +9809,7 @@ | |||
| 9809 | 9809 | ||
| 9810 | (compile): Additional argument for interactive compiles like TeX. | 9810 | (compile): Additional argument for interactive compiles like TeX. |
| 9811 | 9811 | ||
| 9812 | * progmodes/grep.el (kill-grep): Move here from compile.el | 9812 | * progmodes/grep.el (kill-grep): Move here from compile.el. |
| 9813 | (grep-error, grep-hit-face, grep-error-face) | 9813 | (grep-error, grep-hit-face, grep-error-face) |
| 9814 | (grep-mode-font-lock-keywords): New variables. | 9814 | (grep-mode-font-lock-keywords): New variables. |
| 9815 | (grep-regexp-alist): Simplify regexp and add `binary' case. | 9815 | (grep-regexp-alist): Simplify regexp and add `binary' case. |
| @@ -10944,12 +10944,12 @@ | |||
| 10944 | (rsf-bbdb-auto-delete-spam-entries): Rename from | 10944 | (rsf-bbdb-auto-delete-spam-entries): Rename from |
| 10945 | rmail-bbdb-auto-delete-spam-bbdb-entries. The cc: field is | 10945 | rmail-bbdb-auto-delete-spam-bbdb-entries. The cc: field is |
| 10946 | scanned together with the recipients field for spam testing; Don't | 10946 | scanned together with the recipients field for spam testing; Don't |
| 10947 | delete spam message if rmail-delete-after-output is non-nil; | 10947 | delete spam message if rmail-delete-after-output is non-nil. |
| 10948 | (rsf-check-field): New function, extracted from code in | 10948 | (rsf-check-field): New function, extracted from code in |
| 10949 | rmail-spam-filter to ease addition of header fields like | 10949 | rmail-spam-filter to ease addition of header fields like |
| 10950 | content-type:; | 10950 | content-type:. |
| 10951 | (message-content-type): New variable. The content-type: field was | 10951 | (message-content-type): New variable. The content-type: field was |
| 10952 | added also in defcustom of rsf-definitions-alist; | 10952 | added also in defcustom of rsf-definitions-alist. |
| 10953 | (rmail-spam-filter): Replace repeated test code for header fields | 10953 | (rmail-spam-filter): Replace repeated test code for header fields |
| 10954 | by calls to check-field; change the call to | 10954 | by calls to check-field; change the call to |
| 10955 | rmail-output-to-rmail-file such that rmail-current-message stays | 10955 | rmail-output-to-rmail-file such that rmail-current-message stays |
| @@ -11474,7 +11474,7 @@ | |||
| 11474 | 2003-12-29 Stuart Herring <herring@lanl.gov> (tiny change) | 11474 | 2003-12-29 Stuart Herring <herring@lanl.gov> (tiny change) |
| 11475 | 11475 | ||
| 11476 | * comint.el (comint-watch-for-password-prompt): Pass `string' as | 11476 | * comint.el (comint-watch-for-password-prompt): Pass `string' as |
| 11477 | arg to send-invisible | 11477 | arg to send-invisible. |
| 11478 | (send-invisible): Doc fix. The argument is now a prompt, not the | 11478 | (send-invisible): Doc fix. The argument is now a prompt, not the |
| 11479 | string to send. | 11479 | string to send. |
| 11480 | (comint-read-noecho): Doc fix. | 11480 | (comint-read-noecho): Doc fix. |
| @@ -12951,7 +12951,7 @@ | |||
| 12951 | Ensure that recentf correctly updates the menu bar. | 12951 | Ensure that recentf correctly updates the menu bar. |
| 12952 | * recentf.el (recentf-menu-path,recentf-menu-before): Doc fix. | 12952 | * recentf.el (recentf-menu-path,recentf-menu-before): Doc fix. |
| 12953 | (recentf-menu-bar): New function. | 12953 | (recentf-menu-bar): New function. |
| 12954 | (recentf-clear-data): Use it | 12954 | (recentf-clear-data): Use it. |
| 12955 | (recentf-update-menu): Likewise. Use easy-menu-add-item instead | 12955 | (recentf-update-menu): Likewise. Use easy-menu-add-item instead |
| 12956 | of easy-menu-change. | 12956 | of easy-menu-change. |
| 12957 | 12957 | ||
| @@ -13500,7 +13500,7 @@ | |||
| 13500 | (reftex-toc-split-windows-fraction): New option. | 13500 | (reftex-toc-split-windows-fraction): New option. |
| 13501 | (reftex-recenter-toc-when-idle): Search *toc* window on all | 13501 | (reftex-recenter-toc-when-idle): Search *toc* window on all |
| 13502 | visible frames. | 13502 | visible frames. |
| 13503 | (reftex-toc): Additional parameter REUSE | 13503 | (reftex-toc): Additional parameter REUSE. |
| 13504 | (reftex-toc-recenter): Remember current frame. Call `reftex-toc' | 13504 | (reftex-toc-recenter): Remember current frame. Call `reftex-toc' |
| 13505 | with REUSE argument. | 13505 | with REUSE argument. |
| 13506 | (reftex-recenter-toc-when-idle): Reset `current-prefix-arg' for | 13506 | (reftex-recenter-toc-when-idle): Reset `current-prefix-arg' for |
| @@ -14153,7 +14153,7 @@ | |||
| 14153 | erroneously in previous version. | 14153 | erroneously in previous version. |
| 14154 | (bibtex-string-files): Docstring reflects new parsing scheme. | 14154 | (bibtex-string-files): Docstring reflects new parsing scheme. |
| 14155 | (bibtex-autokey-transcriptions): Merge some rewrite entries, fix | 14155 | (bibtex-autokey-transcriptions): Merge some rewrite entries, fix |
| 14156 | docstring, add # as one of the chars to crush | 14156 | docstring, add # as one of the chars to crush. |
| 14157 | (bibtex-autokey-prefix-string, bibtex-autokey-names) | 14157 | (bibtex-autokey-prefix-string, bibtex-autokey-names) |
| 14158 | (bibtex-autokey-names-stretch, bibtex-autokey-additional-names) | 14158 | (bibtex-autokey-names-stretch, bibtex-autokey-additional-names) |
| 14159 | (bibtex-autokey-name-change-strings) | 14159 | (bibtex-autokey-name-change-strings) |
| @@ -14229,7 +14229,7 @@ | |||
| 14229 | preamble entries. | 14229 | preamble entries. |
| 14230 | (bibtex-fill-field-bounds): New function. | 14230 | (bibtex-fill-field-bounds): New function. |
| 14231 | (bibtex-fill-field): New command. Bound to fill-paragraph-function. | 14231 | (bibtex-fill-field): New command. Bound to fill-paragraph-function. |
| 14232 | (bibtex-fill-entry): Use bibtex-fill-field-bounds | 14232 | (bibtex-fill-entry): Use bibtex-fill-field-bounds. |
| 14233 | (bibtex-String): Use bibtex-strings. Always obey | 14233 | (bibtex-String): Use bibtex-strings. Always obey |
| 14234 | bibtex-sort-ignore-string-entries. | 14234 | bibtex-sort-ignore-string-entries. |
| 14235 | 14235 | ||
diff --git a/lisp/ChangeLog.12 b/lisp/ChangeLog.12 index b058e6813d5..640c45dfc0c 100644 --- a/lisp/ChangeLog.12 +++ b/lisp/ChangeLog.12 | |||
| @@ -943,7 +943,7 @@ | |||
| 943 | 2007-03-20 Richard Stallman <rms@gnu.org> | 943 | 2007-03-20 Richard Stallman <rms@gnu.org> |
| 944 | 944 | ||
| 945 | * textmodes/ispell.el (ispell-call-process): New function. | 945 | * textmodes/ispell.el (ispell-call-process): New function. |
| 946 | Defends against bad `default-directory.' | 946 | Defends against bad `default-directory'. |
| 947 | (ispell-check-version, ispell-find-aspell-dictionaries) | 947 | (ispell-check-version, ispell-find-aspell-dictionaries) |
| 948 | (ispell-get-aspell-config-value, lookup-words): Call it. | 948 | (ispell-get-aspell-config-value, lookup-words): Call it. |
| 949 | (ispell-call-process-region): New function. | 949 | (ispell-call-process-region): New function. |
| @@ -1606,7 +1606,7 @@ | |||
| 1606 | (org-set-frame-title, org-show-reference) | 1606 | (org-set-frame-title, org-show-reference) |
| 1607 | (org-unhighlight-once, org-verify-change-for-undo): New functions. | 1607 | (org-unhighlight-once, org-verify-change-for-undo): New functions. |
| 1608 | (org-show-variable): Remove command. | 1608 | (org-show-variable): Remove command. |
| 1609 | (org-add-log-maybe): New arguments STATE, FINDPOS | 1609 | (org-add-log-maybe): New arguments STATE, FINDPOS. |
| 1610 | (org-table-sort-lines): Rewrite from scratch. | 1610 | (org-table-sort-lines): Rewrite from scratch. |
| 1611 | (org-link-search): New argument AVOID-POS. | 1611 | (org-link-search): New argument AVOID-POS. |
| 1612 | (org-print-icalendar-entries): Remove argument CATEGORY. | 1612 | (org-print-icalendar-entries): Remove argument CATEGORY. |
| @@ -2938,7 +2938,7 @@ | |||
| 2938 | 2938 | ||
| 2939 | 2006-12-30 Jan Djärv <jan.h.d@swipnet.se> | 2939 | 2006-12-30 Jan Djärv <jan.h.d@swipnet.se> |
| 2940 | 2940 | ||
| 2941 | * scroll-bar.el (previous-scroll-bar-mode): New variable | 2941 | * scroll-bar.el (previous-scroll-bar-mode): New variable. |
| 2942 | (set-scroll-bar-mode): Set previous-scroll-bar-mode. | 2942 | (set-scroll-bar-mode): Set previous-scroll-bar-mode. |
| 2943 | (scroll-bar-mode): Use previous-scroll-bar-mode if set. | 2943 | (scroll-bar-mode): Use previous-scroll-bar-mode if set. |
| 2944 | 2944 | ||
| @@ -5438,7 +5438,7 @@ | |||
| 5438 | (cperl-to-comment-or-eol): Do not call `cperl-update-syntaxification' | 5438 | (cperl-to-comment-or-eol): Do not call `cperl-update-syntaxification' |
| 5439 | recursively. | 5439 | recursively. |
| 5440 | Bound `next-single-property-change' via `point-max'. | 5440 | Bound `next-single-property-change' via `point-max'. |
| 5441 | (cperl-unwind-to-safe): Bound likewise | 5441 | (cperl-unwind-to-safe): Bound likewise. |
| 5442 | (cperl-font-lock-fontify-region-function): Likewise. | 5442 | (cperl-font-lock-fontify-region-function): Likewise. |
| 5443 | (cperl-find-pods-heres): Mark as recursive for `cperl-to-comment-or-eol' | 5443 | (cperl-find-pods-heres): Mark as recursive for `cperl-to-comment-or-eol' |
| 5444 | Initialization of `cperl-font-lock-multiline-start' could be | 5444 | Initialization of `cperl-font-lock-multiline-start' could be |
| @@ -5480,7 +5480,7 @@ | |||
| 5480 | (cperl-calculate-indent): `char-after' could be nil... | 5480 | (cperl-calculate-indent): `char-after' could be nil... |
| 5481 | (cperl-find-pods-heres): REx can start after "[" too. | 5481 | (cperl-find-pods-heres): REx can start after "[" too. |
| 5482 | Highlight (??{}) in RExen too. | 5482 | Highlight (??{}) in RExen too. |
| 5483 | (cperl-maybe-white-and-comment-rex): New constant | 5483 | (cperl-maybe-white-and-comment-rex): New constant. |
| 5484 | (cperl-white-and-comment-rex): Likewise. | 5484 | (cperl-white-and-comment-rex): Likewise. |
| 5485 | XXXX Not very efficient, but hard to make | 5485 | XXXX Not very efficient, but hard to make |
| 5486 | better while keeping 1 group. | 5486 | better while keeping 1 group. |
| @@ -5526,7 +5526,7 @@ | |||
| 5526 | Syntax-mark a {}-part of (?{}) as "comment" | 5526 | Syntax-mark a {}-part of (?{}) as "comment" |
| 5527 | (it was the ()-part) | 5527 | (it was the ()-part) |
| 5528 | Better logic to distinguish what is what in REx | 5528 | Better logic to distinguish what is what in REx |
| 5529 | (cperl-tips-faces): Document REx highlighting | 5529 | (cperl-tips-faces): Document REx highlighting. |
| 5530 | (cperl-praise): Mention REx syntax highlight etc. | 5530 | (cperl-praise): Mention REx syntax highlight etc. |
| 5531 | 5531 | ||
| 5532 | After 5.17: | 5532 | After 5.17: |
| @@ -5566,7 +5566,7 @@ | |||
| 5566 | (cperl-indent-comment-at-column-0): New customization variable. | 5566 | (cperl-indent-comment-at-column-0): New customization variable. |
| 5567 | (cperl-comment-indent): Indentation after $#a would increase by 1. | 5567 | (cperl-comment-indent): Indentation after $#a would increase by 1. |
| 5568 | (cperl-mode): Make `defun-prompt-regexp' grok BEGIN/END etc. | 5568 | (cperl-mode): Make `defun-prompt-regexp' grok BEGIN/END etc. |
| 5569 | (cperl-find-pods-heres): Mark CODE of s///e as `syntax-type' `multiline' | 5569 | (cperl-find-pods-heres): Mark CODE of s///e as `syntax-type' `multiline'. |
| 5570 | (cperl-at-end-of-expr): Would fail if @BAR=12 follows after ";". | 5570 | (cperl-at-end-of-expr): Would fail if @BAR=12 follows after ";". |
| 5571 | (cperl-init-faces): If `cperl-highlight-variables-indiscriminately' | 5571 | (cperl-init-faces): If `cperl-highlight-variables-indiscriminately' |
| 5572 | highlight $ in $foo too (UNTESTED). | 5572 | highlight $ in $foo too (UNTESTED). |
| @@ -5579,7 +5579,7 @@ | |||
| 5579 | (cperl-style-alist): Likewise. | 5579 | (cperl-style-alist): Likewise. |
| 5580 | (cperl-fix-line-spacing): Support `cperl-merge-trailing-else' being nil, | 5580 | (cperl-fix-line-spacing): Support `cperl-merge-trailing-else' being nil, |
| 5581 | and `cperl-extra-newline-before-brace' etc | 5581 | and `cperl-extra-newline-before-brace' etc |
| 5582 | being t | 5582 | being t. |
| 5583 | (cperl-indent-exp): Plans B and C to find continuation blocks even | 5583 | (cperl-indent-exp): Plans B and C to find continuation blocks even |
| 5584 | if `cperl-extra-newline-before-brace' is t. | 5584 | if `cperl-extra-newline-before-brace' is t. |
| 5585 | 5585 | ||
| @@ -7296,7 +7296,7 @@ | |||
| 7296 | (gdb-stack-position): New variable. | 7296 | (gdb-stack-position): New variable. |
| 7297 | (gdb-starting, gdb-exited): Reset gdb-stack-position to nil. | 7297 | (gdb-starting, gdb-exited): Reset gdb-stack-position to nil. |
| 7298 | (gdb-frames-mode): Set gdb-stack-position to nil. | 7298 | (gdb-frames-mode): Set gdb-stack-position to nil. |
| 7299 | Add to overlay-arrow-variable-list | 7299 | Add to overlay-arrow-variable-list. |
| 7300 | (gdb-reset): Delete gdb-stack-position from above list. | 7300 | (gdb-reset): Delete gdb-stack-position from above list. |
| 7301 | 7301 | ||
| 7302 | 2006-08-14 Jan Djärv <jan.h.d@swipnet.se> | 7302 | 2006-08-14 Jan Djärv <jan.h.d@swipnet.se> |
| @@ -7459,7 +7459,7 @@ | |||
| 7459 | * avoid.el (mouse-avoidance-animating-pointer): New var. | 7459 | * avoid.el (mouse-avoidance-animating-pointer): New var. |
| 7460 | (mouse-avoidance-nudge-mouse): Use it. | 7460 | (mouse-avoidance-nudge-mouse): Use it. |
| 7461 | (mouse-avoidance-banish): Rename from mouse-avoidance-banish-hook. | 7461 | (mouse-avoidance-banish): Rename from mouse-avoidance-banish-hook. |
| 7462 | (mouse-avoidance-exile): Rename from mouse-avoidance-exile-hook | 7462 | (mouse-avoidance-exile): Rename from mouse-avoidance-exile-hook. |
| 7463 | (mouse-avoidance-fancy): Rename from mouse-avoidance-fancy-hook. | 7463 | (mouse-avoidance-fancy): Rename from mouse-avoidance-fancy-hook. |
| 7464 | Don't activate if currently animating. All callers changed. | 7464 | Don't activate if currently animating. All callers changed. |
| 7465 | 7465 | ||
| @@ -8723,7 +8723,7 @@ | |||
| 8723 | * progmodes/gdb-ui.el (gdb-same-frame): New option. | 8723 | * progmodes/gdb-ui.el (gdb-same-frame): New option. |
| 8724 | (gud-old-arrow, gdb-frame-begin, gdb-printing): New variables. | 8724 | (gud-old-arrow, gdb-frame-begin, gdb-printing): New variables. |
| 8725 | (gdb-init-1): Initialise them. | 8725 | (gdb-init-1): Initialise them. |
| 8726 | (gdb-starting): Reset gdb-printing | 8726 | (gdb-starting): Reset gdb-printing. |
| 8727 | (gdb-starting): Save value of gud-overlay-arrow-position. | 8727 | (gdb-starting): Save value of gud-overlay-arrow-position. |
| 8728 | (gdb-frame-begin): Set gdb-frame-begin, gdb-printing. | 8728 | (gdb-frame-begin): Set gdb-frame-begin, gdb-printing. |
| 8729 | (gdb-stopped): Don't look for source if calling procedure e.g "p a ()". | 8729 | (gdb-stopped): Don't look for source if calling procedure e.g "p a ()". |
| @@ -9460,7 +9460,7 @@ | |||
| 9460 | links to BibTeX database entries.. | 9460 | links to BibTeX database entries.. |
| 9461 | (org-get-current-options, org-set-regexps-and-options): | 9461 | (org-get-current-options, org-set-regexps-and-options): |
| 9462 | Implement logging as a startup option. | 9462 | Implement logging as a startup option. |
| 9463 | (org-store-link): Make sure context string is never empty | 9463 | (org-store-link): Make sure context string is never empty. |
| 9464 | (org-insert-link): Use relative path when possible. | 9464 | (org-insert-link): Use relative path when possible. |
| 9465 | (org-at-item-checklet-p): New function. | 9465 | (org-at-item-checklet-p): New function. |
| 9466 | (org-shifttab, org-shiftmetaleft, org-shiftmetaright) | 9466 | (org-shifttab, org-shiftmetaleft, org-shiftmetaright) |
| @@ -10197,7 +10197,7 @@ | |||
| 10197 | (gdb-init-1, gdb-post-prompt): ...and references to it. | 10197 | (gdb-init-1, gdb-post-prompt): ...and references to it. |
| 10198 | (gdb-frame-handler): Strip directory name from filename if present. | 10198 | (gdb-frame-handler): Strip directory name from filename if present. |
| 10199 | 10199 | ||
| 10200 | * progmodes/gud.el (gdb-force-update): Delete defvar | 10200 | * progmodes/gud.el (gdb-force-update): Delete defvar. |
| 10201 | (gud-speedbar-buttons): ...and references to it. Use window-start | 10201 | (gud-speedbar-buttons): ...and references to it. Use window-start |
| 10202 | to try to keep position in watch expression. | 10202 | to try to keep position in watch expression. |
| 10203 | 10203 | ||
| @@ -10246,7 +10246,7 @@ | |||
| 10246 | 10246 | ||
| 10247 | * diff-mode.el (diff-mode-shared-map): Don't bind M-W, M-U, M-C, | 10247 | * diff-mode.el (diff-mode-shared-map): Don't bind M-W, M-U, M-C, |
| 10248 | M-r, M-R, M-A, M-SPC or M-DEL. | 10248 | M-r, M-R, M-A, M-SPC or M-DEL. |
| 10249 | (diff-mode-map): diff-refine-hunk now on C-c C-w | 10249 | (diff-mode-map): diff-refine-hunk now on C-c C-w. |
| 10250 | (diff-mode-map): Bind C-c C-e, C-c C-n, C-c C-r, C-c C-u. | 10250 | (diff-mode-map): Bind C-c C-e, C-c C-n, C-c C-r, C-c C-u. |
| 10251 | 10251 | ||
| 10252 | * help-mode.el (help-mode): view-exit-action calls delete-window | 10252 | * help-mode.el (help-mode): view-exit-action calls delete-window |
| @@ -10862,7 +10862,7 @@ | |||
| 10862 | (org-edit-agenda-file-list, org-store-new-agenda-file-list) | 10862 | (org-edit-agenda-file-list, org-store-new-agenda-file-list) |
| 10863 | (org-read-agenda-file-list): New functions. | 10863 | (org-read-agenda-file-list): New functions. |
| 10864 | (org-table-edit-field) | 10864 | (org-table-edit-field) |
| 10865 | (org-table-create-or-convert-from-region): New commands | 10865 | (org-table-create-or-convert-from-region): New commands. |
| 10866 | (org-table-toggle-vline-visibility): Command removed. | 10866 | (org-table-toggle-vline-visibility): Command removed. |
| 10867 | (org-table-convert-region): Made a command. | 10867 | (org-table-convert-region): Made a command. |
| 10868 | (orgtbl-delete-backward-char, orgtbl-delete-char): Remove commands. | 10868 | (orgtbl-delete-backward-char, orgtbl-delete-char): Remove commands. |
| @@ -10881,7 +10881,7 @@ | |||
| 10881 | Optional argument unrestricted means ignore any restrictions. | 10881 | Optional argument unrestricted means ignore any restrictions. |
| 10882 | (org-install-agenda-files-menu): Find a buffer in Org-mode before | 10882 | (org-install-agenda-files-menu): Find a buffer in Org-mode before |
| 10883 | trying to modify the menu. Use generalized access to | 10883 | trying to modify the menu. Use generalized access to |
| 10884 | `org-agenda-files.' | 10884 | `org-agenda-files'. |
| 10885 | (org-agenda-list, org-todo-list, org-cycle-agenda-files) | 10885 | (org-agenda-list, org-todo-list, org-cycle-agenda-files) |
| 10886 | (org-agenda-file-to-front, org-remove-file, org-diary) | 10886 | (org-agenda-file-to-front, org-remove-file, org-diary) |
| 10887 | (org-tags-view, org-export-icalendar-all-agenda-files) | 10887 | (org-tags-view, org-export-icalendar-all-agenda-files) |
| @@ -13666,7 +13666,7 @@ | |||
| 13666 | (thumbs-resize-image): Rename from thumbs-resize-image-interactive. | 13666 | (thumbs-resize-image): Rename from thumbs-resize-image-interactive. |
| 13667 | Use increment argument to enlarge/shrink. Preserve point. | 13667 | Use increment argument to enlarge/shrink. Preserve point. |
| 13668 | (thumbs-shrink-image): Rename from thumbs-resize-image-size-down. | 13668 | (thumbs-shrink-image): Rename from thumbs-resize-image-size-down. |
| 13669 | (thumbs-enlarge-image): Rename from thumbs-resize-image-size-up | 13669 | (thumbs-enlarge-image): Rename from thumbs-resize-image-size-up. |
| 13670 | (thumbs-show-thumbs-list): Set thumbs-buffer to current-buffer. | 13670 | (thumbs-show-thumbs-list): Set thumbs-buffer to current-buffer. |
| 13671 | (thumbs-mark, thumbs-unmark): Preserve point. | 13671 | (thumbs-mark, thumbs-unmark): Preserve point. |
| 13672 | (thumbs-modify-image): Keep old temp files and use to modify. | 13672 | (thumbs-modify-image): Keep old temp files and use to modify. |
| @@ -16160,7 +16160,7 @@ | |||
| 16160 | (c-after-statement-terminator-p): Adapt for virtual semicolons; | 16160 | (c-after-statement-terminator-p): Adapt for virtual semicolons; |
| 16161 | check more rigorously for "end of macro". | 16161 | check more rigorously for "end of macro". |
| 16162 | (c-back-over-illiterals, c-forward-over-illiterals): Adapt for | 16162 | (c-back-over-illiterals, c-forward-over-illiterals): Adapt for |
| 16163 | virtual semicolons; | 16163 | virtual semicolons. |
| 16164 | (c-beginning-of-statement): Adapt for virtual semicolons; Separate | 16164 | (c-beginning-of-statement): Adapt for virtual semicolons; Separate |
| 16165 | out the code for forward movement into ... | 16165 | out the code for forward movement into ... |
| 16166 | (c-end-of-statement): Now contains the code for forward movement, | 16166 | (c-end-of-statement): Now contains the code for forward movement, |
| @@ -19706,7 +19706,7 @@ | |||
| 19706 | (allout-mode): Use key-binding substitution in the docstring. | 19706 | (allout-mode): Use key-binding substitution in the docstring. |
| 19707 | (allout-kill-line): Spell-out kill ring data structure mutation | 19707 | (allout-kill-line): Spell-out kill ring data structure mutation |
| 19708 | instead of using byte-compiler-complaint-provoking `pop'. | 19708 | instead of using byte-compiler-complaint-provoking `pop'. |
| 19709 | (allout-insert-listified): Use `insert' rather than `insert-string' | 19709 | (allout-insert-listified): Use `insert' rather than `insert-string'. |
| 19710 | (allout-toggle-current-subtree-encryption): Update docstring, adjust | 19710 | (allout-toggle-current-subtree-encryption): Update docstring, adjust |
| 19711 | to new gpp-based encryption, use new `allout-encrypted-topic-p'. | 19711 | to new gpp-based encryption, use new `allout-encrypted-topic-p'. |
| 19712 | (allout-encrypt-string): Totally revamped vis new underlying | 19712 | (allout-encrypt-string): Totally revamped vis new underlying |
| @@ -20757,13 +20757,13 @@ | |||
| 20757 | * progmodes/gdb-ui.el (gdb-info-breakpoints-custom): | 20757 | * progmodes/gdb-ui.el (gdb-info-breakpoints-custom): |
| 20758 | Put `font-lock-function-name-face'. | 20758 | Put `font-lock-function-name-face'. |
| 20759 | (gdb-info-frames-custom): Put `font-lock-function-name-face' | 20759 | (gdb-info-frames-custom): Put `font-lock-function-name-face' |
| 20760 | and `font-lock-variable-name-face' | 20760 | and `font-lock-variable-name-face'. |
| 20761 | (gdb-registers-font-lock-keywords): New font lock keywords definition. | 20761 | (gdb-registers-font-lock-keywords): New font lock keywords definition. |
| 20762 | (gdb-registers-mode): Use `gdb-registers-font-lock-keywords'. | 20762 | (gdb-registers-mode): Use `gdb-registers-font-lock-keywords'. |
| 20763 | (gdb-memory-font-lock-keywords): New font lock keywords definition. | 20763 | (gdb-memory-font-lock-keywords): New font lock keywords definition. |
| 20764 | (gdb-memory-mode): Use `gdb-memory-font-lock-keywords'. | 20764 | (gdb-memory-mode): Use `gdb-memory-font-lock-keywords'. |
| 20765 | (gdb-local-font-lock-keywords): New font lock keywords definition. | 20765 | (gdb-local-font-lock-keywords): New font lock keywords definition. |
| 20766 | (gdb-locals-mode): Use `gdb-local-font-lock-keywords' | 20766 | (gdb-locals-mode): Use `gdb-local-font-lock-keywords'. |
| 20767 | (gdb-threads-font-lock-keywords): New font lock keywords definition. | 20767 | (gdb-threads-font-lock-keywords): New font lock keywords definition. |
| 20768 | (gdb-threads-mode): Use `gdb-threads-font-lock-keywords'. | 20768 | (gdb-threads-mode): Use `gdb-threads-font-lock-keywords'. |
| 20769 | 20769 | ||
| @@ -29352,7 +29352,7 @@ | |||
| 29352 | * loadhist.el (unload-feature): Update for new format of load-history. | 29352 | * loadhist.el (unload-feature): Update for new format of load-history. |
| 29353 | Simplify the code. | 29353 | Simplify the code. |
| 29354 | 29354 | ||
| 29355 | * mail/rmail.el (rmail-ignored-headers): Ignore more headers | 29355 | * mail/rmail.el (rmail-ignored-headers): Ignore more headers. |
| 29356 | (rmail-font-lock-keywords): Don't fontify the text of a citation. | 29356 | (rmail-font-lock-keywords): Don't fontify the text of a citation. |
| 29357 | 29357 | ||
| 29358 | * mail/sendmail.el (mail-font-lock-keywords): | 29358 | * mail/sendmail.el (mail-font-lock-keywords): |
| @@ -29421,7 +29421,7 @@ | |||
| 29421 | (org-evaluate-time-range): Insert at point instead of directly | 29421 | (org-evaluate-time-range): Insert at point instead of directly |
| 29422 | after time range. | 29422 | after time range. |
| 29423 | (org-first-headline-recenter, org-subtree-end-visible-p) | 29423 | (org-first-headline-recenter, org-subtree-end-visible-p) |
| 29424 | (org-optimize-window-after-visibility-change): New functions | 29424 | (org-optimize-window-after-visibility-change): New functions. |
| 29425 | (org-agenda-post-command-hook): Don't allow point at end of line, | 29425 | (org-agenda-post-command-hook): Don't allow point at end of line, |
| 29426 | to make sure it always hits the text properties. | 29426 | to make sure it always hits the text properties. |
| 29427 | (org-agenda-next-date-line, org-agenda-previous-date-line): | 29427 | (org-agenda-next-date-line, org-agenda-previous-date-line): |
| @@ -29603,13 +29603,13 @@ | |||
| 29603 | 29603 | ||
| 29604 | 2005-04-11 Jan Djärv <jan.h.d@swipnet.se> | 29604 | 2005-04-11 Jan Djärv <jan.h.d@swipnet.se> |
| 29605 | 29605 | ||
| 29606 | * dired.el (dired-mode): Use dnd-* instead of x-dnd-* | 29606 | * dired.el (dired-mode): Use dnd-* instead of x-dnd-*. |
| 29607 | (dired-dnd-handle-local-file): Call dnd-get-local-file-name. | 29607 | (dired-dnd-handle-local-file): Call dnd-get-local-file-name. |
| 29608 | (dired-dnd-handle-file): Call dnd-get-local-file-uri. | 29608 | (dired-dnd-handle-file): Call dnd-get-local-file-uri. |
| 29609 | 29609 | ||
| 29610 | * cus-edit.el (dnd): New group. | 29610 | * cus-edit.el (dnd): New group. |
| 29611 | 29611 | ||
| 29612 | * term/w32-win.el (dnd): Require dnd | 29612 | * term/w32-win.el (dnd): Require dnd. |
| 29613 | (w32-drag-n-drop): Call dnd-handle-one-url. | 29613 | (w32-drag-n-drop): Call dnd-handle-one-url. |
| 29614 | 29614 | ||
| 29615 | * x-dnd.el: Require dnd. | 29615 | * x-dnd.el: Require dnd. |
| @@ -31918,7 +31918,7 @@ | |||
| 31918 | 31918 | ||
| 31919 | * progmodes/gdb-ui.el (gdb-var-update-handler) | 31919 | * progmodes/gdb-ui.el (gdb-var-update-handler) |
| 31920 | (gdb-speedbar-timer-fn): Ensure speedbar updates with new values | 31920 | (gdb-speedbar-timer-fn): Ensure speedbar updates with new values |
| 31921 | for watch expressions, | 31921 | for watch expressions. |
| 31922 | (gdb-var-create-handler): Don't set speedbar-update-flag. | 31922 | (gdb-var-create-handler): Don't set speedbar-update-flag. |
| 31923 | (gdb-post-prompt): Simplify test for speedbar. | 31923 | (gdb-post-prompt): Simplify test for speedbar. |
| 31924 | 31924 | ||
| @@ -32781,14 +32781,14 @@ | |||
| 32781 | 2005-01-15 James R. Van Zandt <jrvz@comcast.net> (tiny change) | 32781 | 2005-01-15 James R. Van Zandt <jrvz@comcast.net> (tiny change) |
| 32782 | 32782 | ||
| 32783 | * progmodes/sh-script.el: Code copied from make-mode.el | 32783 | * progmodes/sh-script.el: Code copied from make-mode.el |
| 32784 | with small changes, | 32784 | with small changes. |
| 32785 | (sh-mode-map): Bind C-c C-\. | 32785 | (sh-mode-map): Bind C-c C-\. |
| 32786 | (sh-backslash-column, sh-backslash-align): New variables. | 32786 | (sh-backslash-column, sh-backslash-align): New variables. |
| 32787 | (sh-backslash-region, sh-append-backslash): New functions. | 32787 | (sh-backslash-region, sh-append-backslash): New functions. |
| 32788 | 32788 | ||
| 32789 | 2005-01-15 Sergey Poznyakoff <gray@Mirddin.farlep.net> | 32789 | 2005-01-15 Sergey Poznyakoff <gray@Mirddin.farlep.net> |
| 32790 | 32790 | ||
| 32791 | * mail/rmail.el: Updated to work with movemail from GNU Mailutils | 32791 | * mail/rmail.el: Updated to work with movemail from GNU Mailutils. |
| 32792 | (rmail-pop-password, rmail-pop-password-required): Move to | 32792 | (rmail-pop-password, rmail-pop-password-required): Move to |
| 32793 | rmail-obsolete group. | 32793 | rmail-obsolete group. |
| 32794 | (rmail-set-pop-password): Rename to rmail-set-remote-password. | 32794 | (rmail-set-pop-password): Rename to rmail-set-remote-password. |
| @@ -32892,7 +32892,7 @@ | |||
| 32892 | 32892 | ||
| 32893 | * textmodes/reftex-vars.el (reftex-cite-format-builtin): | 32893 | * textmodes/reftex-vars.el (reftex-cite-format-builtin): |
| 32894 | Add optional arguments to most cite commands. | 32894 | Add optional arguments to most cite commands. |
| 32895 | (reftex-cite-cleanup-optional-args): New option | 32895 | (reftex-cite-cleanup-optional-args): New option. |
| 32896 | (reftex-cite-prompt-optional-args): New option. | 32896 | (reftex-cite-prompt-optional-args): New option. |
| 32897 | (reftex-trust-label-prefix): New option. | 32897 | (reftex-trust-label-prefix): New option. |
| 32898 | 32898 | ||
diff --git a/lisp/ChangeLog.13 b/lisp/ChangeLog.13 index da88e3334c2..630a4bc0865 100644 --- a/lisp/ChangeLog.13 +++ b/lisp/ChangeLog.13 | |||
| @@ -1498,7 +1498,7 @@ | |||
| 1498 | (ps-header-footer-string): Delete function. | 1498 | (ps-header-footer-string): Delete function. |
| 1499 | (ps-encode-header-string-function): New variable. | 1499 | (ps-encode-header-string-function): New variable. |
| 1500 | (ps-generate-header-line): Call ps-encode-header-string-function. | 1500 | (ps-generate-header-line): Call ps-encode-header-string-function. |
| 1501 | (ps-basic-plot-string-function): New variable | 1501 | (ps-basic-plot-string-function): New variable. |
| 1502 | (ps-begin-job): Set ps-basic-plot-string-function and | 1502 | (ps-begin-job): Set ps-basic-plot-string-function and |
| 1503 | ps-encode-header-string-function. For setting up headers and | 1503 | ps-encode-header-string-function. For setting up headers and |
| 1504 | footers, don't use caches such as ps-rh-cache. Don't call | 1504 | footers, don't use caches such as ps-rh-cache. Don't call |
| @@ -1588,7 +1588,7 @@ | |||
| 1588 | 1588 | ||
| 1589 | * international/mule.el (ctext-non-standard-encodings-alist): | 1589 | * international/mule.el (ctext-non-standard-encodings-alist): |
| 1590 | Rename from non-standard-icccm-encodings-alist. | 1590 | Rename from non-standard-icccm-encodings-alist. |
| 1591 | (ctext-non-standard-encodings-regexp): New variable | 1591 | (ctext-non-standard-encodings-regexp): New variable. |
| 1592 | (ctext-post-read-conversion): Full rewrite. | 1592 | (ctext-post-read-conversion): Full rewrite. |
| 1593 | (ctext-non-standard-designations-alist): Rename from | 1593 | (ctext-non-standard-designations-alist): Rename from |
| 1594 | non-standard-designations-alist. | 1594 | non-standard-designations-alist. |
| @@ -8209,7 +8209,7 @@ | |||
| 8209 | (allout-end-of-line): Preserve mark activation status when jumping. | 8209 | (allout-end-of-line): Preserve mark activation status when jumping. |
| 8210 | (allout-open-topic): Account for opening after a child that | 8210 | (allout-open-topic): Account for opening after a child that |
| 8211 | contains a hidden trailing newline. Preserve match data. | 8211 | contains a hidden trailing newline. Preserve match data. |
| 8212 | Run allout-structure-added-hook | 8212 | Run allout-structure-added-hook. |
| 8213 | (allout-encrypt-decrypted): Preserve match data. | 8213 | (allout-encrypt-decrypted): Preserve match data. |
| 8214 | (allout-toggle-current-subtree-exposure): Add new interactive | 8214 | (allout-toggle-current-subtree-exposure): Add new interactive |
| 8215 | function for toggle subtree exposure - suggested by tassilo. | 8215 | function for toggle subtree exposure - suggested by tassilo. |
| @@ -9880,7 +9880,7 @@ | |||
| 9880 | (org-find-base-buffer-visiting): Catch the case that there is no | 9880 | (org-find-base-buffer-visiting): Catch the case that there is no |
| 9881 | buffer visiting the file. | 9881 | buffer visiting the file. |
| 9882 | (org-property-or-variable-value): New function. | 9882 | (org-property-or-variable-value): New function. |
| 9883 | (org-todo): Use `org-property-or-variable-value' | 9883 | (org-todo): Use `org-property-or-variable-value'. |
| 9884 | (org-agenda-compact-blocks): New option. | 9884 | (org-agenda-compact-blocks): New option. |
| 9885 | (org-prepare-agenda, org-agenda-list): Use `org-agenda-compact-blocks'. | 9885 | (org-prepare-agenda, org-agenda-list): Use `org-agenda-compact-blocks'. |
| 9886 | (org-agenda-schedule, org-agenda-deadline): | 9886 | (org-agenda-schedule, org-agenda-deadline): |
| @@ -10227,7 +10227,7 @@ | |||
| 10227 | 10227 | ||
| 10228 | * progmodes/cperl-mode.el: Merge upstream 5.23. | 10228 | * progmodes/cperl-mode.el: Merge upstream 5.23. |
| 10229 | (cperl-where-am-i): Remove function. | 10229 | (cperl-where-am-i): Remove function. |
| 10230 | (cperl-backward-to-noncomment): Don't go too far when skipping POD/HEREs | 10230 | (cperl-backward-to-noncomment): Don't go too far when skipping POD/HEREs. |
| 10231 | (cperl-sniff-for-indent): De-invert [string] and [comment]. | 10231 | (cperl-sniff-for-indent): De-invert [string] and [comment]. |
| 10232 | When looking for label, skip s:m:y:tr. | 10232 | When looking for label, skip s:m:y:tr. |
| 10233 | (cperl-indent-line): Likewise. | 10233 | (cperl-indent-line): Likewise. |
diff --git a/lisp/ChangeLog.14 b/lisp/ChangeLog.14 index a01020b87d0..9b5e0dcf2c0 100644 --- a/lisp/ChangeLog.14 +++ b/lisp/ChangeLog.14 | |||
| @@ -8625,7 +8625,7 @@ | |||
| 8625 | 8625 | ||
| 8626 | 2008-07-31 Alan Mackenzie <acm@muc.de> | 8626 | 2008-07-31 Alan Mackenzie <acm@muc.de> |
| 8627 | 8627 | ||
| 8628 | * progmodes/cc-mode.el (c-before-hack-hook): New function | 8628 | * progmodes/cc-mode.el (c-before-hack-hook): New function. |
| 8629 | (Top Level): Install c-before-hack-hook on | 8629 | (Top Level): Install c-before-hack-hook on |
| 8630 | before-hack-local-variables-hook, rather than | 8630 | before-hack-local-variables-hook, rather than |
| 8631 | c-postprocess-file-styles on hack-local-variables-hook. | 8631 | c-postprocess-file-styles on hack-local-variables-hook. |
diff --git a/lisp/ChangeLog.2 b/lisp/ChangeLog.2 index e3193944011..90c00dc6360 100644 --- a/lisp/ChangeLog.2 +++ b/lisp/ChangeLog.2 | |||
| @@ -3717,9 +3717,9 @@ | |||
| 3717 | 1986-08-07 Richard Mlynarik (mly@prep) | 3717 | 1986-08-07 Richard Mlynarik (mly@prep) |
| 3718 | 3718 | ||
| 3719 | * rfc822.el, loaddefs.el, mail-utils.el: | 3719 | * rfc822.el, loaddefs.el, mail-utils.el: |
| 3720 | Hairy address parser, used only if mail-use-rfc822 is non-nil | 3720 | Hairy address parser, used only if mail-use-rfc822 is non-nil. |
| 3721 | (It is nil by default, so if one doesn't like or need the hair of | 3721 | (It is nil by default, so if one doesn't like or need the hair of |
| 3722 | this file, then one is never troubled by it) | 3722 | this file, then one is never troubled by it.) |
| 3723 | 3723 | ||
| 3724 | * disassemble.el, loaddefs.el: | 3724 | * disassemble.el, loaddefs.el: |
| 3725 | Code from doug@csli.stanford.edu modified by mly. | 3725 | Code from doug@csli.stanford.edu modified by mly. |
diff --git a/lisp/ChangeLog.3 b/lisp/ChangeLog.3 index 26b872af9bb..f99f2ec4ec0 100644 --- a/lisp/ChangeLog.3 +++ b/lisp/ChangeLog.3 | |||
| @@ -2619,7 +2619,7 @@ | |||
| 2619 | 2619 | ||
| 2620 | * frame.el (frame-initialize): Fix error syntax. | 2620 | * frame.el (frame-initialize): Fix error syntax. |
| 2621 | (toggle-horizontal-scroll-bar): Likewise. | 2621 | (toggle-horizontal-scroll-bar): Likewise. |
| 2622 | (toggle-horizontal-scroll-bar): Renamed from set-horizontal-bar | 2622 | (toggle-horizontal-scroll-bar): Renamed from set-horizontal-bar. |
| 2623 | (toggle-vertical-scroll-bar): Likewise. | 2623 | (toggle-vertical-scroll-bar): Likewise. |
| 2624 | (toggle-auto-lower, toggle-auto-raise): Likewise. | 2624 | (toggle-auto-lower, toggle-auto-raise): Likewise. |
| 2625 | (set-foreground-color, set-background-color): | 2625 | (set-foreground-color, set-background-color): |
| @@ -10344,7 +10344,7 @@ | |||
| 10344 | (list-diary-entries, mark-diary-entries) | 10344 | (list-diary-entries, mark-diary-entries) |
| 10345 | (include-other-diary-files, mark-included-diary-files): | 10345 | (include-other-diary-files, mark-included-diary-files): |
| 10346 | Added the possibility of `shared diary files' with a recursive | 10346 | Added the possibility of `shared diary files' with a recursive |
| 10347 | include mechanism like the C preprocessor | 10347 | include mechanism like the C preprocessor. |
| 10348 | (list-calendar-holidays): Eliminated the 'special class of holidays, | 10348 | (list-calendar-holidays): Eliminated the 'special class of holidays, |
| 10349 | rewriting the entire mechanism to make it more general. | 10349 | rewriting the entire mechanism to make it more general. |
| 10350 | (calendar-holiday-function-float): Changed the 'float class of | 10350 | (calendar-holiday-function-float): Changed the 'float class of |
| @@ -12091,7 +12091,7 @@ | |||
| 12091 | 12091 | ||
| 12092 | 1988-12-12 Richard Stallman (rms@mole.ai.mit.edu) | 12092 | 1988-12-12 Richard Stallman (rms@mole.ai.mit.edu) |
| 12093 | 12093 | ||
| 12094 | * telnet.el (telnet-send-input): Save input in telnet-previous-input | 12094 | * telnet.el (telnet-send-input): Save input in telnet-previous-input. |
| 12095 | (telnet-mode): Make that var buffer-local. | 12095 | (telnet-mode): Make that var buffer-local. |
| 12096 | (telnet-copy-last-input): New fn to yank that var; now on C-c C-y. | 12096 | (telnet-copy-last-input): New fn to yank that var; now on C-c C-y. |
| 12097 | 12097 | ||
diff --git a/lisp/ChangeLog.5 b/lisp/ChangeLog.5 index 6da88b3c0be..8cb0e343a1a 100644 --- a/lisp/ChangeLog.5 +++ b/lisp/ChangeLog.5 | |||
| @@ -193,8 +193,8 @@ | |||
| 193 | ispell-menu-map, ispell-menu-lucid, and ispell-menu-map-needed | 193 | ispell-menu-map, ispell-menu-lucid, and ispell-menu-map-needed |
| 194 | so users can more easily modify and upgrade entries. | 194 | so users can more easily modify and upgrade entries. |
| 195 | (ispell-dictionary-alist): Once more a single variable. | 195 | (ispell-dictionary-alist): Once more a single variable. |
| 196 | (ispell-required-version): Documentation changes | 196 | (ispell-required-version): Documentation changes. |
| 197 | (ispell-skip-sgml): Documentation changes | 197 | (ispell-skip-sgml): Documentation changes. |
| 198 | (ispell-command-loop): `mode-line-format' now shows misspelled word. | 198 | (ispell-command-loop): `mode-line-format' now shows misspelled word. |
| 199 | (ispell-message-text-end): Can now process postscript version 1. | 199 | (ispell-message-text-end): Can now process postscript version 1. |
| 200 | (ispell-message-start-skip): New variable for block skips, set up for | 200 | (ispell-message-start-skip): New variable for block skips, set up for |
| @@ -584,7 +584,7 @@ | |||
| 584 | 19.28 and earlier and XEmacs 19.11 and earlier. | 584 | 19.28 and earlier and XEmacs 19.11 and earlier. |
| 585 | * ediff.el (ediff-patch-buffer): Now handles buffers that don't | 585 | * ediff.el (ediff-patch-buffer): Now handles buffers that don't |
| 586 | visit any file. | 586 | visit any file. |
| 587 | (ediff-windows): Renamed to ediff-windows-wordwise, added | 587 | (ediff-windows): Renamed to ediff-windows-wordwise. |
| 588 | (ediff-windows-linewise): New function. | 588 | (ediff-windows-linewise): New function. |
| 589 | Changed ediff-small/large-regions to ediff-regions-wordwise/linewise. | 589 | Changed ediff-small/large-regions to ediff-regions-wordwise/linewise. |
| 590 | 590 | ||
| @@ -783,7 +783,7 @@ | |||
| 783 | 783 | ||
| 784 | * mail-extr.el (mail-extr-all-letters-but-separators): | 784 | * mail-extr.el (mail-extr-all-letters-but-separators): |
| 785 | Reinstate \377, the bug in search.c is apparently gone. | 785 | Reinstate \377, the bug in search.c is apparently gone. |
| 786 | (mail-extr-first-letters): Add 8-bit characters | 786 | (mail-extr-first-letters): Add 8-bit characters. |
| 787 | (mail-extr-last-letters): Ditto. | 787 | (mail-extr-last-letters): Ditto. |
| 788 | 788 | ||
| 789 | * simple.el (indent-for-comment): Move to beginning of line only | 789 | * simple.el (indent-for-comment): Move to beginning of line only |
| @@ -889,7 +889,7 @@ | |||
| 889 | (ada-end-stmt-re): Add "separate" body parts, "else", and | 889 | (ada-end-stmt-re): Add "separate" body parts, "else", and |
| 890 | "package <Id> is". | 890 | "package <Id> is". |
| 891 | (ada-subprogram-start-re): Add "entry", "protected" and | 891 | (ada-subprogram-start-re): Add "entry", "protected" and |
| 892 | "package body" | 892 | "package body". |
| 893 | (ada-indent-function): Handle "elsif" the same way as "if", added | 893 | (ada-indent-function): Handle "elsif" the same way as "if", added |
| 894 | "separate" for no indent. | 894 | "separate" for no indent. |
| 895 | (ada-get-indent-type): If "type ... is .." is followed by code on | 895 | (ada-get-indent-type): If "type ... is .." is followed by code on |
| @@ -1328,7 +1328,7 @@ | |||
| 1328 | ones the numbers of subexpressions to refer to. | 1328 | ones the numbers of subexpressions to refer to. |
| 1329 | (vc-cvs-status): New per-file property, only used in the CVS case. | 1329 | (vc-cvs-status): New per-file property, only used in the CVS case. |
| 1330 | (vc-cvs-status): New function. | 1330 | (vc-cvs-status): New function. |
| 1331 | (vc-log-info): Adapted to new version of vc-parse-buffer | 1331 | (vc-log-info): Adapted to new version of vc-parse-buffer. |
| 1332 | (vc-fetch-properties): Adapted to new version of vc-parse-buffer. | 1332 | (vc-fetch-properties): Adapted to new version of vc-parse-buffer. |
| 1333 | Better search regexp for CVS latest version. | 1333 | Better search regexp for CVS latest version. |
| 1334 | (vc-log-info): Search for branch version only in the RCS case, | 1334 | (vc-log-info): Search for branch version only in the RCS case, |
| @@ -1800,7 +1800,7 @@ | |||
| 1800 | (vc-consult-rcs-headers): New function. | 1800 | (vc-consult-rcs-headers): New function. |
| 1801 | (vc-branch-version): New per-file property, refers | 1801 | (vc-branch-version): New per-file property, refers |
| 1802 | to the RCS version selected by `rcs -b'. | 1802 | to the RCS version selected by `rcs -b'. |
| 1803 | (vc-workfile-version): New function. Also new per-file property | 1803 | (vc-workfile-version): New function. Also new per-file property. |
| 1804 | (vc-consult-headers): New parameter variable. | 1804 | (vc-consult-headers): New parameter variable. |
| 1805 | (vc-mistrust-permissions): Default set to `nil'. | 1805 | (vc-mistrust-permissions): Default set to `nil'. |
| 1806 | (vc-locking-user): Property is now cached. The other functions | 1806 | (vc-locking-user): Property is now cached. The other functions |
| @@ -2145,7 +2145,7 @@ | |||
| 2145 | 1995-04-03 David KÃ¥gedal <davidk@lysator.liu.se> | 2145 | 1995-04-03 David KÃ¥gedal <davidk@lysator.liu.se> |
| 2146 | 2146 | ||
| 2147 | * tempo.el (tempo-insert): | 2147 | * tempo.el (tempo-insert): |
| 2148 | Added the P tag and modified the s tag accordingly | 2148 | Added the P tag and modified the s tag accordingly. |
| 2149 | (tempo-insert-named): Checks for valid name, insert mark otherwise. | 2149 | (tempo-insert-named): Checks for valid name, insert mark otherwise. |
| 2150 | 2150 | ||
| 2151 | * tempo.el (tempo-dolist): Changed (cadr ...) to (car (cdr ...)). | 2151 | * tempo.el (tempo-dolist): Changed (cadr ...) to (car (cdr ...)). |
| @@ -2457,7 +2457,7 @@ | |||
| 2457 | (enriched-delq-1, enriched-make-list-uniq) | 2457 | (enriched-delq-1, enriched-make-list-uniq) |
| 2458 | (enriched-make-relatively-unique, enriched-common-tail) | 2458 | (enriched-make-relatively-unique, enriched-common-tail) |
| 2459 | (enriched-reorder, enriched-insert-annotations) | 2459 | (enriched-reorder, enriched-insert-annotations) |
| 2460 | (enriched-loc-annotations, enriched-annotate-change | 2460 | (enriched-loc-annotations, enriched-annotate-change) |
| 2461 | (enriched-encode-unknown): Move to format.el. Names changed. | 2461 | (enriched-encode-unknown): Move to format.el. Names changed. |
| 2462 | 2462 | ||
| 2463 | (enriched-display-table): Copy standard table if there is one, | 2463 | (enriched-display-table): Copy standard table if there is one, |
| @@ -3365,7 +3365,7 @@ | |||
| 3365 | (ispell-command-loop): Properly adjust screen with different settings | 3365 | (ispell-command-loop): Properly adjust screen with different settings |
| 3366 | of ispell-choices-win-default-height. | 3366 | of ispell-choices-win-default-height. |
| 3367 | (check-ispell-version): Use fundamental-mode as default-major-mode. | 3367 | (check-ispell-version): Use fundamental-mode as default-major-mode. |
| 3368 | (ispell-change-dictionary): Remove unnecessary process kills | 3368 | (ispell-change-dictionary): Remove unnecessary process kills. |
| 3369 | (ispell-region): Fold sgml support in with tib checking. | 3369 | (ispell-region): Fold sgml support in with tib checking. |
| 3370 | (ispell-message): Skips checking of forwarded messages. | 3370 | (ispell-message): Skips checking of forwarded messages. |
| 3371 | 3371 | ||
| @@ -3526,7 +3526,7 @@ | |||
| 3526 | 3526 | ||
| 3527 | 1995-02-02 Richard Stallman <rms@pogo.gnu.ai.mit.edu> | 3527 | 1995-02-02 Richard Stallman <rms@pogo.gnu.ai.mit.edu> |
| 3528 | 3528 | ||
| 3529 | * c-mode.el (c-mode-map): No binding for c-fill-paragraph | 3529 | * c-mode.el (c-mode-map): No binding for c-fill-paragraph. |
| 3530 | (c-fill-paragraph): Return t. | 3530 | (c-fill-paragraph): Return t. |
| 3531 | (c-mode): Put c-fill-paragraph in fill-paragraph-function. | 3531 | (c-mode): Put c-fill-paragraph in fill-paragraph-function. |
| 3532 | 3532 | ||
| @@ -3770,7 +3770,7 @@ | |||
| 3770 | * tempo.el (tempo-insert-template): Quoted transient-mark-mode | 3770 | * tempo.el (tempo-insert-template): Quoted transient-mark-mode |
| 3771 | Expansion around region now puts point at the first mark. | 3771 | Expansion around region now puts point at the first mark. |
| 3772 | 3772 | ||
| 3773 | * tempo.el (tempo-region-start, tempo-region-stop): New variables | 3773 | * tempo.el (tempo-region-start, tempo-region-stop): New variables. |
| 3774 | (tempo-insert-template, tempo-insert): Don't affect the | 3774 | (tempo-insert-template, tempo-insert): Don't affect the |
| 3775 | mark. Check for Transient Mark mode. | 3775 | mark. Check for Transient Mark mode. |
| 3776 | 3776 | ||
| @@ -3965,7 +3965,7 @@ | |||
| 3965 | Keybinding for bold-italic changed from M-g o to M-g l; M-g o is | 3965 | Keybinding for bold-italic changed from M-g o to M-g l; M-g o is |
| 3966 | now "other". | 3966 | now "other". |
| 3967 | (facemenu-justification-menu, facemenu-indentation-menu): | 3967 | (facemenu-justification-menu, facemenu-indentation-menu): |
| 3968 | New submenus, moved from enriched.el | 3968 | New submenus, moved from enriched.el. |
| 3969 | (list-colors-display, facemenu-color-equal): New functions. | 3969 | (list-colors-display, facemenu-color-equal): New functions. |
| 3970 | (facemenu-menu): Added "Display Faces" item. | 3970 | (facemenu-menu): Added "Display Faces" item. |
| 3971 | (facemenu-new-faces-at-end): New variable. | 3971 | (facemenu-new-faces-at-end): New variable. |
| @@ -4554,18 +4554,18 @@ | |||
| 4554 | reference keys before they are used. | 4554 | reference keys before they are used. |
| 4555 | (bibtex-generate-autokey, bibtex-clean-entry): New function to | 4555 | (bibtex-generate-autokey, bibtex-clean-entry): New function to |
| 4556 | generate an autokey if necessary. | 4556 | generate an autokey if necessary. |
| 4557 | (bibtex-autokey-names, bibtex-autokey-name-change-strings, | 4557 | (bibtex-autokey-names, bibtex-autokey-name-change-strings) |
| 4558 | bibtex-autokey-name-length, bibtex-autokey-name-separator, | 4558 | (bibtex-autokey-name-length, bibtex-autokey-name-separator) |
| 4559 | bibtex-autokey-year-length, bibtex-autokey-titlewords, | 4559 | (bibtex-autokey-year-length, bibtex-autokey-titlewords) |
| 4560 | bibtex-autokey-title-terminators, | 4560 | (bibtex-autokey-title-terminators) |
| 4561 | bibtex-autokey-titlewords-stretch, | 4561 | (bibtex-autokey-titlewords-stretch) |
| 4562 | bibtex-autokey-titleword-first-ignore, | 4562 | (bibtex-autokey-titleword-first-ignore) |
| 4563 | bibtex-autokey-titleword-abbrevs, | 4563 | (bibtex-autokey-titleword-abbrevs) |
| 4564 | bibtex-autokey-titleword-change-strings, | 4564 | (bibtex-autokey-titleword-change-strings) |
| 4565 | bibtex-autokey-titleword-length, | 4565 | (bibtex-autokey-titleword-length) |
| 4566 | bibtex-autokey-titleword-separator, | 4566 | (bibtex-autokey-titleword-separator) |
| 4567 | bibtex-autokey-name-year-separator, | 4567 | (bibtex-autokey-name-year-separator) |
| 4568 | bibtex-autokey-year-title-separator): New variables related to | 4568 | (bibtex-autokey-year-title-separator): New variables related to |
| 4569 | bibtex-generate-autokey. | 4569 | bibtex-generate-autokey. |
| 4570 | (bibtex-find-entry-location): Optional second parameter maybedup | 4570 | (bibtex-find-entry-location): Optional second parameter maybedup |
| 4571 | to tell it that entering a duplicate entry isn't to report by an | 4571 | to tell it that entering a duplicate entry isn't to report by an |
| @@ -4591,14 +4591,14 @@ | |||
| 4591 | (validate-bibtex-buffer): Completely rewritten to validate, if | 4591 | (validate-bibtex-buffer): Completely rewritten to validate, if |
| 4592 | buffer is syntactically correct. | 4592 | buffer is syntactically correct. |
| 4593 | (find-bibtex-duplicates): Moved into validate-bibtex-buffer. | 4593 | (find-bibtex-duplicates): Moved into validate-bibtex-buffer. |
| 4594 | (ispell-abstract, bibtex-ispell-abstract, ispell-bibtex-entry, | 4594 | (ispell-abstract, bibtex-ispell-abstract, ispell-bibtex-entry) |
| 4595 | bibtex-ispell-entry, beginning-of-bibtex-entry, | 4595 | (bibtex-ispell-entry, beginning-of-bibtex-entry) |
| 4596 | bibtex-beginning-of-entry, end-of-bibtex-entry, | 4596 | (bibtex-beginning-of-entry, end-of-bibtex-entry) |
| 4597 | bibtex-end-of-entry, hide-bibtex-entry-bodies, | 4597 | (bibtex-end-of-entry, hide-bibtex-entry-bodies) |
| 4598 | bibtex-hide-entry-bodies, narrow-to-bibtex-entry, | 4598 | (bibtex-hide-entry-bodies, narrow-to-bibtex-entry) |
| 4599 | bibtex-narrow-to-entry, sort-bibtex-entries, bibtex-sort-entries, | 4599 | (bibtex-narrow-to-entry, sort-bibtex-entries, bibtex-sort-entries) |
| 4600 | validate-bibtex-buffer, bibtex-validate-buffer, | 4600 | (validate-bibtex-buffer, bibtex-validate-buffer) |
| 4601 | find-bibtex-entry-location, bibtex-find-entry-location): All | 4601 | (find-bibtex-entry-location, bibtex-find-entry-location): All |
| 4602 | interactive functions are renamed, so that any interface function | 4602 | interactive functions are renamed, so that any interface function |
| 4603 | begins with "bibtex-". Mapping: | 4603 | begins with "bibtex-". Mapping: |
| 4604 | ispell-abstract --> bibtex-ispell-abstract | 4604 | ispell-abstract --> bibtex-ispell-abstract |
| @@ -4610,8 +4610,8 @@ | |||
| 4610 | sort-bibtex-entries --> bibtex-sort-entries | 4610 | sort-bibtex-entries --> bibtex-sort-entries |
| 4611 | validate-bibtex-buffer --> bibtex-validate-buffer | 4611 | validate-bibtex-buffer --> bibtex-validate-buffer |
| 4612 | find-bibtex-entry-location --> bibtex-find-entry-location | 4612 | find-bibtex-entry-location --> bibtex-find-entry-location |
| 4613 | (bibtex-maintain-sorted-entries, | 4613 | (bibtex-maintain-sorted-entries) |
| 4614 | bibtex-sort-ignore-string-entries): Default is now t. | 4614 | (bibtex-sort-ignore-string-entries): Default is now t. |
| 4615 | (bibtex-complete-string): String list is built from additional | 4615 | (bibtex-complete-string): String list is built from additional |
| 4616 | string list bibtex-predefined-string and current strings in file. | 4616 | string list bibtex-predefined-string and current strings in file. |
| 4617 | (string-equalp): Deleted and substituted by string-equal. | 4617 | (string-equalp): Deleted and substituted by string-equal. |
| @@ -4633,8 +4633,8 @@ | |||
| 4633 | (bibtex-current-entry-label, put-string-on-kill-ring): Deleted | 4633 | (bibtex-current-entry-label, put-string-on-kill-ring): Deleted |
| 4634 | (AUCTeX provides all the functionality needed for citation | 4634 | (AUCTeX provides all the functionality needed for citation |
| 4635 | completion). | 4635 | completion). |
| 4636 | (bibtex-enclosing-reference, bibtex-pop-previous, bibtex-pop-next, | 4636 | (bibtex-enclosing-reference, bibtex-pop-previous, bibtex-pop-next) |
| 4637 | bibtex-clean-entry): Hacked for speed (bibtex-pop-previous and | 4637 | (bibtex-clean-entry): Hacked for speed (bibtex-pop-previous and |
| 4638 | bibtex-pop-next were to slow for larger BibTeX files). | 4638 | bibtex-pop-next were to slow for larger BibTeX files). |
| 4639 | (bibtex-pop-previous, bibtex-pop-next): Delimiters from previous | 4639 | (bibtex-pop-previous, bibtex-pop-next): Delimiters from previous |
| 4640 | or next entry are changed to actual delimiters if necessary. | 4640 | or next entry are changed to actual delimiters if necessary. |
| @@ -4657,7 +4657,7 @@ | |||
| 4657 | bibtex-pop-next didn't work, probably due to a bug in | 4657 | bibtex-pop-next didn't work, probably due to a bug in |
| 4658 | re-search-forward). | 4658 | re-search-forward). |
| 4659 | (several functions): Added support for {} as field delimiters | 4659 | (several functions): Added support for {} as field delimiters |
| 4660 | (better than '"' for accented characters. | 4660 | (better than '"' for accented characters). |
| 4661 | (bibtex-clean-entry): If optional field crossref is empty or | 4661 | (bibtex-clean-entry): If optional field crossref is empty or |
| 4662 | missing, former optional fields (if bibtex-include-OPTcrossref was | 4662 | missing, former optional fields (if bibtex-include-OPTcrossref was |
| 4663 | t) are necessary again. bibtex-clean-entry complains if they are | 4663 | t) are necessary again. bibtex-clean-entry complains if they are |
| @@ -4825,8 +4825,8 @@ | |||
| 4825 | 1994-12-09 Ken Stevens <stevensk@afit.af.mil> | 4825 | 1994-12-09 Ken Stevens <stevensk@afit.af.mil> |
| 4826 | 4826 | ||
| 4827 | * ispell.el: Added ispell-offset for version consistency. | 4827 | * ispell.el: Added ispell-offset for version consistency. |
| 4828 | (ispell-dictionary-alist): Updated dictionaries & better match defaults | 4828 | (ispell-dictionary-alist): Updated dictionaries & better match defaults. |
| 4829 | (ispell-alternate-dictionary): Added /usr/shar path | 4829 | (ispell-alternate-dictionary): Added /usr/shar path. |
| 4830 | (ispell-menu-map-needed): Redo changes that made this incompatible | 4830 | (ispell-menu-map-needed): Redo changes that made this incompatible |
| 4831 | with earlier versions of Emacs19. | 4831 | with earlier versions of Emacs19. |
| 4832 | (ispell-required-version): Changed to assure version 3.1.12 accessed. | 4832 | (ispell-required-version): Changed to assure version 3.1.12 accessed. |
| @@ -6112,7 +6112,7 @@ | |||
| 6112 | 1994-10-07 Richard Stallman <rms@mole.gnu.ai.mit.edu> | 6112 | 1994-10-07 Richard Stallman <rms@mole.gnu.ai.mit.edu> |
| 6113 | 6113 | ||
| 6114 | * mouse.el (mouse-major-mode-menu): New function, on C-mouse-3. | 6114 | * mouse.el (mouse-major-mode-menu): New function, on C-mouse-3. |
| 6115 | (mouse-major-mode-menu-1): New function | 6115 | (mouse-major-mode-menu-1): New function. |
| 6116 | (mouse-set-font): Move it to C-mouse-2. | 6116 | (mouse-set-font): Move it to C-mouse-2. |
| 6117 | 6117 | ||
| 6118 | * font-lock.el (font-lock-defaults-alist): Delete most modes--all | 6118 | * font-lock.el (font-lock-defaults-alist): Delete most modes--all |
| @@ -6534,7 +6534,7 @@ | |||
| 6534 | 6534 | ||
| 6535 | * cc-mode.el (c-progress-info, c-progress-init) | 6535 | * cc-mode.el (c-progress-info, c-progress-init) |
| 6536 | (c-progress-update, c-progress-fini): | 6536 | (c-progress-update, c-progress-fini): |
| 6537 | New vars/defuns for better long indentation progress reporting | 6537 | New vars/defuns for better long indentation progress reporting. |
| 6538 | (c-indent-exp, c-indent-region): Use them. | 6538 | (c-indent-exp, c-indent-region): Use them. |
| 6539 | 6539 | ||
| 6540 | * cc-mode.el (c-guess-basic-syntax): | 6540 | * cc-mode.el (c-guess-basic-syntax): |
| @@ -6542,7 +6542,7 @@ | |||
| 6542 | find proper relpos of an arglist-cont. | 6542 | find proper relpos of an arglist-cont. |
| 6543 | 6543 | ||
| 6544 | * cc-mode.el (c-offset-alist-default): | 6544 | * cc-mode.el (c-offset-alist-default): |
| 6545 | statement-case-open default offset is zero | 6545 | statement-case-open default offset is zero. |
| 6546 | (c-skip-case-statement-forward): New function. | 6546 | (c-skip-case-statement-forward): New function. |
| 6547 | (c-guess-basic-syntax): CASE 15: use c-skip-case-statement-forward in | 6547 | (c-guess-basic-syntax): CASE 15: use c-skip-case-statement-forward in |
| 6548 | proper places to find the real relpos of statement's inside switch | 6548 | proper places to find the real relpos of statement's inside switch |
| @@ -8795,9 +8795,9 @@ | |||
| 8795 | `gnus-uu-asynchronous' variable set. | 8795 | `gnus-uu-asynchronous' variable set. |
| 8796 | (gnus-uu-ctl-map): Removed the keystrokes `C-c C-v C-h' and | 8796 | (gnus-uu-ctl-map): Removed the keystrokes `C-c C-v C-h' and |
| 8797 | `C-c C-v h' from the keymap. | 8797 | `C-c C-v h' from the keymap. |
| 8798 | (gnus-uu-decode-and-view-all-articles, | 8798 | (gnus-uu-decode-and-view-all-articles) |
| 8799 | (gnus-uu-decode-and-view-all-unread-articles, | 8799 | (gnus-uu-decode-and-view-all-unread-articles) |
| 8800 | (gnus-uu-decode-and-save-all-unread-articles, | 8800 | (gnus-uu-decode-and-save-all-unread-articles) |
| 8801 | (gnus-uu-decode-and-save-all-articles): Accept prefix arg for # files. | 8801 | (gnus-uu-decode-and-save-all-articles): Accept prefix arg for # files. |
| 8802 | (gnus-uu-uustrip-article-as): Waits for uudecode to finish before | 8802 | (gnus-uu-uustrip-article-as): Waits for uudecode to finish before |
| 8803 | further treatment of the resulting files. | 8803 | further treatment of the resulting files. |
diff --git a/lisp/ChangeLog.6 b/lisp/ChangeLog.6 index 45c832c5e24..e5bd7fa9d27 100644 --- a/lisp/ChangeLog.6 +++ b/lisp/ChangeLog.6 | |||
| @@ -1420,7 +1420,7 @@ | |||
| 1420 | Added default constants. | 1420 | Added default constants. |
| 1421 | (simula-emacs-features): New constant to hold information | 1421 | (simula-emacs-features): New constant to hold information |
| 1422 | on which flavor if emacs is running (from cc-mode.el). | 1422 | on which flavor if emacs is running (from cc-mode.el). |
| 1423 | (simula-mode-menu): Menu definition for Lucid Emacs | 1423 | (simula-mode-menu): Menu definition for Lucid Emacs. |
| 1424 | (simula-mode-map): Bound new command simula-indent-exp to C-M-q | 1424 | (simula-mode-map): Bound new command simula-indent-exp to C-M-q |
| 1425 | and added lots of commands to [menu-bar]. | 1425 | and added lots of commands to [menu-bar]. |
| 1426 | (simula-popup-menu): New function for Lucid menus. | 1426 | (simula-popup-menu): New function for Lucid menus. |
| @@ -1577,7 +1577,7 @@ | |||
| 1577 | (gomoku-winning-qtuple-beg, gomoku-winning-qtuple-end) | 1577 | (gomoku-winning-qtuple-beg, gomoku-winning-qtuple-end) |
| 1578 | (gomoku-winning-qtuple-dx, gomoku-winning-qtuple-dy): Pseudo variables | 1578 | (gomoku-winning-qtuple-dx, gomoku-winning-qtuple-dy): Pseudo variables |
| 1579 | only used for non-functional argument passing deleted. | 1579 | only used for non-functional argument passing deleted. |
| 1580 | (gomoku-cross-winning-qtuple): Accordingly deleted function and | 1580 | (gomoku-cross-winning-qtuple): Accordingly deleted function. |
| 1581 | (gomoku-check-filled-qtuple): Accordingly adapted. | 1581 | (gomoku-check-filled-qtuple): Accordingly adapted. |
| 1582 | (gomoku-cross-qtuple): Don't be confused by tabs. | 1582 | (gomoku-cross-qtuple): Don't be confused by tabs. |
| 1583 | (gomoku-move-down, gomoku-move-up): Simplified because point is always | 1583 | (gomoku-move-down, gomoku-move-up): Simplified because point is always |
| @@ -2455,7 +2455,7 @@ | |||
| 2455 | 2455 | ||
| 2456 | * ediff-init.el (ediff-hide-face): New function. | 2456 | * ediff-init.el (ediff-hide-face): New function. |
| 2457 | (ediff-collect-diffs-metajob): Fixed. | 2457 | (ediff-collect-diffs-metajob): Fixed. |
| 2458 | (ediff-check-for-cl-seq): Function deleted | 2458 | (ediff-check-for-cl-seq): Function deleted. |
| 2459 | (ediff-abbreviate-file-name): Now a defun. | 2459 | (ediff-abbreviate-file-name): Now a defun. |
| 2460 | (ediff-has-face-support-p): New function. Ediff now supports | 2460 | (ediff-has-face-support-p): New function. Ediff now supports |
| 2461 | faces whenever possible. | 2461 | faces whenever possible. |
| @@ -2475,7 +2475,7 @@ | |||
| 2475 | (run-ediff-from-cvs-buffer): New function. Moved all | 2475 | (run-ediff-from-cvs-buffer): New function. Moved all |
| 2476 | version-control-related stuff to a new file, ediff-vers.el. | 2476 | version-control-related stuff to a new file, ediff-vers.el. |
| 2477 | 2477 | ||
| 2478 | * ediff-util.el (ediff-save-buffer-in-file): New function | 2478 | * ediff-util.el (ediff-save-buffer-in-file): New function. |
| 2479 | (ediff-visible-region): No longer narrows the merge buffer. | 2479 | (ediff-visible-region): No longer narrows the merge buffer. |
| 2480 | (ediff-status-info): Now tells if we are focusing on regions where | 2480 | (ediff-status-info): Now tells if we are focusing on regions where |
| 2481 | both buffers differ from the ancestor. | 2481 | both buffers differ from the ancestor. |
| @@ -5884,7 +5884,7 @@ | |||
| 5884 | 5884 | ||
| 5885 | * ediff-meta.el: New file. | 5885 | * ediff-meta.el: New file. |
| 5886 | * ediff-hook.el: New file. | 5886 | * ediff-hook.el: New file. |
| 5887 | * ediff.el: Moved menubar definitions to a new file, ediff-hook.el | 5887 | * ediff.el: Moved menubar definitions to a new file, ediff-hook.el. |
| 5888 | (ediff-files, ediff-merge-files): Better file-name defaults. | 5888 | (ediff-files, ediff-merge-files): Better file-name defaults. |
| 5889 | (ediff-split-string): New function. | 5889 | (ediff-split-string): New function. |
| 5890 | (ediff-exec-process): Now handles diff args separated by space. | 5890 | (ediff-exec-process): Now handles diff args separated by space. |
| @@ -6855,11 +6855,11 @@ | |||
| 6855 | 6855 | ||
| 6856 | 1995-08-15 Daniel Pfeiffer <Daniel.Pfeiffer@Informatik.START.dbp.de> | 6856 | 1995-08-15 Daniel Pfeiffer <Daniel.Pfeiffer@Informatik.START.dbp.de> |
| 6857 | 6857 | ||
| 6858 | * skeleton.el (skeleton-pair-insert-maybe): Plain insert in Ovwrt mode | 6858 | * skeleton.el (skeleton-pair-insert-maybe): Plain insert in Ovwrt mode. |
| 6859 | (skeleton-insert): If skeleton doesn't fit in window, put beginning | 6859 | (skeleton-insert): If skeleton doesn't fit in window, put beginning |
| 6860 | at top before going to _ point. | 6860 | at top before going to _ point. |
| 6861 | (skeleton-internal-list): Rewritten so that resume: sections pertain | 6861 | (skeleton-internal-list): Rewritten so that resume: sections pertain |
| 6862 | only to inferior skeletons and make str available there | 6862 | only to inferior skeletons and make str available there. |
| 6863 | (skeleton-read): Don't quit and remove partial skeleton when empty | 6863 | (skeleton-read): Don't quit and remove partial skeleton when empty |
| 6864 | string entered for outer iterator. Added implicit argument `input'. | 6864 | string entered for outer iterator. Added implicit argument `input'. |
| 6865 | (define-skeleton, skeleton-insert, skeleton-internal-list): Use `x | 6865 | (define-skeleton, skeleton-insert, skeleton-internal-list): Use `x |
| @@ -7301,7 +7301,7 @@ | |||
| 7301 | 1995-07-22 Daniel Pfeiffer <Daniel.Pfeiffer@Informatik.START.dbp.de> | 7301 | 1995-07-22 Daniel Pfeiffer <Daniel.Pfeiffer@Informatik.START.dbp.de> |
| 7302 | 7302 | ||
| 7303 | * apropos.el: Add latest changes of old library and some more. | 7303 | * apropos.el: Add latest changes of old library and some more. |
| 7304 | (apropos): Only show unbound symbols when do-all | 7304 | (apropos): Only show unbound symbols when do-all. |
| 7305 | (apropos-documentation-check-elc-file): New copied function. | 7305 | (apropos-documentation-check-elc-file): New copied function. |
| 7306 | (apropos-command): Also use `apropos-do-all' when called as function. | 7306 | (apropos-command): Also use `apropos-do-all' when called as function. |
| 7307 | (apropos-print-doc): Renamed from `apropos-print-documentation', i | 7307 | (apropos-print-doc): Renamed from `apropos-print-documentation', i |
| @@ -7632,7 +7632,7 @@ | |||
| 7632 | (apropos-use-faces, apropos-local-map): New variables. | 7632 | (apropos-use-faces, apropos-local-map): New variables. |
| 7633 | (apropos-command): New name for `command-apropos' no longer in help.el. | 7633 | (apropos-command): New name for `command-apropos' no longer in help.el. |
| 7634 | (apropos-value): New command. | 7634 | (apropos-value): New command. |
| 7635 | (apropos-documentation): New name for `super-apropos' | 7635 | (apropos-documentation): New name for `super-apropos'. |
| 7636 | (apropos-follow, apropos-mouse-follow): New commands for hypertext. | 7636 | (apropos-follow, apropos-mouse-follow): New commands for hypertext. |
| 7637 | (apropos-describe-plist): New function. | 7637 | (apropos-describe-plist): New function. |
| 7638 | 7638 | ||
| @@ -7644,8 +7644,8 @@ | |||
| 7644 | 7644 | ||
| 7645 | * skeleton.el: Partly rewritten and extended. | 7645 | * skeleton.el: Partly rewritten and extended. |
| 7646 | (skeleton-filter, skeleton-untabify, skeleton-further-elements) | 7646 | (skeleton-filter, skeleton-untabify, skeleton-further-elements) |
| 7647 | (skeleton-abbrev-cleanup): New variables | 7647 | (skeleton-abbrev-cleanup): New variables. |
| 7648 | (skeleton-proxy, skeleton-abbrev-cleanup): New functions | 7648 | (skeleton-proxy, skeleton-abbrev-cleanup): New functions. |
| 7649 | (skeleton-insert): Sublanguage element < must now be handled via | 7649 | (skeleton-insert): Sublanguage element < must now be handled via |
| 7650 | `skeleton-further-elements' (used only in sh-script and ada). Lisp | 7650 | `skeleton-further-elements' (used only in sh-script and ada). Lisp |
| 7651 | expressions can be quoted to ignore the return value. | 7651 | expressions can be quoted to ignore the return value. |
| @@ -7798,7 +7798,7 @@ | |||
| 7798 | 7798 | ||
| 7799 | 1995-06-29 David M. Smith <D.M.Smith@lancaster.ac.uk> | 7799 | 1995-06-29 David M. Smith <D.M.Smith@lancaster.ac.uk> |
| 7800 | 7800 | ||
| 7801 | * ielm.el (ielm-font-lock-keywords): New variable | 7801 | * ielm.el (ielm-font-lock-keywords): New variable. |
| 7802 | (inferior-emacs-lisp-mode): Use it for font-lock support | 7802 | (inferior-emacs-lisp-mode): Use it for font-lock support |
| 7803 | 7803 | ||
| 7804 | 1995-06-29 Bryan O'Sullivan <bos@Eng.Sun.COM> | 7804 | 1995-06-29 Bryan O'Sullivan <bos@Eng.Sun.COM> |
diff --git a/lisp/ChangeLog.8 b/lisp/ChangeLog.8 index 8ecf3f0e33a..8a30b0c6d90 100644 --- a/lisp/ChangeLog.8 +++ b/lisp/ChangeLog.8 | |||
| @@ -104,7 +104,7 @@ | |||
| 104 | version numbering regexp list | 104 | version numbering regexp list |
| 105 | change-log-version-number-regexp-list. | 105 | change-log-version-number-regexp-list. |
| 106 | (change-log-find-version): Renamed to | 106 | (change-log-find-version): Renamed to |
| 107 | change-log-version-number-search | 107 | change-log-version-number-search. |
| 108 | (add-log-file-name-function): New. | 108 | (add-log-file-name-function): New. |
| 109 | (change-log-search-vc-number): Added END parameter. Added doc | 109 | (change-log-search-vc-number): Added END parameter. Added doc |
| 110 | string to function. | 110 | string to function. |
| @@ -338,7 +338,7 @@ | |||
| 338 | 1999-12-15 Carsten Dominik <dominik@astro.uva.nl> | 338 | 1999-12-15 Carsten Dominik <dominik@astro.uva.nl> |
| 339 | 339 | ||
| 340 | * textmodes/reftex.el (reftex-compile-variables): Respect new | 340 | * textmodes/reftex.el (reftex-compile-variables): Respect new |
| 341 | structure of `reftex-index-macro' | 341 | structure of `reftex-index-macro'. |
| 342 | (reftex-compile-variables): Use the changed structure of | 342 | (reftex-compile-variables): Use the changed structure of |
| 343 | `reftex-label-alist'. | 343 | `reftex-label-alist'. |
| 344 | 344 | ||
| @@ -448,7 +448,7 @@ | |||
| 448 | ps-mule-prepare-cmpchar-font): Deleted. | 448 | ps-mule-prepare-cmpchar-font): Deleted. |
| 449 | (ps-mule-string-encoding): New arg NO-SETFONT. | 449 | (ps-mule-string-encoding): New arg NO-SETFONT. |
| 450 | (ps-mule-bitmap-prologue): In Postscript code of BuildGlyphCommon, | 450 | (ps-mule-bitmap-prologue): In Postscript code of BuildGlyphCommon, |
| 451 | check Composing, not Cmpchar | 451 | check Composing, not Cmpchar. |
| 452 | (ps-mule-initialize): Set ps-mule-composition-prologue-generated | 452 | (ps-mule-initialize): Set ps-mule-composition-prologue-generated |
| 453 | to nil. | 453 | to nil. |
| 454 | (ps-mule-begin-job): Check existence of new composition. | 454 | (ps-mule-begin-job): Check existence of new composition. |
| @@ -978,7 +978,7 @@ | |||
| 978 | (font-lock-add-keywords): Rename `major-mode' into `mode'. | 978 | (font-lock-add-keywords): Rename `major-mode' into `mode'. |
| 979 | (font-lock-remove-keywords): Added a dummy `mode' argument for | 979 | (font-lock-remove-keywords): Added a dummy `mode' argument for |
| 980 | potential future support. | 980 | potential future support. |
| 981 | (font-lock-fontify-anchored-keywords, | 981 | (font-lock-fontify-anchored-keywords) |
| 982 | (font-lock-fontify-keywords-region): Only handle multiline strings | 982 | (font-lock-fontify-keywords-region): Only handle multiline strings |
| 983 | if necessary (avoids a pathological behavior in (f.ex) diff-mode). | 983 | if necessary (avoids a pathological behavior in (f.ex) diff-mode). |
| 984 | 984 | ||
| @@ -1603,7 +1603,7 @@ | |||
| 1603 | the new backquote syntax. | 1603 | the new backquote syntax. |
| 1604 | (smbclient-program, smbclient-program-options) | 1604 | (smbclient-program, smbclient-program-options) |
| 1605 | (smbclient-prompt-regexp, smbclient-font-lock-keywords): New | 1605 | (smbclient-prompt-regexp, smbclient-font-lock-keywords): New |
| 1606 | variables | 1606 | variables. |
| 1607 | (smbclient, smbclient-list-shares): New functions | 1607 | (smbclient, smbclient-list-shares): New functions |
| 1608 | 1608 | ||
| 1609 | 1999-11-12 Sam Steingold <sds@ksp.com> | 1609 | 1999-11-12 Sam Steingold <sds@ksp.com> |
| @@ -1858,7 +1858,7 @@ | |||
| 1858 | * whitespace.el: Test for existence of `defcustom' and `defgroup' | 1858 | * whitespace.el: Test for existence of `defcustom' and `defgroup' |
| 1859 | using fboundp instead of assuming that these are not present in | 1859 | using fboundp instead of assuming that these are not present in |
| 1860 | particular flavors of emacs. | 1860 | particular flavors of emacs. |
| 1861 | (whitespace-version): Update to 2.8 | 1861 | (whitespace-version): Update to 2.8. |
| 1862 | (whitespace-display-in-modeline): Add custom variable to control | 1862 | (whitespace-display-in-modeline): Add custom variable to control |
| 1863 | displaying the whitespace errors on the modeline based on | 1863 | displaying the whitespace errors on the modeline based on |
| 1864 | suggestion from <klaus.berndl@sdm.de> | 1864 | suggestion from <klaus.berndl@sdm.de> |
| @@ -2136,17 +2136,17 @@ | |||
| 2136 | 1999-10-19 Peter Kleiweg <kleiweg@let.rug.nl> | 2136 | 1999-10-19 Peter Kleiweg <kleiweg@let.rug.nl> |
| 2137 | 2137 | ||
| 2138 | * progmodes/ps-mode.el (ps-mode-print-function): Fix default | 2138 | * progmodes/ps-mode.el (ps-mode-print-function): Fix default |
| 2139 | value: \"lpr\" changed to "lpr" | 2139 | value: \"lpr\" changed to "lpr". |
| 2140 | (ps-mode-version): New constant | 2140 | (ps-mode-version): New constant. |
| 2141 | (ps-mode-show-version): New function, added key in ps-mode-map | 2141 | (ps-mode-show-version): New function, added key in ps-mode-map. |
| 2142 | (ps-run-messages): Removed | 2142 | (ps-run-messages): Removed. |
| 2143 | (ps-run-font-lock-keywords-2): New defcustom variable replacing | 2143 | (ps-run-font-lock-keywords-2): New defcustom variable replacing |
| 2144 | ps-run-messages. These keywords now include the value of | 2144 | ps-run-messages. These keywords now include the value of |
| 2145 | ps-run-prompt, making its fontification customizable. | 2145 | ps-run-prompt, making its fontification customizable. |
| 2146 | (ps-run-init): Removed \\n from docstring, it is now added when | 2146 | (ps-run-init): Removed \\n from docstring, it is now added when |
| 2147 | the value is used | 2147 | the value is used. |
| 2148 | (ps-run-font-lock-keywords-1): Added checking for initial ^ in | 2148 | (ps-run-font-lock-keywords-1): Added checking for initial ^ in |
| 2149 | ps-run-prompt | 2149 | ps-run-prompt. |
| 2150 | (ps-mode): Added ps-run-font-lock-keywords-2 to list of | 2150 | (ps-mode): Added ps-run-font-lock-keywords-2 to list of |
| 2151 | customizable variables in doc-string (its equivalent | 2151 | customizable variables in doc-string (its equivalent |
| 2152 | ps-run-messages was missing in previous version of the doc-string). | 2152 | ps-run-messages was missing in previous version of the doc-string). |
| @@ -2271,7 +2271,7 @@ | |||
| 2271 | 1999-10-14 Stefan Monnier <monnier@cs.yale.edu> | 2271 | 1999-10-14 Stefan Monnier <monnier@cs.yale.edu> |
| 2272 | 2272 | ||
| 2273 | * ange-ftp.el (ange-ftp-make-tmp-name, ange-ftp-del-tmp-name): | 2273 | * ange-ftp.el (ange-ftp-make-tmp-name, ange-ftp-del-tmp-name): |
| 2274 | * browse-url.el (browse-url-of-buffer, browse-url-delete-temp-file), | 2274 | * browse-url.el (browse-url-of-buffer, browse-url-delete-temp-file) |
| 2275 | (browse-url-temp-file-list, browse-url-delete-temp-file-list): | 2275 | (browse-url-temp-file-list, browse-url-delete-temp-file-list): |
| 2276 | * ediff-util.el (ediff-make-temp-file): | 2276 | * ediff-util.el (ediff-make-temp-file): |
| 2277 | * ediff-vers.el (ediff-pcl-cvs-view-revision): | 2277 | * ediff-vers.el (ediff-pcl-cvs-view-revision): |
| @@ -2830,7 +2830,7 @@ | |||
| 2830 | (custom-buffer-create-internal): Obey custom-raised-buttons, | 2830 | (custom-buffer-create-internal): Obey custom-raised-buttons, |
| 2831 | Custom-buffer-done. | 2831 | Custom-buffer-done. |
| 2832 | (custom-button-face): Make it `released-button'. | 2832 | (custom-button-face): Make it `released-button'. |
| 2833 | (custom-button-pressed-face): Make it `pressed-button' | 2833 | (custom-button-pressed-face): Make it `pressed-button'. |
| 2834 | (custom-mode-map): Bind "q" to Custom-buffer-done. | 2834 | (custom-mode-map): Bind "q" to Custom-buffer-done. |
| 2835 | (custom-mode): Deal with raised/pressed buttons. | 2835 | (custom-mode): Deal with raised/pressed buttons. |
| 2836 | 2836 | ||
| @@ -2987,7 +2987,7 @@ | |||
| 2987 | font-lock-defaults setting. | 2987 | font-lock-defaults setting. |
| 2988 | (java-properties-generic-mode): Supports both ! and # as comment | 2988 | (java-properties-generic-mode): Supports both ! and # as comment |
| 2989 | characters. | 2989 | characters. |
| 2990 | (java-properties-generic-mode): Added an imenu-generic-expression | 2990 | (java-properties-generic-mode): Added an imenu-generic-expression. |
| 2991 | (java-properties-generic-mode): Reworked to support the various | 2991 | (java-properties-generic-mode): Reworked to support the various |
| 2992 | different ways to separate name and value (viz, '=', ':' and | 2992 | different ways to separate name and value (viz, '=', ':' and |
| 2993 | whitespace). | 2993 | whitespace). |
| @@ -3483,7 +3483,7 @@ | |||
| 3483 | (reftex-toc-find-section): Use new version of `reftex-nearest-match'. | 3483 | (reftex-toc-find-section): Use new version of `reftex-nearest-match'. |
| 3484 | (reftex-insert-docstruct): Adapted to work with the index stuff. | 3484 | (reftex-insert-docstruct): Adapted to work with the index stuff. |
| 3485 | (reftex-parse-from-file): Find index entries as well. | 3485 | (reftex-parse-from-file): Find index entries as well. |
| 3486 | (reftex-toc-toggle-index): New function | 3486 | (reftex-toc-toggle-index): New function. |
| 3487 | (reftex-toc-map): `i' is now used to toggle the index, File | 3487 | (reftex-toc-map): `i' is now used to toggle the index, File |
| 3488 | boundaries has been moved to `F'. | 3488 | boundaries has been moved to `F'. |
| 3489 | (reftex-select-label-map): Toggling display of file boundaries is | 3489 | (reftex-select-label-map): Toggling display of file boundaries is |
| @@ -3506,7 +3506,7 @@ | |||
| 3506 | (reftex-index-section-letters, reftex-index-include-context) | 3506 | (reftex-index-section-letters, reftex-index-include-context) |
| 3507 | (reftex-index-follow-mode, reftex-index-header-face) | 3507 | (reftex-index-follow-mode, reftex-index-header-face) |
| 3508 | (reftex-index-section-face, reftex-index-tag-face) | 3508 | (reftex-index-section-face, reftex-index-tag-face) |
| 3509 | (reftex-index-face): New options | 3509 | (reftex-index-face): New options. |
| 3510 | (reftex-index-map, reftex-index-menu, reftex-last-index-file) | 3510 | (reftex-index-map, reftex-index-menu, reftex-last-index-file) |
| 3511 | (reftex-index-tag, reftex-index-return-marker) | 3511 | (reftex-index-tag, reftex-index-return-marker) |
| 3512 | (reftex-index-restriction-indicator, reftex-index-restriction-data) | 3512 | (reftex-index-restriction-indicator, reftex-index-restriction-data) |
| @@ -3514,9 +3514,9 @@ | |||
| 3514 | (reftex-index-key-end-re, reftex-find-index-entry-regexp-format) | 3514 | (reftex-index-key-end-re, reftex-find-index-entry-regexp-format) |
| 3515 | (reftex-everything-regexp-no-index, reftex-index-re) | 3515 | (reftex-everything-regexp-no-index, reftex-index-re) |
| 3516 | (reftex-macros-with-index, reftex-index-macro-alist): New variables. | 3516 | (reftex-macros-with-index, reftex-index-macro-alist): New variables. |
| 3517 | (reftex-index-help, reftex-index-macros-builtin, | 3517 | (reftex-index-help, reftex-index-macros-builtin) |
| 3518 | (reftex-key-to-index-macro-alist, reftex-query-index-macro-prompt) | 3518 | (reftex-key-to-index-macro-alist, reftex-query-index-macro-prompt) |
| 3519 | (reftex-query-index-macro-help): New constants | 3519 | (reftex-query-index-macro-help): New constants. |
| 3520 | (reftex-index-selection-or-word, reftex-index) | 3520 | (reftex-index-selection-or-word, reftex-index) |
| 3521 | (reftex-default-index, reftex-update-default-index) | 3521 | (reftex-default-index, reftex-update-default-index) |
| 3522 | (reftex-index-complete-tag, reftex-index-select-tag) | 3522 | (reftex-index-complete-tag, reftex-index-select-tag) |
| @@ -3607,7 +3607,7 @@ | |||
| 3607 | window; and poles can be oriented horizontally. Face support is | 3607 | window; and poles can be oriented horizontally. Face support is |
| 3608 | thrown in gratuitously. | 3608 | thrown in gratuitously. |
| 3609 | (hanoi): Changed default number of rings back to 3. | 3609 | (hanoi): Changed default number of rings back to 3. |
| 3610 | (hanoi-unix, hanoi-unix-64): New commands | 3610 | (hanoi-unix, hanoi-unix-64): New commands. |
| 3611 | (hanoi-horizontal-flag, hanoi-move-period, hanoi-use-faces, | 3611 | (hanoi-horizontal-flag, hanoi-move-period, hanoi-use-faces, |
| 3612 | hanoi-pole-face, hanoi-base-face, hanoi-even-ring-face, | 3612 | hanoi-pole-face, hanoi-base-face, hanoi-even-ring-face, |
| 3613 | hanoi-odd-ring-face): New variables. | 3613 | hanoi-odd-ring-face): New variables. |
| @@ -5777,20 +5777,20 @@ | |||
| 5777 | 1999-03-12 Eric M. Ludlam <zappo@ultranet.com> | 5777 | 1999-03-12 Eric M. Ludlam <zappo@ultranet.com> |
| 5778 | 5778 | ||
| 5779 | * speedbar.el: Added commentary about stealthy functions. | 5779 | * speedbar.el: Added commentary about stealthy functions. |
| 5780 | (speedbar-message) new function. | 5780 | (speedbar-message): New function. |
| 5781 | (speedbar-y-or-n-p): New function | 5781 | (speedbar-y-or-n-p): New function. |
| 5782 | (speedbar-with-attached-buffer) Moved macro before reference. | 5782 | (speedbar-with-attached-buffer): Moved macro before reference. |
| 5783 | Now uses `save-selected-window'. | 5783 | Now uses `save-selected-window'. |
| 5784 | (speedbar-mouse-hscroll, speedbar-track-mouse, speedbar-refresh, | 5784 | (speedbar-mouse-hscroll, speedbar-track-mouse, speedbar-refresh) |
| 5785 | speedbar-generic-item-info, speedbar-item-info-file-helper, | 5785 | (speedbar-generic-item-info, speedbar-item-info-file-helper) |
| 5786 | speedbar-item-delete, speedbar-insert-generic-list, | 5786 | (speedbar-item-delete, speedbar-insert-generic-list) |
| 5787 | speedbar-timer-fn, speedbar-check-vc-this-line, | 5787 | (speedbar-timer-fn, speedbar-check-vc-this-line) |
| 5788 | speedbar-check-obj-this-line, speedbar-fetch-dynamic-etags, | 5788 | (speedbar-check-obj-this-line, speedbar-fetch-dynamic-etags) |
| 5789 | speedbar-buffers-item-info) Use speedbar-message. | 5789 | (speedbar-buffers-item-info): Use speedbar-message. |
| 5790 | (speedbar-item-info) Limit `message-log-max'. | 5790 | (speedbar-item-info): Limit `message-log-max'. |
| 5791 | (speedbar-item-load, speedbar-item-copy, speedbar-item-rename, | 5791 | (speedbar-item-load, speedbar-item-copy, speedbar-item-rename) |
| 5792 | speedbar-item-delete, speedbar-item-object-delete, | 5792 | (speedbar-item-delete, speedbar-item-object-delete) |
| 5793 | speedbar-buffer-kill-buffer) Use speedbar-y-or-n-p. | 5793 | (speedbar-buffer-kill-buffer): Use speedbar-y-or-n-p. |
| 5794 | 5794 | ||
| 5795 | 1999-03-10 Kenichi Handa <handa@mulelab.etl.go.jp> | 5795 | 1999-03-10 Kenichi Handa <handa@mulelab.etl.go.jp> |
| 5796 | 5796 | ||
| @@ -6230,7 +6230,7 @@ | |||
| 6230 | 6230 | ||
| 6231 | 1999-02-12 Alex Schroeder <a.schroeder@bsiag.ch> | 6231 | 1999-02-12 Alex Schroeder <a.schroeder@bsiag.ch> |
| 6232 | 6232 | ||
| 6233 | * sql.el: Set version to 1.3.2 | 6233 | * sql.el: Set version to 1.3.2. |
| 6234 | (sql-solid-program): Added support for solid. | 6234 | (sql-solid-program): Added support for solid. |
| 6235 | (sql-help): Doc mentions sql-solid. | 6235 | (sql-help): Doc mentions sql-solid. |
| 6236 | (sql-solid): Entry function for Solid. | 6236 | (sql-solid): Entry function for Solid. |
| @@ -6384,7 +6384,7 @@ | |||
| 6384 | coding-system-list here. | 6384 | coding-system-list here. |
| 6385 | 6385 | ||
| 6386 | * international/mule.el (coding-system-lessp): Moved here from | 6386 | * international/mule.el (coding-system-lessp): Moved here from |
| 6387 | mule-util.el | 6387 | mule-util.el. |
| 6388 | (add-to-coding-system-list): New function. | 6388 | (add-to-coding-system-list): New function. |
| 6389 | (make-subsidiary-coding-system, make-coding-system, | 6389 | (make-subsidiary-coding-system, make-coding-system, |
| 6390 | define-coding-system-alias): Use it instead of setting | 6390 | define-coding-system-alias): Use it instead of setting |
| @@ -6721,7 +6721,7 @@ | |||
| 6721 | (speedbar-add-mode-functions-list) Improve doc. | 6721 | (speedbar-add-mode-functions-list) Improve doc. |
| 6722 | (speedbar-line-token) New function. | 6722 | (speedbar-line-token) New function. |
| 6723 | (speedbar-dired) Fix order of directories in -shown-directories. | 6723 | (speedbar-dired) Fix order of directories in -shown-directories. |
| 6724 | (speedbar-line-path): Default return is default-directory | 6724 | (speedbar-line-path): Default return is default-directory. |
| 6725 | (speedbar-buffers-line-path): Return is dir name only. | 6725 | (speedbar-buffers-line-path): Return is dir name only. |
| 6726 | (speedbar-mode-functions-list): New variable. | 6726 | (speedbar-mode-functions-list): New variable. |
| 6727 | (speedbar-mouse-item-info): Rewrote to be a replaceable fn. | 6727 | (speedbar-mouse-item-info): Rewrote to be a replaceable fn. |
| @@ -7321,7 +7321,7 @@ | |||
| 7321 | 1998-12-29 Masatake Yamato <masata-y@tori.aist-nara.ac.jp> | 7321 | 1998-12-29 Masatake Yamato <masata-y@tori.aist-nara.ac.jp> |
| 7322 | 7322 | ||
| 7323 | * page-ext.el: Added mouse-selection feature for pages directory buffer. | 7323 | * page-ext.el: Added mouse-selection feature for pages directory buffer. |
| 7324 | (pages-directory-map): Bind mouse-2 | 7324 | (pages-directory-map): Bind mouse-2. |
| 7325 | (pages-copy-header-and-position): Put text property. | 7325 | (pages-copy-header-and-position): Put text property. |
| 7326 | (pages-directory-goto-with-mouse): New function. | 7326 | (pages-directory-goto-with-mouse): New function. |
| 7327 | 7327 | ||
| @@ -7399,7 +7399,7 @@ | |||
| 7399 | (cperl-after-block-p): Likewise. | 7399 | (cperl-after-block-p): Likewise. |
| 7400 | (cperl-after-block-and-statement-beg): Likewise. | 7400 | (cperl-after-block-and-statement-beg): Likewise. |
| 7401 | (cperl-after-block-p): After END/BEGIN we are a block. | 7401 | (cperl-after-block-p): After END/BEGIN we are a block. |
| 7402 | (cperl-after-expr-p): Skip labels when checking | 7402 | (cperl-after-expr-p): Skip labels when checking. |
| 7403 | (cperl-indent-region): Make a marker for END - text added/removed. | 7403 | (cperl-indent-region): Make a marker for END - text added/removed. |
| 7404 | Disable hooks during the call (how to call them later?). | 7404 | Disable hooks during the call (how to call them later?). |
| 7405 | Now indents 820-line-long function in 6.5 sec (including | 7405 | Now indents 820-line-long function in 6.5 sec (including |
| @@ -7462,7 +7462,7 @@ | |||
| 7462 | (cperl-fix-line-spacing): Sped up to bail out early. | 7462 | (cperl-fix-line-spacing): Sped up to bail out early. |
| 7463 | (x-color-defined-p): Was not compiling on XEmacs | 7463 | (x-color-defined-p): Was not compiling on XEmacs |
| 7464 | Was defmacro'ed with a tick. Remove another def. | 7464 | Was defmacro'ed with a tick. Remove another def. |
| 7465 | (cperl-clobber-lisp-bindings): If set, C-c variants are the old ones | 7465 | (cperl-clobber-lisp-bindings): If set, C-c variants are the old ones. |
| 7466 | (cperl-unwind-to-safe): New function. | 7466 | (cperl-unwind-to-safe): New function. |
| 7467 | (cperl-fontify-syntaxically): Use `cperl-unwind-to-safe' to start at | 7467 | (cperl-fontify-syntaxically): Use `cperl-unwind-to-safe' to start at |
| 7468 | reasonable position. | 7468 | reasonable position. |
| @@ -7512,7 +7512,7 @@ | |||
| 7512 | (cperl-etags-goto-tag-location): New macro. | 7512 | (cperl-etags-goto-tag-location): New macro. |
| 7513 | (cperl-version): New variable. New menu entry | 7513 | (cperl-version): New variable. New menu entry |
| 7514 | random docstrings: References to "future" 20.3 removed. | 7514 | random docstrings: References to "future" 20.3 removed. |
| 7515 | Menu was described as `CPerl' instead of `Perl' | 7515 | Menu was described as `CPerl' instead of `Perl'. |
| 7516 | (perl-font-lock-keywords): Would not highlight `sub foo($$);'. | 7516 | (perl-font-lock-keywords): Would not highlight `sub foo($$);'. |
| 7517 | (cperl-toggle-construct-fix): Was toggling to t instead of 1. | 7517 | (cperl-toggle-construct-fix): Was toggling to t instead of 1. |
| 7518 | (cperl-ps-print-init): Associate `cperl-array-face', `cperl-hash-face' | 7518 | (cperl-ps-print-init): Associate `cperl-array-face', `cperl-hash-face' |
| @@ -8972,7 +8972,7 @@ | |||
| 8972 | set unconditional-jump to nil. | 8972 | set unconditional-jump to nil. |
| 8973 | (ccl-compile-read-multibyte-character): Return nil. | 8973 | (ccl-compile-read-multibyte-character): Return nil. |
| 8974 | (ccl-compile-write-multibyte-character): Likewise. | 8974 | (ccl-compile-write-multibyte-character): Likewise. |
| 8975 | (ccl-compile-translate-character): Likewise | 8975 | (ccl-compile-translate-character): Likewise. |
| 8976 | (ccl-compile-map-multiple): Likewise. | 8976 | (ccl-compile-map-multiple): Likewise. |
| 8977 | (ccl-compile-map-single): Likewise. | 8977 | (ccl-compile-map-single): Likewise. |
| 8978 | 8978 | ||
| @@ -9055,7 +9055,7 @@ | |||
| 9055 | 9055 | ||
| 9056 | * net-utils.el (ftp, nslookup): Require comint. | 9056 | * net-utils.el (ftp, nslookup): Require comint. |
| 9057 | (network-service-connection): Likewise. | 9057 | (network-service-connection): Likewise. |
| 9058 | (whois-server-name): Defaults to whois.arin.net | 9058 | (whois-server-name): Defaults to whois.arin.net. |
| 9059 | (whois-server-list, whois-server-tld, whois-guess-server): New var. | 9059 | (whois-server-list, whois-server-tld, whois-guess-server): New var. |
| 9060 | (whois): Tries to guess the appropriate top-level domain server. | 9060 | (whois): Tries to guess the appropriate top-level domain server. |
| 9061 | (whois-get-tld): New function. | 9061 | (whois-get-tld): New function. |
| @@ -9599,7 +9599,7 @@ | |||
| 9599 | (reftex-view-cr-cite, reftex-view-cr-ref, reftex-end-of-bib-entry): | 9599 | (reftex-view-cr-cite, reftex-view-cr-ref, reftex-end-of-bib-entry): |
| 9600 | New functions. | 9600 | New functions. |
| 9601 | (reftex-auto-view-crossref): New value `window' allowed. | 9601 | (reftex-auto-view-crossref): New value `window' allowed. |
| 9602 | (reftex-view-crossref-when-idle): Process new `window' option in | 9602 | (reftex-view-crossref-when-idle): Process new `window' option. |
| 9603 | (reftex-translate-to-ascii-function): New default. | 9603 | (reftex-translate-to-ascii-function): New default. |
| 9604 | (reftex-label-illegal-re): Default changed, removed Latin1. | 9604 | (reftex-label-illegal-re): Default changed, removed Latin1. |
| 9605 | (reftex-latin1-to-ascii): New function. | 9605 | (reftex-latin1-to-ascii): New function. |
| @@ -9639,7 +9639,7 @@ | |||
| 9639 | (checkdoc-this-string-valid): When converting a comment into a doc | 9639 | (checkdoc-this-string-valid): When converting a comment into a doc |
| 9640 | string, make sure " chars are \". | 9640 | string, make sure " chars are \". |
| 9641 | (checkdoc-sentencespace-region-engine): Only do double space check | 9641 | (checkdoc-sentencespace-region-engine): Only do double space check |
| 9642 | if based on the variable `sentence-end-double-space' | 9642 | if based on the variable `sentence-end-double-space'. |
| 9643 | (checkdoc-this-string-valid-engine): ? ends valid sentence. | 9643 | (checkdoc-this-string-valid-engine): ? ends valid sentence. |
| 9644 | (checkdoc-proper-noun-region-engine): Exclude items in URLs | 9644 | (checkdoc-proper-noun-region-engine): Exclude items in URLs |
| 9645 | 9645 | ||
diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9 index d008640cbe3..39cfea5669b 100644 --- a/lisp/ChangeLog.9 +++ b/lisp/ChangeLog.9 | |||
| @@ -242,8 +242,8 @@ | |||
| 242 | (cperl-find-pods-heres): Could access `font-lock-comment-face' in -nw. | 242 | (cperl-find-pods-heres): Could access `font-lock-comment-face' in -nw. |
| 243 | No -nw-compile time warnings now. | 243 | No -nw-compile time warnings now. |
| 244 | (cperl-find-tags): TAGS file had too short substring-to-search. | 244 | (cperl-find-tags): TAGS file had too short substring-to-search. |
| 245 | Be less verbose in non-interactive mode | 245 | Be less verbose in non-interactive mode. |
| 246 | (imenu-example--create-perl-index): Set index-marker after name | 246 | (imenu-example--create-perl-index): Set index-marker after name. |
| 247 | (cperl-outline-regexp): New variable. | 247 | (cperl-outline-regexp): New variable. |
| 248 | (cperl-outline-level): Made compatible with `cperl-outline-regexp'. | 248 | (cperl-outline-level): Made compatible with `cperl-outline-regexp'. |
| 249 | (cperl-mode): Made use `cperl-outline-regexp'. | 249 | (cperl-mode): Made use `cperl-outline-regexp'. |
| @@ -479,7 +479,7 @@ | |||
| 479 | (help-setup-xref, help-xref-following, help-make-xrefs) | 479 | (help-setup-xref, help-xref-following, help-make-xrefs) |
| 480 | (help-xref-button, help-insert-xref-button, help-xref-interned) | 480 | (help-xref-button, help-insert-xref-button, help-xref-interned) |
| 481 | (help-xref-go-back, help-go-back, help-do-xref, help-follow) | 481 | (help-xref-go-back, help-go-back, help-do-xref, help-follow) |
| 482 | (help-xref-on-pp): Functions moved into `help-mode.el' | 482 | (help-xref-on-pp): Functions moved into `help-mode.el'. |
| 483 | (help-mode-map, help-xref-stack, help-xref-stack-item) | 483 | (help-mode-map, help-xref-stack, help-xref-stack-item) |
| 484 | (help-highlight-p, help-highlight-face, help-back-label) | 484 | (help-highlight-p, help-highlight-face, help-back-label) |
| 485 | (help-xref-symbol-regexp, help-xref-mule-regexp) | 485 | (help-xref-symbol-regexp, help-xref-mule-regexp) |
| @@ -1188,7 +1188,7 @@ | |||
| 1188 | 2001-09-07 Eli Zaretskii <eliz@is.elta.co.il> | 1188 | 2001-09-07 Eli Zaretskii <eliz@is.elta.co.il> |
| 1189 | 1189 | ||
| 1190 | * textmodes/ispell.el (ispell-dictionary-alist-4): Add "german" | 1190 | * textmodes/ispell.el (ispell-dictionary-alist-4): Add "german" |
| 1191 | and "german8", for the new German orthography dictionaries, | 1191 | and "german8", for the new German orthography dictionaries. |
| 1192 | (ispell-dictionary-alist-5, ispell-dictionary-alist-6): Rearrange | 1192 | (ispell-dictionary-alist-5, ispell-dictionary-alist-6): Rearrange |
| 1193 | the entries, to keep the line length balanced for loaddefs.el. | 1193 | the entries, to keep the line length balanced for loaddefs.el. |
| 1194 | 1194 | ||
| @@ -2072,7 +2072,7 @@ | |||
| 2072 | 2072 | ||
| 2073 | * ediff-init.el (ediff-with-syntax-table): New macro, uses | 2073 | * ediff-init.el (ediff-with-syntax-table): New macro, uses |
| 2074 | with-syntax-table. | 2074 | with-syntax-table. |
| 2075 | (ediff-coding-system-for-read): From ediff-diff.el | 2075 | (ediff-coding-system-for-read): From ediff-diff.el. |
| 2076 | (ediff-coding-system-for-write): New variable. | 2076 | (ediff-coding-system-for-write): New variable. |
| 2077 | (ediff-highest-priority): Fixed the bug having to do with disappearing | 2077 | (ediff-highest-priority): Fixed the bug having to do with disappearing |
| 2078 | overlays. | 2078 | overlays. |
| @@ -6812,7 +6812,7 @@ | |||
| 6812 | to nil. | 6812 | to nil. |
| 6813 | 6813 | ||
| 6814 | * tooltip.el (tooltip-frame-parameters): Remove colors. | 6814 | * tooltip.el (tooltip-frame-parameters): Remove colors. |
| 6815 | (tooltip): New face | 6815 | (tooltip): New face. |
| 6816 | (tooltip-set-param): New function. | 6816 | (tooltip-set-param): New function. |
| 6817 | (tooltip-show): Set up color frame parameters from face `tooltip'. | 6817 | (tooltip-show): Set up color frame parameters from face `tooltip'. |
| 6818 | Display the tooltip text in face `tooltip'. | 6818 | Display the tooltip text in face `tooltip'. |
| @@ -8804,7 +8804,7 @@ | |||
| 8804 | 8804 | ||
| 8805 | 2000-11-12 Dave Love <fx@gnu.org> | 8805 | 2000-11-12 Dave Love <fx@gnu.org> |
| 8806 | 8806 | ||
| 8807 | * mail/feedmail.el: Fix header, | 8807 | * mail/feedmail.el: Fix header. |
| 8808 | (feedmail) <defgroup>: Add :link. | 8808 | (feedmail) <defgroup>: Add :link. |
| 8809 | 8809 | ||
| 8810 | * view.el: Use local-map property, not keymap on mode-line string. | 8810 | * view.el: Use local-map property, not keymap on mode-line string. |
| @@ -10715,7 +10715,7 @@ | |||
| 10715 | * iswitchb.el (iswitchb-mode): Add :require. | 10715 | * iswitchb.el (iswitchb-mode): Add :require. |
| 10716 | 10716 | ||
| 10717 | * info.el (Info-goto-node, Info-menu): Doc fix. | 10717 | * info.el (Info-goto-node, Info-menu): Doc fix. |
| 10718 | (Info-mode-menu): Bind beginning-of-buffer, Info-edit | 10718 | (Info-mode-menu): Bind beginning-of-buffer, Info-edit. |
| 10719 | (info-tool-bar-map): New variable. | 10719 | (info-tool-bar-map): New variable. |
| 10720 | (Info-mode): Use it. | 10720 | (Info-mode): Use it. |
| 10721 | (Info-edit-map): Define all in defvar. | 10721 | (Info-edit-map): Define all in defvar. |
| @@ -11010,7 +11010,7 @@ | |||
| 11010 | 11010 | ||
| 11011 | * net/net-utils.el (nslookup-font-lock-keywords) | 11011 | * net/net-utils.el (nslookup-font-lock-keywords) |
| 11012 | (ftp-font-lock-keywords, smbclient-font-lock-keywords): | 11012 | (ftp-font-lock-keywords, smbclient-font-lock-keywords): |
| 11013 | Only set if window-system is non-nil | 11013 | Only set if window-system is non-nil. |
| 11014 | (net-utils-run-program): Returns buffer. | 11014 | (net-utils-run-program): Returns buffer. |
| 11015 | (network-connection-reconnect): Added this function. | 11015 | (network-connection-reconnect): Added this function. |
| 11016 | 11016 | ||
| @@ -11025,13 +11025,13 @@ | |||
| 11025 | (generic-mode-alist): Renamed to generic-mode-list. | 11025 | (generic-mode-alist): Renamed to generic-mode-list. |
| 11026 | (generic-find-file-regexp): Default changed to "^#". | 11026 | (generic-find-file-regexp): Default changed to "^#". |
| 11027 | (generic-read-type): Uses completing read on generic-mode-list. | 11027 | (generic-read-type): Uses completing read on generic-mode-list. |
| 11028 | (generic-mode-sanity-check): removed this function. | 11028 | (generic-mode-sanity-check): Removed this function. |
| 11029 | (generic-add-to-auto-mode): Removed this function | 11029 | (generic-add-to-auto-mode): Removed this function. |
| 11030 | (generic-mode-internal): Bind mode-specific definitions | 11030 | (generic-mode-internal): Bind mode-specific definitions |
| 11031 | into function instead of putting them in alist. | 11031 | into function instead of putting them in alist. |
| 11032 | (generic-mode-set-comments): Reworked extensively. | 11032 | (generic-mode-set-comments): Reworked extensively. |
| 11033 | (generic-mode-find-file-hook): Simplified regexp searching | 11033 | (generic-mode-find-file-hook): Simplified regexp searching. |
| 11034 | (generic-make-keywords-list): Omit extra pair of parens | 11034 | (generic-make-keywords-list): Omit extra pair of parens. |
| 11035 | 11035 | ||
| 11036 | * find-lisp.el (find-lisp-find-files-internal): | 11036 | * find-lisp.el (find-lisp-find-files-internal): |
| 11037 | Make sure directory name ends with "/". | 11037 | Make sure directory name ends with "/". |
| @@ -11040,7 +11040,7 @@ | |||
| 11040 | Regexp now allows leading whitespace. | 11040 | Regexp now allows leading whitespace. |
| 11041 | (rc-generic-mode): Added eval-when-compile | 11041 | (rc-generic-mode): Added eval-when-compile |
| 11042 | around generic-make-keywords-list. | 11042 | around generic-make-keywords-list. |
| 11043 | Deleted duplicate regexp | 11043 | Deleted duplicate regexp. |
| 11044 | (rul-generic-mode): Added eval-when-compile | 11044 | (rul-generic-mode): Added eval-when-compile |
| 11045 | around generic-make-keywords-list. | 11045 | around generic-make-keywords-list. |
| 11046 | (etc-fstab-generic-mode): New generic mode. | 11046 | (etc-fstab-generic-mode): New generic mode. |
| @@ -11356,7 +11356,7 @@ | |||
| 11356 | (comint-insert-clicked-input): Be more careful to find the overlay. | 11356 | (comint-insert-clicked-input): Be more careful to find the overlay. |
| 11357 | Use this-command-keys rather than hardcoding mouse-2. | 11357 | Use this-command-keys rather than hardcoding mouse-2. |
| 11358 | 11358 | ||
| 11359 | * font-lock.el: Replace confusing (,@ with , | 11359 | * font-lock.el: Replace confusing (,@ with ,. |
| 11360 | (tex-font-lock-keywords-1, tex-font-lock-keywords-2): | 11360 | (tex-font-lock-keywords-1, tex-font-lock-keywords-2): |
| 11361 | Don't use regexp-opt-depth. Spice up the regexp for args. | 11361 | Don't use regexp-opt-depth. Spice up the regexp for args. |
| 11362 | Don't distinguish between cmds that can take an opt arg or not. | 11362 | Don't distinguish between cmds that can take an opt arg or not. |
| @@ -11885,7 +11885,7 @@ | |||
| 11885 | New functions, used instead of non-`strokes-' versions.. | 11885 | New functions, used instead of non-`strokes-' versions.. |
| 11886 | (strokes-mouse-event-p): Rewritten. | 11886 | (strokes-mouse-event-p): Rewritten. |
| 11887 | (strokes-event-closest-point): Avoid event-point. | 11887 | (strokes-event-closest-point): Avoid event-point. |
| 11888 | (strokes-get-grid-position): Avoid cdadr, caadr | 11888 | (strokes-get-grid-position): Avoid cdadr, caadr. |
| 11889 | (strokes-read-stroke, strokes-read-complex-stroke): Avoid levents | 11889 | (strokes-read-stroke, strokes-read-complex-stroke): Avoid levents |
| 11890 | functions. | 11890 | functions. |
| 11891 | (strokes-help): Use with-output-to-temp-buffer. | 11891 | (strokes-help): Use with-output-to-temp-buffer. |
| @@ -14110,14 +14110,14 @@ | |||
| 14110 | * locate.el (locate): Cleaned up locate command's interactive prompting | 14110 | * locate.el (locate): Cleaned up locate command's interactive prompting |
| 14111 | Thanks to François_Pinard <pinard@iro.umontreal.ca> for suggestions. | 14111 | Thanks to François_Pinard <pinard@iro.umontreal.ca> for suggestions. |
| 14112 | 14112 | ||
| 14113 | * filecache.el (file-cache-case-fold-search): New variable | 14113 | * filecache.el (file-cache-case-fold-search): New variable. |
| 14114 | (file-cache-assoc-function): New variable | 14114 | (file-cache-assoc-function): New variable. |
| 14115 | (file-cache-minibuffer-complete): Use file-cache-assoc-function. | 14115 | (file-cache-minibuffer-complete): Use file-cache-assoc-function. |
| 14116 | Use file-cache-case-fold-search variable | 14116 | Use file-cache-case-fold-search variable. |
| 14117 | (file-cache-add-file): Use file-cache-assoc-function | 14117 | (file-cache-add-file): Use file-cache-assoc-function. |
| 14118 | (file-cache-delete-file): likewise | 14118 | (file-cache-delete-file): Likewise. |
| 14119 | (file-cache-directory-name): likewise | 14119 | (file-cache-directory-name): Likewise. |
| 14120 | (file-cache-debug-read-from-minibuffer): likewise | 14120 | (file-cache-debug-read-from-minibuffer): Likewise. |
| 14121 | 14121 | ||
| 14122 | 2000-08-28 Gerd Moellmann <gerd@gnu.org> | 14122 | 2000-08-28 Gerd Moellmann <gerd@gnu.org> |
| 14123 | 14123 | ||
| @@ -14191,12 +14191,12 @@ | |||
| 14191 | 14191 | ||
| 14192 | * international/ja-dic-cnv.el: Renamed from skkdic-cnv.el. | 14192 | * international/ja-dic-cnv.el: Renamed from skkdic-cnv.el. |
| 14193 | Provide ja-dic-cnv instead of skkdic-cnv. | 14193 | Provide ja-dic-cnv instead of skkdic-cnv. |
| 14194 | (ja-dic-filename): Renamed from skkdic-filename. Referers changed | 14194 | (ja-dic-filename): Renamed from skkdic-filename. Referers changed. |
| 14195 | (iso-2022-7bit-short): Add safe-charsets property. | 14195 | (iso-2022-7bit-short): Add safe-charsets property. |
| 14196 | (skkdic-convert-postfix): Search Japanese chou-on character in | 14196 | (skkdic-convert-postfix): Search Japanese chou-on character in |
| 14197 | addition to Hiragana character. | 14197 | addition to Hiragana character. |
| 14198 | (skkdic-convert-prefix, skkdic-collect-okuri-nasi): Likewise. | 14198 | (skkdic-convert-prefix, skkdic-collect-okuri-nasi): Likewise. |
| 14199 | (skkdic-convert): Change file names from skkdic.el to ja-dic.el | 14199 | (skkdic-convert): Change file names from skkdic.el to ja-dic.el. |
| 14200 | (batch-skkdic-convert): Likewise. | 14200 | (batch-skkdic-convert): Likewise. |
| 14201 | 14201 | ||
| 14202 | * international/ja-dic-utl.el: Renamed from skkdic-utl.el. | 14202 | * international/ja-dic-utl.el: Renamed from skkdic-utl.el. |
| @@ -14389,12 +14389,12 @@ | |||
| 14389 | (ispell-dictionary-alist-4): Fixed regexp in francais-tex | 14389 | (ispell-dictionary-alist-4): Fixed regexp in francais-tex |
| 14390 | dictionary, added italiano dictionary. | 14390 | dictionary, added italiano dictionary. |
| 14391 | (ispell-skip-region-alist): Removed regexp thrashing when `-' is a | 14391 | (ispell-skip-region-alist): Removed regexp thrashing when `-' is a |
| 14392 | word character | 14392 | word character. |
| 14393 | (ispell-tex-skip-alists): Added psfig support. | 14393 | (ispell-tex-skip-alists): Added psfig support. |
| 14394 | (ispell-skip-html): Renamed from ispell-skip-sgml. | 14394 | (ispell-skip-html): Renamed from ispell-skip-sgml. |
| 14395 | (ispell-begin-skip-region-regexp, ispell-skip-region) | 14395 | (ispell-begin-skip-region-regexp, ispell-skip-region) |
| 14396 | (ispell-minor-check): Improved html skipping support to skip across | 14396 | (ispell-minor-check): Improved html skipping support to skip across |
| 14397 | code, and recognize `&' commands without proper `;' syntax; | 14397 | code, and recognize `&' commands without proper `;' syntax. |
| 14398 | (ispell-process-line): Fix alignment error when manually | 14398 | (ispell-process-line): Fix alignment error when manually |
| 14399 | correcting spelling. | 14399 | correcting spelling. |
| 14400 | (ispell): Fix comment string. | 14400 | (ispell): Fix comment string. |
| @@ -14515,7 +14515,7 @@ | |||
| 14515 | (goto-address-url-face, goto-address-url-mouse-face) | 14515 | (goto-address-url-face, goto-address-url-mouse-face) |
| 14516 | (goto-address-mail-face, goto-address-mail-mouse-face): Doc fix. | 14516 | (goto-address-mail-face, goto-address-mail-mouse-face): Doc fix. |
| 14517 | (goto-address-url-regexp): Use thing-at-point-url-regexp. | 14517 | (goto-address-url-regexp): Use thing-at-point-url-regexp. |
| 14518 | (goto-address-fontify, goto-address-at-mouse): Simplify, | 14518 | (goto-address-fontify, goto-address-at-mouse): Simplify. |
| 14519 | (goto-address-at-point): browse-url-url-at-point, | 14519 | (goto-address-at-point): browse-url-url-at-point, |
| 14520 | goto-address-find-address-at-point can return nil. | 14520 | goto-address-find-address-at-point can return nil. |
| 14521 | (goto-address-find-address-at-point): Return nil on failure. | 14521 | (goto-address-find-address-at-point): Return nil on failure. |
| @@ -15501,23 +15501,23 @@ | |||
| 15501 | ada-xref.el before ada-prj.el, so that the Project menu is created | 15501 | ada-xref.el before ada-prj.el, so that the Project menu is created |
| 15502 | when ada-prj tries to add to it. | 15502 | when ada-prj tries to add to it. |
| 15503 | (ada-activate-keys-for-case): Suppress the characters that are not | 15503 | (ada-activate-keys-for-case): Suppress the characters that are not |
| 15504 | part of the Ada syntax. Better compatibility with else-mode | 15504 | part of the Ada syntax. Better compatibility with else-mode. |
| 15505 | (ada-adjust-case-interactive): When auto-casing is not active, | 15505 | (ada-adjust-case-interactive): When auto-casing is not active, |
| 15506 | correctly insert newlines (used to insert only ^M). Prevent the | 15506 | correctly insert newlines (used to insert only ^M). Prevent the |
| 15507 | syntax table from being changed in case of an error | 15507 | syntax table from being changed in case of an error |
| 15508 | (or '_' becomes part of a word and some commands are confused). | 15508 | (or '_' becomes part of a word and some commands are confused). |
| 15509 | Do nothing if ada-auto-case is nil. | 15509 | Do nothing if ada-auto-case is nil. |
| 15510 | (ada-after-keyword-p): Ignore keywords that are also attributes | 15510 | (ada-after-keyword-p): Ignore keywords that are also attributes. |
| 15511 | (ada-batch-reformat): Update usage comment | 15511 | (ada-batch-reformat): Update usage comment. |
| 15512 | (ada-call-from-contextual-menu): New function | 15512 | (ada-call-from-contextual-menu): New function. |
| 15513 | (ada-case-read-exceptions): Reinitialize the casing exception list | 15513 | (ada-case-read-exceptions): Reinitialize the casing exception list |
| 15514 | first to nil first, so that the casing exception file can be | 15514 | first to nil first, so that the casing exception file can be |
| 15515 | shared. | 15515 | shared. |
| 15516 | (ada-check-defun-name): Handles "configure" keyword for gnatdist | 15516 | (ada-check-defun-name): Handles "configure" keyword for gnatdist |
| 15517 | files. | 15517 | files. |
| 15518 | (ada-compile-goto-error): Fix regexp used to detect a file:line | 15518 | (ada-compile-goto-error): Fix regexp used to detect a file:line |
| 15519 | anywhere in the error message | 15519 | anywhere in the error message. |
| 15520 | (ada-contextual-menu-last-point): New variable | 15520 | (ada-contextual-menu-last-point): New variable. |
| 15521 | (ada-create-keymap): If the variable delete-key-deletes-forward is | 15521 | (ada-create-keymap): If the variable delete-key-deletes-forward is |
| 15522 | t on XEmacs, it means that DEL should delete one character | 15522 | t on XEmacs, it means that DEL should delete one character |
| 15523 | forward. | 15523 | forward. |
| @@ -15544,21 +15544,21 @@ | |||
| 15544 | are not in fact seeing "end if". Ignore "when" statements except | 15544 | are not in fact seeing "end if". Ignore "when" statements except |
| 15545 | when initial keyword was "begin". Fix handling of nested | 15545 | when initial keyword was "begin". Fix handling of nested |
| 15546 | procedures. Add a recursive call to this function to skip over | 15546 | procedures. Add a recursive call to this function to skip over |
| 15547 | other 'end' statmts. Fix indentation for "when .. => begin" | 15547 | other 'end' statmts. Fix indentation for "when .. => begin". |
| 15548 | (ada-in-open-paren-p): Fix indentation for complex boolean | 15548 | (ada-in-open-paren-p): Fix indentation for complex boolean |
| 15549 | expressions, where 'and then', 'or else' and parenthesis | 15549 | expressions, where 'and then', 'or else' and parenthesis |
| 15550 | statements are mixed up. | 15550 | statements are mixed up. |
| 15551 | (ada-in-paramlist-p): Skip comments while searching for the | 15551 | (ada-in-paramlist-p): Skip comments while searching for the |
| 15552 | beginning Fix handling of operator declarations. | 15552 | beginning Fix handling of operator declarations. |
| 15553 | (ada-indent-align-comments): New variable | 15553 | (ada-indent-align-comments): New variable. |
| 15554 | (ada-indent-current): Change the syntax table only in the | 15554 | (ada-indent-current): Change the syntax table only in the |
| 15555 | protected section, so that we are sure it is restored correctly. | 15555 | protected section, so that we are sure it is restored correctly. |
| 15556 | (ada-indent-on-previous-lines): Use ada-use-indent and | 15556 | (ada-indent-on-previous-lines): Use ada-use-indent and |
| 15557 | ada-with-indent Correctly indent "select ... then" | 15557 | ada-with-indent. Correctly indent "select ... then". |
| 15558 | (ada-indent-region): Slight speedup. | 15558 | (ada-indent-region): Slight speedup. |
| 15559 | (ada-indent-renames): New variable. | 15559 | (ada-indent-renames): New variable. |
| 15560 | (ada-last-which-function-subprog, ada-last-which-function-line): | 15560 | (ada-last-which-function-subprog, ada-last-which-function-line): |
| 15561 | New variables | 15561 | New variables. |
| 15562 | (ada-looking-at-semi-private): Correctly indent the 'private' | 15562 | (ada-looking-at-semi-private): Correctly indent the 'private' |
| 15563 | keyword when it is the first word in a package declaration. | 15563 | keyword when it is the first word in a package declaration. |
| 15564 | (ada-loose-case-word): Stop searching if at the end of the buffer. | 15564 | (ada-loose-case-word): Stop searching if at the end of the buffer. |
| @@ -15568,8 +15568,8 @@ | |||
| 15568 | (ada-mode): Add support for abbrev-mode, outline-mode and | 15568 | (ada-mode): Add support for abbrev-mode, outline-mode and |
| 15569 | which-func-mode Override the old find-file.el entry in | 15569 | which-func-mode Override the old find-file.el entry in |
| 15570 | ff-special-constructs since it is using the obsolete | 15570 | ff-special-constructs since it is using the obsolete |
| 15571 | ada-spec-suffix variable | 15571 | ada-spec-suffix variable. |
| 15572 | (ada-no-auto-case): New function | 15572 | (ada-no-auto-case): New function. |
| 15573 | (ada-scan-paramlist): When parsing the argument type, accept | 15573 | (ada-scan-paramlist): When parsing the argument type, accept |
| 15574 | spaces (as in "X 'Class", generated by Rational Rose). | 15574 | spaces (as in "X 'Class", generated by Rational Rose). |
| 15575 | (ada-other-file-name): No longer loads the other file. | 15575 | (ada-other-file-name): No longer loads the other file. |
| @@ -15578,41 +15578,41 @@ | |||
| 15578 | (ada-search-ignore-complex-boolean): New function. | 15578 | (ada-search-ignore-complex-boolean): New function. |
| 15579 | (ada-uncomment-region): Emacs21 already knows how to delete | 15579 | (ada-uncomment-region): Emacs21 already knows how to delete |
| 15580 | comments not starting in the first column. | 15580 | comments not starting in the first column. |
| 15581 | (ada-use-indent): New variable | 15581 | (ada-use-indent): New variable. |
| 15582 | (ada-which-function): New function. | 15582 | (ada-which-function): New function. |
| 15583 | (ada-with-indent): New variable | 15583 | (ada-with-indent): New variable. |
| 15584 | (ada-xemacs): evaluate it at compile time too, so that ada-mode.el | 15584 | (ada-xemacs): Evaluate it at compile time too, so that ada-mode.el |
| 15585 | can be batch-compiled from the command line. | 15585 | can be batch-compiled from the command line. |
| 15586 | 15586 | ||
| 15587 | * ada-xref.el: Got rid of all byte-compiler warnings on Emacs. | 15587 | * ada-xref.el: Got rid of all byte-compiler warnings on Emacs. |
| 15588 | Add to the menu when the file is loaded, not in ada-mode-hook. | 15588 | Add to the menu when the file is loaded, not in ada-mode-hook. |
| 15589 | Add -toolbar to the default ddd command Switches moved from | 15589 | Add -toolbar to the default ddd command Switches moved from |
| 15590 | ada-prj-default-comp-cmd and ada-prj-default-make-cmd to | 15590 | ada-prj-default-comp-cmd and ada-prj-default-make-cmd to |
| 15591 | ada-prj-default-comp-opt | 15591 | ada-prj-default-comp-opt. |
| 15592 | (ada-add-ada-menu): Remove the map and name parameters Add the Ada | 15592 | (ada-add-ada-menu): Remove the map and name parameters. Add the Ada |
| 15593 | Reference Manual to the menu | 15593 | Reference Manual to the menu. |
| 15594 | (ada-check-current): rewritten as a call to ada-compile-current | 15594 | (ada-check-current): Rewritten as a call to ada-compile-current. |
| 15595 | (ada-compile): Removed. | 15595 | (ada-compile): Removed. |
| 15596 | (ada-compile-application, ada-compile-current, ada-check-current): | 15596 | (ada-compile-application, ada-compile-current, ada-check-current): |
| 15597 | Set the compilation-search-path so that compile.el automatically | 15597 | Set the compilation-search-path so that compile.el automatically |
| 15598 | finds the sources in src_dir. Automatic scrolling of the | 15598 | finds the sources in src_dir. Automatic scrolling of the |
| 15599 | compilation buffer. C-uC-cC-c asks for confirmation before | 15599 | compilation buffer. C-uC-cC-c asks for confirmation before |
| 15600 | compiling | 15600 | compiling. |
| 15601 | (ada-compile-current): New parameter, prj-field | 15601 | (ada-compile-current): New parameter, prj-field. |
| 15602 | (ada-complete-identifier): Load the .ali file before doing | 15602 | (ada-complete-identifier): Load the .ali file before doing |
| 15603 | processing | 15603 | processing. |
| 15604 | (ada-find-ali-file-in-dir): prepend build_dir to obj_dir to | 15604 | (ada-find-ali-file-in-dir): prepend build_dir to obj_dir to |
| 15605 | conform to gnatmake's behavior. | 15605 | conform to gnatmake's behavior. |
| 15606 | (ada-find-file-in-dir): New function | 15606 | (ada-find-file-in-dir): New function. |
| 15607 | (ada-find-references): Set the environment variables for gnatfind | 15607 | (ada-find-references): Set the environment variables for gnatfind. |
| 15608 | (ada-find-src-file-in-dir): New function. | 15608 | (ada-find-src-file-in-dir): New function. |
| 15609 | (ada-first-non-nil): Removed | 15609 | (ada-first-non-nil): Removed. |
| 15610 | (ada-gdb-application): Add support for jdb, the java debugger. | 15610 | (ada-gdb-application): Add support for jdb, the java debugger. |
| 15611 | (ada-get-ada-file-name): Load the original-file first if not done | 15611 | (ada-get-ada-file-name): Load the original-file first if not done |
| 15612 | yet. | 15612 | yet. |
| 15613 | (ada-get-all-references): Handles the new ali syntax (parent types | 15613 | (ada-get-all-references): Handles the new ali syntax (parent types |
| 15614 | are found between <>). | 15614 | are found between <>). |
| 15615 | (ada-initialize-runtime-library): New function | 15615 | (ada-initialize-runtime-library): New function. |
| 15616 | (ada-mode-hook): Always load a project file when a file is opened, | 15616 | (ada-mode-hook): Always load a project file when a file is opened, |
| 15617 | so that the casing exceptions are correctly read. | 15617 | so that the casing exceptions are correctly read. |
| 15618 | (ada-operator-re): Add all missing operators ("abs", "rem", "**"). | 15618 | (ada-operator-re): Add all missing operators ("abs", "rem", "**"). |
| @@ -15623,36 +15623,36 @@ | |||
| 15623 | src_dir to initialize ada-search-directories and | 15623 | src_dir to initialize ada-search-directories and |
| 15624 | compilation-search-path,... Add the standard runtime library to | 15624 | compilation-search-path,... Add the standard runtime library to |
| 15625 | the search path for find-file. | 15625 | the search path for find-file. |
| 15626 | (ada-prj-default-debugger): Was missing an opening '{' | 15626 | (ada-prj-default-debugger): Was missing an opening '{'. |
| 15627 | (ada-prj-default-bind-opt, ada-prj-default-link-opt): New | 15627 | (ada-prj-default-bind-opt, ada-prj-default-link-opt): New |
| 15628 | variables. | 15628 | variables. |
| 15629 | (ada-prj-default-gnatmake-opt): New variable | 15629 | (ada-prj-default-gnatmake-opt): New variable. |
| 15630 | (ada-prj-find-prj-file): Handles non-file buffers For non-Ada | 15630 | (ada-prj-find-prj-file): Handles non-file buffers For non-Ada |
| 15631 | buffers, the project file is the default one Save the windows | 15631 | buffers, the project file is the default one Save the windows |
| 15632 | configuration before displaying the menu. | 15632 | configuration before displaying the menu. |
| 15633 | (ada-prj-src-dir, ada-prj-obj-dir, ada-prj-comp-opt,...): Removed | 15633 | (ada-prj-src-dir, ada-prj-obj-dir, ada-prj-comp-opt,...): Removed. |
| 15634 | (ada-read-identifier): Fix xrefs on operators (for "mod", "and", | 15634 | (ada-read-identifier): Fix xrefs on operators (for "mod", "and", |
| 15635 | ...) regexp-quote identifiers names to support operators +, | 15635 | ...) regexp-quote identifiers names to support operators +, |
| 15636 | -,... in regexps. | 15636 | -,... in regexps. |
| 15637 | (ada-remote): New function. | 15637 | (ada-remote): New function. |
| 15638 | (ada-run-application): Erase the output buffer before starting the | 15638 | (ada-run-application): Erase the output buffer before starting the |
| 15639 | run Support remote execution of the application. Use | 15639 | run Support remote execution of the application. Use |
| 15640 | call-process, or the arguments are incorrectly parsed | 15640 | call-process, or the arguments are incorrectly parsed. |
| 15641 | (ada-set-default-project-file): Reread the content of the active | 15641 | (ada-set-default-project-file): Reread the content of the active |
| 15642 | project file, not the one from the current buffer When a project | 15642 | project file, not the one from the current buffer When a project |
| 15643 | file is set as the default project, all directories are | 15643 | file is set as the default project, all directories are |
| 15644 | automatically associated with it. | 15644 | automatically associated with it. |
| 15645 | (ada-set-environment): New function | 15645 | (ada-set-environment): New function. |
| 15646 | (ada-treat-cmd-string): New special variable ${current} | 15646 | (ada-treat-cmd-string): New special variable ${current}. |
| 15647 | (ada-treat-cmd-string): Revised. The substitution is now done for | 15647 | (ada-treat-cmd-string): Revised. The substitution is now done for |
| 15648 | any ${...} substring | 15648 | any ${...} substring. |
| 15649 | (ada-xref-current): If no body was found, compiles the spec | 15649 | (ada-xref-current): If no body was found, compiles the spec |
| 15650 | instead. Setup ADA_{SOURCE,OBJECTS}_PATH before running the | 15650 | instead. Setup ADA_{SOURCE,OBJECTS}_PATH before running the |
| 15651 | compiler to get rid of command line length limitations. | 15651 | compiler to get rid of command line length limitations. |
| 15652 | (ada-xref-get-project-field): New function | 15652 | (ada-xref-get-project-field): New function. |
| 15653 | (ada-xref-project-files): New variable | 15653 | (ada-xref-project-files): New variable. |
| 15654 | (ada-xref-runtime-library-specs-path) | 15654 | (ada-xref-runtime-library-specs-path) |
| 15655 | (ada-xref-runtime-library-ali-path): New variables | 15655 | (ada-xref-runtime-library-ali-path): New variables. |
| 15656 | (ada-xref-set-default-prj-values): Default run command now does a | 15656 | (ada-xref-set-default-prj-values): Default run command now does a |
| 15657 | cd to the build directory. New field: main_unit Provide a default | 15657 | cd to the build directory. New field: main_unit Provide a default |
| 15658 | file name even if the current buffer has no prj file. | 15658 | file name even if the current buffer has no prj file. |
| @@ -15661,10 +15661,10 @@ | |||
| 15661 | Rewritten to show a tabbed-dialog. | 15661 | Rewritten to show a tabbed-dialog. |
| 15662 | (ada-prj-add-ada-menu): Remove the map and name parameters. | 15662 | (ada-prj-add-ada-menu): Remove the map and name parameters. |
| 15663 | (ada-prj-display-page, ada-prj-field, ada-prj-initialize-values): | 15663 | (ada-prj-display-page, ada-prj-field, ada-prj-initialize-values): |
| 15664 | New function | 15664 | New function. |
| 15665 | (ada-prj-load-directory, ada-prj-subdirs-of): New functions | 15665 | (ada-prj-load-directory, ada-prj-subdirs-of): New functions. |
| 15666 | (ada-prj-load-from-file): New function | 15666 | (ada-prj-load-from-file): New function. |
| 15667 | (ada-prj-save): Always save fields that depend on the current buffer | 15667 | (ada-prj-save): Always save fields that depend on the current buffer. |
| 15668 | (ada-prj-show-value): New function | 15668 | (ada-prj-show-value): New function |
| 15669 | 15669 | ||
| 15670 | * ada-stmt.el (ada-stmt-add-to-ada-menu): Hide the menu if not in | 15670 | * ada-stmt.el (ada-stmt-add-to-ada-menu): Hide the menu if not in |
| @@ -16918,7 +16918,7 @@ | |||
| 16918 | (cyrillic-koi8-r-encode-table): Define it as a translation table | 16918 | (cyrillic-koi8-r-encode-table): Define it as a translation table |
| 16919 | made from the reverse map of above. | 16919 | made from the reverse map of above. |
| 16920 | (ccl-decode-koi8): Use translate-character. | 16920 | (ccl-decode-koi8): Use translate-character. |
| 16921 | (ccl-encode-koi8, ccl-encode-koi8-font): Likewize | 16921 | (ccl-encode-koi8, ccl-encode-koi8-font): Likewise. |
| 16922 | (cyrillic-alternativnyj-nonascii-translation-table): Define it as | 16922 | (cyrillic-alternativnyj-nonascii-translation-table): Define it as |
| 16923 | a translation table made from cyrillic-alternativnyj-decode-table. | 16923 | a translation table made from cyrillic-alternativnyj-decode-table. |
| 16924 | (cyrillic-alternativnyj-encode-table): Define it as a translation | 16924 | (cyrillic-alternativnyj-encode-table): Define it as a translation |
| @@ -17470,14 +17470,14 @@ | |||
| 17470 | 17470 | ||
| 17471 | * speedbar.el (speedbar-easymenu-definition-base): Image toggle fix. | 17471 | * speedbar.el (speedbar-easymenu-definition-base): Image toggle fix. |
| 17472 | (speedbar-insert-button): Invisible text property fix. | 17472 | (speedbar-insert-button): Invisible text property fix. |
| 17473 | (speedbar-directory-plus): Renamed from speedbar-directory-+ | 17473 | (speedbar-directory-plus): Renamed from speedbar-directory-+. |
| 17474 | (speedbar-directory-minus): Renamed from speedbar-directory-- | 17474 | (speedbar-directory-minus): Renamed from speedbar-directory--. |
| 17475 | (speedbar-page-plus): Renamed from speedbar-file-+ | 17475 | (speedbar-page-plus): Renamed from speedbar-file-+. |
| 17476 | (speedbar-page-minus): Renamed from speedbar-file-- | 17476 | (speedbar-page-minus): Renamed from speedbar-file--. |
| 17477 | (speedbar-page): Renamed from speedbar-file- | 17477 | (speedbar-page): Renamed from speedbar-file-. |
| 17478 | (speedbar-tag): Renamed from speedbar-tag- | 17478 | (speedbar-tag): Renamed from speedbar-tag-. |
| 17479 | (speedbar-tag-plus): Renamed from speedbar-tag-+ | 17479 | (speedbar-tag-plus): Renamed from speedbar-tag-+. |
| 17480 | (speedbar-tag-minus): Renamed from speedbar-tag-- | 17480 | (speedbar-tag-minus): Renamed from speedbar-tag--. |
| 17481 | (speedbar-expand-image-button-alist): Use above renames. | 17481 | (speedbar-expand-image-button-alist): Use above renames. |
| 17482 | 17482 | ||
| 17483 | * sb-dir-plus.xpm: Renamed from sb-dir+.xpm | 17483 | * sb-dir-plus.xpm: Renamed from sb-dir+.xpm |
| @@ -17861,7 +17861,7 @@ | |||
| 17861 | (speedbar-visiting-tag-hook): Set new defaults. Added options. | 17861 | (speedbar-visiting-tag-hook): Set new defaults. Added options. |
| 17862 | (speedbar-reconfigure-keymaps-hook): New variable. | 17862 | (speedbar-reconfigure-keymaps-hook): New variable. |
| 17863 | (speedbar-frame-parameters): Updated documentation. | 17863 | (speedbar-frame-parameters): Updated documentation. |
| 17864 | (speedbar-use-imenu-flag): Updated custom tag | 17864 | (speedbar-use-imenu-flag): Updated custom tag. |
| 17865 | (speedbar-dynamic-tags-function-list): New variable. | 17865 | (speedbar-dynamic-tags-function-list): New variable. |
| 17866 | (speedbar-tag-hierarchy-method): Updated doc & custom. | 17866 | (speedbar-tag-hierarchy-method): Updated doc & custom. |
| 17867 | (speedbar-indentation-width, speedbar-indentation-width) New | 17867 | (speedbar-indentation-width, speedbar-indentation-width) New |
| @@ -17877,7 +17877,7 @@ | |||
| 17877 | `force-mode-line-update'. | 17877 | `force-mode-line-update'. |
| 17878 | (speedbar-mode, speedbar-quick-mouse, speedbar-click) | 17878 | (speedbar-mode, speedbar-quick-mouse, speedbar-click) |
| 17879 | (speedbar-double-click): Use `speedbar-mouse-set-point' instead of | 17879 | (speedbar-double-click): Use `speedbar-mouse-set-point' instead of |
| 17880 | `mouse-set-point' | 17880 | `mouse-set-point'. |
| 17881 | (speedbar-reconfigure-keymaps): Run configure keymap hooks. | 17881 | (speedbar-reconfigure-keymaps): Run configure keymap hooks. |
| 17882 | (speedbar-item-info-tag-helper): Revamped to handle a wider range | 17882 | (speedbar-item-info-tag-helper): Revamped to handle a wider range |
| 17883 | of arbitrary text, and new helper functions. | 17883 | of arbitrary text, and new helper functions. |
| @@ -17893,11 +17893,11 @@ | |||
| 17893 | (speedbar-apply-one-tag-hierarchy-method): Deleted (and replaced). | 17893 | (speedbar-apply-one-tag-hierarchy-method): Deleted (and replaced). |
| 17894 | (speedbar-sort-tag-hierarchy, speedbar-prefix-group-tag-hierarchy) | 17894 | (speedbar-sort-tag-hierarchy, speedbar-prefix-group-tag-hierarchy) |
| 17895 | (speedbar-trim-words-tag-hierarchy) | 17895 | (speedbar-trim-words-tag-hierarchy) |
| 17896 | (speedbar-simple-group-tag-hierarchy): New functions | 17896 | (speedbar-simple-group-tag-hierarchy): New functions. |
| 17897 | (speedbar-create-tag-hierarchy): Update doc, use new tag hooks. | 17897 | (speedbar-create-tag-hierarchy): Update doc, use new tag hooks. |
| 17898 | (speedbar-insert-imenu-list, speedbar-insert-etags-list): New | 17898 | (speedbar-insert-imenu-list, speedbar-insert-etags-list): New |
| 17899 | functions. | 17899 | functions. |
| 17900 | (speedbar-mouse-set-point): New function | 17900 | (speedbar-mouse-set-point): New function. |
| 17901 | (speedbar-power-click): Updated documentation. | 17901 | (speedbar-power-click): Updated documentation. |
| 17902 | (speedbar-line-token, speedbar-goto-this-file): Handle more types | 17902 | (speedbar-line-token, speedbar-goto-this-file): Handle more types |
| 17903 | of tag prefix text. | 17903 | of tag prefix text. |
| @@ -17916,7 +17916,7 @@ | |||
| 17916 | "Revert Buffer" menu items. | 17916 | "Revert Buffer" menu items. |
| 17917 | (speedbar-buffer-buttons-engine): Be smarter when creating a | 17917 | (speedbar-buffer-buttons-engine): Be smarter when creating a |
| 17918 | filename tag (for expansion purposes.). | 17918 | filename tag (for expansion purposes.). |
| 17919 | (speedbar-highlight-one-tag-line, | 17919 | (speedbar-highlight-one-tag-line) |
| 17920 | (speedbar-unhighlight-one-tag-line, speedbar-recenter-to-top) | 17920 | (speedbar-unhighlight-one-tag-line, speedbar-recenter-to-top) |
| 17921 | (speedbar-recenter): New functions. | 17921 | (speedbar-recenter): New functions. |
| 17922 | (defimage-speedbar): Image loading abstraction. | 17922 | (defimage-speedbar): Image loading abstraction. |
| @@ -18748,13 +18748,13 @@ | |||
| 18748 | 2000-03-30 Peter Breton <pbreton@ne.mediaone.net> | 18748 | 2000-03-30 Peter Breton <pbreton@ne.mediaone.net> |
| 18749 | 18749 | ||
| 18750 | * net/net-utils.el: | 18750 | * net/net-utils.el: |
| 18751 | (network-connection-host, network-connection-service): New variables | 18751 | (network-connection-host, network-connection-service): New variables. |
| 18752 | (network-connection-mode): New mode, derived from comint-mode | 18752 | (network-connection-mode): New mode, derived from comint-mode. |
| 18753 | (network-connection-mode-setup): New function, saves host and | 18753 | (network-connection-mode-setup): New function, saves host and |
| 18754 | service information in local variables. | 18754 | service information in local variables. |
| 18755 | 18755 | ||
| 18756 | * lisp/locate.el: | 18756 | * lisp/locate.el: |
| 18757 | (locate-word-at-point): Added this function | 18757 | (locate-word-at-point): Added this function. |
| 18758 | (locate): Default to using locate-word-at-point as input | 18758 | (locate): Default to using locate-word-at-point as input |
| 18759 | Run dired-mode-hook | 18759 | Run dired-mode-hook |
| 18760 | 18760 | ||
| @@ -20347,7 +20347,7 @@ | |||
| 20347 | * simple.el (eval-expression): Don't bind debug-on-error if | 20347 | * simple.el (eval-expression): Don't bind debug-on-error if |
| 20348 | eval-expression-debug-on-error is nil. Detect changed | 20348 | eval-expression-debug-on-error is nil. Detect changed |
| 20349 | debug-on-error, and propagate new value to global binding, if | 20349 | debug-on-error, and propagate new value to global binding, if |
| 20350 | eval-expression-debug-on-error is non-nil, | 20350 | eval-expression-debug-on-error is non-nil. |
| 20351 | (eval-expression-debug-on-error): Change doc string. | 20351 | (eval-expression-debug-on-error): Change doc string. |
| 20352 | 20352 | ||
| 20353 | 2000-01-11 Richard M. Stallman <rms@gnu.org> | 20353 | 2000-01-11 Richard M. Stallman <rms@gnu.org> |
diff --git a/lisp/epa-file.el b/lisp/epa-file.el index 5870f23bf13..af016eb20be 100644 --- a/lisp/epa-file.el +++ b/lisp/epa-file.el | |||
| @@ -143,11 +143,12 @@ way." | |||
| 143 | ;; when decryption failed (bug#6568). See the place | 143 | ;; when decryption failed (bug#6568). See the place |
| 144 | ;; where `find-file-not-found-functions' are called in | 144 | ;; where `find-file-not-found-functions' are called in |
| 145 | ;; `find-file-noselect-1'. | 145 | ;; `find-file-noselect-1'. |
| 146 | (make-local-variable 'epa-file-error) | 146 | (when (file-exists-p local-file) |
| 147 | (setq epa-file-error error) | 147 | (make-local-variable 'epa-file-error) |
| 148 | (add-hook 'find-file-not-found-functions | 148 | (setq epa-file-error error) |
| 149 | 'epa-file--find-file-not-found-function | 149 | (add-hook 'find-file-not-found-functions |
| 150 | nil t) | 150 | 'epa-file--find-file-not-found-function |
| 151 | nil t)) | ||
| 151 | (signal 'file-error | 152 | (signal 'file-error |
| 152 | (cons "Opening input file" (cdr error))))) | 153 | (cons "Opening input file" (cdr error))))) |
| 153 | (make-local-variable 'epa-file-encrypt-to) | 154 | (make-local-variable 'epa-file-encrypt-to) |
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 2a2011e8843..e2af8fcdd16 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2010-07-24 David Engster <dengste@eml.cc> | ||
| 2 | |||
| 3 | * mml-smime.el (mml-smime-epg-verify): Also accept the older | ||
| 4 | x-pkcs7-signature MIME type as signature (RFC 2311, C.1). | ||
| 5 | |||
| 1 | 2010-07-21 Daiki Ueno <ueno@unixuser.org> | 6 | 2010-07-21 Daiki Ueno <ueno@unixuser.org> |
| 2 | 7 | ||
| 3 | * mml.el (mml-parse-1): Collect "certfile" attributes in "<#secure>" | 8 | * mml.el (mml-parse-1): Collect "certfile" attributes in "<#secure>" |
| @@ -5105,7 +5110,7 @@ | |||
| 5105 | 5110 | ||
| 5106 | 2006-11-06 Reiner Steib <Reiner.Steib@gmx.de> | 5111 | 2006-11-06 Reiner Steib <Reiner.Steib@gmx.de> |
| 5107 | 5112 | ||
| 5108 | * message.el (message-strip-subject-encoded-words): New function | 5113 | * message.el (message-strip-subject-encoded-words): New function. |
| 5109 | (message-simplify-subject-functions): New variable. | 5114 | (message-simplify-subject-functions): New variable. |
| 5110 | (message-simplify-subject): Use it. Fix typo in doc string. | 5115 | (message-simplify-subject): Use it. Fix typo in doc string. |
| 5111 | Support message-strip-subject-encoded-words. | 5116 | Support message-strip-subject-encoded-words. |
| @@ -5308,8 +5313,9 @@ | |||
| 5308 | 5313 | ||
| 5309 | 2006-09-20 Maxime Edouard Robert Froumentin <max@lapin-bleu.net> | 5314 | 2006-09-20 Maxime Edouard Robert Froumentin <max@lapin-bleu.net> |
| 5310 | 5315 | ||
| 5311 | (gnus-insert-mime-button, gnus-insert-mime-security-button): Apply | 5316 | * gnus-art.el (gnus-insert-mime-button) |
| 5312 | gnus-article-button-face to MIME and security buttons. | 5317 | (gnus-insert-mime-security-button): |
| 5318 | Apply gnus-article-button-face to MIME and security buttons. | ||
| 5313 | 5319 | ||
| 5314 | 2006-09-20 Reiner Steib <Reiner.Steib@gmx.de> | 5320 | 2006-09-20 Reiner Steib <Reiner.Steib@gmx.de> |
| 5315 | 5321 | ||
| @@ -5775,7 +5781,7 @@ | |||
| 5775 | 5781 | ||
| 5776 | * gnus-agent.el: Added gnus-agent-flush* to purge agent info. | 5782 | * gnus-agent.el: Added gnus-agent-flush* to purge agent info. |
| 5777 | (gnus-agent-read-agentview): Fixed handling of end-of-file error. | 5783 | (gnus-agent-read-agentview): Fixed handling of end-of-file error. |
| 5778 | (gnus-agent-read-local): All symbols allocated in my-obarray | 5784 | (gnus-agent-read-local): All symbols allocated in my-obarray. |
| 5779 | (gnus-agent-set-local): Skip invalid entries (min and/or max is nil). | 5785 | (gnus-agent-set-local): Skip invalid entries (min and/or max is nil). |
| 5780 | (gnus-agent-regenerate-group): Check numeric names to see if they are | 5786 | (gnus-agent-regenerate-group): Check numeric names to see if they are |
| 5781 | messages or groups. | 5787 | messages or groups. |
| @@ -9438,7 +9444,7 @@ | |||
| 9438 | to get all the groups a message ID is in. | 9444 | to get all the groups a message ID is in. |
| 9439 | 9445 | ||
| 9440 | * spam-stat.el (spam-stat-split-fancy-spam-threshold) | 9446 | * spam-stat.el (spam-stat-split-fancy-spam-threshold) |
| 9441 | (spam-stat-split-fancy): Change "threshhold" to "threshold" | 9447 | (spam-stat-split-fancy): Change "threshhold" to "threshold". |
| 9442 | (spam-stat-score-buffer-user-functions): Add :number custom type. | 9448 | (spam-stat-score-buffer-user-functions): Add :number custom type. |
| 9443 | 9449 | ||
| 9444 | 2005-04-06 Katsumi Yamaoka <yamaoka@jpl.org> | 9450 | 2005-04-06 Katsumi Yamaoka <yamaoka@jpl.org> |
| @@ -10422,21 +10428,21 @@ | |||
| 10422 | 10428 | ||
| 10423 | 2004-11-14 Magnus Henoch <mange@freemail.hu> | 10429 | 2004-11-14 Magnus Henoch <mange@freemail.hu> |
| 10424 | 10430 | ||
| 10425 | * hashcash.el (hashcash-default-payment): Change default to 20 | 10431 | * hashcash.el (hashcash-default-payment): Change default to 20. |
| 10426 | (hashcash-default-accept-payment): Change default to 20 | 10432 | (hashcash-default-accept-payment): Change default to 20. |
| 10427 | (hashcash-process-alist): New variable | 10433 | (hashcash-process-alist): New variable. |
| 10428 | (hashcash-generate-payment-async): Add | 10434 | (hashcash-generate-payment-async): Add. |
| 10429 | (hashcash-already-paid-p): Add | 10435 | (hashcash-already-paid-p): Add. |
| 10430 | (hashcash-insert-payment): Don't generate payments twice | 10436 | (hashcash-insert-payment): Don't generate payments twice. |
| 10431 | (hashcash-insert-payment-async): Add | 10437 | (hashcash-insert-payment-async): Add. |
| 10432 | (hashcash-insert-payment-async-2): Add | 10438 | (hashcash-insert-payment-async-2): Add. |
| 10433 | (hashcash-cancel-async): Add | 10439 | (hashcash-cancel-async): Add. |
| 10434 | (hashcash-wait-async): Add | 10440 | (hashcash-wait-async): Add. |
| 10435 | (hashcash-processes-running-p): Add | 10441 | (hashcash-processes-running-p): Add. |
| 10436 | (hashcash-wait-or-cancel): Add | 10442 | (hashcash-wait-or-cancel): Add. |
| 10437 | (mail-add-payment): New optional argument. Conditionally start | 10443 | (mail-add-payment): New optional argument. Conditionally start |
| 10438 | asynchronous calculation. | 10444 | asynchronous calculation. |
| 10439 | (mail-add-payment-async): Add | 10445 | (mail-add-payment-async): Add. |
| 10440 | 10446 | ||
| 10441 | * message.el (message-send-mail): Wait for asynchronous hashcash | 10447 | * message.el (message-send-mail): Wait for asynchronous hashcash |
| 10442 | results. Don't clobber existing X-Hashcash headers. | 10448 | results. Don't clobber existing X-Hashcash headers. |
| @@ -10924,7 +10930,7 @@ | |||
| 10924 | (nnsoup-unpack-packets, nnsoup-make-active): Simplify. | 10930 | (nnsoup-unpack-packets, nnsoup-make-active): Simplify. |
| 10925 | 10931 | ||
| 10926 | * nnspool.el (nnspool-find-id): Use with-temp-buffer. | 10932 | * nnspool.el (nnspool-find-id): Use with-temp-buffer. |
| 10927 | (nnspool-sift-nov-with-sed): Use last | 10933 | (nnspool-sift-nov-with-sed): Use last. |
| 10928 | (nnspool-retrieve-headers-with-nov): Use mapc. | 10934 | (nnspool-retrieve-headers-with-nov): Use mapc. |
| 10929 | (nnspool-request-newgroups): Use dolist. | 10935 | (nnspool-request-newgroups): Use dolist. |
| 10930 | (nnspool-request-group): Use last. | 10936 | (nnspool-request-group): Use last. |
| @@ -11625,7 +11631,7 @@ | |||
| 11625 | * gnus-registry.el (gnus-registry-split-fancy-with-parent): Try | 11631 | * gnus-registry.el (gnus-registry-split-fancy-with-parent): Try |
| 11626 | to append in-reply-to: data to the references: header. | 11632 | to append in-reply-to: data to the references: header. |
| 11627 | 11633 | ||
| 11628 | * netrc.el: Remove old encryption support, autoload gnus-encrypt.el | 11634 | * netrc.el: Remove old encryption support, autoload gnus-encrypt.el. |
| 11629 | (netrc-parse): Use gnus-encrypt.el functions. | 11635 | (netrc-parse): Use gnus-encrypt.el functions. |
| 11630 | 11636 | ||
| 11631 | * gnus-encrypt.el: Add new file for encryption support; currently | 11637 | * gnus-encrypt.el: Add new file for encryption support; currently |
| @@ -12122,7 +12128,7 @@ | |||
| 12122 | 12128 | ||
| 12123 | 2004-05-26 Adam Sjøgren <asjo@koldfront.dk> (tiny change) | 12129 | 2004-05-26 Adam Sjøgren <asjo@koldfront.dk> (tiny change) |
| 12124 | 12130 | ||
| 12125 | (spam-ham-copy-or-move-routine): Don't declare `todo' twice. | 12131 | * spam.el (spam-ham-copy-or-move-routine): Don't declare `todo' twice. |
| 12126 | 12132 | ||
| 12127 | 2004-05-26 Katsumi Yamaoka <yamaoka@jpl.org> | 12133 | 2004-05-26 Katsumi Yamaoka <yamaoka@jpl.org> |
| 12128 | 12134 | ||
| @@ -12837,7 +12843,7 @@ | |||
| 12837 | 12843 | ||
| 12838 | * gnus-group.el: Require gnus-sum and autoload functions to | 12844 | * gnus-group.el: Require gnus-sum and autoload functions to |
| 12839 | resolve warnings when gnus-group.el compiled alone. | 12845 | resolve warnings when gnus-group.el compiled alone. |
| 12840 | (gnus-group-line-format): Documented new %F | 12846 | (gnus-group-line-format): Documented new %F. |
| 12841 | (size of Fetched data) group line format; identifies disk space | 12847 | (size of Fetched data) group line format; identifies disk space |
| 12842 | used by agent and cache. | 12848 | used by agent and cache. |
| 12843 | (gnus-group-line-format-alist): Defined new F format. | 12849 | (gnus-group-line-format-alist): Defined new F format. |
| @@ -13614,8 +13620,8 @@ | |||
| 13614 | is "nndraft:queue". Suggested by Gaute Strokkenes | 13620 | is "nndraft:queue". Suggested by Gaute Strokkenes |
| 13615 | <gs234@srcf.ucam.org> | 13621 | <gs234@srcf.ucam.org> |
| 13616 | 13622 | ||
| 13617 | * gnus-agent.el (agent-disable-undownloaded-faces): Removed | 13623 | * gnus-agent.el (agent-disable-undownloaded-faces): Removed. |
| 13618 | (agent-enable-undownloaded-faces): Added | 13624 | (agent-enable-undownloaded-faces): Added. |
| 13619 | (gnus-agent-cat-groups): Use eval-and-compile, not | 13625 | (gnus-agent-cat-groups): Use eval-and-compile, not |
| 13620 | eval-when-compile, to define gnus-agent-set-cat-groups as the setf | 13626 | eval-when-compile, to define gnus-agent-set-cat-groups as the setf |
| 13621 | method of gnus-agent-cat-groups even when the buffer has been | 13627 | method of gnus-agent-cat-groups even when the buffer has been |
| @@ -13640,8 +13646,8 @@ | |||
| 13640 | active file (local makes it unnecessary). | 13646 | active file (local makes it unnecessary). |
| 13641 | (gnus-agent-regenerate-group): Fixed XEmacs compatibility. | 13647 | (gnus-agent-regenerate-group): Fixed XEmacs compatibility. |
| 13642 | 13648 | ||
| 13643 | * gnus-cus.el (agent-disable-undownloaded-faces): Removed | 13649 | * gnus-cus.el (agent-disable-undownloaded-faces): Removed. |
| 13644 | (agent-enable-undownloaded-faces): Added | 13650 | (agent-enable-undownloaded-faces): Added. |
| 13645 | 13651 | ||
| 13646 | * gnus-draft.el (gnus-draft-send): Bind gnus-agent-queue-mail to | 13652 | * gnus-draft.el (gnus-draft-send): Bind gnus-agent-queue-mail to |
| 13647 | disable it when sending to "nndraft:queue". | 13653 | disable it when sending to "nndraft:queue". |
| @@ -13775,7 +13781,7 @@ | |||
| 13775 | 13781 | ||
| 13776 | 2004-01-14 Kai Grossjohann <kai@emptydomain.de> | 13782 | 2004-01-14 Kai Grossjohann <kai@emptydomain.de> |
| 13777 | 13783 | ||
| 13778 | (message-kill-to-signature): Change docstring. | 13784 | * message.el (message-kill-to-signature): Change docstring. |
| 13779 | 13785 | ||
| 13780 | 2004-01-14 Katsumi Yamaoka <yamaoka@jpl.org> | 13786 | 2004-01-14 Katsumi Yamaoka <yamaoka@jpl.org> |
| 13781 | 13787 | ||
| @@ -14194,7 +14200,7 @@ | |||
| 14194 | 14200 | ||
| 14195 | 2004-01-05 Reiner Steib <Reiner.Steib@gmx.de> | 14201 | 2004-01-05 Reiner Steib <Reiner.Steib@gmx.de> |
| 14196 | 14202 | ||
| 14197 | * gnus-art.el (gnus-treat-ansi-sequences, | 14203 | * gnus-art.el (gnus-treat-ansi-sequences) |
| 14198 | (article-treat-ansi-sequences): New variable and function. | 14204 | (article-treat-ansi-sequences): New variable and function. |
| 14199 | Suggested by Dan Jacobson <jidanni@jidanni.org>. | 14205 | Suggested by Dan Jacobson <jidanni@jidanni.org>. |
| 14200 | 14206 | ||
| @@ -14373,7 +14379,7 @@ | |||
| 14373 | 2004-01-04 Mario Lang <lang@zid.tugraz.at> | 14379 | 2004-01-04 Mario Lang <lang@zid.tugraz.at> |
| 14374 | 14380 | ||
| 14375 | * dns.el (dns-query-types): Fix typo. | 14381 | * dns.el (dns-query-types): Fix typo. |
| 14376 | (dns-query-types): New function | 14382 | (dns-query-types): New function. |
| 14377 | (dns-read-type): Add support for AAAA records, see RFC 3596. Parse MX, | 14383 | (dns-read-type): Add support for AAAA records, see RFC 3596. Parse MX, |
| 14378 | PTR and SOA replies, see RFC 1035. | 14384 | PTR and SOA replies, see RFC 1035. |
| 14379 | 14385 | ||
diff --git a/lisp/gnus/ChangeLog.1 b/lisp/gnus/ChangeLog.1 index 795df6f95a7..520b3a4b735 100644 --- a/lisp/gnus/ChangeLog.1 +++ b/lisp/gnus/ChangeLog.1 | |||
| @@ -506,10 +506,10 @@ | |||
| 506 | 506 | ||
| 507 | 1998-08-13 Simon Josefsson <jas@pdc.kth.se> | 507 | 1998-08-13 Simon Josefsson <jas@pdc.kth.se> |
| 508 | 508 | ||
| 509 | * gnus-msg.el (gnus-setup-message): use message-setup-hook | 509 | * gnus-msg.el (gnus-setup-message): Use message-setup-hook |
| 510 | instead | 510 | instead. |
| 511 | (gnus-configure-posting-styles): new posting-style 'body | 511 | (gnus-configure-posting-styles): New posting-style 'body. |
| 512 | (gnus-configure-posting-styles): insert headers immediately | 512 | (gnus-configure-posting-styles): Insert headers immediately |
| 513 | 513 | ||
| 514 | 1998-08-13 Lars Magne Ingebrigtsen <larsi@gnus.org> | 514 | 1998-08-13 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 515 | 515 | ||
| @@ -524,9 +524,9 @@ | |||
| 524 | 524 | ||
| 525 | 1998-08-12 Simon Josefsson <jas@pdc.kth.se> | 525 | 1998-08-12 Simon Josefsson <jas@pdc.kth.se> |
| 526 | 526 | ||
| 527 | * gnus-cache.el (gnus-uncacheable-groups): doc change | 527 | * gnus-cache.el (gnus-uncacheable-groups): Doc change. |
| 528 | (gnus-cacheable-groups): new variable | 528 | (gnus-cacheable-groups): New variable. |
| 529 | (gnus-cache-possibly-enter-article): use it | 529 | (gnus-cache-possibly-enter-article): Use it. |
| 530 | 530 | ||
| 531 | 1998-08-12 Lars Magne Ingebrigtsen <larsi@gnus.org> | 531 | 1998-08-12 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 532 | 532 | ||
diff --git a/lisp/gnus/ChangeLog.2 b/lisp/gnus/ChangeLog.2 index b05ff5fc8ef..6ad78d1319e 100644 --- a/lisp/gnus/ChangeLog.2 +++ b/lisp/gnus/ChangeLog.2 | |||
| @@ -694,11 +694,11 @@ | |||
| 694 | (gnus-agent-regenerate): Uses new gnus-agent-covered-methods | 694 | (gnus-agent-regenerate): Uses new gnus-agent-covered-methods |
| 695 | function as gnus-agent-covered-methods variable no longer provides | 695 | function as gnus-agent-covered-methods variable no longer provides |
| 696 | methods. | 696 | methods. |
| 697 | (gnus-agent-covered-methods): New function | 697 | (gnus-agent-covered-methods): New function. |
| 698 | (gnus-agent-expire-group, gnus-agent-expire): Final message will, | 698 | (gnus-agent-expire-group, gnus-agent-expire): Final message will, |
| 699 | if gnus-verbose is greater than 4, report statistics of NOV | 699 | if gnus-verbose is greater than 4, report statistics of NOV |
| 700 | entries and files deleted as well as total bytes recovered. | 700 | entries and files deleted as well as total bytes recovered. |
| 701 | (gnus-agent-expire-done-message): New function | 701 | (gnus-agent-expire-done-message): New function. |
| 702 | (gnus-agent-unread-articles): Bug fix. No longer drops last | 702 | (gnus-agent-unread-articles): Bug fix. No longer drops last |
| 703 | unread article onto read list. | 703 | unread article onto read list. |
| 704 | (gnus-agent-regenerate-group): Changed prompt to use typical | 704 | (gnus-agent-regenerate-group): Changed prompt to use typical |
| @@ -900,7 +900,7 @@ | |||
| 900 | 900 | ||
| 901 | * spam.el | 901 | * spam.el |
| 902 | (spam-log-processing-to-registry): Improved message and comments. | 902 | (spam-log-processing-to-registry): Improved message and comments. |
| 903 | (spam-log-unregistration-needed-p): New function | 903 | (spam-log-unregistration-needed-p): New function. |
| 904 | (spam-ifile-register-spam-routine) | 904 | (spam-ifile-register-spam-routine) |
| 905 | (spam-ifile-register-ham-routine, spam-stat-register-spam-routine) | 905 | (spam-ifile-register-ham-routine, spam-stat-register-spam-routine) |
| 906 | (spam-stat-register-ham-routine) | 906 | (spam-stat-register-ham-routine) |
| @@ -1120,7 +1120,7 @@ | |||
| 1120 | 1120 | ||
| 1121 | * message.el (message-mode-field-menu): Added | 1121 | * message.el (message-mode-field-menu): Added |
| 1122 | message-generate-unsubscribed-mail-followup-to. | 1122 | message-generate-unsubscribed-mail-followup-to. |
| 1123 | (message-forward-subject-fwd): Avoid double "Fwd: " | 1123 | (message-forward-subject-fwd): Avoid double "Fwd: ". |
| 1124 | (message-change-subject): Added comment. | 1124 | (message-change-subject): Added comment. |
| 1125 | 1125 | ||
| 1126 | 2003-10-19 Lars Magne Ingebrigtsen <larsi@gnus.org> | 1126 | 2003-10-19 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| @@ -2084,7 +2084,7 @@ | |||
| 2084 | (spam-spamoracle-learn-ham, spam-spamoracle-learn-spam): New functions. | 2084 | (spam-spamoracle-learn-ham, spam-spamoracle-learn-spam): New functions. |
| 2085 | 2085 | ||
| 2086 | * gnus.el (gnus-group-spam-exit-processor-spamoracle) | 2086 | * gnus.el (gnus-group-spam-exit-processor-spamoracle) |
| 2087 | (gnus-group-ham-exit-processor-spamoracle): New variables for SpamOracle | 2087 | (gnus-group-ham-exit-processor-spamoracle): New variables for SpamOracle. |
| 2088 | (spam-process, ham-process): Added spamoracle spam/ham processors. | 2088 | (spam-process, ham-process): Added spamoracle spam/ham processors. |
| 2089 | 2089 | ||
| 2090 | 2003-06-08 Jesper Harder <harder@ifa.au.dk> | 2090 | 2003-06-08 Jesper Harder <harder@ifa.au.dk> |
| @@ -2781,7 +2781,7 @@ | |||
| 2781 | * gnus-registry.el (gnus-registry-split-fancy-with-parent): Added | 2781 | * gnus-registry.el (gnus-registry-split-fancy-with-parent): Added |
| 2782 | diagnostic message. | 2782 | diagnostic message. |
| 2783 | (gnus-registry-grep-in-list): Don't run when word is nil. | 2783 | (gnus-registry-grep-in-list): Don't run when word is nil. |
| 2784 | (gnus-registry-fetch-message-id-fast): New function | 2784 | (gnus-registry-fetch-message-id-fast): New function. |
| 2785 | (gnus-registry-delete-group, gnus-registry-add-group): Make sure | 2785 | (gnus-registry-delete-group, gnus-registry-add-group): Make sure |
| 2786 | the id and group are not nil. | 2786 | the id and group are not nil. |
| 2787 | (gnus-registry-register-message-ids): New function. | 2787 | (gnus-registry-register-message-ids): New function. |
| @@ -3561,7 +3561,7 @@ | |||
| 3561 | `message-valid-fqdn-regexp' for initialization. | 3561 | `message-valid-fqdn-regexp' for initialization. |
| 3562 | (gnus-button-handle-info-url): Renamed and extended version of | 3562 | (gnus-button-handle-info-url): Renamed and extended version of |
| 3563 | `gnus-button-handle-info'. | 3563 | `gnus-button-handle-info'. |
| 3564 | (gnus-button-message-level): Renamed from `gnus-button-mail-level' | 3564 | (gnus-button-message-level): Renamed from `gnus-button-mail-level'. |
| 3565 | (gnus-button-handle-symbol, gnus-button-handle-library) | 3565 | (gnus-button-handle-symbol, gnus-button-handle-library) |
| 3566 | (gnus-button-handle-info-keystrokes): New functions. | 3566 | (gnus-button-handle-info-keystrokes): New functions. |
| 3567 | (gnus-button-browse-level): New variable. | 3567 | (gnus-button-browse-level): New variable. |
| @@ -6296,8 +6296,8 @@ | |||
| 6296 | 6296 | ||
| 6297 | 2003-01-02 Reiner Steib <Reiner.Steib@gmx.de> | 6297 | 2003-01-02 Reiner Steib <Reiner.Steib@gmx.de> |
| 6298 | 6298 | ||
| 6299 | * gnus-art.el (gnus-button-url-regexp, | 6299 | * gnus-art.el (gnus-button-url-regexp) |
| 6300 | (gnus-button-mid-or-mail-regexp, gnus-button-alist, | 6300 | (gnus-button-mid-or-mail-regexp, gnus-button-alist) |
| 6301 | (gnus-header-button-alist): Regexps are case insensitive here. | 6301 | (gnus-header-button-alist): Regexps are case insensitive here. |
| 6302 | 6302 | ||
| 6303 | 2003-01-02 Simon Josefsson <jas@extundo.com> | 6303 | 2003-01-02 Simon Josefsson <jas@extundo.com> |
| @@ -7195,7 +7195,7 @@ | |||
| 7195 | 7195 | ||
| 7196 | 2002-10-31 Alex Schroeder <alex@emacswiki.org> | 7196 | 2002-10-31 Alex Schroeder <alex@emacswiki.org> |
| 7197 | 7197 | ||
| 7198 | * spam-stat.el (spam-stat-process-directory): Add dir to message | 7198 | * spam-stat.el (spam-stat-process-directory): Add dir to message. |
| 7199 | (spam-stat-reduce-size): No longer remove words | 7199 | (spam-stat-reduce-size): No longer remove words |
| 7200 | with values close to 0.5, because the default value is 0.2. | 7200 | with values close to 0.5, because the default value is 0.2. |
| 7201 | 7201 | ||
| @@ -12403,7 +12403,7 @@ | |||
| 12403 | Support "Importance:" header in Message. | 12403 | Support "Importance:" header in Message. |
| 12404 | 12404 | ||
| 12405 | * message.el (message-mode-map): Bind C-c C-p to | 12405 | * message.el (message-mode-map): Bind C-c C-p to |
| 12406 | `message-insert-or-toggle-importance' | 12406 | `message-insert-or-toggle-importance'. |
| 12407 | (message-mode-menu): Add message-insert-importance-{high,low}. | 12407 | (message-mode-menu): Add message-insert-importance-{high,low}. |
| 12408 | (message-insert-importance-high, message-insert-importance-low) | 12408 | (message-insert-importance-high, message-insert-importance-low) |
| 12409 | (message-insert-or-toggle-importance): New functions. | 12409 | (message-insert-or-toggle-importance): New functions. |
| @@ -12871,7 +12871,7 @@ | |||
| 12871 | 12871 | ||
| 12872 | 2001-10-21 Simon Josefsson <jas@extundo.com> | 12872 | 2001-10-21 Simon Josefsson <jas@extundo.com> |
| 12873 | 12873 | ||
| 12874 | * nnimap.el (nnimap): Defgroup | 12874 | * nnimap.el (nnimap): Defgroup. |
| 12875 | (nnimap-strict-function, nnimap-strict-function-match): New | 12875 | (nnimap-strict-function, nnimap-strict-function-match): New |
| 12876 | widget, from Per Abrahamsen <abraham@dina.kvl.dk>. | 12876 | widget, from Per Abrahamsen <abraham@dina.kvl.dk>. |
| 12877 | (nnimap-split-crosspost, nnimap-split-inbox) | 12877 | (nnimap-split-crosspost, nnimap-split-inbox) |
| @@ -16689,7 +16689,7 @@ | |||
| 16689 | * gnus-cus.el (gnus-group-customize): Use it. | 16689 | * gnus-cus.el (gnus-group-customize): Use it. |
| 16690 | 16690 | ||
| 16691 | * gnus.el (gnus-define-group-parameter): New macro. | 16691 | * gnus.el (gnus-define-group-parameter): New macro. |
| 16692 | (auto-expire): Use it | 16692 | (auto-expire): Use it. |
| 16693 | (total-expire): Use it. | 16693 | (total-expire): Use it. |
| 16694 | * gnus-art.el (banner): Use it. | 16694 | * gnus-art.el (banner): Use it. |
| 16695 | 16695 | ||
diff --git a/lisp/gnus/mml-smime.el b/lisp/gnus/mml-smime.el index a4541ac5dec..827003f8ec7 100644 --- a/lisp/gnus/mml-smime.el +++ b/lisp/gnus/mml-smime.el | |||
| @@ -520,10 +520,14 @@ Content-Disposition: attachment; filename=smime.p7m | |||
| 520 | ctl 'protocol) | 520 | ctl 'protocol) |
| 521 | "application/pkcs7-signature") | 521 | "application/pkcs7-signature") |
| 522 | t))) | 522 | t))) |
| 523 | (null (setq signature (mm-find-part-by-type | 523 | (null (setq signature (or (mm-find-part-by-type |
| 524 | (cdr handle) | 524 | (cdr handle) |
| 525 | "application/pkcs7-signature" | 525 | "application/pkcs7-signature" |
| 526 | nil t)))) | 526 | nil t) |
| 527 | (mm-find-part-by-type | ||
| 528 | (cdr handle) | ||
| 529 | "application/x-pkcs7-signature" | ||
| 530 | nil t))))) | ||
| 527 | (mm-set-handle-multipart-parameter | 531 | (mm-set-handle-multipart-parameter |
| 528 | mm-security-handle 'gnus-info "Corrupted") | 532 | mm-security-handle 'gnus-info "Corrupted") |
| 529 | (throw 'error handle)) | 533 | (throw 'error handle)) |
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 29a49c45a38..ad1dbc8f024 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog | |||
| @@ -504,8 +504,8 @@ | |||
| 504 | 504 | ||
| 505 | 2006-06-02 Bill Wohler <wohler@newt.com> | 505 | 2006-06-02 Bill Wohler <wohler@newt.com> |
| 506 | 506 | ||
| 507 | (mh-folder-exists-p): Change test from an empty buffer, to one | 507 | * mh-search.el (mh-folder-exists-p): Change test from an empty buffer, |
| 508 | that contains the actual folder, since GNU mailutils' folder | 508 | to one that contains the actual folder, since GNU mailutils' folder |
| 509 | command displays output if the folder doesn't exist (closes SF | 509 | command displays output if the folder doesn't exist (closes SF |
| 510 | #1499712). | 510 | #1499712). |
| 511 | 511 | ||
| @@ -1415,7 +1415,7 @@ | |||
| 1415 | (mh-get-field): Delete ancient alias. | 1415 | (mh-get-field): Delete ancient alias. |
| 1416 | 1416 | ||
| 1417 | * mh-xface.el (mh-face-foreground-compat): Move to mh-compat.el | 1417 | * mh-xface.el (mh-face-foreground-compat): Move to mh-compat.el |
| 1418 | and rename to mh-face-foreground | 1418 | and rename to mh-face-foreground. |
| 1419 | (mh-face-background-compat): Move to mh-compat.el | 1419 | (mh-face-background-compat): Move to mh-compat.el |
| 1420 | and rename to mh-face-background. | 1420 | and rename to mh-face-background. |
| 1421 | (mh-face-display-function): Use the new names. | 1421 | (mh-face-display-function): Use the new names. |
| @@ -1732,7 +1732,7 @@ | |||
| 1732 | (mh-identity-make-menu-no-autoload): New alias for | 1732 | (mh-identity-make-menu-no-autoload): New alias for |
| 1733 | mh-identity-make-menu which can be called from mh-e.el. | 1733 | mh-identity-make-menu which can be called from mh-e.el. |
| 1734 | (mh-identity-list-set): Move to mh-e.el. | 1734 | (mh-identity-list-set): Move to mh-e.el. |
| 1735 | (mh-identity-add-menu): New function | 1735 | (mh-identity-add-menu): New function. |
| 1736 | (mh-insert-identity): Add optional argument maybe-insert so that | 1736 | (mh-insert-identity): Add optional argument maybe-insert so that |
| 1737 | local variable mh-identity-local does not have to be visible. | 1737 | local variable mh-identity-local does not have to be visible. |
| 1738 | 1738 | ||
| @@ -1891,7 +1891,7 @@ | |||
| 1891 | (mh-find-path-run, mh-find-path): Move here from deprecated file | 1891 | (mh-find-path-run, mh-find-path): Move here from deprecated file |
| 1892 | mh-init.el. | 1892 | mh-init.el. |
| 1893 | (mh-help-messages): Now an alist of modes to an alist of messages. | 1893 | (mh-help-messages): Now an alist of modes to an alist of messages. |
| 1894 | (mh-set-help): New function used to set mh-help-messages | 1894 | (mh-set-help): New function used to set mh-help-messages. |
| 1895 | (mh-help): Adjust for new format of mh-help-messages. Add | 1895 | (mh-help): Adjust for new format of mh-help-messages. Add |
| 1896 | help-messages argument. | 1896 | help-messages argument. |
| 1897 | (mh-prefix-help): Refactor to use mh-help. | 1897 | (mh-prefix-help): Refactor to use mh-help. |
| @@ -2460,7 +2460,7 @@ | |||
| 2460 | (mh-scan-good-msg-regexp, mh-scan-deleted-msg-regexp) | 2460 | (mh-scan-good-msg-regexp, mh-scan-deleted-msg-regexp) |
| 2461 | (mh-scan-refiled-msg-regexp, mh-scan-cur-msg-number-regexp) | 2461 | (mh-scan-refiled-msg-regexp, mh-scan-cur-msg-number-regexp) |
| 2462 | (mh-scan-date-regexp, mh-scan-rcpt-regexp, mh-scan-body-regexp) | 2462 | (mh-scan-date-regexp, mh-scan-rcpt-regexp, mh-scan-body-regexp) |
| 2463 | (mh-scan-subject-regexp): Sync docstrings with manual | 2463 | (mh-scan-subject-regexp): Sync docstrings with manual. |
| 2464 | (mh-scan-format-regexp): Rename to | 2464 | (mh-scan-format-regexp): Rename to |
| 2465 | mh-scan-sent-to-me-sender-regexp. Drop date parenthesized | 2465 | mh-scan-sent-to-me-sender-regexp. Drop date parenthesized |
| 2466 | expression. Make expression more like the others (anchored at the | 2466 | expression. Make expression more like the others (anchored at the |
| @@ -2760,7 +2760,7 @@ | |||
| 2760 | (mh-mime-save-parts-default-directory, mh-print-background-flag) | 2760 | (mh-mime-save-parts-default-directory, mh-print-background-flag) |
| 2761 | (mh-show-maximum-size, mh-show-use-goto-addr-flag) | 2761 | (mh-show-maximum-size, mh-show-use-goto-addr-flag) |
| 2762 | (mh-show-use-xface-flag, mh-store-default-directory) | 2762 | (mh-show-use-xface-flag, mh-store-default-directory) |
| 2763 | (mh-summary-height, mh-delete-msg-hook | 2763 | (mh-summary-height, mh-delete-msg-hook) |
| 2764 | (mh-show-hook, mh-show-mode-hook): Sync docstrings with manual. | 2764 | (mh-show-hook, mh-show-mode-hook): Sync docstrings with manual. |
| 2765 | 2765 | ||
| 2766 | * mh-e.el (mh-scan-format-mh, mh-scan-good-msg-regexp) | 2766 | * mh-e.el (mh-scan-format-mh, mh-scan-good-msg-regexp) |
diff --git a/lisp/mh-e/ChangeLog.1 b/lisp/mh-e/ChangeLog.1 index 5d08fd73e69..54cd828e796 100644 --- a/lisp/mh-e/ChangeLog.1 +++ b/lisp/mh-e/ChangeLog.1 | |||
| @@ -825,7 +825,7 @@ | |||
| 825 | (MH-E-XEMACS-OBJ): New variable to hold XEmacs object files. | 825 | (MH-E-XEMACS-OBJ): New variable to hold XEmacs object files. |
| 826 | (clean): Moved XEmacs-specific code to clean-xemacs. | 826 | (clean): Moved XEmacs-specific code to clean-xemacs. |
| 827 | (xemacs): Added clean-xemacs prerequisite. Moved down to XEmacs | 827 | (xemacs): Added clean-xemacs prerequisite. Moved down to XEmacs |
| 828 | section of file. Add target to build mh-loaddefs.el in XEmacs | 828 | section of file. Add target to build mh-loaddefs.el in XEmacs. |
| 829 | (loaddefs-xemacs): New rule to build mh-loaddefs.el in XEmacs. | 829 | (loaddefs-xemacs): New rule to build mh-loaddefs.el in XEmacs. |
| 830 | (clean-xemacs): New target to remove XEmacs-specific files. | 830 | (clean-xemacs): New target to remove XEmacs-specific files. |
| 831 | (compile-xemacs): New. It allows for the '-no-autoloads' option | 831 | (compile-xemacs): New. It allows for the '-no-autoloads' option |
| @@ -1156,8 +1156,8 @@ | |||
| 1156 | mh-loaddefs.el in XEmacs. | 1156 | mh-loaddefs.el in XEmacs. |
| 1157 | (XEMACS_LOADDEFS_COOKIE): Ditto. | 1157 | (XEMACS_LOADDEFS_COOKIE): Ditto. |
| 1158 | (XEMACS_LOADDEFS_PKG_NAME): Ditto. | 1158 | (XEMACS_LOADDEFS_PKG_NAME): Ditto. |
| 1159 | (xemacs): Add target to build mh-loaddefs.el in XEmacs | 1159 | (xemacs): Add target to build mh-loaddefs.el in XEmacs. |
| 1160 | (clean-xemacs): Remove `mh-loaddefs.el*' | 1160 | (clean-xemacs): Remove `mh-loaddefs.el*'. |
| 1161 | (loaddefs-xemacs): New rule to build mh-loaddefs.el in XEmacs. | 1161 | (loaddefs-xemacs): New rule to build mh-loaddefs.el in XEmacs. |
| 1162 | 1162 | ||
| 1163 | 2003-11-02 Peter S Galbraith <psg@debian.org> | 1163 | 2003-11-02 Peter S Galbraith <psg@debian.org> |
| @@ -1432,7 +1432,7 @@ | |||
| 1432 | (mh-mml-secure-message-signencrypt): Ditto. | 1432 | (mh-mml-secure-message-signencrypt): Ditto. |
| 1433 | (mh-mml-secure-message-sign): Ditto. | 1433 | (mh-mml-secure-message-sign): Ditto. |
| 1434 | 1434 | ||
| 1435 | * mh-comp.el (mh-letter-menu, mh-letter-mode-help-messages, | 1435 | * mh-comp.el (mh-letter-menu, mh-letter-mode-help-messages) |
| 1436 | (mh-letter-mode-map): Update to use new functions. | 1436 | (mh-letter-mode-map): Update to use new functions. |
| 1437 | 1437 | ||
| 1438 | 2003-09-26 Satyaki Das <satyakid@stanford.edu> | 1438 | 2003-09-26 Satyaki Das <satyakid@stanford.edu> |
| @@ -1485,7 +1485,7 @@ | |||
| 1485 | (mh-alias-system-aliases): Moved here from mh-customize.el. By | 1485 | (mh-alias-system-aliases): Moved here from mh-customize.el. By |
| 1486 | definition, "system" definitions are not user-visible, and user | 1486 | definition, "system" definitions are not user-visible, and user |
| 1487 | filenames are in the the Aliasfile: profile component, so this | 1487 | filenames are in the the Aliasfile: profile component, so this |
| 1488 | variable really shouldn't be a defcustom | 1488 | variable really shouldn't be a defcustom. |
| 1489 | (mh-alias-tstamp, mh-alias-filenames, mh-alias-reload) | 1489 | (mh-alias-tstamp, mh-alias-filenames, mh-alias-reload) |
| 1490 | (mh-alias-add-alias, mh-alias-grab-from-field) | 1490 | (mh-alias-add-alias, mh-alias-grab-from-field) |
| 1491 | (mh-alias-add-address-under-point, mh-alias-apropos): Merge | 1491 | (mh-alias-add-address-under-point, mh-alias-apropos): Merge |
| @@ -3988,7 +3988,7 @@ | |||
| 3988 | fixes germaine to the change whereby we now check for MIME | 3988 | fixes germaine to the change whereby we now check for MIME |
| 3989 | directives before sending. | 3989 | directives before sending. |
| 3990 | 3990 | ||
| 3991 | * mh-xemacs-toolbar.el: Fixed copyright. Added Change Log comment | 3991 | * mh-xemacs-toolbar.el: Fixed copyright. Added Change Log comment. |
| 3992 | (lm-verify fix). Added standard MH-E local variables. Removed | 3992 | (lm-verify fix). Added standard MH-E local variables. Removed |
| 3993 | time-stamp stuff. | 3993 | time-stamp stuff. |
| 3994 | 3994 | ||
| @@ -5807,8 +5807,8 @@ | |||
| 5807 | (mh-default-folder-prefix, mh-default-folder-must-exist-flag): In | 5807 | (mh-default-folder-prefix, mh-default-folder-must-exist-flag): In |
| 5808 | docstring, refer to documentation for mh-prompt-for-refile-folder | 5808 | docstring, refer to documentation for mh-prompt-for-refile-folder |
| 5809 | and mh-folder-from-address. | 5809 | and mh-folder-from-address. |
| 5810 | (mh-highlight-citation-p, mh-compose-insertion, | 5810 | (mh-highlight-citation-p, mh-compose-insertion) |
| 5811 | (mh-insert-mail-followup-to-list, mh-index-program, | 5811 | (mh-insert-mail-followup-to-list, mh-index-program) |
| 5812 | (mh-identity-default): Fixed case of tags. | 5812 | (mh-identity-default): Fixed case of tags. |
| 5813 | 5813 | ||
| 5814 | * mh-e.el (mh-folder-from-address): Use new variable | 5814 | * mh-e.el (mh-folder-from-address): Use new variable |
| @@ -6310,7 +6310,7 @@ | |||
| 6310 | (mh-alias-insert-file): New function. Return the alias file to | 6310 | (mh-alias-insert-file): New function. Return the alias file to |
| 6311 | write a new entry in. | 6311 | write a new entry in. |
| 6312 | (mh-alias-address-to-alias): New function. Return the ADDRESS | 6312 | (mh-alias-address-to-alias): New function. Return the ADDRESS |
| 6313 | alias if defined, or nil." | 6313 | alias if defined, or nil. |
| 6314 | (mh-alias-from-has-no-alias-p): New function. Return t is From has | 6314 | (mh-alias-from-has-no-alias-p): New function. Return t is From has |
| 6315 | no current alias set. Used as tool-bar button enable function. | 6315 | no current alias set. Used as tool-bar button enable function. |
| 6316 | (mh-alias-add-alias-to-file): New function. Add ALIAS for ADDRESS | 6316 | (mh-alias-add-alias-to-file): New function. Add ALIAS for ADDRESS |
| @@ -6902,7 +6902,7 @@ | |||
| 6902 | (mh-alias-translate): New function. Return translation for alias, | 6902 | (mh-alias-translate): New function. Return translation for alias, |
| 6903 | checking if in blind or passwd list. | 6903 | checking if in blind or passwd list. |
| 6904 | (mh-alias-letter-expand-alias): Rewrite using | 6904 | (mh-alias-letter-expand-alias): Rewrite using |
| 6905 | mail-abbrev-complete-alias from mailabbrev.el | 6905 | mail-abbrev-complete-alias from mailabbrev.el. |
| 6906 | (mh-alias-expand-alias-map): New variable. | 6906 | (mh-alias-expand-alias-map): New variable. |
| 6907 | (mh-alias-ali): New function. Return formatted string of | 6907 | (mh-alias-ali): New function. Return formatted string of |
| 6908 | translated ALIAS from ali. | 6908 | translated ALIAS from ali. |
| @@ -7084,7 +7084,7 @@ | |||
| 7084 | mh-thread-generate-scan-lines. | 7084 | mh-thread-generate-scan-lines. |
| 7085 | 7085 | ||
| 7086 | * mh-mime.el (font-lock): Font-lock required at compile time to | 7086 | * mh-mime.el (font-lock): Font-lock required at compile time to |
| 7087 | avoid warning about font-lock-maximum-size | 7087 | avoid warning about font-lock-maximum-size. |
| 7088 | (mh-display-smileys, mh-display-emphasis): Show graphical smileys | 7088 | (mh-display-smileys, mh-display-emphasis): Show graphical smileys |
| 7089 | and emphasis only if message isn't too large. | 7089 | and emphasis only if message isn't too large. |
| 7090 | 7090 | ||
| @@ -7445,7 +7445,7 @@ | |||
| 7445 | This addresses part of SF #627015. | 7445 | This addresses part of SF #627015. |
| 7446 | 7446 | ||
| 7447 | * mh-utils.el (mh-decode-quoted-printable-flag): Renamed from | 7447 | * mh-utils.el (mh-decode-quoted-printable-flag): Renamed from |
| 7448 | mh-decode-quoted-printable | 7448 | mh-decode-quoted-printable. |
| 7449 | (mh-display-msg, mh-decode-quoted-printable-have-mimedecode): | 7449 | (mh-display-msg, mh-decode-quoted-printable-have-mimedecode): |
| 7450 | Use it. | 7450 | Use it. |
| 7451 | This addresses part of SF #627015. | 7451 | This addresses part of SF #627015. |
| @@ -7906,7 +7906,7 @@ | |||
| 7906 | 2002-10-28 Peter S Galbraith <psg@debian.org> | 7906 | 2002-10-28 Peter S Galbraith <psg@debian.org> |
| 7907 | 7907 | ||
| 7908 | * mh-e.el (mh-scan-subject-regexp): Add an expression to match an | 7908 | * mh-e.el (mh-scan-subject-regexp): Add an expression to match an |
| 7909 | optional bracketed number after "Re", such as in "Re[2]:" | 7909 | optional bracketed number after "Re", such as in "Re[2]:". |
| 7910 | (Patch by Satyaki; I checked it and applied). | 7910 | (Patch by Satyaki; I checked it and applied). |
| 7911 | (mh-folder-font-lock-subject): Adapt to new mh-scan-subject-regexp. | 7911 | (mh-folder-font-lock-subject): Adapt to new mh-scan-subject-regexp. |
| 7912 | * mh-seq.el (mh-subject-to-sequence): Ditto. | 7912 | * mh-seq.el (mh-subject-to-sequence): Ditto. |
| @@ -8882,7 +8882,7 @@ | |||
| 8882 | (mh-pick-mode): Set local buffer variable mh-help-messages to | 8882 | (mh-pick-mode): Set local buffer variable mh-help-messages to |
| 8883 | mh-pick-mode-help-messages. | 8883 | mh-pick-mode-help-messages. |
| 8884 | 8884 | ||
| 8885 | * mh-index.el (mh-index-keymap): Added binding for mh-help | 8885 | * mh-index.el (mh-index-keymap): Added binding for mh-help. |
| 8886 | (mh-index-folder-mode-help-messages): New variable that contains | 8886 | (mh-index-folder-mode-help-messages): New variable that contains |
| 8887 | help messages for MH Index buffer. | 8887 | help messages for MH Index buffer. |
| 8888 | (mh-index-folder-mode): Set local buffer variable mh-help-messages | 8888 | (mh-index-folder-mode): Set local buffer variable mh-help-messages |
| @@ -9280,7 +9280,7 @@ | |||
| 9280 | 2002-09-17 Peter S Galbraith <psg@debian.org> | 9280 | 2002-09-17 Peter S Galbraith <psg@debian.org> |
| 9281 | 9281 | ||
| 9282 | * mh-mime.el (mh-store-mime-parts-default-directory): Renamed from | 9282 | * mh-mime.el (mh-store-mime-parts-default-directory): Renamed from |
| 9283 | mh-store-mime-parts-directory | 9283 | mh-store-mime-parts-directory. |
| 9284 | (mh-store-mime-parts-directory): Renamed from | 9284 | (mh-store-mime-parts-directory): Renamed from |
| 9285 | mh-store-mime-parts-directory-default. | 9285 | mh-store-mime-parts-directory-default. |
| 9286 | 9286 | ||
| @@ -9940,7 +9940,7 @@ | |||
| 9940 | compiler warnings. | 9940 | compiler warnings. |
| 9941 | 9941 | ||
| 9942 | * mh-e.el (compilation): Code rearrangement and extra autoloads to | 9942 | * mh-e.el (compilation): Code rearrangement and extra autoloads to |
| 9943 | remove compiler warnings | 9943 | remove compiler warnings. |
| 9944 | (mh-quit): Add call to mh-destroy-postponed-handles to remove | 9944 | (mh-quit): Add call to mh-destroy-postponed-handles to remove |
| 9945 | handles that are associated with external viewers. Also fixed a | 9945 | handles that are associated with external viewers. Also fixed a |
| 9946 | bug that I accidentally introduced by adding an extra line when | 9946 | bug that I accidentally introduced by adding an extra line when |
| @@ -10707,7 +10707,7 @@ | |||
| 10707 | 2001-11-29 Peter S Galbraith <psg@debian.org> | 10707 | 2001-11-29 Peter S Galbraith <psg@debian.org> |
| 10708 | 10708 | ||
| 10709 | * mh-e.el (mh-folder-font-lock-subject): New fontifier function | 10709 | * mh-e.el (mh-folder-font-lock-subject): New fontifier function |
| 10710 | for subject lines in folder-mode | 10710 | for subject lines in folder-mode. |
| 10711 | (mh-scan-followup-regexp): Deleted obsolete regexp. Use | 10711 | (mh-scan-followup-regexp): Deleted obsolete regexp. Use |
| 10712 | mh-scan-subject-regexp instead. | 10712 | mh-scan-subject-regexp instead. |
| 10713 | (mh-folder-font-lock-keywords): Use mh-folder-font-lock-subject | 10713 | (mh-folder-font-lock-keywords): Use mh-folder-font-lock-subject |
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 1c9a7015bf2..2a4f57e2045 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -599,8 +599,8 @@ detected as prompt when being sent on echoing hosts, therefore.") | |||
| 599 | (tramp-copy-keep-date nil) | 599 | (tramp-copy-keep-date nil) |
| 600 | (tramp-password-end-of-line nil)) | 600 | (tramp-password-end-of-line nil)) |
| 601 | ("plink" (tramp-login-program "plink") | 601 | ("plink" (tramp-login-program "plink") |
| 602 | (tramp-login-args (("%h") ("-l" "%u") ("-P" "%p") | 602 | (tramp-login-args (("-l" "%u") ("-P" "%p") |
| 603 | ("-ssh"))) | 603 | ("-ssh") ("%h"))) |
| 604 | (tramp-remote-sh "/bin/sh") | 604 | (tramp-remote-sh "/bin/sh") |
| 605 | (tramp-copy-program nil) | 605 | (tramp-copy-program nil) |
| 606 | (tramp-copy-args nil) | 606 | (tramp-copy-args nil) |
| @@ -609,8 +609,8 @@ detected as prompt when being sent on echoing hosts, therefore.") | |||
| 609 | (tramp-default-port 22)) | 609 | (tramp-default-port 22)) |
| 610 | ("plink1" | 610 | ("plink1" |
| 611 | (tramp-login-program "plink") | 611 | (tramp-login-program "plink") |
| 612 | (tramp-login-args (("%h") ("-l" "%u") ("-P" "%p") | 612 | (tramp-login-args (("-l" "%u") ("-P" "%p") |
| 613 | ("-1" "-ssh"))) | 613 | ("-1" "-ssh") ("%h"))) |
| 614 | (tramp-remote-sh "/bin/sh") | 614 | (tramp-remote-sh "/bin/sh") |
| 615 | (tramp-copy-program nil) | 615 | (tramp-copy-program nil) |
| 616 | (tramp-copy-args nil) | 616 | (tramp-copy-args nil) |
| @@ -633,8 +633,8 @@ detected as prompt when being sent on echoing hosts, therefore.") | |||
| 633 | (tramp-copy-keep-date nil) | 633 | (tramp-copy-keep-date nil) |
| 634 | (tramp-password-end-of-line nil)) | 634 | (tramp-password-end-of-line nil)) |
| 635 | ("pscp" (tramp-login-program "plink") | 635 | ("pscp" (tramp-login-program "plink") |
| 636 | (tramp-login-args (("%h") ("-l" "%u") ("-P" "%p") | 636 | (tramp-login-args (("-l" "%u") ("-P" "%p") |
| 637 | ("-ssh"))) | 637 | ("-ssh") ("%h"))) |
| 638 | (tramp-remote-sh "/bin/sh") | 638 | (tramp-remote-sh "/bin/sh") |
| 639 | (tramp-copy-program "pscp") | 639 | (tramp-copy-program "pscp") |
| 640 | (tramp-copy-args (("-P" "%p") ("-scp") ("-p" "%k"))) | 640 | (tramp-copy-args (("-P" "%p") ("-scp") ("-p" "%k"))) |
| @@ -642,8 +642,8 @@ detected as prompt when being sent on echoing hosts, therefore.") | |||
| 642 | (tramp-password-end-of-line "xy") ;see docstring for "xy" | 642 | (tramp-password-end-of-line "xy") ;see docstring for "xy" |
| 643 | (tramp-default-port 22)) | 643 | (tramp-default-port 22)) |
| 644 | ("psftp" (tramp-login-program "plink") | 644 | ("psftp" (tramp-login-program "plink") |
| 645 | (tramp-login-args (("%h") ("-l" "%u") ("-P" "%p") | 645 | (tramp-login-args (("-l" "%u") ("-P" "%p") |
| 646 | ("-ssh"))) | 646 | ("-ssh") ("%h"))) |
| 647 | (tramp-remote-sh "/bin/sh") | 647 | (tramp-remote-sh "/bin/sh") |
| 648 | (tramp-copy-program "pscp") | 648 | (tramp-copy-program "pscp") |
| 649 | (tramp-copy-args (("-P" "%p") ("-sftp") ("-p" "%k"))) | 649 | (tramp-copy-args (("-P" "%p") ("-sftp") ("-p" "%k"))) |
| @@ -1444,10 +1444,14 @@ See also `tramp-file-name-regexp'.") | |||
| 1444 | 1444 | ||
| 1445 | ;;;###autoload | 1445 | ;;;###autoload |
| 1446 | (defconst tramp-file-name-regexp-unified | 1446 | (defconst tramp-file-name-regexp-unified |
| 1447 | "\\`/\\([^[/:]+\\|[^/]+]\\):" | 1447 | (if (memq system-type '(cygwin windows-nt)) |
| 1448 | "\\`/\\([^[/:]\\{2,\\}\\|[^/]\\{2,\\}]\\):" | ||
| 1449 | "\\`/\\([^[/:]+\\|[^/]+]\\):") | ||
| 1448 | "Value for `tramp-file-name-regexp' for unified remoting. | 1450 | "Value for `tramp-file-name-regexp' for unified remoting. |
| 1449 | Emacs (not XEmacs) uses a unified filename syntax for Ange-FTP and | 1451 | Emacs (not XEmacs) uses a unified filename syntax for Ange-FTP and |
| 1450 | Tramp. See `tramp-file-name-structure' for more explanations.") | 1452 | Tramp. See `tramp-file-name-structure' for more explanations. |
| 1453 | |||
| 1454 | On W32 systems, the volume letter must be ignored.") | ||
| 1451 | 1455 | ||
| 1452 | ;;;###autoload | 1456 | ;;;###autoload |
| 1453 | (defconst tramp-file-name-regexp-separate | 1457 | (defconst tramp-file-name-regexp-separate |
| @@ -1494,10 +1498,14 @@ volume letter, which will be removed by `tramp-drop-volume-letter'.") | |||
| 1494 | 1498 | ||
| 1495 | ;;;###autoload | 1499 | ;;;###autoload |
| 1496 | (defconst tramp-completion-file-name-regexp-unified | 1500 | (defconst tramp-completion-file-name-regexp-unified |
| 1497 | (concat tramp-root-regexp "[^/]*\\'") | 1501 | (if (memq system-type '(cygwin windows-nt)) |
| 1502 | (concat tramp-root-regexp "[^/]\\{2,\\}\\'") | ||
| 1503 | (concat tramp-root-regexp "[^/]*\\'")) | ||
| 1498 | "Value for `tramp-completion-file-name-regexp' for unified remoting. | 1504 | "Value for `tramp-completion-file-name-regexp' for unified remoting. |
| 1499 | GNU Emacs uses a unified filename syntax for Tramp and Ange-FTP. | 1505 | GNU Emacs uses a unified filename syntax for Tramp and Ange-FTP. |
| 1500 | See `tramp-file-name-structure' for more explanations.") | 1506 | See `tramp-file-name-structure' for more explanations. |
| 1507 | |||
| 1508 | On W32 systems, the volume letter must be ignored.") | ||
| 1501 | 1509 | ||
| 1502 | ;;;###autoload | 1510 | ;;;###autoload |
| 1503 | (defconst tramp-completion-file-name-regexp-separate | 1511 | (defconst tramp-completion-file-name-regexp-separate |
| @@ -6590,7 +6598,29 @@ file exists and nonzero exit status otherwise." | |||
| 6590 | vec 'file-error "Couldn't find command to check if file exists")) | 6598 | vec 'file-error "Couldn't find command to check if file exists")) |
| 6591 | result)) | 6599 | result)) |
| 6592 | 6600 | ||
| 6593 | ;; CCC test ksh or bash found for tilde expansion? | 6601 | (defun tramp-open-shell (vec shell) |
| 6602 | "Opens shell SHELL." | ||
| 6603 | (with-progress-reporter vec 5 (format "Opening remote shell `%s'" shell) | ||
| 6604 | ;; Find arguments for this shell. | ||
| 6605 | (let ((tramp-end-of-output tramp-initial-end-of-output) | ||
| 6606 | (alist tramp-sh-extra-args) | ||
| 6607 | item extra-args) | ||
| 6608 | (while (and alist (null extra-args)) | ||
| 6609 | (setq item (pop alist)) | ||
| 6610 | (when (string-match (car item) shell) | ||
| 6611 | (setq extra-args (cdr item)))) | ||
| 6612 | (when extra-args (setq shell (concat shell " " extra-args))) | ||
| 6613 | (tramp-send-command | ||
| 6614 | vec (format "exec env ENV='' PROMPT_COMMAND='' PS1=%s PS2='' PS3='' %s" | ||
| 6615 | (shell-quote-argument tramp-end-of-output) shell) | ||
| 6616 | t)) | ||
| 6617 | ;; Setting prompts. | ||
| 6618 | (tramp-send-command | ||
| 6619 | vec (format "PS1=%s" (shell-quote-argument tramp-end-of-output)) t) | ||
| 6620 | (tramp-send-command vec "PS2=''" t) | ||
| 6621 | (tramp-send-command vec "PS3=''" t) | ||
| 6622 | (tramp-send-command vec "PROMPT_COMMAND=''" t))) | ||
| 6623 | |||
| 6594 | (defun tramp-find-shell (vec) | 6624 | (defun tramp-find-shell (vec) |
| 6595 | "Opens a shell on the remote host which groks tilde expansion." | 6625 | "Opens a shell on the remote host which groks tilde expansion." |
| 6596 | (unless (tramp-get-connection-property vec "remote-shell" nil) | 6626 | (unless (tramp-get-connection-property vec "remote-shell" nil) |
| @@ -6611,29 +6641,9 @@ file exists and nonzero exit status otherwise." | |||
| 6611 | (tramp-error | 6641 | (tramp-error |
| 6612 | vec 'file-error | 6642 | vec 'file-error |
| 6613 | "Couldn't find a shell which groks tilde expansion")) | 6643 | "Couldn't find a shell which groks tilde expansion")) |
| 6614 | ;; Find arguments for this shell. | ||
| 6615 | (let ((alist tramp-sh-extra-args) | ||
| 6616 | item extra-args) | ||
| 6617 | (while (and alist (null extra-args)) | ||
| 6618 | (setq item (pop alist)) | ||
| 6619 | (when (string-match (car item) shell) | ||
| 6620 | (setq extra-args (cdr item)))) | ||
| 6621 | (when extra-args (setq shell (concat shell " " extra-args)))) | ||
| 6622 | (tramp-message | 6644 | (tramp-message |
| 6623 | vec 5 "Starting remote shell `%s' for tilde expansion" shell) | 6645 | vec 5 "Starting remote shell `%s' for tilde expansion" shell) |
| 6624 | (let ((tramp-end-of-output tramp-initial-end-of-output)) | 6646 | (tramp-open-shell vec shell)) |
| 6625 | (tramp-send-command | ||
| 6626 | vec | ||
| 6627 | (format "PROMPT_COMMAND='' PS1=%s PS2='' PS3='' exec %s" | ||
| 6628 | (shell-quote-argument tramp-end-of-output) shell) | ||
| 6629 | t)) | ||
| 6630 | ;; Setting prompts. | ||
| 6631 | (with-progress-reporter vec 5 (format "Setting remote shell prompt") | ||
| 6632 | (tramp-send-command | ||
| 6633 | vec (format "PS1=%s" (shell-quote-argument tramp-end-of-output)) t) | ||
| 6634 | (tramp-send-command vec "PS2=''" t) | ||
| 6635 | (tramp-send-command vec "PS3=''" t) | ||
| 6636 | (tramp-send-command vec "PROMPT_COMMAND=''" t))) | ||
| 6637 | 6647 | ||
| 6638 | (t (tramp-message | 6648 | (t (tramp-message |
| 6639 | vec 5 "Remote `%s' groks tilde expansion, good" | 6649 | vec 5 "Remote `%s' groks tilde expansion, good" |
| @@ -6914,14 +6924,9 @@ process to set up. VEC specifies the connection." | |||
| 6914 | ;; way, we avoid the startup file clobbering $PS1. $PROMP_COMMAND | 6924 | ;; way, we avoid the startup file clobbering $PS1. $PROMP_COMMAND |
| 6915 | ;; is another way to set the prompt in /bin/bash, it must be | 6925 | ;; is another way to set the prompt in /bin/bash, it must be |
| 6916 | ;; discarded as well. | 6926 | ;; discarded as well. |
| 6917 | (tramp-send-command | 6927 | (tramp-open-shell |
| 6918 | vec | 6928 | vec |
| 6919 | (format | 6929 | (tramp-get-method-parameter (tramp-file-name-method vec) 'tramp-remote-sh)) |
| 6920 | "exec env ENV='' PROMPT_COMMAND='' PS1=%s PS2='' PS3='' %s" | ||
| 6921 | (shell-quote-argument tramp-end-of-output) | ||
| 6922 | (tramp-get-method-parameter | ||
| 6923 | (tramp-file-name-method vec) 'tramp-remote-sh)) | ||
| 6924 | t) | ||
| 6925 | 6930 | ||
| 6926 | ;; Disable echo. | 6931 | ;; Disable echo. |
| 6927 | (tramp-message vec 5 "Setting up remote shell environment") | 6932 | (tramp-message vec 5 "Setting up remote shell environment") |
| @@ -7037,7 +7042,7 @@ process to set up. VEC specifies the connection." | |||
| 7037 | ;; "echo $?" part if the "test" part has an error. In particular, | 7042 | ;; "echo $?" part if the "test" part has an error. In particular, |
| 7038 | ;; the OpenSolaris /bin/sh is a problem. There are also other | 7043 | ;; the OpenSolaris /bin/sh is a problem. There are also other |
| 7039 | ;; problems with /bin/sh of OpenSolaris, like redirection of stderr | 7044 | ;; problems with /bin/sh of OpenSolaris, like redirection of stderr |
| 7040 | ;; in in function declarations, or changing HISTFILE in place. | 7045 | ;; in function declarations, or changing HISTFILE in place. |
| 7041 | ;; Therefore, OpenSolaris' /bin/sh is replaced by bash, when | 7046 | ;; Therefore, OpenSolaris' /bin/sh is replaced by bash, when |
| 7042 | ;; detected. | 7047 | ;; detected. |
| 7043 | (tramp-find-shell vec) | 7048 | (tramp-find-shell vec) |
| @@ -8882,7 +8887,6 @@ Only works for Bourne-like shells." | |||
| 8882 | ;; likely to produce long command lines, and some shells choke on | 8887 | ;; likely to produce long command lines, and some shells choke on |
| 8883 | ;; long command lines. | 8888 | ;; long command lines. |
| 8884 | ;; * How to deal with MULE in `insert-file-contents' and `write-region'? | 8889 | ;; * How to deal with MULE in `insert-file-contents' and `write-region'? |
| 8885 | ;; * Test remote ksh or bash for tilde expansion in `tramp-find-shell'? | ||
| 8886 | ;; * abbreviate-file-name | 8890 | ;; * abbreviate-file-name |
| 8887 | ;; * Better error checking. At least whenever we see something | 8891 | ;; * Better error checking. At least whenever we see something |
| 8888 | ;; strange when doing zerop, we should kill the process and start | 8892 | ;; strange when doing zerop, we should kill the process and start |
| @@ -8953,7 +8957,6 @@ Only works for Bourne-like shells." | |||
| 8953 | ;; expects English? Or just to set LC_MESSAGES to "C" if Tramp | 8957 | ;; expects English? Or just to set LC_MESSAGES to "C" if Tramp |
| 8954 | ;; expects only English messages? (Juri Linkov) | 8958 | ;; expects only English messages? (Juri Linkov) |
| 8955 | ;; * Make shadowfile.el grok Tramp filenames. (Bug#4526, Bug#4846) | 8959 | ;; * Make shadowfile.el grok Tramp filenames. (Bug#4526, Bug#4846) |
| 8956 | ;; * Do not handle files with drive letter as remote. (Bug#5447) | ||
| 8957 | ;; * Load Tramp subpackages only when needed. (Bug#1529, Bug#5448, Bug#5705) | 8960 | ;; * Load Tramp subpackages only when needed. (Bug#1529, Bug#5448, Bug#5705) |
| 8958 | ;; * Try telnet+curl as new method. It might be useful for busybox, | 8961 | ;; * Try telnet+curl as new method. It might be useful for busybox, |
| 8959 | ;; without built-in uuencode/uudecode. | 8962 | ;; without built-in uuencode/uudecode. |
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index 436cdbd846f..9fb48e00ed7 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog | |||
| @@ -1375,20 +1375,20 @@ | |||
| 1375 | 1375 | ||
| 1376 | * org.el (org-appearance): Change Customize group variable name | 1376 | * org.el (org-appearance): Change Customize group variable name |
| 1377 | from org-font-lock to org-appearance, and change tag from "Org | 1377 | from org-font-lock to org-appearance, and change tag from "Org |
| 1378 | Font Lock" to "Org Appearance" | 1378 | Font Lock" to "Org Appearance". |
| 1379 | (org-odd-levels-only): Change Customize group variable name | 1379 | (org-odd-levels-only): Change Customize group variable name. |
| 1380 | (org-level-color-stars-only): Change Customize group variable name | 1380 | (org-level-color-stars-only): Change Customize group variable name. |
| 1381 | (org-hide-leading-stars): Change Customize group variable name | 1381 | (org-hide-leading-stars): Change Customize group variable name. |
| 1382 | (org-hidden-keywords): Change Customize group variable name | 1382 | (org-hidden-keywords): Change Customize group variable name. |
| 1383 | (org-fontify-done-headline): Change Customize group variable name | 1383 | (org-fontify-done-headline): Change Customize group variable name. |
| 1384 | (org-fontify-emphasized-text): Change Customize group variable name | 1384 | (org-fontify-emphasized-text): Change Customize group variable name. |
| 1385 | (org-fontify-whole-heading-line): Change Customize group variable name | 1385 | (org-fontify-whole-heading-line): Change Customize group variable name. |
| 1386 | (org-highlight-latex-fragments-and-specials): Change Customize | 1386 | (org-highlight-latex-fragments-and-specials): Change Customize |
| 1387 | group variable name | 1387 | group variable name. |
| 1388 | (org-hide-emphasis-markers): Change Customize group variable name | 1388 | (org-hide-emphasis-markers): Change Customize group variable name. |
| 1389 | (org-emphasis-alist): Change Customize group variable name | 1389 | (org-emphasis-alist): Change Customize group variable name. |
| 1390 | (org-emphasis-regexp-components): Change Customize group variable | 1390 | (org-emphasis-regexp-components): Change Customize group variable |
| 1391 | name | 1391 | name. |
| 1392 | (org-modules): Remove mention of org-R. | 1392 | (org-modules): Remove mention of org-R. |
| 1393 | 1393 | ||
| 1394 | * org-faces.el (org-faces): Change Customize group variable name. | 1394 | * org-faces.el (org-faces): Change Customize group variable name. |
| @@ -1420,8 +1420,8 @@ | |||
| 1420 | (org-fontify-meta-lines-and-blocks): Changes to font-lock code | 1420 | (org-fontify-meta-lines-and-blocks): Changes to font-lock code |
| 1421 | implementing new faces and hiding behaviour. | 1421 | implementing new faces and hiding behaviour. |
| 1422 | 1422 | ||
| 1423 | * org-faces.el (org-document-title): New face for #+TITLE lines | 1423 | * org-faces.el (org-document-title): New face for #+TITLE lines. |
| 1424 | (org-document-info): New face for #+DATE, #+AUTHOR, #+EMAIL lines | 1424 | (org-document-info): New face for #+DATE, #+AUTHOR, #+EMAIL lines. |
| 1425 | (org-document-info-keyword): New face for #+DATE, #+AUTHOR, #+EMAIL | 1425 | (org-document-info-keyword): New face for #+DATE, #+AUTHOR, #+EMAIL |
| 1426 | keywords. | 1426 | keywords. |
| 1427 | 1427 | ||
| @@ -3096,12 +3096,12 @@ | |||
| 3096 | point. | 3096 | point. |
| 3097 | (org-columns-compile-map): There is now an extra position in each | 3097 | (org-columns-compile-map): There is now an extra position in each |
| 3098 | entry specifying the function to use to calculate the displayed | 3098 | entry specifying the function to use to calculate the displayed |
| 3099 | value for the non-calculated properties in the column, | 3099 | value for the non-calculated properties in the column. |
| 3100 | (org-columns-compute-all): Set `org-columns-time' to the current | 3100 | (org-columns-compute-all): Set `org-columns-time' to the current |
| 3101 | time so time difference calculations will work. | 3101 | time so time difference calculations will work. |
| 3102 | (org-columns-compute): Handle column operators where the values | 3102 | (org-columns-compute): Handle column operators where the values |
| 3103 | used are calculated from the underlying property. | 3103 | used are calculated from the underlying property. |
| 3104 | (org-columns-number-to-string): Handle the 'age' column format | 3104 | (org-columns-number-to-string): Handle the 'age' column format. |
| 3105 | (org-columns-string-to-number): Correct the function name (was | 3105 | (org-columns-string-to-number): Correct the function name (was |
| 3106 | org-column...). Add support for the 'age' column format. | 3106 | org-column...). Add support for the 'age' column format. |
| 3107 | (org-columns-compile-format): Support the additional parameter in | 3107 | (org-columns-compile-format): Support the additional parameter in |
| @@ -3348,7 +3348,7 @@ | |||
| 3348 | currently active clock if the user has exceeded the time returned | 3348 | currently active clock if the user has exceeded the time returned |
| 3349 | by `org-user-idle-seconds', based on the value of | 3349 | by `org-user-idle-seconds', based on the value of |
| 3350 | `org-clock-idle-time'. | 3350 | `org-clock-idle-time'. |
| 3351 | (org-clock-in): If, after resolving clocks, | 3351 | (org-clock-in): If, after resolving clocks, (???) |
| 3352 | (org-clock-out): Cancel the `org-clock-idle-timer' on clock out. | 3352 | (org-clock-out): Cancel the `org-clock-idle-timer' on clock out. |
| 3353 | 3353 | ||
| 3354 | * org-clock.el (org-clock-resolve-clock): New function that | 3354 | * org-clock.el (org-clock-resolve-clock): New function that |
| @@ -4157,7 +4157,7 @@ | |||
| 4157 | * org-exp.el (org-export-format-source-code-or-example): Translate | 4157 | * org-exp.el (org-export-format-source-code-or-example): Translate |
| 4158 | language. | 4158 | language. |
| 4159 | 4159 | ||
| 4160 | * org-src.el (org-src-lang-modes): New variable | 4160 | * org-src.el (org-src-lang-modes): New variable. |
| 4161 | (org-edit-src-code): Translate language. | 4161 | (org-edit-src-code): Translate language. |
| 4162 | 4162 | ||
| 4163 | * org-exp.el (org-export-format-source-code-or-example): Deal wit | 4163 | * org-exp.el (org-export-format-source-code-or-example): Deal wit |
| @@ -4285,7 +4285,7 @@ | |||
| 4285 | the markup is src or example. | 4285 | the markup is src or example. |
| 4286 | 4286 | ||
| 4287 | * org-agenda.el (org-agenda-skip-scheduled-if-deadline-is-shown): | 4287 | * org-agenda.el (org-agenda-skip-scheduled-if-deadline-is-shown): |
| 4288 | New option | 4288 | New option. |
| 4289 | (org-agenda-get-day-entries): Remember deadline results and pass | 4289 | (org-agenda-get-day-entries): Remember deadline results and pass |
| 4290 | them on into the function getting the scheduling information. | 4290 | them on into the function getting the scheduling information. |
| 4291 | (org-agenda-get-scheduled): Accept deadline results as parameters | 4291 | (org-agenda-get-scheduled): Accept deadline results as parameters |
| @@ -4296,7 +4296,7 @@ | |||
| 4296 | convert current line to headline. | 4296 | convert current line to headline. |
| 4297 | 4297 | ||
| 4298 | * org-clock.el (org-clock-save-markers-for-cut-and-paste): Also | 4298 | * org-clock.el (org-clock-save-markers-for-cut-and-paste): Also |
| 4299 | cheeeeeck the hd marker | 4299 | cheeeeeck the hd marker. |
| 4300 | (org-clock-in): Also set the hd marker. | 4300 | (org-clock-in): Also set the hd marker. |
| 4301 | (org-clock-out): Also set the hd marker. | 4301 | (org-clock-out): Also set the hd marker. |
| 4302 | (org-clock-cancel): Reset markers. | 4302 | (org-clock-cancel): Reset markers. |
| @@ -4518,9 +4518,9 @@ | |||
| 4518 | 2009-08-06 Bastien Guerry <bzg@altern.org> | 4518 | 2009-08-06 Bastien Guerry <bzg@altern.org> |
| 4519 | 4519 | ||
| 4520 | * org.el (org-make-link-regexps): Don't exclude parentheses from | 4520 | * org.el (org-make-link-regexps): Don't exclude parentheses from |
| 4521 | `org-plain-link-re' | 4521 | `org-plain-link-re'. |
| 4522 | (org-cycle-internal-local): When locally cycling, switch directly | 4522 | (org-cycle-internal-local): When locally cycling, switch directly |
| 4523 | from CHILDREN to FOLDED if there is no subtree | 4523 | from CHILDREN to FOLDED if there is no subtree. |
| 4524 | (org-cycle): Update the docstring to document the new behavior of | 4524 | (org-cycle): Update the docstring to document the new behavior of |
| 4525 | `org-cycle-internal-local'. | 4525 | `org-cycle-internal-local'. |
| 4526 | 4526 | ||
| @@ -5111,7 +5111,7 @@ | |||
| 5111 | (org-set-font-lock-defaults): Call the new fontification | 5111 | (org-set-font-lock-defaults): Call the new fontification |
| 5112 | function. | 5112 | function. |
| 5113 | 5113 | ||
| 5114 | * org-faces.el (org-meta-line): New face | 5114 | * org-faces.el (org-meta-line): New face. |
| 5115 | (org-block): New face. | 5115 | (org-block): New face. |
| 5116 | 5116 | ||
| 5117 | 2009-08-06 Carsten Dominik <carsten.dominik@gmail.com> | 5117 | 2009-08-06 Carsten Dominik <carsten.dominik@gmail.com> |
| @@ -5341,7 +5341,7 @@ | |||
| 5341 | 2009-08-06 Carsten Dominik <carsten.dominik@gmail.com> | 5341 | 2009-08-06 Carsten Dominik <carsten.dominik@gmail.com> |
| 5342 | 5342 | ||
| 5343 | * org-exp.el (org-export, org-export-visible): Support ASCII | 5343 | * org-exp.el (org-export, org-export-visible): Support ASCII |
| 5344 | export to buffer | 5344 | export to buffer. |
| 5345 | (org-export-normalize-links): Do not protect the description if it | 5345 | (org-export-normalize-links): Do not protect the description if it |
| 5346 | is explicitly given. | 5346 | is explicitly given. |
| 5347 | 5347 | ||
| @@ -5696,7 +5696,7 @@ | |||
| 5696 | 5696 | ||
| 5697 | * org-mouse.el: XEmacs compatibility fixes. | 5697 | * org-mouse.el: XEmacs compatibility fixes. |
| 5698 | 5698 | ||
| 5699 | * org.el (org-modules): Add org-inlinetasks.el | 5699 | * org.el (org-modules): Add org-inlinetasks.el. |
| 5700 | (org-cycle): Implement limiting level on cycling. | 5700 | (org-cycle): Implement limiting level on cycling. |
| 5701 | (org-move-subtree-down): Fix bug with swapping subtrees at end of | 5701 | (org-move-subtree-down): Fix bug with swapping subtrees at end of |
| 5702 | buffer. | 5702 | buffer. |
| @@ -5788,7 +5788,7 @@ | |||
| 5788 | (org-mouse-context-menu): Use `org-mouse-todo-menu'. | 5788 | (org-mouse-context-menu): Use `org-mouse-todo-menu'. |
| 5789 | 5789 | ||
| 5790 | * org-table.el (org-table-beginning-of-field) | 5790 | * org-table.el (org-table-beginning-of-field) |
| 5791 | (org-table-end-of-field): New commands | 5791 | (org-table-end-of-field): New commands. |
| 5792 | (org-table-previous-field, org-table-beginning-of-field): Better | 5792 | (org-table-previous-field, org-table-beginning-of-field): Better |
| 5793 | error messages. | 5793 | error messages. |
| 5794 | (orgtbl-setup): Include `M-a' and `M-e'. | 5794 | (orgtbl-setup): Include `M-a' and `M-e'. |
| @@ -5954,7 +5954,7 @@ | |||
| 5954 | (org-export-plist-vars): Add entries for :keywords and | 5954 | (org-export-plist-vars): Add entries for :keywords and |
| 5955 | :description. | 5955 | :description. |
| 5956 | (org-infile-export-plist): Parse for new keywords. | 5956 | (org-infile-export-plist): Parse for new keywords. |
| 5957 | (org-get-current-options): Add new keywords | 5957 | (org-get-current-options): Add new keywords. |
| 5958 | (org-export-as-html): Publish description and keywords. | 5958 | (org-export-as-html): Publish description and keywords. |
| 5959 | 5959 | ||
| 5960 | * org-agenda.el (org-agenda-add-entry-text-descriptive-links): New | 5960 | * org-agenda.el (org-agenda-add-entry-text-descriptive-links): New |
| @@ -7770,7 +7770,7 @@ | |||
| 7770 | immediately after the scheduling keywords. | 7770 | immediately after the scheduling keywords. |
| 7771 | 7771 | ||
| 7772 | * org-clock.el (org-clock-in-switch-to-state): Allow this to be a | 7772 | * org-clock.el (org-clock-in-switch-to-state): Allow this to be a |
| 7773 | function | 7773 | function. |
| 7774 | (org-clock-in): If `org-clock-in-switch-to-state' is a function, | 7774 | (org-clock-in): If `org-clock-in-switch-to-state' is a function, |
| 7775 | call it with the current todo state to get the state to switch to | 7775 | call it with the current todo state to get the state to switch to |
| 7776 | when clocking in. | 7776 | when clocking in. |
| @@ -7973,7 +7973,7 @@ | |||
| 7973 | line. | 7973 | line. |
| 7974 | 7974 | ||
| 7975 | * org.el (org-get-refile-targets): Replace links with their | 7975 | * org.el (org-get-refile-targets): Replace links with their |
| 7976 | descriptions | 7976 | descriptions. |
| 7977 | (org-imenu-get-tree): Replace links with their descriptions. | 7977 | (org-imenu-get-tree): Replace links with their descriptions. |
| 7978 | 7978 | ||
| 7979 | * org-remember.el (org-remember-apply-template): Add a new | 7979 | * org-remember.el (org-remember-apply-template): Add a new |
| @@ -8017,7 +8017,7 @@ | |||
| 8017 | (org-quote-chars): Remove. | 8017 | (org-quote-chars): Remove. |
| 8018 | (org-export-latex-keywords-maybe): Use `replace-regexp-in-string'. | 8018 | (org-export-latex-keywords-maybe): Use `replace-regexp-in-string'. |
| 8019 | (org-export-latex-list-beginning-re): Rename to | 8019 | (org-export-latex-list-beginning-re): Rename to |
| 8020 | `org-list-beginning-re' | 8020 | `org-list-beginning-re'. |
| 8021 | (org-list-item-begin): Rename to `org-list-item-beginning'. | 8021 | (org-list-item-begin): Rename to `org-list-item-beginning'. |
| 8022 | 8022 | ||
| 8023 | 2008-10-12 Eric Schulte <schulte.eric@gmail.com> | 8023 | 2008-10-12 Eric Schulte <schulte.eric@gmail.com> |
| @@ -8352,7 +8352,7 @@ | |||
| 8352 | (org-map-entries): Make sure org-agenda-archives-mode is nil. | 8352 | (org-map-entries): Make sure org-agenda-archives-mode is nil. |
| 8353 | (org-agenda-files): Functionality of second arg changed. | 8353 | (org-agenda-files): Functionality of second arg changed. |
| 8354 | 8354 | ||
| 8355 | * org-agenda.el (org-agenda-archives-mode): New variable | 8355 | * org-agenda.el (org-agenda-archives-mode): New variable. |
| 8356 | (org-write-agenda, org-prepare-agenda, org-agenda-list) | 8356 | (org-write-agenda, org-prepare-agenda, org-agenda-list) |
| 8357 | (org-search-view, org-todo-list, org-tags-view) | 8357 | (org-search-view, org-todo-list, org-tags-view) |
| 8358 | (org-agenda-list-stuck-projects): Call `org-agenda-files' with | 8358 | (org-agenda-list-stuck-projects): Call `org-agenda-files' with |
diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el index 00ebbae2814..68d1590e571 100644 --- a/lisp/play/tetris.el +++ b/lisp/play/tetris.el | |||
| @@ -76,13 +76,12 @@ If the return value is a number, it is used as the timer period." | |||
| 76 | :type 'hook) | 76 | :type 'hook) |
| 77 | 77 | ||
| 78 | (defcustom tetris-tty-colors | 78 | (defcustom tetris-tty-colors |
| 79 | [nil "blue" "white" "yellow" "magenta" "cyan" "green" "red"] | 79 | ["blue" "white" "yellow" "magenta" "cyan" "green" "red"] |
| 80 | "Vector of colors of the various shapes in text mode. | 80 | "Vector of colors of the various shapes in text mode." |
| 81 | Element 0 is ignored." | ||
| 82 | :group 'tetris | 81 | :group 'tetris |
| 83 | :type (let ((names `("Shape 1" "Shape 2" "Shape 3" | 82 | :type (let ((names `("Shape 1" "Shape 2" "Shape 3" |
| 84 | "Shape 4" "Shape 5" "Shape 6" "Shape 7")) | 83 | "Shape 4" "Shape 5" "Shape 6" "Shape 7")) |
| 85 | (result `(vector (const nil)))) | 84 | (result nil)) |
| 86 | (while names | 85 | (while names |
| 87 | (add-to-list 'result | 86 | (add-to-list 'result |
| 88 | (cons 'choice | 87 | (cons 'choice |
| @@ -96,9 +95,8 @@ Element 0 is ignored." | |||
| 96 | result)) | 95 | result)) |
| 97 | 96 | ||
| 98 | (defcustom tetris-x-colors | 97 | (defcustom tetris-x-colors |
| 99 | [nil [0 0 1] [0.7 0 1] [1 1 0] [1 0 1] [0 1 1] [0 1 0] [1 0 0]] | 98 | [[0 0 1] [0.7 0 1] [1 1 0] [1 0 1] [0 1 1] [0 1 0] [1 0 0]] |
| 100 | "Vector of colors of the various shapes. | 99 | "Vector of colors of the various shapes." |
| 101 | Element 0 is ignored." | ||
| 102 | :group 'tetris | 100 | :group 'tetris |
| 103 | :type 'sexp) | 101 | :type 'sexp) |
| 104 | 102 | ||
| @@ -196,51 +194,44 @@ Element 0 is ignored." | |||
| 196 | ;; ;;;;;;;;;;;;; constants ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 194 | ;; ;;;;;;;;;;;;; constants ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 197 | 195 | ||
| 198 | (defconst tetris-shapes | 196 | (defconst tetris-shapes |
| 199 | [[[[1 1 0 0] [1 1 0 0] [1 1 0 0] [1 1 0 0]] | 197 | [[[[0 0] [1 0] [0 1] [1 1]]] |
| 200 | [[1 1 0 0] [1 1 0 0] [1 1 0 0] [1 1 0 0]] | 198 | |
| 201 | [[0 0 0 0] [0 0 0 0] [0 0 0 0] [0 0 0 0]] | 199 | [[[0 0] [1 0] [2 0] [2 1]] |
| 202 | [[0 0 0 0] [0 0 0 0] [0 0 0 0] [0 0 0 0]]] | 200 | [[1 -1] [1 0] [1 1] [0 1]] |
| 203 | 201 | [[0 -1] [0 0] [1 0] [2 0]] | |
| 204 | [[[2 2 2 0] [0 2 0 0] [2 0 0 0] [2 2 0 0]] | 202 | [[1 -1] [2 -1] [1 0] [1 1]]] |
| 205 | [[0 0 2 0] [0 2 0 0] [2 2 2 0] [2 0 0 0]] | 203 | |
| 206 | [[0 0 0 0] [2 2 0 0] [0 0 0 0] [2 0 0 0]] | 204 | [[[0 0] [1 0] [2 0] [0 1]] |
| 207 | [[0 0 0 0] [0 0 0 0] [0 0 0 0] [0 0 0 0]]] | 205 | [[0 -1] [1 -1] [1 0] [1 1]] |
| 208 | 206 | [[2 -1] [0 0] [1 0] [2 0]] | |
| 209 | [[[3 3 3 0] [3 3 0 0] [0 0 3 0] [3 0 0 0]] | 207 | [[1 -1] [1 0] [1 1] [2 1]]] |
| 210 | [[3 0 0 0] [0 3 0 0] [3 3 3 0] [3 0 0 0]] | 208 | |
| 211 | [[0 0 0 0] [0 3 0 0] [0 0 0 0] [3 3 0 0]] | 209 | [[[0 0] [1 0] [1 1] [2 1]] |
| 212 | [[0 0 0 0] [0 0 0 0] [0 0 0 0] [0 0 0 0]]] | 210 | [[1 0] [0 1] [1 1] [0 2]]] |
| 213 | 211 | ||
| 214 | [[[4 4 0 0] [0 4 0 0] [4 4 0 0] [0 4 0 0]] | 212 | [[[1 0] [2 0] [0 1] [1 1]] |
| 215 | [[0 4 4 0] [4 4 0 0] [0 4 4 0] [4 4 0 0]] | 213 | [[0 0] [0 1] [1 1] [1 2]]] |
| 216 | [[0 0 0 0] [4 0 0 0] [0 0 0 0] [4 0 0 0]] | 214 | |
| 217 | [[0 0 0 0] [0 0 0 0] [0 0 0 0] [0 0 0 0]]] | 215 | [[[1 0] [0 1] [1 1] [2 1]] |
| 218 | 216 | [[1 0] [1 1] [2 1] [1 2]] | |
| 219 | [[[0 5 5 0] [5 0 0 0] [0 5 5 0] [5 0 0 0]] | 217 | [[0 1] [1 1] [2 1] [1 2]] |
| 220 | [[5 5 0 0] [5 5 0 0] [5 5 0 0] [5 5 0 0]] | 218 | [[1 0] [0 1] [1 1] [1 2]]] |
| 221 | [[0 0 0 0] [0 5 0 0] [0 0 0 0] [0 5 0 0]] | 219 | |
| 222 | [[0 0 0 0] [0 0 0 0] [0 0 0 0] [0 0 0 0]]] | 220 | [[[0 0] [1 0] [2 0] [3 0]] |
| 223 | 221 | [[1 -1] [1 0] [1 1] [1 2]]]] | |
| 224 | [[[0 6 0 0] [6 0 0 0] [6 6 6 0] [0 6 0 0]] | 222 | "Each shape is described by a vector that contains the coordinates of |
| 225 | [[6 6 6 0] [6 6 0 0] [0 6 0 0] [6 6 0 0]] | 223 | each one of its four blocks.") |
| 226 | [[0 0 0 0] [6 0 0 0] [0 0 0 0] [0 6 0 0]] | ||
| 227 | [[0 0 0 0] [0 0 0 0] [0 0 0 0] [0 0 0 0]]] | ||
| 228 | |||
| 229 | [[[7 7 7 7] [7 0 0 0] [7 7 7 7] [7 0 0 0]] | ||
| 230 | [[0 0 0 0] [7 0 0 0] [0 0 0 0] [7 0 0 0]] | ||
| 231 | [[0 0 0 0] [7 0 0 0] [0 0 0 0] [7 0 0 0]] | ||
| 232 | [[0 0 0 0] [7 0 0 0] [0 0 0 0] [7 0 0 0]]]]) | ||
| 233 | 224 | ||
| 234 | ;;the scoring rules were taken from "xtetris". Blocks score differently | 225 | ;;the scoring rules were taken from "xtetris". Blocks score differently |
| 235 | ;;depending on their rotation | 226 | ;;depending on their rotation |
| 236 | 227 | ||
| 237 | (defconst tetris-shape-scores | 228 | (defconst tetris-shape-scores |
| 238 | [ [6 6 6 6] [6 7 6 7] [6 7 6 7] [6 7 6 7] [6 7 6 7] [5 5 6 5] [5 8 5 8]] ) | 229 | [[6] [6 7 6 7] [6 7 6 7] [6 7] [6 7] [5 5 6 5] [5 8]] ) |
| 239 | 230 | ||
| 240 | (defconst tetris-shape-dimensions | 231 | (defconst tetris-shape-dimensions |
| 241 | [[2 2] [3 2] [3 2] [3 2] [3 2] [3 2] [4 1]]) | 232 | [[2 2] [3 2] [3 2] [3 2] [3 2] [3 2] [4 1]]) |
| 242 | 233 | ||
| 243 | (defconst tetris-blank 0) | 234 | (defconst tetris-blank 7) |
| 244 | 235 | ||
| 245 | (defconst tetris-border 8) | 236 | (defconst tetris-border 8) |
| 246 | 237 | ||
| @@ -299,7 +290,7 @@ Element 0 is ignored." | |||
| 299 | (aset options c | 290 | (aset options c |
| 300 | (cond ((= c tetris-blank) | 291 | (cond ((= c tetris-blank) |
| 301 | tetris-blank-options) | 292 | tetris-blank-options) |
| 302 | ((and (>= c 1) (<= c 7)) | 293 | ((and (>= c 0) (<= c 6)) |
| 303 | (append | 294 | (append |
| 304 | tetris-cell-options | 295 | tetris-cell-options |
| 305 | `((((glyph color-x) ,(aref tetris-x-colors c)) | 296 | `((((glyph color-x) ,(aref tetris-x-colors c)) |
| @@ -320,20 +311,16 @@ Element 0 is ignored." | |||
| 320 | tetris-n-rows nil))) | 311 | tetris-n-rows nil))) |
| 321 | (and (numberp period) period)))) | 312 | (and (numberp period) period)))) |
| 322 | 313 | ||
| 323 | (defun tetris-get-shape-cell (x y) | 314 | (defun tetris-get-shape-cell (block) |
| 324 | (aref (aref (aref (aref tetris-shapes | 315 | (aref (aref (aref tetris-shapes |
| 325 | tetris-shape) | 316 | tetris-shape) tetris-rot) |
| 326 | y) | 317 | block)) |
| 327 | tetris-rot) | ||
| 328 | x)) | ||
| 329 | 318 | ||
| 330 | (defun tetris-shape-width () | 319 | (defun tetris-shape-width () |
| 331 | (aref (aref tetris-shape-dimensions tetris-shape) | 320 | (aref (aref tetris-shape-dimensions tetris-shape) 0)) |
| 332 | (% tetris-rot 2))) | ||
| 333 | 321 | ||
| 334 | (defun tetris-shape-height () | 322 | (defun tetris-shape-rotations () |
| 335 | (aref (aref tetris-shape-dimensions tetris-shape) | 323 | (length (aref tetris-shapes tetris-shape))) |
| 336 | (- 1 (% tetris-rot 2)))) | ||
| 337 | 324 | ||
| 338 | (defun tetris-draw-score () | 325 | (defun tetris-draw-score () |
| 339 | (let ((strings (vector (format "Shapes: %05d" tetris-n-shapes) | 326 | (let ((strings (vector (format "Shapes: %05d" tetris-n-shapes) |
| @@ -365,52 +352,58 @@ Element 0 is ignored." | |||
| 365 | (tetris-update-score))) | 352 | (tetris-update-score))) |
| 366 | 353 | ||
| 367 | (defun tetris-draw-next-shape () | 354 | (defun tetris-draw-next-shape () |
| 368 | (loop for y from 0 to 3 do | 355 | (loop for x from 0 to 3 do |
| 369 | (loop for x from 0 to 3 do | 356 | (loop for y from 0 to 3 do |
| 370 | (gamegrid-set-cell (+ tetris-next-x x) | 357 | (gamegrid-set-cell (+ tetris-next-x x) |
| 371 | (+ tetris-next-y y) | 358 | (+ tetris-next-y y) |
| 372 | (let ((tetris-shape tetris-next-shape) | 359 | tetris-blank))) |
| 373 | (tetris-rot 0)) | 360 | (loop for i from 0 to 3 do |
| 374 | (tetris-get-shape-cell x y)))))) | 361 | (let ((tetris-shape tetris-next-shape) |
| 362 | (tetris-rot 0)) | ||
| 363 | (gamegrid-set-cell (+ tetris-next-x | ||
| 364 | (aref (tetris-get-shape-cell i) 0)) | ||
| 365 | (+ tetris-next-y | ||
| 366 | (aref (tetris-get-shape-cell i) 1)) | ||
| 367 | tetris-shape)))) | ||
| 375 | 368 | ||
| 376 | (defun tetris-draw-shape () | 369 | (defun tetris-draw-shape () |
| 377 | (loop for y from 0 to (1- (tetris-shape-height)) do | 370 | (loop for i from 0 to 3 do |
| 378 | (loop for x from 0 to (1- (tetris-shape-width)) do | 371 | (let ((c (tetris-get-shape-cell i))) |
| 379 | (let ((c (tetris-get-shape-cell x y))) | 372 | (gamegrid-set-cell (+ tetris-top-left-x |
| 380 | (if (/= c tetris-blank) | 373 | tetris-pos-x |
| 381 | (gamegrid-set-cell (+ tetris-top-left-x | 374 | (aref c 0)) |
| 382 | tetris-pos-x | 375 | (+ tetris-top-left-y |
| 383 | x) | 376 | tetris-pos-y |
| 384 | (+ tetris-top-left-y | 377 | (aref c 1)) |
| 385 | tetris-pos-y | 378 | tetris-shape)))) |
| 386 | y) | ||
| 387 | c)))))) | ||
| 388 | 379 | ||
| 389 | (defun tetris-erase-shape () | 380 | (defun tetris-erase-shape () |
| 390 | (loop for y from 0 to (1- (tetris-shape-height)) do | 381 | (loop for i from 0 to 3 do |
| 391 | (loop for x from 0 to (1- (tetris-shape-width)) do | 382 | (let ((c (tetris-get-shape-cell i))) |
| 392 | (let ((c (tetris-get-shape-cell x y)) | 383 | (gamegrid-set-cell (+ tetris-top-left-x |
| 393 | (px (+ tetris-top-left-x tetris-pos-x x)) | 384 | tetris-pos-x |
| 394 | (py (+ tetris-top-left-y tetris-pos-y y))) | 385 | (aref c 0)) |
| 395 | (if (/= c tetris-blank) | 386 | (+ tetris-top-left-y |
| 396 | (gamegrid-set-cell px py tetris-blank)))))) | 387 | tetris-pos-y |
| 388 | (aref c 1)) | ||
| 389 | tetris-blank)))) | ||
| 397 | 390 | ||
| 398 | (defun tetris-test-shape () | 391 | (defun tetris-test-shape () |
| 399 | (let ((hit nil)) | 392 | (let ((hit nil)) |
| 400 | (loop for y from 0 to (1- (tetris-shape-height)) do | 393 | (loop for i from 0 to 3 do |
| 401 | (loop for x from 0 to (1- (tetris-shape-width)) do | 394 | (unless hit |
| 402 | (unless hit | 395 | (setq hit |
| 403 | (setq hit | 396 | (let* ((c (tetris-get-shape-cell i)) |
| 404 | (let* ((c (tetris-get-shape-cell x y)) | 397 | (xx (+ tetris-pos-x |
| 405 | (xx (+ tetris-pos-x x)) | 398 | (aref c 0))) |
| 406 | (yy (+ tetris-pos-y y)) | 399 | (yy (+ tetris-pos-y |
| 407 | (px (+ tetris-top-left-x xx)) | 400 | (aref c 1)))) |
| 408 | (py (+ tetris-top-left-y yy))) | 401 | (or (>= xx tetris-width) |
| 409 | (and (/= c tetris-blank) | 402 | (>= yy tetris-height) |
| 410 | (or (>= xx tetris-width) | 403 | (/= (gamegrid-get-cell |
| 411 | (>= yy tetris-height) | 404 | (+ xx tetris-top-left-x) |
| 412 | (/= (gamegrid-get-cell px py) | 405 | (+ yy tetris-top-left-y)) |
| 413 | tetris-blank)))))))) | 406 | tetris-blank)))))) |
| 414 | hit)) | 407 | hit)) |
| 415 | 408 | ||
| 416 | (defun tetris-full-row (y) | 409 | (defun tetris-full-row (y) |
| @@ -510,33 +503,30 @@ Drops the shape one square, testing for collision." | |||
| 510 | (defun tetris-move-bottom () | 503 | (defun tetris-move-bottom () |
| 511 | "Drop the shape to the bottom of the playing area." | 504 | "Drop the shape to the bottom of the playing area." |
| 512 | (interactive) | 505 | (interactive) |
| 513 | (if (not tetris-paused) | 506 | (unless tetris-paused |
| 514 | (let ((hit nil)) | 507 | (let ((hit nil)) |
| 515 | (tetris-erase-shape) | 508 | (tetris-erase-shape) |
| 516 | (while (not hit) | 509 | (while (not hit) |
| 517 | (setq tetris-pos-y (1+ tetris-pos-y)) | 510 | (setq tetris-pos-y (1+ tetris-pos-y)) |
| 518 | (setq hit (tetris-test-shape))) | 511 | (setq hit (tetris-test-shape))) |
| 519 | (setq tetris-pos-y (1- tetris-pos-y)) | 512 | (setq tetris-pos-y (1- tetris-pos-y)) |
| 520 | (tetris-draw-shape) | 513 | (tetris-draw-shape) |
| 521 | (tetris-shape-done)))) | 514 | (tetris-shape-done)))) |
| 522 | 515 | ||
| 523 | (defun tetris-move-left () | 516 | (defun tetris-move-left () |
| 524 | "Move the shape one square to the left." | 517 | "Move the shape one square to the left." |
| 525 | (interactive) | 518 | (interactive) |
| 526 | (unless (or (= tetris-pos-x 0) | 519 | (unless tetris-paused |
| 527 | tetris-paused) | ||
| 528 | (tetris-erase-shape) | 520 | (tetris-erase-shape) |
| 529 | (setq tetris-pos-x (1- tetris-pos-x)) | 521 | (setq tetris-pos-x (1- tetris-pos-x)) |
| 530 | (if (tetris-test-shape) | 522 | (if (tetris-test-shape) |
| 531 | (setq tetris-pos-x (1+ tetris-pos-x))) | 523 | (setq tetris-pos-x (1+ tetris-pos-x))) |
| 532 | (tetris-draw-shape))) | 524 | (tetris-draw-shape))) |
| 533 | 525 | ||
| 534 | (defun tetris-move-right () | 526 | (defun tetris-move-right () |
| 535 | "Move the shape one square to the right." | 527 | "Move the shape one square to the right." |
| 536 | (interactive) | 528 | (interactive) |
| 537 | (unless (or (= (+ tetris-pos-x (tetris-shape-width)) | 529 | (unless tetris-paused |
| 538 | tetris-width) | ||
| 539 | tetris-paused) | ||
| 540 | (tetris-erase-shape) | 530 | (tetris-erase-shape) |
| 541 | (setq tetris-pos-x (1+ tetris-pos-x)) | 531 | (setq tetris-pos-x (1+ tetris-pos-x)) |
| 542 | (if (tetris-test-shape) | 532 | (if (tetris-test-shape) |
| @@ -546,23 +536,26 @@ Drops the shape one square, testing for collision." | |||
| 546 | (defun tetris-rotate-prev () | 536 | (defun tetris-rotate-prev () |
| 547 | "Rotate the shape clockwise." | 537 | "Rotate the shape clockwise." |
| 548 | (interactive) | 538 | (interactive) |
| 549 | (if (not tetris-paused) | 539 | (unless tetris-paused |
| 550 | (progn (tetris-erase-shape) | 540 | (tetris-erase-shape) |
| 551 | (setq tetris-rot (% (+ 1 tetris-rot) 4)) | 541 | (setq tetris-rot (% (+ 1 tetris-rot) |
| 552 | (if (tetris-test-shape) | 542 | (tetris-shape-rotations))) |
| 553 | (setq tetris-rot (% (+ 3 tetris-rot) 4))) | 543 | (if (tetris-test-shape) |
| 554 | (tetris-draw-shape)))) | 544 | (setq tetris-rot (% (+ 3 tetris-rot) |
| 545 | (tetris-shape-rotations)))) | ||
| 546 | (tetris-draw-shape))) | ||
| 555 | 547 | ||
| 556 | (defun tetris-rotate-next () | 548 | (defun tetris-rotate-next () |
| 557 | "Rotate the shape anticlockwise." | 549 | "Rotate the shape anticlockwise." |
| 558 | (interactive) | 550 | (interactive) |
| 559 | (if (not tetris-paused) | 551 | (unless tetris-paused |
| 560 | (progn | ||
| 561 | (tetris-erase-shape) | 552 | (tetris-erase-shape) |
| 562 | (setq tetris-rot (% (+ 3 tetris-rot) 4)) | 553 | (setq tetris-rot (% (+ 3 tetris-rot) |
| 554 | (tetris-shape-rotations))) | ||
| 563 | (if (tetris-test-shape) | 555 | (if (tetris-test-shape) |
| 564 | (setq tetris-rot (% (+ 1 tetris-rot) 4))) | 556 | (setq tetris-rot (% (+ 1 tetris-rot) |
| 565 | (tetris-draw-shape)))) | 557 | (tetris-shape-rotations)))) |
| 558 | (tetris-draw-shape))) | ||
| 566 | 559 | ||
| 567 | (defun tetris-end-game () | 560 | (defun tetris-end-game () |
| 568 | "Terminate the current game." | 561 | "Terminate the current game." |
diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el index 7b235bc3b68..387a0cb6e00 100644 --- a/lisp/progmodes/ps-mode.el +++ b/lisp/progmodes/ps-mode.el | |||
| @@ -39,6 +39,7 @@ | |||
| 39 | (defconst ps-mode-version "1.1h, 16 Jun 2005") | 39 | (defconst ps-mode-version "1.1h, 16 Jun 2005") |
| 40 | (defconst ps-mode-maintainer-address "Peter Kleiweg <p.c.j.kleiweg@rug.nl>") | 40 | (defconst ps-mode-maintainer-address "Peter Kleiweg <p.c.j.kleiweg@rug.nl>") |
| 41 | 41 | ||
| 42 | (require 'comint) | ||
| 42 | (require 'easymenu) | 43 | (require 'easymenu) |
| 43 | 44 | ||
| 44 | ;; Define core `PostScript' group. | 45 | ;; Define core `PostScript' group. |
| @@ -431,12 +432,11 @@ If nil, use `temporary-file-directory'." | |||
| 431 | 432 | ||
| 432 | (unless ps-run-mode-map | 433 | (unless ps-run-mode-map |
| 433 | (setq ps-run-mode-map (make-sparse-keymap)) | 434 | (setq ps-run-mode-map (make-sparse-keymap)) |
| 435 | (set-keymap-parent ps-run-mode-map comint-mode-map) | ||
| 434 | (define-key ps-run-mode-map "\C-c\C-q" 'ps-run-quit) | 436 | (define-key ps-run-mode-map "\C-c\C-q" 'ps-run-quit) |
| 435 | (define-key ps-run-mode-map "\C-c\C-k" 'ps-run-kill) | 437 | (define-key ps-run-mode-map "\C-c\C-k" 'ps-run-kill) |
| 436 | (define-key ps-run-mode-map "\C-c\C-e" 'ps-run-goto-error) | 438 | (define-key ps-run-mode-map "\C-c\C-e" 'ps-run-goto-error) |
| 437 | (define-key ps-run-mode-map [mouse-2] 'ps-run-mouse-goto-error) | 439 | (define-key ps-run-mode-map [mouse-2] 'ps-run-mouse-goto-error)) |
| 438 | (define-key ps-run-mode-map "\r" 'ps-run-newline) | ||
| 439 | (define-key ps-run-mode-map [return] 'ps-run-newline)) | ||
| 440 | 440 | ||
| 441 | 441 | ||
| 442 | ;; Syntax table. | 442 | ;; Syntax table. |
| @@ -718,12 +718,9 @@ defines the beginning of a group. These tokens are: { [ <<" | |||
| 718 | (blink-matching-open)) | 718 | (blink-matching-open)) |
| 719 | 719 | ||
| 720 | (defun ps-mode-other-newline () | 720 | (defun ps-mode-other-newline () |
| 721 | "Perform newline in `*ps run*' buffer." | 721 | "Perform newline in `*ps-run*' buffer." |
| 722 | (interactive) | 722 | (interactive) |
| 723 | (let ((buf (current-buffer))) | 723 | (ps-run-send-string "")) |
| 724 | (set-buffer "*ps run*") | ||
| 725 | (ps-run-newline) | ||
| 726 | (set-buffer buf))) | ||
| 727 | 724 | ||
| 728 | 725 | ||
| 729 | ;; Print PostScript. | 726 | ;; Print PostScript. |
| @@ -980,7 +977,7 @@ plus the usually uncoded characters inserted on positions 1 through 28." | |||
| 980 | 977 | ||
| 981 | ;; Interactive PostScript interpreter. | 978 | ;; Interactive PostScript interpreter. |
| 982 | 979 | ||
| 983 | (define-derived-mode ps-run-mode fundamental-mode "Interactive PS" | 980 | (define-derived-mode ps-run-mode comint-mode "Interactive PS" |
| 984 | "Major mode in interactive PostScript window. | 981 | "Major mode in interactive PostScript window. |
| 985 | This mode is invoked from `ps-mode' and should not be called directly. | 982 | This mode is invoked from `ps-mode' and should not be called directly. |
| 986 | 983 | ||
| @@ -1014,20 +1011,23 @@ This mode is invoked from `ps-mode' and should not be called directly. | |||
| 1014 | (setq init-file (ps-run-make-tmp-filename)) | 1011 | (setq init-file (ps-run-make-tmp-filename)) |
| 1015 | (write-region (concat ps-run-init "\n") 0 init-file) | 1012 | (write-region (concat ps-run-init "\n") 0 init-file) |
| 1016 | (setq init-file (list init-file))) | 1013 | (setq init-file (list init-file))) |
| 1017 | (pop-to-buffer "*ps run*") | 1014 | (pop-to-buffer "*ps-run*") |
| 1018 | (ps-run-mode) | 1015 | (ps-run-mode) |
| 1019 | (when (process-status "ps-run") | 1016 | (when (process-status "ps-run") |
| 1020 | (delete-process "ps-run")) | 1017 | (delete-process "ps-run")) |
| 1021 | (erase-buffer) | 1018 | (erase-buffer) |
| 1022 | (setq command (append command init-file)) | 1019 | (setq command (append command init-file)) |
| 1023 | (insert (mapconcat 'identity command " ") "\n") | 1020 | (insert (mapconcat 'identity command " ") "\n") |
| 1024 | (apply 'start-process "ps-run" "*ps run*" command) | 1021 | (apply 'make-comint "ps-run" (car command) nil (cdr command)) |
| 1022 | (with-current-buffer "*ps-run*" | ||
| 1023 | (use-local-map ps-run-mode-map) | ||
| 1024 | (setq comint-prompt-regexp ps-run-prompt)) | ||
| 1025 | (select-window oldwin))) | 1025 | (select-window oldwin))) |
| 1026 | 1026 | ||
| 1027 | (defun ps-run-quit () | 1027 | (defun ps-run-quit () |
| 1028 | "Quit interactive PostScript." | 1028 | "Quit interactive PostScript." |
| 1029 | (interactive) | 1029 | (interactive) |
| 1030 | (ps-run-send-string "quit" t) | 1030 | (ps-run-send-string "quit") |
| 1031 | (ps-run-cleanup)) | 1031 | (ps-run-cleanup)) |
| 1032 | 1032 | ||
| 1033 | (defun ps-run-kill () | 1033 | (defun ps-run-kill () |
| @@ -1039,9 +1039,9 @@ This mode is invoked from `ps-mode' and should not be called directly. | |||
| 1039 | (defun ps-run-clear () | 1039 | (defun ps-run-clear () |
| 1040 | "Clear/reset PostScript graphics." | 1040 | "Clear/reset PostScript graphics." |
| 1041 | (interactive) | 1041 | (interactive) |
| 1042 | (ps-run-send-string "showpage" t) | 1042 | (ps-run-send-string "showpage") |
| 1043 | (sit-for 1) | 1043 | (sit-for 1) |
| 1044 | (ps-run-send-string "" t)) | 1044 | (ps-run-send-string "")) |
| 1045 | 1045 | ||
| 1046 | (defun ps-run-buffer () | 1046 | (defun ps-run-buffer () |
| 1047 | "Send buffer to PostScript interpreter." | 1047 | "Send buffer to PostScript interpreter." |
| @@ -1056,7 +1056,7 @@ This mode is invoked from `ps-mode' and should not be called directly. | |||
| 1056 | (let ((f (ps-run-make-tmp-filename))) | 1056 | (let ((f (ps-run-make-tmp-filename))) |
| 1057 | (set-marker ps-run-mark begin) | 1057 | (set-marker ps-run-mark begin) |
| 1058 | (write-region begin end f) | 1058 | (write-region begin end f) |
| 1059 | (ps-run-send-string (format "(%s) run" f) t))) | 1059 | (ps-run-send-string (format "(%s) run" f)))) |
| 1060 | 1060 | ||
| 1061 | (defun ps-run-boundingbox () | 1061 | (defun ps-run-boundingbox () |
| 1062 | "View BoundingBox." | 1062 | "View BoundingBox." |
| @@ -1104,17 +1104,15 @@ grestore | |||
| 1104 | " x1 y1 x2 y1 x2 y2 x1 y2) | 1104 | " x1 y1 x2 y1 x2 y2 x1 y2) |
| 1105 | 0 | 1105 | 0 |
| 1106 | f) | 1106 | f) |
| 1107 | (ps-run-send-string (format "(%s) run" f) t) | 1107 | (ps-run-send-string (format "(%s) run" f)) |
| 1108 | (set-buffer buf))) | 1108 | (set-buffer buf))) |
| 1109 | 1109 | ||
| 1110 | (defun ps-run-send-string (string &optional echo) | 1110 | (defun ps-run-send-string (string) |
| 1111 | (let ((oldwin (selected-window))) | 1111 | (let ((oldwin (selected-window))) |
| 1112 | (pop-to-buffer "*ps run*") | 1112 | (pop-to-buffer "*ps-run*") |
| 1113 | (goto-char (point-max)) | 1113 | (comint-goto-process-mark) |
| 1114 | (when echo | 1114 | (insert string) |
| 1115 | (insert string "\n")) | 1115 | (comint-send-input) |
| 1116 | (set-marker (process-mark (get-process "ps-run")) (point)) | ||
| 1117 | (process-send-string "ps-run" (concat string "\n")) | ||
| 1118 | (select-window oldwin))) | 1116 | (select-window oldwin))) |
| 1119 | 1117 | ||
| 1120 | (defun ps-run-make-tmp-filename () | 1118 | (defun ps-run-make-tmp-filename () |
| @@ -1140,18 +1138,6 @@ grestore | |||
| 1140 | (mouse-set-point event) | 1138 | (mouse-set-point event) |
| 1141 | (ps-run-goto-error)) | 1139 | (ps-run-goto-error)) |
| 1142 | 1140 | ||
| 1143 | (defun ps-run-newline () | ||
| 1144 | "Process newline in PostScript interpreter window." | ||
| 1145 | (interactive) | ||
| 1146 | (end-of-line) | ||
| 1147 | (insert "\n") | ||
| 1148 | (forward-line -1) | ||
| 1149 | (when (looking-at ps-run-prompt) | ||
| 1150 | (goto-char (match-end 0))) | ||
| 1151 | (looking-at ".*") | ||
| 1152 | (goto-char (1+ (match-end 0))) | ||
| 1153 | (ps-run-send-string (buffer-substring (match-beginning 0) (match-end 0)))) | ||
| 1154 | |||
| 1155 | (defun ps-run-goto-error () | 1141 | (defun ps-run-goto-error () |
| 1156 | "Jump to buffer position read as integer at point. | 1142 | "Jump to buffer position read as integer at point. |
| 1157 | Use line numbers if `ps-run-error-line-numbers' is not nil" | 1143 | Use line numbers if `ps-run-error-line-numbers' is not nil" |
diff --git a/lwlib/ChangeLog b/lwlib/ChangeLog index d591b93e50b..bf41caa8311 100644 --- a/lwlib/ChangeLog +++ b/lwlib/ChangeLog | |||
| @@ -381,7 +381,7 @@ | |||
| 381 | 381 | ||
| 382 | * xlwmenu.c (xlwMenuResources) [HAVE_X_I18N]: Use a fontset for the | 382 | * xlwmenu.c (xlwMenuResources) [HAVE_X_I18N]: Use a fontset for the |
| 383 | `font' resource. | 383 | `font' resource. |
| 384 | (string_width) [HAVE_X_I18N]: Use XmbTextExtents; | 384 | (string_width) [HAVE_X_I18N]: Use XmbTextExtents. |
| 385 | (MENU_FONT_HEIGHT, MENU_FONT_ASCENT): New macros. | 385 | (MENU_FONT_HEIGHT, MENU_FONT_ASCENT): New macros. |
| 386 | (arrow_width, toggle_button_width, size_menu_item, draw_arrow) | 386 | (arrow_width, toggle_button_width, size_menu_item, draw_arrow) |
| 387 | (draw_toggle, draw_radio, display_menu_item): Use them. | 387 | (draw_toggle, draw_radio, display_menu_item): Use them. |
diff --git a/msdos/ChangeLog b/msdos/ChangeLog index a7a72d233d5..77286687db0 100644 --- a/msdos/ChangeLog +++ b/msdos/ChangeLog | |||
| @@ -173,7 +173,7 @@ | |||
| 173 | (FONTCONFIG_CFLAGS, FONTCONFIG_LIBS, FREETYPE_CFLAGS, FREETYPE_LIBS) | 173 | (FONTCONFIG_CFLAGS, FONTCONFIG_LIBS, FREETYPE_CFLAGS, FREETYPE_LIBS) |
| 174 | (LIBOTF_CFLAGS, LIBOTF_LIBS, M17N_FLT_CFLAGS, M17N_FLT_LIBS) | 174 | (LIBOTF_CFLAGS, LIBOTF_LIBS, M17N_FLT_CFLAGS, M17N_FLT_LIBS) |
| 175 | (GNU_OBJC_CFLAGS, GNUSTEP_SYSTEM_LIBRARIES, LIBRESOLV, LIBGPM): | 175 | (GNU_OBJC_CFLAGS, GNUSTEP_SYSTEM_LIBRARIES, LIBRESOLV, LIBGPM): |
| 176 | Edit to empty, | 176 | Edit to empty. |
| 177 | (LIB_MATH): Edit to -lm. | 177 | (LIB_MATH): Edit to -lm. |
| 178 | (UNEXEC_OBJ): Edit to unexec.o. | 178 | (UNEXEC_OBJ): Edit to unexec.o. |
| 179 | 179 | ||
| @@ -908,7 +908,7 @@ | |||
| 908 | 1994-10-17 Morten Welinder <terra@mole.gnu.ai.mit.edu> | 908 | 1994-10-17 Morten Welinder <terra@mole.gnu.ai.mit.edu> |
| 909 | 909 | ||
| 910 | * sed1.inp: Handle "\t#"-style comments. | 910 | * sed1.inp: Handle "\t#"-style comments. |
| 911 | (obj): Don't add any files -- now done in src/makefile.in.in | 911 | (obj): Don't add any files -- now done in src/makefile.in.in. |
| 912 | (temacs): Don't depend on prefix-args. | 912 | (temacs): Don't depend on prefix-args. |
| 913 | (DOC): Reflect makefile changes regarding two-batch run. | 913 | (DOC): Reflect makefile changes regarding two-batch run. |
| 914 | 914 | ||
diff --git a/nt/ChangeLog b/nt/ChangeLog index 08f12203ec1..4dfdd16fd32 100644 --- a/nt/ChangeLog +++ b/nt/ChangeLog | |||
| @@ -1,3 +1,30 @@ | |||
| 1 | 2010-07-25 Christoph Scholtes <cschol2112@gmail.com> | ||
| 2 | |||
| 3 | Build binary distros on Windows using emacs-VERSION as root dir name. | ||
| 4 | |||
| 5 | * makefile.w32-in: Copy README.W32 to installation directory | ||
| 6 | during `make install'. Remove README.W32 with `distclean' (in | ||
| 7 | case Emacs was installed in place). Use temporary directory to | ||
| 8 | create distribution zip files in `dist' target. | ||
| 9 | * zipdist.bat: Simplify code using temporary directory. | ||
| 10 | |||
| 11 | 2010-07-25 Juanma Barranquero <lekktu@gmail.com> | ||
| 12 | |||
| 13 | * runemacs.c (set_user_model_id): Fix prototype. | ||
| 14 | |||
| 15 | 2010-07-24 Christoph Scholtes <cschol2112@gmail.com> | ||
| 16 | |||
| 17 | New make target for Windows platform: make dist (bug#6602) | ||
| 18 | |||
| 19 | * INSTALL: Document new dist target and add section about | ||
| 20 | creating binary distributions. | ||
| 21 | * README.W32: Relocate from admin/nt/ directory. | ||
| 22 | * configure.bat: New parameter `--distfiles'. | ||
| 23 | * makefile.w32-in: Add version number, new target `dist'. | ||
| 24 | Add new target `install-shortcuts'. | ||
| 25 | * zipdist.bat: New file; create zipped binary distribution, | ||
| 26 | replaces admin/nt/makedist.bat. | ||
| 27 | |||
| 1 | 2010-07-21 Juanma Barranquero <lekktu@gmail.com> | 28 | 2010-07-21 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 29 | ||
| 3 | * INSTALL: Add note about backslashes in Windows paths. | 30 | * INSTALL: Add note about backslashes in Windows paths. |
diff --git a/nt/INSTALL b/nt/INSTALL index 1f1f75395f7..8af8e3020de 100644 --- a/nt/INSTALL +++ b/nt/INSTALL | |||
| @@ -406,6 +406,9 @@ | |||
| 406 | Removes the installed files in the bin subdirectory in addition to | 406 | Removes the installed files in the bin subdirectory in addition to |
| 407 | the files removed by make cleanall. | 407 | the files removed by make cleanall. |
| 408 | 408 | ||
| 409 | make dist | ||
| 410 | Builds Emacs from the available sources and pre-compiled lisp files. | ||
| 411 | Packages Emacs binaries as full distribution and barebin distribution. | ||
| 409 | 412 | ||
| 410 | The following targets are intended only for use with the Bazaar sources. | 413 | The following targets are intended only for use with the Bazaar sources. |
| 411 | 414 | ||
| @@ -428,6 +431,32 @@ | |||
| 428 | bootstrap to rebuild. Occasionally it may be necessary to run this | 431 | bootstrap to rebuild. Occasionally it may be necessary to run this |
| 429 | target after an update. | 432 | target after an update. |
| 430 | 433 | ||
| 434 | * Creating binary distributions | ||
| 435 | |||
| 436 | Binary distributions (full and barebin distributions) can be | ||
| 437 | automatically built and packaged from source tarballs or a bzr | ||
| 438 | checkout. | ||
| 439 | |||
| 440 | When building Emacs binary distributions, the --distfiles argument | ||
| 441 | to configure.bat specifies files to be included in the bin directory | ||
| 442 | of the binary distributions. This is intended for libraries that are | ||
| 443 | not built as part of Emacs, e.g. image libraries. | ||
| 444 | |||
| 445 | For example, specifying | ||
| 446 | |||
| 447 | --distfiles D:\distfiles\libXpm.dll | ||
| 448 | |||
| 449 | results in libXpm.dll being copied from D:\distfiles to the | ||
| 450 | bin directory before packaging starts. | ||
| 451 | |||
| 452 | Multiple files can be specified using multiple --distfiles arguments: | ||
| 453 | |||
| 454 | --distfiles D:\distfiles\libXpm.dll --distfiles C:\jpeglib\jpeg.dll | ||
| 455 | |||
| 456 | For packaging the binary distributions, the 'dist' make target uses | ||
| 457 | 7-Zip (http://www.7-zip.org), which must be installed and available | ||
| 458 | on the Windows Path. | ||
| 459 | |||
| 431 | 460 | ||
| 432 | * Trouble-shooting | 461 | * Trouble-shooting |
| 433 | 462 | ||
diff --git a/admin/nt/README.W32 b/nt/README.W32 index 9f1df8abd3a..9f1df8abd3a 100644 --- a/admin/nt/README.W32 +++ b/nt/README.W32 | |||
diff --git a/nt/configure.bat b/nt/configure.bat index 705d4e92717..c7bfad35189 100755 --- a/nt/configure.bat +++ b/nt/configure.bat | |||
| @@ -90,6 +90,8 @@ set userldflags= | |||
| 90 | set doldflags= | 90 | set doldflags= |
| 91 | set sep1= | 91 | set sep1= |
| 92 | set sep2= | 92 | set sep2= |
| 93 | set sep3= | ||
| 94 | set distfiles= | ||
| 93 | 95 | ||
| 94 | rem ---------------------------------------------------------------------- | 96 | rem ---------------------------------------------------------------------- |
| 95 | rem Handle arguments. | 97 | rem Handle arguments. |
| @@ -112,6 +114,7 @@ if "%1" == "--without-gif" goto withoutgif | |||
| 112 | if "%1" == "--without-tiff" goto withouttiff | 114 | if "%1" == "--without-tiff" goto withouttiff |
| 113 | if "%1" == "--without-xpm" goto withoutxpm | 115 | if "%1" == "--without-xpm" goto withoutxpm |
| 114 | if "%1" == "--with-svg" goto withsvg | 116 | if "%1" == "--with-svg" goto withsvg |
| 117 | if "%1" == "--distfiles" goto distfiles | ||
| 115 | if "%1" == "" goto checkutils | 118 | if "%1" == "" goto checkutils |
| 116 | :usage | 119 | :usage |
| 117 | echo Usage: configure [options] | 120 | echo Usage: configure [options] |
| @@ -132,6 +135,7 @@ echo. --without-gif do not use GIF library even if it is installed | |||
| 132 | echo. --without-tiff do not use TIFF library even if it is installed | 135 | echo. --without-tiff do not use TIFF library even if it is installed |
| 133 | echo. --without-xpm do not use XPM library even if it is installed | 136 | echo. --without-xpm do not use XPM library even if it is installed |
| 134 | echo. --with-svg use the RSVG library (experimental) | 137 | echo. --with-svg use the RSVG library (experimental) |
| 138 | echo. --distfiles path to files for make dist, e.g. libXpm.dll | ||
| 135 | goto end | 139 | goto end |
| 136 | rem ---------------------------------------------------------------------- | 140 | rem ---------------------------------------------------------------------- |
| 137 | :setprefix | 141 | :setprefix |
| @@ -234,6 +238,16 @@ set svgsupport=Y | |||
| 234 | goto again | 238 | goto again |
| 235 | 239 | ||
| 236 | rem ---------------------------------------------------------------------- | 240 | rem ---------------------------------------------------------------------- |
| 241 | |||
| 242 | :distfiles | ||
| 243 | set HAVE_DISTFILES=1 | ||
| 244 | shift | ||
| 245 | set distfiles=%distfiles%%sep3%%1 | ||
| 246 | set sep3= %nothing% | ||
| 247 | shift | ||
| 248 | goto again | ||
| 249 | |||
| 250 | rem ---------------------------------------------------------------------- | ||
| 237 | rem Check that necessary utilities (cp and rm) are present. | 251 | rem Check that necessary utilities (cp and rm) are present. |
| 238 | :checkutils | 252 | :checkutils |
| 239 | echo Checking for 'cp'... | 253 | echo Checking for 'cp'... |
| @@ -521,6 +535,35 @@ set HAVE_RSVG=1 | |||
| 521 | :svgDone | 535 | :svgDone |
| 522 | rm -f junk.c junk.obj junk.err junk.out | 536 | rm -f junk.c junk.obj junk.err junk.out |
| 523 | 537 | ||
| 538 | rem Any distfiles provided for building distribution? If no, we're done. | ||
| 539 | if "(%HAVE_DISTFILES%)"=="()" goto :distFilesDone | ||
| 540 | |||
| 541 | rem Any arguments to --distfiles specified? If no, we're done. | ||
| 542 | if not "%distfiles%"=="" goto :checkDistFiles | ||
| 543 | set distFilesOk=0 | ||
| 544 | echo No arguments specified for option --distfiles! | ||
| 545 | goto distfilesDone | ||
| 546 | |||
| 547 | :checkDistFiles | ||
| 548 | echo Checking for distfiles... | ||
| 549 | rem Check if all specified distfiles exist | ||
| 550 | set fileNotFound= | ||
| 551 | for %%d in (%distfiles%) do if not exist %%d set fileNotFound=%%d | ||
| 552 | if not "%fileNotFound%"=="" goto distFilesNotFound | ||
| 553 | |||
| 554 | set distFilesOK=1 | ||
| 555 | echo ...all distfiles found. | ||
| 556 | goto :distFilesDone | ||
| 557 | |||
| 558 | :distFilesNotFound | ||
| 559 | set distFilesOk=0 | ||
| 560 | echo ...%fileNotFound% not found. | ||
| 561 | set distfiles= | ||
| 562 | goto :distfilesDone | ||
| 563 | |||
| 564 | :distFilesDone | ||
| 565 | set fileNotFound= | ||
| 566 | |||
| 524 | rem ---------------------------------------------------------------------- | 567 | rem ---------------------------------------------------------------------- |
| 525 | :genmakefiles | 568 | :genmakefiles |
| 526 | echo Generating makefiles | 569 | echo Generating makefiles |
| @@ -541,6 +584,7 @@ if (%enablechecking%) == (Y) echo ENABLECHECKS=1 >>config.settings | |||
| 541 | if (%profile%) == (Y) echo PROFILE=1 >>config.settings | 584 | if (%profile%) == (Y) echo PROFILE=1 >>config.settings |
| 542 | if (%nocygwin%) == (Y) echo NOCYGWIN=1 >>config.settings | 585 | if (%nocygwin%) == (Y) echo NOCYGWIN=1 >>config.settings |
| 543 | if not "(%prefix%)" == "()" echo INSTALL_DIR=%prefix%>>config.settings | 586 | if not "(%prefix%)" == "()" echo INSTALL_DIR=%prefix%>>config.settings |
| 587 | if not "(%distfiles%)" == "()" echo DIST_FILES=%distfiles%>>config.settings | ||
| 544 | rem We go thru docflags because usercflags could be "-DFOO=bar" -something | 588 | rem We go thru docflags because usercflags could be "-DFOO=bar" -something |
| 545 | rem and the if command cannot cope with this | 589 | rem and the if command cannot cope with this |
| 546 | for %%v in (%usercflags%) do if not (%%v)==() set docflags=Y | 590 | for %%v in (%usercflags%) do if not (%%v)==() set docflags=Y |
| @@ -642,12 +686,19 @@ if (%tiffsupport%) == (N) goto checkgif | |||
| 642 | echo Install libtiff development files or use --without-tiff | 686 | echo Install libtiff development files or use --without-tiff |
| 643 | 687 | ||
| 644 | :checkgif | 688 | :checkgif |
| 645 | if not "(%HAVE_GIF%)" == "()" goto donelibchecks | 689 | if not "(%HAVE_GIF%)" == "()" goto checkdistfiles |
| 646 | if (%gifsupport%) == (N) goto donelibchecks | 690 | if (%gifsupport%) == (N) goto checkdistfiles |
| 647 | set libsOK=0 | 691 | set libsOK=0 |
| 648 | echo GIF support is missing. | 692 | echo GIF support is missing. |
| 649 | echo Install giflib or libungif development files or use --without-gif | 693 | echo Install giflib or libungif development files or use --without-gif |
| 650 | 694 | ||
| 695 | :checkdistfiles | ||
| 696 | if "(%HAVE_DISTFILES%)" == "()" goto donelibchecks | ||
| 697 | if (%distFilesOk%) == (1) goto donelibchecks | ||
| 698 | echo. | ||
| 699 | echo Files specified with option --distfiles could not be found. | ||
| 700 | echo Fix these issues before running make dist | ||
| 701 | |||
| 651 | :donelibchecks | 702 | :donelibchecks |
| 652 | if (%libsOK%) == (1) goto success | 703 | if (%libsOK%) == (1) goto success |
| 653 | echo. | 704 | echo. |
| @@ -680,6 +731,9 @@ set userldflags= | |||
| 680 | set doldflags= | 731 | set doldflags= |
| 681 | set mingwflag= | 732 | set mingwflag= |
| 682 | set mf= | 733 | set mf= |
| 734 | set distfiles= | ||
| 735 | set HAVE_DISTFILES= | ||
| 736 | set distFilesOk= | ||
| 683 | 737 | ||
| 684 | goto skipArchTag | 738 | goto skipArchTag |
| 685 | arch-tag: 300d20a4-1675-4e75-b615-7ce1a8c5376c | 739 | arch-tag: 300d20a4-1675-4e75-b615-7ce1a8c5376c |
diff --git a/nt/makefile.w32-in b/nt/makefile.w32-in index 48b3ab14056..b0f5edb28a2 100644 --- a/nt/makefile.w32-in +++ b/nt/makefile.w32-in | |||
| @@ -23,6 +23,10 @@ | |||
| 23 | # FIXME: This file uses DOS EOLs. Convert to Unix after 22.1 is out | 23 | # FIXME: This file uses DOS EOLs. Convert to Unix after 22.1 is out |
| 24 | # (and remove or replace this comment). | 24 | # (and remove or replace this comment). |
| 25 | 25 | ||
| 26 | VERSION = 24.0.50 | ||
| 27 | |||
| 28 | TMP_DIST_DIR = emacs-$(VERSION) | ||
| 29 | |||
| 26 | TRES = $(BLD)/emacs.res | 30 | TRES = $(BLD)/emacs.res |
| 27 | CLIENTRES = $(BLD)/emacsclient.res | 31 | CLIENTRES = $(BLD)/emacsclient.res |
| 28 | 32 | ||
| @@ -197,12 +201,16 @@ $(INSTALL_DIR)/bin: $(INSTALL_DIR) | |||
| 197 | # | 201 | # |
| 198 | # Build and install emacs in INSTALL_DIR | 202 | # Build and install emacs in INSTALL_DIR |
| 199 | # | 203 | # |
| 200 | install: all $(INSTALL_DIR)/bin install-other-dirs-$(MAKETYPE) | 204 | .PHONY: install-bin install-shortcuts |
| 205 | |||
| 206 | install: install-bin install-shortcuts | ||
| 207 | |||
| 208 | install-bin: all $(INSTALL_DIR)/bin install-other-dirs-$(MAKETYPE) | ||
| 201 | - $(CP) $(BLD)/addpm.exe $(INSTALL_DIR)/bin | 209 | - $(CP) $(BLD)/addpm.exe $(INSTALL_DIR)/bin |
| 202 | - $(CP) $(BLD)/ddeclient.exe $(INSTALL_DIR)/bin | 210 | - $(CP) $(BLD)/ddeclient.exe $(INSTALL_DIR)/bin |
| 203 | - $(CP) $(BLD)/cmdproxy.exe $(INSTALL_DIR)/bin | 211 | - $(CP) $(BLD)/cmdproxy.exe $(INSTALL_DIR)/bin |
| 204 | - $(CP) $(BLD)/runemacs.exe $(INSTALL_DIR)/bin | 212 | - $(CP) $(BLD)/runemacs.exe $(INSTALL_DIR)/bin |
| 205 | - "$(INSTALL_DIR)/bin/addpm" -q | 213 | - $(CP) README.W32 $(INSTALL_DIR) |
| 206 | - $(DEL) ../same-dir.tst | 214 | - $(DEL) ../same-dir.tst |
| 207 | - $(DEL) $(INSTALL_DIR)/same-dir.tst | 215 | - $(DEL) $(INSTALL_DIR)/same-dir.tst |
| 208 | echo SameDirTest > "$(INSTALL_DIR)/same-dir.tst" | 216 | echo SameDirTest > "$(INSTALL_DIR)/same-dir.tst" |
| @@ -238,6 +246,26 @@ install-other-dirs-gmake: | |||
| 238 | $(MAKE) $(MFLAGS) $(XMFLAGS) -C ../lisp install | 246 | $(MAKE) $(MFLAGS) $(XMFLAGS) -C ../lisp install |
| 239 | $(MAKE) $(MFLAGS) $(XMFLAGS) -C ../leim install | 247 | $(MAKE) $(MFLAGS) $(XMFLAGS) -C ../leim install |
| 240 | 248 | ||
| 249 | install-shortcuts: | ||
| 250 | "$(INSTALL_DIR)/bin/addpm" -q | ||
| 251 | |||
| 252 | dist: install-bin | ||
| 253 | mkdir $(TMP_DIST_DIR) | ||
| 254 | $(CP) "$(INSTALL_DIR)/BUGS" $(TMP_DIST_DIR) | ||
| 255 | $(CP) "$(INSTALL_DIR)/COPYING" $(TMP_DIST_DIR) | ||
| 256 | $(CP) "$(INSTALL_DIR)/README" $(TMP_DIST_DIR) | ||
| 257 | $(CP) "$(INSTALL_DIR)/README.W32" $(TMP_DIST_DIR) | ||
| 258 | $(CP) "$(INSTALL_DIR)/INSTALL" $(TMP_DIST_DIR) | ||
| 259 | $(CP_DIR) "$(INSTALL_DIR)/bin" $(TMP_DIST_DIR) | ||
| 260 | $(CP_DIR) "$(INSTALL_DIR)/etc" $(TMP_DIST_DIR) | ||
| 261 | $(CP_DIR) "$(INSTALL_DIR)/info" $(TMP_DIST_DIR) | ||
| 262 | $(CP_DIR) "$(INSTALL_DIR)/lisp" $(TMP_DIST_DIR) | ||
| 263 | $(CP_DIR) "$(INSTALL_DIR)/leim" $(TMP_DIST_DIR) | ||
| 264 | $(CP_DIR) "$(INSTALL_DIR)/site-lisp" $(TMP_DIST_DIR) | ||
| 265 | $(CP_DIR) $(DIST_FILES) $(TMP_DIST_DIR)/bin | ||
| 266 | $(COMSPEC)$(ComSpec) /c $(ARGQUOTE)zipdist.bat $(VERSION)$(ARGQUOTE) | ||
| 267 | $(DEL_TREE) $(TMP_DIST_DIR) | ||
| 268 | |||
| 241 | force-info: | 269 | force-info: |
| 242 | # Note that doc/emacs/makefile knows how to | 270 | # Note that doc/emacs/makefile knows how to |
| 243 | # put the info files in $(infodir), | 271 | # put the info files in $(infodir), |
| @@ -323,6 +351,7 @@ top-distclean: | |||
| 323 | - $(DEL) stamp_BLD | 351 | - $(DEL) stamp_BLD |
| 324 | - $(DEL) ../etc/DOC ../etc/DOC-X | 352 | - $(DEL) ../etc/DOC ../etc/DOC-X |
| 325 | - $(DEL) config.log Makefile | 353 | - $(DEL) config.log Makefile |
| 354 | - $(DEL) ../README.W32 | ||
| 326 | 355 | ||
| 327 | distclean: distclean-other-dirs-$(MAKETYPE) top-distclean | 356 | distclean: distclean-other-dirs-$(MAKETYPE) top-distclean |
| 328 | 357 | ||
diff --git a/nt/runemacs.c b/nt/runemacs.c index d28d677dca8..f4d72062620 100644 --- a/nt/runemacs.c +++ b/nt/runemacs.c | |||
| @@ -43,7 +43,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 43 | #include <string.h> | 43 | #include <string.h> |
| 44 | #include <malloc.h> | 44 | #include <malloc.h> |
| 45 | 45 | ||
| 46 | static void set_user_model_id (); | 46 | static void set_user_model_id (void); |
| 47 | 47 | ||
| 48 | int WINAPI | 48 | int WINAPI |
| 49 | WinMain (HINSTANCE hSelf, HINSTANCE hPrev, LPSTR cmdline, int nShow) | 49 | WinMain (HINSTANCE hSelf, HINSTANCE hPrev, LPSTR cmdline, int nShow) |
diff --git a/nt/zipdist.bat b/nt/zipdist.bat new file mode 100644 index 00000000000..af90f6173b9 --- /dev/null +++ b/nt/zipdist.bat | |||
| @@ -0,0 +1,49 @@ | |||
| 1 | @echo off | ||
| 2 | rem Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 | ||
| 3 | rem Free Software Foundation, Inc. | ||
| 4 | |||
| 5 | rem Author: Christoph Scholtes cschol2112 at gmail.com | ||
| 6 | |||
| 7 | rem This file is part of GNU Emacs. | ||
| 8 | |||
| 9 | rem GNU Emacs is free software: you can redistribute it and/or modify | ||
| 10 | rem it under the terms of the GNU General Public License as published by | ||
| 11 | rem the Free Software Foundation, either version 3 of the License, or | ||
| 12 | rem (at your option) any later version. | ||
| 13 | |||
| 14 | rem GNU Emacs is distributed in the hope that it will be useful, | ||
| 15 | rem but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 16 | rem MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 17 | rem GNU General Public License for more details. | ||
| 18 | |||
| 19 | rem You should have received a copy of the GNU General Public License | ||
| 20 | rem along with GNU Emacs. If not, see http://www.gnu.org/licenses/. | ||
| 21 | |||
| 22 | SETLOCAL | ||
| 23 | rem arg 1: Emacs version number | ||
| 24 | set EMACS_VER=%1 | ||
| 25 | |||
| 26 | set TMP_DIST_DIR=emacs-%EMACS_VER% | ||
| 27 | |||
| 28 | rem Check, if 7zip is installed and available on path | ||
| 29 | :ZIP_CHECK | ||
| 30 | 7z | ||
| 31 | if %ERRORLEVEL% NEQ 0 goto :ZIP_ERROR | ||
| 32 | goto ZIP_DIST | ||
| 33 | |||
| 34 | :ZIP_ERROR | ||
| 35 | echo. | ||
| 36 | echo ERROR: Make sure 7zip is installed and available on the Windows Path! | ||
| 37 | goto EXIT | ||
| 38 | |||
| 39 | rem Build distributions | ||
| 40 | :ZIP_DIST | ||
| 41 | rem Build and verify full distribution | ||
| 42 | 7z a -bd -tZIP -mx=9 -x!.bzrignore -x!.gitignore -xr!emacs.mdp -xr!*.pdb -xr!*.opt -xr!*~ -xr!CVS -xr!.arch-inventory emacs-%EMACS_VER%-bin-i386.zip %TMP_DIST_DIR% | ||
| 43 | 7z t emacs-%EMACS_VER%-bin-i386.zip | ||
| 44 | rem Build and verify binary only distribution | ||
| 45 | 7z a -bd -tZIP -mx=9 -x!.bzrignore -x!.gitignore -xr!emacs.mdp -xr!*.pdb -xr!*.opt -xr!*~ -xr!CVS -xr!.arch-inventory emacs-%EMACS_VER%-barebin-i386.zip %TMP_DIST_DIR%/README.W32 %TMP_DIST_DIR%/bin %TMP_DIST_DIR%/etc/DOC-X %TMP_DIST_DIR%/COPYING | ||
| 46 | 7z t emacs-%EMACS_VER%-barebin-i386.zip | ||
| 47 | goto EXIT | ||
| 48 | |||
| 49 | :EXIT | ||
diff --git a/oldXMenu/ChangeLog b/oldXMenu/ChangeLog index cc6bcc92727..f05553a38b3 100644 --- a/oldXMenu/ChangeLog +++ b/oldXMenu/ChangeLog | |||
| @@ -137,8 +137,8 @@ | |||
| 137 | * Activate.c: Add calls to GrabKeyboard to remove strange | 137 | * Activate.c: Add calls to GrabKeyboard to remove strange |
| 138 | interactions with window managers that steal keypresses. | 138 | interactions with window managers that steal keypresses. |
| 139 | Call ungrab_all instead of XtUngrabPointer. | 139 | Call ungrab_all instead of XtUngrabPointer. |
| 140 | (XMenuActivate): Add call to XGrabKeyboard | 140 | (XMenuActivate): Add call to XGrabKeyboard. |
| 141 | (XMenuActivate): Add call to XUngrabKeyboard | 141 | (XMenuActivate): Add call to XUngrabKeyboard. |
| 142 | 142 | ||
| 143 | 2001-10-20 Gerd Moellmann <gerd@gnu.org> | 143 | 2001-10-20 Gerd Moellmann <gerd@gnu.org> |
| 144 | 144 | ||
diff --git a/src/ChangeLog b/src/ChangeLog index 7e79e65b0c9..3e750aed54b 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -3,6 +3,94 @@ | |||
| 3 | * font.c (Ffont_shape_gstring): Terminate GSTRING by nil if the | 3 | * font.c (Ffont_shape_gstring): Terminate GSTRING by nil if the |
| 4 | number of glyphs gets smaller than the original length. | 4 | number of glyphs gets smaller than the original length. |
| 5 | 5 | ||
| 6 | 2010-07-26 Juanma Barranquero <lekktu@gmail.com> | ||
| 7 | |||
| 8 | * lread.c (unreadpure, mapatoms_1): Make static. | ||
| 9 | |||
| 10 | 2010-07-25 Juanma Barranquero <lekktu@gmail.com> | ||
| 11 | |||
| 12 | * terminfo.c (tparam): Fix prototype of tparm. | ||
| 13 | |||
| 14 | 2010-07-25 Andreas Schwab <schwab@linux-m68k.org> | ||
| 15 | |||
| 16 | * emacs.c (main) [PROFILING]: Use __executable_start if defined to | ||
| 17 | find start of text segment. | ||
| 18 | * dispnew.c (safe_bcopy): Don't define if HAVE___EXECUTABLE_START | ||
| 19 | is defined. | ||
| 20 | |||
| 21 | * callproc.c (set_initial_environment): Avoid unbalanced braces. | ||
| 22 | |||
| 23 | 2010-07-25 Ken Brown <kbrown@cornell.edu> | ||
| 24 | |||
| 25 | * vm-limit.c (check_memory_limits): Fix previous change; | ||
| 26 | accidentally reverted an earlier change. | ||
| 27 | |||
| 28 | 2010-07-25 Ken Brown <kbrown@cornell.edu> | ||
| 29 | |||
| 30 | * mem-limits.h (BSD4_2) [cygwin]: Don't define here; instead... | ||
| 31 | * vm-limit.c: ...add 'defined (CYGWIN)' here (Bug#6715). | ||
| 32 | |||
| 33 | 2010-07-25 Juanma Barranquero <lekktu@gmail.com> | ||
| 34 | |||
| 35 | * callproc.c (relocate_fd): Set inside #ifndef WINDOWSNT. | ||
| 36 | * dired.c (opendir, readdir): Fix prototypes. | ||
| 37 | * editfns.c (w32_get_internal_run_time): Fix prototypes. | ||
| 38 | * keyboard.c (input_available_signal): Declare inside #ifdef SIGIO. | ||
| 39 | * ndir.h (opendir, readdir, seekdir, closedir): Fix prototypes. | ||
| 40 | (telldir): Remove declaration. | ||
| 41 | * ralloc.c (real_morecore, __morecore): Fix prototypes. | ||
| 42 | * sound.c (alsa_sound_perror): Declare inside #ifdef HAVE_ALSA. | ||
| 43 | * syssignal.h (strsignal): Fix prototype. | ||
| 44 | * term.c (tparam): Fix prototype. | ||
| 45 | (term_get_fkeys_address, term_get_fkeys_kboard, term_get_fkeys_1) | ||
| 46 | (term_get_fkeys): Set inside "#ifndef DOS_NT". | ||
| 47 | * vm-limit.c (check_memory_limits): Fix prototypes of real_morecore | ||
| 48 | and __morecore. | ||
| 49 | * w32gui.h (XParseGeometry): Fix prototype. | ||
| 50 | * w32heap.h (get_data_start, get_data_end, init_heap): Fix prototypes. | ||
| 51 | * w32term.c (my_set_focus): Declare inside #if 0. | ||
| 52 | * w32term.h (x_window_to_frame, x_display_info_for_name, w32_term_init) | ||
| 53 | (w32_fill_rect, w32_clear_window, init_crit, delete_crit, signal_quit) | ||
| 54 | (drain_message_queue, get_next_msg, post_msg, parse_button) | ||
| 55 | (ClipboardSequence_Proc): Fix prototypes. | ||
| 56 | (wait_for_sync): Remove declaration. | ||
| 57 | |||
| 58 | 2010-07-24 Juanma Barranquero <lekktu@gmail.com> | ||
| 59 | |||
| 60 | * w32fns.c (w32_to_x_color): Remove, unused. | ||
| 61 | |||
| 62 | 2010-07-24 Andreas Schwab <schwab@linux-m68k.org> | ||
| 63 | |||
| 64 | * lisp.h: Remove leftover P_. | ||
| 65 | |||
| 66 | 2010-07-24 Dan Nicolaescu <dann@ics.uci.edu> | ||
| 67 | |||
| 68 | * ecrt0.c, unexalpha.c: Remove files, unused. | ||
| 69 | |||
| 70 | 2010-07-24 Andreas Schwab <schwab@linux-m68k.org> | ||
| 71 | |||
| 72 | * cmds.c (internal_self_insert): Make static. | ||
| 73 | * lisp.h (internal_self_insert): Remove declaration. | ||
| 74 | |||
| 75 | 2010-07-23 Juanma Barranquero <lekktu@gmail.com> | ||
| 76 | |||
| 77 | * alloc.c (free_float): | ||
| 78 | * font.c [ENABLE_CHECKING] (font_match_xlfd, font_check_xlfd_parse): | ||
| 79 | * frame.c (delete_frame_handler): | ||
| 80 | * ralloc.c (reorder_bloc): | ||
| 81 | * w32menu.c (menubar_id_to_frame, add_left_right_boundary): | ||
| 82 | Remove unused static functions. | ||
| 83 | |||
| 84 | * menu.c (cleanup_popup_menu): Set inside "#ifdef HAVE_NS"; | ||
| 85 | it is called only from NS code. | ||
| 86 | |||
| 87 | * w32term.c (my_set_focus): #ifdef away; it is called only from | ||
| 88 | "#ifdef 0" code. | ||
| 89 | |||
| 90 | * w32fns.c (x_edge_detection): | ||
| 91 | * xfaces.c (may_use_scalable_font_p): | ||
| 92 | Remove obsolete static declarations. | ||
| 93 | |||
| 6 | 2010-07-20 Juanma Barranquero <lekktu@gmail.com> | 94 | 2010-07-20 Juanma Barranquero <lekktu@gmail.com> |
| 7 | 95 | ||
| 8 | * alloc.c (emacs_blocked_free, emacs_blocked_malloc) | 96 | * alloc.c (emacs_blocked_free, emacs_blocked_malloc) |
| @@ -2732,7 +2820,7 @@ | |||
| 2732 | (struct xsettings): Add font and tb_style, set xft stuff inside #ifdef | 2820 | (struct xsettings): Add font and tb_style, set xft stuff inside #ifdef |
| 2733 | HAVE_XFT. | 2821 | HAVE_XFT. |
| 2734 | (something_changedCB): store_font_changed_event is now | 2822 | (something_changedCB): store_font_changed_event is now |
| 2735 | store_config_changed_event | 2823 | store_config_changed_event. |
| 2736 | (parse_settings): Rename from parse_xft_settings. Read | 2824 | (parse_settings): Rename from parse_xft_settings. Read |
| 2737 | non-xft xsettings outside #ifdef HAVE_XFT. | 2825 | non-xft xsettings outside #ifdef HAVE_XFT. |
| 2738 | (read_settings): Renamed from read_xft_settings. | 2826 | (read_settings): Renamed from read_xft_settings. |
| @@ -4481,7 +4569,7 @@ | |||
| 4481 | (scroll_end_callback): Remove. | 4569 | (scroll_end_callback): Remove. |
| 4482 | (xg_create_scroll_bar): Add parameter end_callback, bind it to | 4570 | (xg_create_scroll_bar): Add parameter end_callback, bind it to |
| 4483 | button-release-event. Replace value-changed event with change-value, | 4571 | button-release-event. Replace value-changed event with change-value, |
| 4484 | bug #5177, | 4572 | bug #5177. |
| 4485 | (xg_event_is_for_scrollbar): Only return true if button is less than 4, | 4573 | (xg_event_is_for_scrollbar): Only return true if button is less than 4, |
| 4486 | bug #5177. | 4574 | bug #5177. |
| 4487 | 4575 | ||
| @@ -4502,7 +4590,7 @@ | |||
| 4502 | 4590 | ||
| 4503 | 2009-12-12 Eli Zaretskii <eliz@gnu.org> | 4591 | 2009-12-12 Eli Zaretskii <eliz@gnu.org> |
| 4504 | 4592 | ||
| 4505 | * dispextern.h (struct text_pos): Use EMACS_INT; | 4593 | * dispextern.h (struct text_pos): Use EMACS_INT. |
| 4506 | (struct glyph): Use EMACS_INT for charpos. | 4594 | (struct glyph): Use EMACS_INT for charpos. |
| 4507 | (struct it): Use EMACS_INT for stop_charpos, end_charpos, | 4595 | (struct it): Use EMACS_INT for stop_charpos, end_charpos, |
| 4508 | region_beg_charpos, region_end_charpos, | 4596 | region_beg_charpos, region_end_charpos, |
| @@ -12068,8 +12156,8 @@ | |||
| 12068 | 2008-07-15 Chris Hall <chris@web.workinglinux.com> (tiny change) | 12156 | 2008-07-15 Chris Hall <chris@web.workinglinux.com> (tiny change) |
| 12069 | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 12157 | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
| 12070 | 12158 | ||
| 12071 | (make_initial_frame): Call init_frame_faces(f) in CANNOT_DUMP case -- | 12159 | * frame.c (make_initial_frame): Call init_frame_faces(f) in |
| 12072 | fix crash due to different init order. | 12160 | CANNOT_DUMP case -- fix crash due to different init order. |
| 12073 | 12161 | ||
| 12074 | 2008-07-15 Adrian Robert <Adrian.B.Robert@gmail.com> | 12162 | 2008-07-15 Adrian Robert <Adrian.B.Robert@gmail.com> |
| 12075 | 12163 | ||
| @@ -12266,7 +12354,7 @@ | |||
| 12266 | * m/macppc.h: | 12354 | * m/macppc.h: |
| 12267 | * m/alpha.h: Use GNU_LINUX instead of LINUX. Reorganize conditionals. | 12355 | * m/alpha.h: Use GNU_LINUX instead of LINUX. Reorganize conditionals. |
| 12268 | 12356 | ||
| 12269 | * m/ibms390x.h (XINT, XUINT): Don't define, same as the default | 12357 | * m/ibms390x.h (XINT, XUINT): Don't define, same as the default. |
| 12270 | (SPECIAL_EMACS_INT): | 12358 | (SPECIAL_EMACS_INT): |
| 12271 | * m/ia64.h (SPECIAL_EMACS_INT): | 12359 | * m/ia64.h (SPECIAL_EMACS_INT): |
| 12272 | * m/amdx86-64.h (SPECIAL_EMACS_INT): | 12360 | * m/amdx86-64.h (SPECIAL_EMACS_INT): |
diff --git a/src/ChangeLog.10 b/src/ChangeLog.10 index 24818e6770f..dd847f8a64e 100644 --- a/src/ChangeLog.10 +++ b/src/ChangeLog.10 | |||
| @@ -3252,7 +3252,7 @@ | |||
| 3252 | 2006-07-02 Kim F. Storm <storm@cua.dk> | 3252 | 2006-07-02 Kim F. Storm <storm@cua.dk> |
| 3253 | 3253 | ||
| 3254 | * xdisp.c (display_tool_bar_line): Skip glyphs which are too big | 3254 | * xdisp.c (display_tool_bar_line): Skip glyphs which are too big |
| 3255 | to ever fit the tool-bar, | 3255 | to ever fit the tool-bar. |
| 3256 | (MAX_FRAME_TOOL_BAR_HEIGHT): New macro. | 3256 | (MAX_FRAME_TOOL_BAR_HEIGHT): New macro. |
| 3257 | (tool_bar_lines_needed): Use unused mode-line row as temp_row. | 3257 | (tool_bar_lines_needed): Use unused mode-line row as temp_row. |
| 3258 | (redisplay_tool_bar): Only clear desired matrix if we actually | 3258 | (redisplay_tool_bar): Only clear desired matrix if we actually |
| @@ -7869,7 +7869,7 @@ | |||
| 7869 | 7869 | ||
| 7870 | 2005-07-19 Juanma Barranquero <lekktu@gmail.com> | 7870 | 2005-07-19 Juanma Barranquero <lekktu@gmail.com> |
| 7871 | 7871 | ||
| 7872 | * eval.c (Fprog2, Fcalled_interactively_p), | 7872 | * eval.c (Fprog2, Fcalled_interactively_p) |
| 7873 | (syms_of_eval) <debug-on-quit>: Doc fixes. | 7873 | (syms_of_eval) <debug-on-quit>: Doc fixes. |
| 7874 | (syms_of_eval) <max-specpdl-size>: | 7874 | (syms_of_eval) <max-specpdl-size>: |
| 7875 | (Finteractive_p): Fix typos in docstrings. | 7875 | (Finteractive_p): Fix typos in docstrings. |
| @@ -11250,7 +11250,7 @@ | |||
| 11250 | 2004-12-18 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 11250 | 2004-12-18 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
| 11251 | 11251 | ||
| 11252 | * macterm.c (endif, x_font_name_to_mac_font_name): | 11252 | * macterm.c (endif, x_font_name_to_mac_font_name): |
| 11253 | Use maccentraleurroman instead of maccentraleuropean | 11253 | Use maccentraleurroman instead of maccentraleuropean. |
| 11254 | (mac_c_string_match, mac_do_list_fonts): Speed up font search by | 11254 | (mac_c_string_match, mac_do_list_fonts): Speed up font search by |
| 11255 | quickly finding a specific font without needing regexps. | 11255 | quickly finding a specific font without needing regexps. |
| 11256 | 11256 | ||
| @@ -12477,7 +12477,7 @@ | |||
| 12477 | 12477 | ||
| 12478 | * gtkutil.h (xg_frame_cleared): Remove. | 12478 | * gtkutil.h (xg_frame_cleared): Remove. |
| 12479 | 12479 | ||
| 12480 | * xterm.c (x_clear_frame): Remove call to xg_frame_cleared | 12480 | * xterm.c (x_clear_frame): Remove call to xg_frame_cleared. |
| 12481 | (x_scroll_bar_create, XTset_vertical_scroll_bar): | 12481 | (x_scroll_bar_create, XTset_vertical_scroll_bar): |
| 12482 | Remove arguments left and width to xg_update_scrollbar_pos. | 12482 | Remove arguments left and width to xg_update_scrollbar_pos. |
| 12483 | (XTset_vertical_scroll_bar): Do x_clear_area for USE_GTK also. | 12483 | (XTset_vertical_scroll_bar): Do x_clear_area for USE_GTK also. |
| @@ -13017,9 +13017,9 @@ | |||
| 13017 | 13017 | ||
| 13018 | * macmenu.c (ENCODE_MENU_STRING): Added to handle multibyte | 13018 | * macmenu.c (ENCODE_MENU_STRING): Added to handle multibyte |
| 13019 | strings in menu items. | 13019 | strings in menu items. |
| 13020 | (single_submenu): Use ENCODE_MENU_STRING | 13020 | (single_submenu): Use ENCODE_MENU_STRING. |
| 13021 | (mac_menu_show): Use ENCODE_MENU_STRING. Reset grabbed because | 13021 | (mac_menu_show): Use ENCODE_MENU_STRING. Reset grabbed because |
| 13022 | button release isn't passed to event loop | 13022 | button release isn't passed to event loop. |
| 13023 | (add_menu_item): Use SetMenuItemWithCFString. | 13023 | (add_menu_item): Use SetMenuItemWithCFString. |
| 13024 | 13024 | ||
| 13025 | 2004-08-26 Steven Tamm <steventamm@mac.com> | 13025 | 2004-08-26 Steven Tamm <steventamm@mac.com> |
| @@ -15407,7 +15407,7 @@ | |||
| 15407 | (Fxw_display_color_p): Use dpyinfo->color_p. | 15407 | (Fxw_display_color_p): Use dpyinfo->color_p. |
| 15408 | (Fx_display_grayscale_p, Fx_display_planes): Don't use | 15408 | (Fx_display_grayscale_p, Fx_display_planes): Don't use |
| 15409 | dpyinfo->n_cbits. | 15409 | dpyinfo->n_cbits. |
| 15410 | (Fx_display_color_cells): Use dpyinfo->n_planes; | 15410 | (Fx_display_color_cells): Use dpyinfo->n_planes. |
| 15411 | (QCmatrix, QCcolor_adjustment, QCmask, Qemboss, Qedge_detection) | 15411 | (QCmatrix, QCcolor_adjustment, QCmask, Qemboss, Qedge_detection) |
| 15412 | (Qheuristic, cross_disabled_images, emboss_matrix) | 15412 | (Qheuristic, cross_disabled_images, emboss_matrix) |
| 15413 | (laplace_matrix): New variables (from xfns.c). | 15413 | (laplace_matrix): New variables (from xfns.c). |
| @@ -16414,7 +16414,7 @@ | |||
| 16414 | (append_glyph, append_composite_glyph, produce_image_glyph) | 16414 | (append_glyph, append_composite_glyph, produce_image_glyph) |
| 16415 | (append_stretch_glyph): Set glyph's ascent and descent. | 16415 | (append_stretch_glyph): Set glyph's ascent and descent. |
| 16416 | (on_hot_spot_p): New function to check if position is inside an | 16416 | (on_hot_spot_p): New function to check if position is inside an |
| 16417 | rectangular, circular, or polygon-shaped image hot-spot, | 16417 | rectangular, circular, or polygon-shaped image hot-spot. |
| 16418 | (find_hot_spot): New function to search for image hot-spot. | 16418 | (find_hot_spot): New function to search for image hot-spot. |
| 16419 | (Flookup_image_map): New defun to search for image hot-spot. | 16419 | (Flookup_image_map): New defun to search for image hot-spot. |
| 16420 | (define_frame_cursor1): New aux function to determine frame | 16420 | (define_frame_cursor1): New aux function to determine frame |
| @@ -18570,7 +18570,7 @@ | |||
| 18570 | change/simplify relevant callers. | 18570 | change/simplify relevant callers. |
| 18571 | (x_y_to_hpos_vpos): Adapt to per-window fringes and scroll bars, | 18571 | (x_y_to_hpos_vpos): Adapt to per-window fringes and scroll bars, |
| 18572 | and new fringe vs. display margin position. | 18572 | and new fringe vs. display margin position. |
| 18573 | Use window_box_left_offset and window_box_right_offset | 18573 | Use window_box_left_offset and window_box_right_offset. |
| 18574 | (get_glyph_string_clip_rect): Adapt to per-window fringes and | 18574 | (get_glyph_string_clip_rect): Adapt to per-window fringes and |
| 18575 | scroll bars, and new fringe vs. display margin position. | 18575 | scroll bars, and new fringe vs. display margin position. |
| 18576 | Use WINDOW_LEFT_EDGE_X and WINDOW_TOTAL_WIDTH. | 18576 | Use WINDOW_LEFT_EDGE_X and WINDOW_TOTAL_WIDTH. |
diff --git a/src/ChangeLog.2 b/src/ChangeLog.2 index 7313f56ae8e..41e280a71b3 100644 --- a/src/ChangeLog.2 +++ b/src/ChangeLog.2 | |||
| @@ -3102,9 +3102,9 @@ | |||
| 3102 | [So (-259 . (259 . x)) means to format x -exactly- 259 chars wide.] | 3102 | [So (-259 . (259 . x)) means to format x -exactly- 259 chars wide.] |
| 3103 | 3103 | ||
| 3104 | * dispnew.c (Fding): | 3104 | * dispnew.c (Fding): |
| 3105 | Do not terminate macro-definition if given an argument | 3105 | Do not terminate macro-definition if given an argument. |
| 3106 | (This is so things like asynchronous process notifications | 3106 | (This is so things like asynchronous process notifications |
| 3107 | can beep but not screw) | 3107 | can beep but not screw.) |
| 3108 | 3108 | ||
| 3109 | 1986-11-10 Richard M. Stallman (rms@prep) | 3109 | 1986-11-10 Richard M. Stallman (rms@prep) |
| 3110 | 3110 | ||
diff --git a/src/ChangeLog.3 b/src/ChangeLog.3 index 241019b51c7..e3c5ab70f66 100644 --- a/src/ChangeLog.3 +++ b/src/ChangeLog.3 | |||
| @@ -6993,7 +6993,7 @@ | |||
| 6993 | 6993 | ||
| 6994 | * keyboard.c (Qvertical_split): Renamed to `vertical-line', | 6994 | * keyboard.c (Qvertical_split): Renamed to `vertical-line', |
| 6995 | since the window arrangement is actually referred to as a | 6995 | since the window arrangement is actually referred to as a |
| 6996 | `horizontal split.' | 6996 | `horizontal split'. |
| 6997 | (make_lispy_event, make_lispy_movement, syms_of_keyboard): Uses | 6997 | (make_lispy_event, make_lispy_movement, syms_of_keyboard): Uses |
| 6998 | renamed here. | 6998 | renamed here. |
| 6999 | * keyboard.h (Qvertical_split): Extern declaration changed here. | 6999 | * keyboard.h (Qvertical_split): Extern declaration changed here. |
diff --git a/src/ChangeLog.5 b/src/ChangeLog.5 index e4991971461..f27186079ac 100644 --- a/src/ChangeLog.5 +++ b/src/ChangeLog.5 | |||
| @@ -387,7 +387,7 @@ | |||
| 387 | based on frame name and icon_name fields. | 387 | based on frame name and icon_name fields. |
| 388 | (x_set_icon_name): New function. | 388 | (x_set_icon_name): New function. |
| 389 | (x_icon): Call x_text_icon. | 389 | (x_icon): Call x_text_icon. |
| 390 | (x_set_name): Look at icon_name field when setting the icon name, | 390 | (x_set_name): Look at icon_name field when setting the icon name. |
| 391 | (x_frame_parms): Add icon-name. | 391 | (x_frame_parms): Add icon-name. |
| 392 | (syms_of_xfns): Set up Qicon_name. | 392 | (syms_of_xfns): Set up Qicon_name. |
| 393 | 393 | ||
| @@ -903,7 +903,7 @@ | |||
| 903 | 903 | ||
| 904 | 1995-05-04 Richard Stallman <rms@mole.gnu.ai.mit.edu> | 904 | 1995-05-04 Richard Stallman <rms@mole.gnu.ai.mit.edu> |
| 905 | 905 | ||
| 906 | * s/freebsd.h: (GETPGRP_NO_ARG): Defined | 906 | * s/freebsd.h (GETPGRP_NO_ARG): Define. |
| 907 | (HAVE_GETPAGESIZE): Definition deleted. | 907 | (HAVE_GETPAGESIZE): Definition deleted. |
| 908 | 908 | ||
| 909 | * data.c (store_symval_forwarding): Error if value out of range | 909 | * data.c (store_symval_forwarding): Error if value out of range |
| @@ -1308,7 +1308,7 @@ | |||
| 1308 | 1308 | ||
| 1309 | * ntinevt.c (do_mouse_event): Use XSETFASTINT. | 1309 | * ntinevt.c (do_mouse_event): Use XSETFASTINT. |
| 1310 | (SET_FRAME): Undefined. | 1310 | (SET_FRAME): Undefined. |
| 1311 | (select): Renamed to sys_select to correspond to routine in sysdep.c | 1311 | (select): Renamed to sys_select to correspond to routine in sysdep.c. |
| 1312 | (sys_select): Support struct timeval. | 1312 | (sys_select): Support struct timeval. |
| 1313 | (key_event): Support German keyboard. | 1313 | (key_event): Support German keyboard. |
| 1314 | Replace SET_FRAME with XSETFRAME. | 1314 | Replace SET_FRAME with XSETFRAME. |
| @@ -4217,7 +4217,7 @@ | |||
| 4217 | 4217 | ||
| 4218 | * process.c: Handle multiple keyboard input descriptors. | 4218 | * process.c: Handle multiple keyboard input descriptors. |
| 4219 | (non_keyboard_wait_mask): New variable. | 4219 | (non_keyboard_wait_mask): New variable. |
| 4220 | (Fset_process_filter): Update non_keyboard_wait_mask | 4220 | (Fset_process_filter): Update non_keyboard_wait_mask. |
| 4221 | (create_process, Fopen_network_stream, deactivate_process): | 4221 | (create_process, Fopen_network_stream, deactivate_process): |
| 4222 | (init_process, sigchld_handler): Likewise. | 4222 | (init_process, sigchld_handler): Likewise. |
| 4223 | (wait_reading_process_input): Maybe use non_keyboard_wait_mask. | 4223 | (wait_reading_process_input): Maybe use non_keyboard_wait_mask. |
| @@ -4456,7 +4456,7 @@ | |||
| 4456 | 4456 | ||
| 4457 | * xfns.c: Use FRAME_X_DISPLAY instead of x_current_display | 4457 | * xfns.c: Use FRAME_X_DISPLAY instead of x_current_display |
| 4458 | and XDISPLAY. | 4458 | and XDISPLAY. |
| 4459 | (x_in_use): New variable, | 4459 | (x_in_use): New variable. |
| 4460 | (check_x, using_x_p): Test x_in_use. | 4460 | (check_x, using_x_p): Test x_in_use. |
| 4461 | (Fx_open_connection): Set x_in_use. | 4461 | (Fx_open_connection): Set x_in_use. |
| 4462 | (check_x_frame): New function. | 4462 | (check_x_frame): New function. |
| @@ -5953,7 +5953,7 @@ | |||
| 5953 | 1994-09-03 Kaveh R. Ghazi (ghazi@noc.rutgers.edu) | 5953 | 1994-09-03 Kaveh R. Ghazi (ghazi@noc.rutgers.edu) |
| 5954 | 5954 | ||
| 5955 | * m/delta88k.h [__GNUC__] (HAVE_ALLOCA): Defined. | 5955 | * m/delta88k.h [__GNUC__] (HAVE_ALLOCA): Defined. |
| 5956 | [__GNUC__] (C_ALLOCA): Add #undef | 5956 | [__GNUC__] (C_ALLOCA): Add #undef. |
| 5957 | (LIB_X11_LIB): Add #undef. | 5957 | (LIB_X11_LIB): Add #undef. |
| 5958 | (HAVE_TERMIOS): Defined. | 5958 | (HAVE_TERMIOS): Defined. |
| 5959 | (HAVE_TERMIO): Add #undef. | 5959 | (HAVE_TERMIO): Add #undef. |
diff --git a/src/ChangeLog.6 b/src/ChangeLog.6 index 6c7d04a531e..3b1bdbffabc 100644 --- a/src/ChangeLog.6 +++ b/src/ChangeLog.6 | |||
| @@ -2830,7 +2830,7 @@ | |||
| 2830 | * dosfns.c (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): | 2830 | * dosfns.c (Fint86, Fdos_memget, Fdos_memput, Fmsdos_set_keyboard): |
| 2831 | Harmonize arguments with documentation. | 2831 | Harmonize arguments with documentation. |
| 2832 | 2832 | ||
| 2833 | * editfns.c (Fchar_to_string, Fstring_to_char, Fgoto_char, Fencode_time, | 2833 | * editfns.c (Fchar_to_string, Fstring_to_char, Fgoto_char, Fencode_time) |
| 2834 | (Finsert_char, Fbuffer_substring, Fbuffer_substring_no_properties) | 2834 | (Finsert_char, Fbuffer_substring, Fbuffer_substring_no_properties) |
| 2835 | (Finsert_buffer_substring, Fdelete_region, Fnarrow_to_region): | 2835 | (Finsert_buffer_substring, Fdelete_region, Fnarrow_to_region): |
| 2836 | Harmonize arguments with documentation. | 2836 | Harmonize arguments with documentation. |
diff --git a/src/ChangeLog.9 b/src/ChangeLog.9 index 6e53a39ac93..9146a6465a8 100644 --- a/src/ChangeLog.9 +++ b/src/ChangeLog.9 | |||
| @@ -1126,7 +1126,7 @@ | |||
| 1126 | 1126 | ||
| 1127 | * xterm.c (note_mouse_highlight) <help-echo>: When looking for | 1127 | * xterm.c (note_mouse_highlight) <help-echo>: When looking for |
| 1128 | help-echo for a string which doesn't have help-echo itself, use | 1128 | help-echo for a string which doesn't have help-echo itself, use |
| 1129 | get-char-property to obtain the help-echo from the string's buffer | 1129 | get-char-property to obtain the help-echo from the string's buffer. |
| 1130 | (note_mouse_highlight) <mouse-face>: When on a string that doesn't | 1130 | (note_mouse_highlight) <mouse-face>: When on a string that doesn't |
| 1131 | have mouse-face, look ``under'' the string for mouse-face from an | 1131 | have mouse-face, look ``under'' the string for mouse-face from an |
| 1132 | overlay. | 1132 | overlay. |
| @@ -3119,7 +3119,7 @@ | |||
| 3119 | * w32fns.c (Fx_show_tip): Fix calls to make_number. | 3119 | * w32fns.c (Fx_show_tip): Fix calls to make_number. |
| 3120 | (x_set_font): If font hasn't changed, avoid recomputing | 3120 | (x_set_font): If font hasn't changed, avoid recomputing |
| 3121 | faces and other things. | 3121 | faces and other things. |
| 3122 | (x_set_tool_bar_lines): Do nothing if frame is minibuffer-only, | 3122 | (x_set_tool_bar_lines): Do nothing if frame is minibuffer-only. |
| 3123 | (Fx_create_frame): Add the tool bar height to the frame height. | 3123 | (Fx_create_frame): Add the tool bar height to the frame height. |
| 3124 | (x_create_tip_frame): Prevent changing the tooltip's | 3124 | (x_create_tip_frame): Prevent changing the tooltip's |
| 3125 | background color by specifying a color for the default font | 3125 | background color by specifying a color for the default font |
| @@ -4887,7 +4887,7 @@ | |||
| 4887 | 4887 | ||
| 4888 | * md5.c: Delay include of md5.h until after namespace cleaning. | 4888 | * md5.c: Delay include of md5.h until after namespace cleaning. |
| 4889 | 4889 | ||
| 4890 | * makefile.w32-in (fns.o): Depend on md5.h | 4890 | * makefile.w32-in (fns.o): Depend on md5.h. |
| 4891 | (md5.o): New target. | 4891 | (md5.o): New target. |
| 4892 | (sunfns.o): Remove. | 4892 | (sunfns.o): Remove. |
| 4893 | 4893 | ||
| @@ -7254,7 +7254,7 @@ | |||
| 7254 | 7254 | ||
| 7255 | * charset.h (MAKE_CHAR): Be sure to set MSB of C1 to 0. | 7255 | * charset.h (MAKE_CHAR): Be sure to set MSB of C1 to 0. |
| 7256 | 7256 | ||
| 7257 | * charset.c: Include composite.h | 7257 | * charset.c: Include composite.h. |
| 7258 | (lisp_string_width): New function. | 7258 | (lisp_string_width): New function. |
| 7259 | (Fstring_width): Call lisp_string_width instead of strwidth. | 7259 | (Fstring_width): Call lisp_string_width instead of strwidth. |
| 7260 | 7260 | ||
| @@ -7333,7 +7333,7 @@ | |||
| 7333 | 7333 | ||
| 7334 | * s/ms-w32.h (ORDINARY_LINK): New define. | 7334 | * s/ms-w32.h (ORDINARY_LINK): New define. |
| 7335 | 7335 | ||
| 7336 | * w32.c (_ANONYMOUS_UNION) [__GNUC__]: New define | 7336 | * w32.c (_ANONYMOUS_UNION) [__GNUC__]: New define. |
| 7337 | (_ANONYMOUS_STRUCT) [__GNUC__]: New define. | 7337 | (_ANONYMOUS_STRUCT) [__GNUC__]: New define. |
| 7338 | 7338 | ||
| 7339 | * makefile.w32-in (clean): Don't delete config.h and epaths.h. | 7339 | * makefile.w32-in (clean): Don't delete config.h and epaths.h. |
| @@ -8409,7 +8409,7 @@ | |||
| 8409 | (encode_coding_iso2022): New local variable safe_chars. Check | 8409 | (encode_coding_iso2022): New local variable safe_chars. Check |
| 8410 | unsafe chars. | 8410 | unsafe chars. |
| 8411 | (setup_coding_system): Delete the code to initialize | 8411 | (setup_coding_system): Delete the code to initialize |
| 8412 | coding->safe_charses | 8412 | coding->safe_charses. |
| 8413 | (intersection, find_safe_codings): New functions. | 8413 | (intersection, find_safe_codings): New functions. |
| 8414 | (Ffind_coding_systems_region_internal): New function. | 8414 | (Ffind_coding_systems_region_internal): New function. |
| 8415 | (syms_of_coding): Defsubr it. Initialize Qsafe_chars, | 8415 | (syms_of_coding): Defsubr it. Initialize Qsafe_chars, |
| @@ -8729,7 +8729,7 @@ | |||
| 8729 | * w32term.c (help_echo_object, help_echo_pos): New variables. | 8729 | * w32term.c (help_echo_object, help_echo_pos): New variables. |
| 8730 | (note_mode_line_highlight): Store additional information about the | 8730 | (note_mode_line_highlight): Store additional information about the |
| 8731 | help-echo in help_echo_object and help_echo_pos. Check both | 8731 | help-echo in help_echo_object and help_echo_pos. Check both |
| 8732 | `local-map' and `keymap' properties for changing the cursor | 8732 | `local-map' and `keymap' properties for changing the cursor. |
| 8733 | (note_mouse_highlight): Store additional information about the | 8733 | (note_mouse_highlight): Store additional information about the |
| 8734 | help-echo in help_echo_object and help_echo_pos. | 8734 | help-echo in help_echo_object and help_echo_pos. |
| 8735 | (note_tool_bar_highlight): Set help_echo_object to nil and | 8735 | (note_tool_bar_highlight): Set help_echo_object to nil and |
| @@ -8797,7 +8797,7 @@ | |||
| 8797 | * xterm.c (help_echo_object, help_echo_pos): New variables. | 8797 | * xterm.c (help_echo_object, help_echo_pos): New variables. |
| 8798 | (note_mode_line_highlight): Store additional information about the | 8798 | (note_mode_line_highlight): Store additional information about the |
| 8799 | help-echo in help_echo_object and help_echo_pos. Check both | 8799 | help-echo in help_echo_object and help_echo_pos. Check both |
| 8800 | `local-map' and `keymap' properties for changing the cursor | 8800 | `local-map' and `keymap' properties for changing the cursor. |
| 8801 | (note_mouse_highlight): Store additional information about the | 8801 | (note_mouse_highlight): Store additional information about the |
| 8802 | help-echo in help_echo_object and help_echo_pos. | 8802 | help-echo in help_echo_object and help_echo_pos. |
| 8803 | (note_tool_bar_highlight): Set help_echo_object to nil and | 8803 | (note_tool_bar_highlight): Set help_echo_object to nil and |
| @@ -11979,7 +11979,7 @@ | |||
| 11979 | (detect_coding_utf_8): New function. | 11979 | (detect_coding_utf_8): New function. |
| 11980 | (UTF_16_INVALID_P, UTF_16_HIGH_SURROGATE_P | 11980 | (UTF_16_INVALID_P, UTF_16_HIGH_SURROGATE_P |
| 11981 | UTF_16_LOW_SURROGATE_P): New macros. | 11981 | UTF_16_LOW_SURROGATE_P): New macros. |
| 11982 | (detect_coding_utf_16): New function | 11982 | (detect_coding_utf_16): New function. |
| 11983 | (detect_coding_mask): When priorities are specified, skip any | 11983 | (detect_coding_mask): When priorities are specified, skip any |
| 11984 | categories that have `nil' coding-system. Fix bug of returning | 11984 | categories that have `nil' coding-system. Fix bug of returning |
| 11985 | wrong mask when PRIORITIES is specified and detect_coding_XXX() | 11985 | wrong mask when PRIORITIES is specified and detect_coding_XXX() |
| @@ -12222,7 +12222,7 @@ | |||
| 12222 | 12222 | ||
| 12223 | * makefile.nt: Add atimer.h to dependencies. | 12223 | * makefile.nt: Add atimer.h to dependencies. |
| 12224 | * w32.c (init_environment): Set Vw32_num_mouse_buttons here. | 12224 | * w32.c (init_environment): Set Vw32_num_mouse_buttons here. |
| 12225 | * w32console.c: Only disable window system features for dispextern.h | 12225 | * w32console.c: Only disable window system features for dispextern.h. |
| 12226 | (initialize_w32_display): Build a display info for the console. | 12226 | (initialize_w32_display): Build a display info for the console. |
| 12227 | * w32faces.c (tty_defined_color): Apply xfaces.c change from 02-17. | 12227 | * w32faces.c (tty_defined_color): Apply xfaces.c change from 02-17. |
| 12228 | * w32fns.c (w32_wnd_proc) [WM_LBUTTON_DOWN, WM_RBUTTON_DOWN, | 12228 | * w32fns.c (w32_wnd_proc) [WM_LBUTTON_DOWN, WM_RBUTTON_DOWN, |
| @@ -12825,7 +12825,7 @@ | |||
| 12825 | (FRAME_XIM): Removed. | 12825 | (FRAME_XIM): Removed. |
| 12826 | 12826 | ||
| 12827 | * xfns.c (supported_styles): New variable. | 12827 | * xfns.c (supported_styles): New variable. |
| 12828 | (DEFAULT_STYLE, DEFAULT_FONT): New macros | 12828 | (DEFAULT_STYLE, DEFAULT_FONT): New macros. |
| 12829 | (xic_create_xfontset, best_style, xic_create_frame) | 12829 | (xic_create_xfontset, best_style, xic_create_frame) |
| 12830 | (xic_destroy_frame, xic_set_preeditarea, xic_set_statusarea) | 12830 | (xic_destroy_frame, xic_set_preeditarea, xic_set_statusarea) |
| 12831 | (xic_set_xfontset): New functions. | 12831 | (xic_set_xfontset): New functions. |
| @@ -13156,7 +13156,7 @@ | |||
| 13156 | (GC_STRING_BYTES, GC_STRING_CHARS): New macros. | 13156 | (GC_STRING_BYTES, GC_STRING_CHARS): New macros. |
| 13157 | (DONT_COPY_FLAG): Removed. | 13157 | (DONT_COPY_FLAG): Removed. |
| 13158 | (SBLOCK_SIZE, LARGE_STRING_BYTES): New macros. | 13158 | (SBLOCK_SIZE, LARGE_STRING_BYTES): New macros. |
| 13159 | (struct sdata, struct sblock): New | 13159 | (struct sdata, struct sblock): New. |
| 13160 | (struct string_block): Rewritten. | 13160 | (struct string_block): Rewritten. |
| 13161 | (STRINGS_IN_STRING_BLOCK): New macro. | 13161 | (STRINGS_IN_STRING_BLOCK): New macro. |
| 13162 | (oldest_sblock, current_sblock, total_strings, total_free_strings) | 13162 | (oldest_sblock, current_sblock, total_strings, total_free_strings) |
diff --git a/src/alloc.c b/src/alloc.c index 2ce74f97ff7..2ddec3dbe48 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -2538,16 +2538,6 @@ init_float (void) | |||
| 2538 | } | 2538 | } |
| 2539 | 2539 | ||
| 2540 | 2540 | ||
| 2541 | /* Explicitly free a float cell by putting it on the free-list. */ | ||
| 2542 | |||
| 2543 | static void | ||
| 2544 | free_float (struct Lisp_Float *ptr) | ||
| 2545 | { | ||
| 2546 | ptr->u.chain = float_free_list; | ||
| 2547 | float_free_list = ptr; | ||
| 2548 | } | ||
| 2549 | |||
| 2550 | |||
| 2551 | /* Return a new float object with value FLOAT_VALUE. */ | 2541 | /* Return a new float object with value FLOAT_VALUE. */ |
| 2552 | 2542 | ||
| 2553 | Lisp_Object | 2543 | Lisp_Object |
diff --git a/src/callproc.c b/src/callproc.c index 4286ab1ae29..7019d741b34 100644 --- a/src/callproc.c +++ b/src/callproc.c | |||
| @@ -984,7 +984,9 @@ usage: (call-process-region START END PROGRAM &optional DELETE BUFFER DISPLAY &r | |||
| 984 | RETURN_UNGCPRO (unbind_to (count, Fcall_process (nargs, args))); | 984 | RETURN_UNGCPRO (unbind_to (count, Fcall_process (nargs, args))); |
| 985 | } | 985 | } |
| 986 | 986 | ||
| 987 | #ifndef WINDOWSNT | ||
| 987 | static int relocate_fd (int fd, int minfd); | 988 | static int relocate_fd (int fd, int minfd); |
| 989 | #endif | ||
| 988 | 990 | ||
| 989 | static char ** | 991 | static char ** |
| 990 | add_env (char **env, char **new_env, char *string) | 992 | add_env (char **env, char **new_env, char *string) |
| @@ -1113,7 +1115,7 @@ child_setup (int in, int out, int err, register char **new_argv, int set_pgrp, L | |||
| 1113 | char **p, **q; | 1115 | char **p, **q; |
| 1114 | register int new_length; | 1116 | register int new_length; |
| 1115 | Lisp_Object display = Qnil; | 1117 | Lisp_Object display = Qnil; |
| 1116 | 1118 | ||
| 1117 | new_length = 0; | 1119 | new_length = 0; |
| 1118 | 1120 | ||
| 1119 | for (tem = Vprocess_environment; | 1121 | for (tem = Vprocess_environment; |
| @@ -1149,7 +1151,7 @@ child_setup (int in, int out, int err, register char **new_argv, int set_pgrp, L | |||
| 1149 | but with corrected value. */ | 1151 | but with corrected value. */ |
| 1150 | if (egetenv ("PWD")) | 1152 | if (egetenv ("PWD")) |
| 1151 | *new_env++ = pwd_var; | 1153 | *new_env++ = pwd_var; |
| 1152 | 1154 | ||
| 1153 | if (STRINGP (display)) | 1155 | if (STRINGP (display)) |
| 1154 | { | 1156 | { |
| 1155 | int vlen = strlen ("DISPLAY=") + strlen (SDATA (display)) + 1; | 1157 | int vlen = strlen ("DISPLAY=") + strlen (SDATA (display)) + 1; |
| @@ -1179,7 +1181,7 @@ child_setup (int in, int out, int err, register char **new_argv, int set_pgrp, L | |||
| 1179 | } | 1181 | } |
| 1180 | } | 1182 | } |
| 1181 | 1183 | ||
| 1182 | 1184 | ||
| 1183 | #ifdef WINDOWSNT | 1185 | #ifdef WINDOWSNT |
| 1184 | prepare_standard_handles (in, out, err, handles); | 1186 | prepare_standard_handles (in, out, err, handles); |
| 1185 | set_process_dir (SDATA (current_dir)); | 1187 | set_process_dir (SDATA (current_dir)); |
| @@ -1265,6 +1267,7 @@ child_setup (int in, int out, int err, register char **new_argv, int set_pgrp, L | |||
| 1265 | #endif /* not MSDOS */ | 1267 | #endif /* not MSDOS */ |
| 1266 | } | 1268 | } |
| 1267 | 1269 | ||
| 1270 | #ifndef WINDOWSNT | ||
| 1268 | /* Move the file descriptor FD so that its number is not less than MINFD. | 1271 | /* Move the file descriptor FD so that its number is not less than MINFD. |
| 1269 | If the file descriptor is moved at all, the original is freed. */ | 1272 | If the file descriptor is moved at all, the original is freed. */ |
| 1270 | static int | 1273 | static int |
| @@ -1298,6 +1301,7 @@ relocate_fd (int fd, int minfd) | |||
| 1298 | return new; | 1301 | return new; |
| 1299 | } | 1302 | } |
| 1300 | } | 1303 | } |
| 1304 | #endif /* not WINDOWSNT */ | ||
| 1301 | 1305 | ||
| 1302 | static int | 1306 | static int |
| 1303 | getenv_internal_1 (const char *var, int varlen, char **value, int *valuelen, | 1307 | getenv_internal_1 (const char *var, int varlen, char **value, int *valuelen, |
| @@ -1526,13 +1530,12 @@ void | |||
| 1526 | set_initial_environment (void) | 1530 | set_initial_environment (void) |
| 1527 | { | 1531 | { |
| 1528 | register char **envp; | 1532 | register char **envp; |
| 1529 | #ifndef CANNOT_DUMP | 1533 | #ifdef CANNOT_DUMP |
| 1530 | if (initialized) | 1534 | Vprocess_environment = Qnil; |
| 1531 | { | ||
| 1532 | #else | 1535 | #else |
| 1533 | { | 1536 | if (initialized) |
| 1534 | Vprocess_environment = Qnil; | ||
| 1535 | #endif | 1537 | #endif |
| 1538 | { | ||
| 1536 | for (envp = environ; *envp; envp++) | 1539 | for (envp = environ; *envp; envp++) |
| 1537 | Vprocess_environment = Fcons (build_string (*envp), | 1540 | Vprocess_environment = Fcons (build_string (*envp), |
| 1538 | Vprocess_environment); | 1541 | Vprocess_environment); |
diff --git a/src/cmds.c b/src/cmds.c index 81f975a9885..2b686a44d87 100644 --- a/src/cmds.c +++ b/src/cmds.c | |||
| @@ -45,6 +45,8 @@ Lisp_Object Vself_insert_face_command; | |||
| 45 | 45 | ||
| 46 | extern Lisp_Object Qface; | 46 | extern Lisp_Object Qface; |
| 47 | extern Lisp_Object Vtranslation_table_for_input; | 47 | extern Lisp_Object Vtranslation_table_for_input; |
| 48 | |||
| 49 | static int internal_self_insert (int, int); | ||
| 48 | 50 | ||
| 49 | DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0, | 51 | DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0, |
| 50 | doc: /* Return buffer position N characters after (before if N negative) point. */) | 52 | doc: /* Return buffer position N characters after (before if N negative) point. */) |
| @@ -347,7 +349,7 @@ After insertion, the value of `auto-fill-function' is called if the | |||
| 347 | 349 | ||
| 348 | static Lisp_Object Qexpand_abbrev; | 350 | static Lisp_Object Qexpand_abbrev; |
| 349 | 351 | ||
| 350 | int | 352 | static int |
| 351 | internal_self_insert (int c, int noautofill) | 353 | internal_self_insert (int c, int noautofill) |
| 352 | { | 354 | { |
| 353 | int hairy = 0; | 355 | int hairy = 0; |
diff --git a/src/config.in b/src/config.in index 40b62633446..647c8804dff 100644 --- a/src/config.in +++ b/src/config.in | |||
| @@ -801,6 +801,9 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 801 | /* Define to 1 if you want to use the X window system. */ | 801 | /* Define to 1 if you want to use the X window system. */ |
| 802 | #undef HAVE_X_WINDOWS | 802 | #undef HAVE_X_WINDOWS |
| 803 | 803 | ||
| 804 | /* Define to 1 if you have the `__executable_start' function. */ | ||
| 805 | #undef HAVE___EXECUTABLE_START | ||
| 806 | |||
| 804 | /* Define to 1 if you have the `__fpending' function. */ | 807 | /* Define to 1 if you have the `__fpending' function. */ |
| 805 | #undef HAVE___FPENDING | 808 | #undef HAVE___FPENDING |
| 806 | 809 | ||
diff --git a/src/dired.c b/src/dired.c index cdb4545e81c..8f360e8879f 100644 --- a/src/dired.c +++ b/src/dired.c | |||
| @@ -66,8 +66,8 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 66 | #ifndef MSDOS | 66 | #ifndef MSDOS |
| 67 | #define DIRENTRY struct direct | 67 | #define DIRENTRY struct direct |
| 68 | 68 | ||
| 69 | extern DIR *opendir (); | 69 | extern DIR *opendir (char *); |
| 70 | extern struct direct *readdir (); | 70 | extern struct direct *readdir (DIR *); |
| 71 | 71 | ||
| 72 | #endif /* not MSDOS */ | 72 | #endif /* not MSDOS */ |
| 73 | #endif /* not SYSV_SYSTEM_DIR */ | 73 | #endif /* not SYSV_SYSTEM_DIR */ |
diff --git a/src/dispnew.c b/src/dispnew.c index fe64143ec07..73aafe07d94 100644 --- a/src/dispnew.c +++ b/src/dispnew.c | |||
| @@ -436,7 +436,7 @@ DEFUN ("dump-redisplay-history", Fdump_redisplay_history, | |||
| 436 | #endif /* GLYPH_DEBUG == 0 */ | 436 | #endif /* GLYPH_DEBUG == 0 */ |
| 437 | 437 | ||
| 438 | 438 | ||
| 439 | #ifdef PROFILING | 439 | #if defined PROFILING && !HAVE___EXECUTABLE_START |
| 440 | /* FIXME: only used to find text start for profiling. */ | 440 | /* FIXME: only used to find text start for profiling. */ |
| 441 | 441 | ||
| 442 | void | 442 | void |
diff --git a/src/ecrt0.c b/src/ecrt0.c deleted file mode 100644 index 458771319c7..00000000000 --- a/src/ecrt0.c +++ /dev/null | |||
| @@ -1,95 +0,0 @@ | |||
| 1 | /* C code startup routine. | ||
| 2 | Copyright (C) 1985, 1986, 1992, 2001, 2002, 2003, 2004, | ||
| 3 | 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. | ||
| 4 | |||
| 5 | This file is part of GNU Emacs. | ||
| 6 | |||
| 7 | GNU Emacs is free software: you can redistribute it and/or modify | ||
| 8 | it under the terms of the GNU General Public License as published by | ||
| 9 | the Free Software Foundation, either version 3 of the License, or | ||
| 10 | (at your option) any later version. | ||
| 11 | |||
| 12 | GNU Emacs is distributed in the hope that it will be useful, | ||
| 13 | but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 14 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 15 | GNU General Public License for more details. | ||
| 16 | |||
| 17 | You should have received a copy of the GNU General Public License | ||
| 18 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | ||
| 19 | |||
| 20 | |||
| 21 | /* The standard Vax 4.2 Unix crt0.c cannot be used for Emacs | ||
| 22 | because it makes `environ' an initialized variable. | ||
| 23 | It is easiest to have a special crt0.c on all machines | ||
| 24 | though I don't know whether other machines actually need it. */ | ||
| 25 | |||
| 26 | /* On the vax and 68000, in BSD4.2 and USG5.2, | ||
| 27 | this is the data format on startup: | ||
| 28 | (vax) ap and fp are unpredictable as far as I know; don't use them. | ||
| 29 | sp -> word containing argc | ||
| 30 | word pointing to first arg string | ||
| 31 | [word pointing to next arg string]... 0 or more times | ||
| 32 | 0 | ||
| 33 | Optionally: | ||
| 34 | [word pointing to environment variable]... 1 or more times | ||
| 35 | ... | ||
| 36 | 0 | ||
| 37 | And always: | ||
| 38 | first arg string | ||
| 39 | [next arg string]... 0 or more times | ||
| 40 | */ | ||
| 41 | |||
| 42 | #ifdef emacs | ||
| 43 | #include <config.h> | ||
| 44 | #endif | ||
| 45 | |||
| 46 | /* ******** WARNING ******** | ||
| 47 | Do not insert any data definitions before data_start! | ||
| 48 | Since this is the first file linked, the address of the following | ||
| 49 | variable should correspond to the start of initialized data space. | ||
| 50 | On some systems this is a constant that is independent of the text | ||
| 51 | size for shared executables. On others, it is a function of the | ||
| 52 | text size. In short, this seems to be the most portable way to | ||
| 53 | discover the start of initialized data space dynamically at runtime, | ||
| 54 | for either shared or unshared executables, on either swapping or | ||
| 55 | virtual systems. It only requires that the linker allocate objects | ||
| 56 | in the order encountered, a reasonable model for most Unix systems. | ||
| 57 | Similarly, note that the address of _start() should be the start | ||
| 58 | of text space. Fred Fish, UniSoft Systems Inc. */ | ||
| 59 | |||
| 60 | int data_start = 0; | ||
| 61 | |||
| 62 | char **environ; | ||
| 63 | |||
| 64 | static start1 (); | ||
| 65 | |||
| 66 | /* Define symbol "start": here; some systems want that symbol. */ | ||
| 67 | asm(" .text "); | ||
| 68 | asm(" .globl start "); | ||
| 69 | asm(" start: "); | ||
| 70 | |||
| 71 | _start () | ||
| 72 | { | ||
| 73 | /* On vax, nothing is pushed here */ | ||
| 74 | start1 (); | ||
| 75 | } | ||
| 76 | |||
| 77 | static | ||
| 78 | start1 (bogus_fp, argc, xargv) | ||
| 79 | int argc; | ||
| 80 | char *xargv; | ||
| 81 | { | ||
| 82 | register char **argv = &xargv; | ||
| 83 | environ = argv + argc + 1; | ||
| 84 | |||
| 85 | if ((char *)environ == xargv) | ||
| 86 | environ--; | ||
| 87 | exit (main (argc, argv, environ)); | ||
| 88 | |||
| 89 | /* Refer to `start1' so GCC will not think it is never called | ||
| 90 | and optimize it out. */ | ||
| 91 | (void) &start1; | ||
| 92 | } | ||
| 93 | |||
| 94 | /* arch-tag: 4025c2fb-d6b1-4d29-b1b6-8100b6bd1e74 | ||
| 95 | (do not change this comment) */ | ||
diff --git a/src/editfns.c b/src/editfns.c index 805dba60446..96ae1766e04 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -90,7 +90,7 @@ extern size_t emacs_strftimeu (char *, size_t, const char *, | |||
| 90 | const struct tm *, int); | 90 | const struct tm *, int); |
| 91 | 91 | ||
| 92 | #ifdef WINDOWSNT | 92 | #ifdef WINDOWSNT |
| 93 | extern Lisp_Object w32_get_internal_run_time (); | 93 | extern Lisp_Object w32_get_internal_run_time (void); |
| 94 | #endif | 94 | #endif |
| 95 | 95 | ||
| 96 | static int tm_diff (struct tm *, struct tm *); | 96 | static int tm_diff (struct tm *, struct tm *); |
diff --git a/src/emacs.c b/src/emacs.c index fbae7763877..a5d57116c4f 100644 --- a/src/emacs.c +++ b/src/emacs.c | |||
| @@ -1747,9 +1747,18 @@ main (int argc, char **argv) | |||
| 1747 | #else | 1747 | #else |
| 1748 | extern char etext; | 1748 | extern char etext; |
| 1749 | #endif | 1749 | #endif |
| 1750 | #ifdef HAVE___EXECUTABLE_START | ||
| 1751 | /* This symbol is defined by GNU ld to the start of the text | ||
| 1752 | segment. */ | ||
| 1753 | extern char __executable_start[]; | ||
| 1754 | #else | ||
| 1750 | extern void safe_bcopy (); | 1755 | extern void safe_bcopy (); |
| 1756 | #endif | ||
| 1751 | 1757 | ||
| 1752 | atexit (_mcleanup); | 1758 | atexit (_mcleanup); |
| 1759 | #ifdef HAVE___EXECUTABLE_START | ||
| 1760 | monstartup (__executable_start, &etext); | ||
| 1761 | #else | ||
| 1753 | /* This uses safe_bcopy because that function comes first in the | 1762 | /* This uses safe_bcopy because that function comes first in the |
| 1754 | Emacs executable. It might be better to use something that | 1763 | Emacs executable. It might be better to use something that |
| 1755 | gives the start of the text segment, but start_of_text is not | 1764 | gives the start of the text segment, but start_of_text is not |
| @@ -1757,6 +1766,7 @@ main (int argc, char **argv) | |||
| 1757 | /* FIXME: Does not work on architectures with function | 1766 | /* FIXME: Does not work on architectures with function |
| 1758 | descriptors. */ | 1767 | descriptors. */ |
| 1759 | monstartup (safe_bcopy, &etext); | 1768 | monstartup (safe_bcopy, &etext); |
| 1769 | #endif | ||
| 1760 | } | 1770 | } |
| 1761 | else | 1771 | else |
| 1762 | moncontrol (0); | 1772 | moncontrol (0); |
diff --git a/src/font.c b/src/font.c index ed4da9c75ac..c35716c7c67 100644 --- a/src/font.c +++ b/src/font.c | |||
| @@ -980,39 +980,6 @@ font_expand_wildcards (Lisp_Object *field, int n) | |||
| 980 | } | 980 | } |
| 981 | 981 | ||
| 982 | 982 | ||
| 983 | #ifdef ENABLE_CHECKING | ||
| 984 | /* Match a 14-field XLFD pattern against a full XLFD font name. */ | ||
| 985 | static int | ||
| 986 | font_match_xlfd (char *pattern, char *name) | ||
| 987 | { | ||
| 988 | while (*pattern && *name) | ||
| 989 | { | ||
| 990 | if (*pattern == *name) | ||
| 991 | pattern++; | ||
| 992 | else if (*pattern == '*') | ||
| 993 | if (*name == pattern[1]) | ||
| 994 | pattern += 2; | ||
| 995 | else | ||
| 996 | ; | ||
| 997 | else | ||
| 998 | return 0; | ||
| 999 | name++; | ||
| 1000 | } | ||
| 1001 | return 1; | ||
| 1002 | } | ||
| 1003 | |||
| 1004 | /* Make sure the font object matches the XLFD font name. */ | ||
| 1005 | static int | ||
| 1006 | font_check_xlfd_parse (Lisp_Object font, char *name) | ||
| 1007 | { | ||
| 1008 | char name_check[256]; | ||
| 1009 | font_unparse_xlfd (font, 0, name_check, 255); | ||
| 1010 | return font_match_xlfd (name_check, name); | ||
| 1011 | } | ||
| 1012 | |||
| 1013 | #endif | ||
| 1014 | |||
| 1015 | |||
| 1016 | /* Parse NAME (null terminated) as XLFD and store information in FONT | 983 | /* Parse NAME (null terminated) as XLFD and store information in FONT |
| 1017 | (font-spec or font-entity). Size property of FONT is set as | 984 | (font-spec or font-entity). Size property of FONT is set as |
| 1018 | follows: | 985 | follows: |
diff --git a/src/frame.c b/src/frame.c index 69a640cdc96..0cd7377ece1 100644 --- a/src/frame.c +++ b/src/frame.c | |||
| @@ -1280,14 +1280,6 @@ other_visible_frames (FRAME_PTR f) | |||
| 1280 | return 1; | 1280 | return 1; |
| 1281 | } | 1281 | } |
| 1282 | 1282 | ||
| 1283 | /* Error handler for `delete-frame-functions'. */ | ||
| 1284 | static Lisp_Object | ||
| 1285 | delete_frame_handler (Lisp_Object arg) | ||
| 1286 | { | ||
| 1287 | add_to_log ("Error during `delete-frame': %s", arg, Qnil); | ||
| 1288 | return Qnil; | ||
| 1289 | } | ||
| 1290 | |||
| 1291 | extern Lisp_Object Qrun_hook_with_args; | 1283 | extern Lisp_Object Qrun_hook_with_args; |
| 1292 | 1284 | ||
| 1293 | /* Delete FRAME. When FORCE equals Qnoelisp, delete FRAME | 1285 | /* Delete FRAME. When FORCE equals Qnoelisp, delete FRAME |
| @@ -1299,7 +1291,7 @@ delete_frame (Lisp_Object frame, Lisp_Object force) | |||
| 1299 | /* If we use `register' here, gcc-4.0.2 on amd64 using | 1291 | /* If we use `register' here, gcc-4.0.2 on amd64 using |
| 1300 | -DUSE_LISP_UNION_TYPE complains further down that we're getting the | 1292 | -DUSE_LISP_UNION_TYPE complains further down that we're getting the |
| 1301 | address of `force'. Go figure. */ | 1293 | address of `force'. Go figure. */ |
| 1302 | 1294 | ||
| 1303 | { | 1295 | { |
| 1304 | struct frame *f; | 1296 | struct frame *f; |
| 1305 | struct frame *sf = SELECTED_FRAME (); | 1297 | struct frame *sf = SELECTED_FRAME (); |
diff --git a/src/keyboard.c b/src/keyboard.c index c2f010cf4e7..1cc24f95bdc 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -635,7 +635,9 @@ static Lisp_Object apply_modifiers (int, Lisp_Object); | |||
| 635 | static void clear_event (struct input_event *); | 635 | static void clear_event (struct input_event *); |
| 636 | static Lisp_Object restore_kboard_configuration (Lisp_Object); | 636 | static Lisp_Object restore_kboard_configuration (Lisp_Object); |
| 637 | static SIGTYPE interrupt_signal (int signalnum); | 637 | static SIGTYPE interrupt_signal (int signalnum); |
| 638 | #ifdef SIGIO | ||
| 638 | static SIGTYPE input_available_signal (int signo); | 639 | static SIGTYPE input_available_signal (int signo); |
| 640 | #endif | ||
| 639 | static void handle_interrupt (void); | 641 | static void handle_interrupt (void); |
| 640 | static void timer_start_idle (void); | 642 | static void timer_start_idle (void); |
| 641 | static void timer_stop_idle (void); | 643 | static void timer_stop_idle (void); |
| @@ -3895,7 +3897,7 @@ kbd_buffer_get_event (KBOARD **kbp, | |||
| 3895 | { | 3897 | { |
| 3896 | register int c; | 3898 | register int c; |
| 3897 | Lisp_Object obj; | 3899 | Lisp_Object obj; |
| 3898 | 3900 | ||
| 3899 | if (kbd_on_hold_p () && kbd_buffer_nr_stored () < KBD_BUFFER_SIZE/4) | 3901 | if (kbd_on_hold_p () && kbd_buffer_nr_stored () < KBD_BUFFER_SIZE/4) |
| 3900 | { | 3902 | { |
| 3901 | /* Start reading input again, we have processed enough so we can | 3903 | /* Start reading input again, we have processed enough so we can |
diff --git a/src/lisp.h b/src/lisp.h index d1a14fcd894..6b5de400c06 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -2393,7 +2393,6 @@ extern void swap_in_global_binding (struct Lisp_Symbol *); | |||
| 2393 | EXFUN (Fend_of_line, 1); | 2393 | EXFUN (Fend_of_line, 1); |
| 2394 | EXFUN (Fforward_char, 1); | 2394 | EXFUN (Fforward_char, 1); |
| 2395 | EXFUN (Fforward_line, 1); | 2395 | EXFUN (Fforward_line, 1); |
| 2396 | extern int internal_self_insert (int, int); | ||
| 2397 | extern void syms_of_cmds (void); | 2396 | extern void syms_of_cmds (void); |
| 2398 | extern void keys_of_cmds (void); | 2397 | extern void keys_of_cmds (void); |
| 2399 | 2398 | ||
| @@ -3400,16 +3399,16 @@ extern int emacs_close (int); | |||
| 3400 | extern int emacs_read (int, char *, unsigned int); | 3399 | extern int emacs_read (int, char *, unsigned int); |
| 3401 | extern int emacs_write (int, const char *, unsigned int); | 3400 | extern int emacs_write (int, const char *, unsigned int); |
| 3402 | #ifndef HAVE_MEMSET | 3401 | #ifndef HAVE_MEMSET |
| 3403 | extern void *memset P_ ((void *, int, size_t)); | 3402 | extern void *memset (void *, int, size_t); |
| 3404 | #endif | 3403 | #endif |
| 3405 | #ifndef HAVE_MEMCPY | 3404 | #ifndef HAVE_MEMCPY |
| 3406 | extern void *memcpy P_ ((void *, void *, size_t)); | 3405 | extern void *memcpy (void *, void *, size_t); |
| 3407 | #endif | 3406 | #endif |
| 3408 | #ifndef HAVE_MEMMOVE | 3407 | #ifndef HAVE_MEMMOVE |
| 3409 | extern void *memmove P_ ((void *, void *, size_t)); | 3408 | extern void *memmove (void *, void *, size_t); |
| 3410 | #endif | 3409 | #endif |
| 3411 | #ifndef HAVE_MEMCMP | 3410 | #ifndef HAVE_MEMCMP |
| 3412 | extern int memcmp P_ ((void *, void *, size_t)); | 3411 | extern int memcmp (void *, void *, size_t); |
| 3413 | #endif | 3412 | #endif |
| 3414 | 3413 | ||
| 3415 | /* Defined in filelock.c */ | 3414 | /* Defined in filelock.c */ |
diff --git a/src/lread.c b/src/lread.c index 96108ec4a72..b29971a5f88 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1276,7 +1276,6 @@ Return t if the file exists and loads successfully. */) | |||
| 1276 | 1276 | ||
| 1277 | static Lisp_Object | 1277 | static Lisp_Object |
| 1278 | load_unwind (Lisp_Object arg) /* used as unwind-protect function in load */ | 1278 | load_unwind (Lisp_Object arg) /* used as unwind-protect function in load */ |
| 1279 | |||
| 1280 | { | 1279 | { |
| 1281 | FILE *stream = (FILE *) XSAVE_VALUE (arg)->pointer; | 1280 | FILE *stream = (FILE *) XSAVE_VALUE (arg)->pointer; |
| 1282 | if (stream != NULL) | 1281 | if (stream != NULL) |
| @@ -1567,9 +1566,8 @@ build_load_history (Lisp_Object filename, int entire) | |||
| 1567 | Vload_history); | 1566 | Vload_history); |
| 1568 | } | 1567 | } |
| 1569 | 1568 | ||
| 1570 | Lisp_Object | 1569 | static Lisp_Object |
| 1571 | unreadpure (Lisp_Object junk) /* Used as unwind-protect function in readevalloop */ | 1570 | unreadpure (Lisp_Object junk) /* Used as unwind-protect function in readevalloop */ |
| 1572 | |||
| 1573 | { | 1571 | { |
| 1574 | read_pure = 0; | 1572 | read_pure = 0; |
| 1575 | return Qnil; | 1573 | return Qnil; |
| @@ -3818,7 +3816,7 @@ map_obarray (Lisp_Object obarray, void (*fn) (Lisp_Object, Lisp_Object), Lisp_Ob | |||
| 3818 | } | 3816 | } |
| 3819 | } | 3817 | } |
| 3820 | 3818 | ||
| 3821 | void | 3819 | static void |
| 3822 | mapatoms_1 (Lisp_Object sym, Lisp_Object function) | 3820 | mapatoms_1 (Lisp_Object sym, Lisp_Object function) |
| 3823 | { | 3821 | { |
| 3824 | call1 (function, sym); | 3822 | call1 (function, sym); |
diff --git a/src/mem-limits.h b/src/mem-limits.h index a550e1464b8..8827c458c02 100644 --- a/src/mem-limits.h +++ b/src/mem-limits.h | |||
| @@ -34,10 +34,6 @@ extern int etext; | |||
| 34 | # endif | 34 | # endif |
| 35 | #endif | 35 | #endif |
| 36 | 36 | ||
| 37 | #ifdef CYGWIN | ||
| 38 | #define BSD4_2 | ||
| 39 | #endif | ||
| 40 | |||
| 41 | #ifdef BSD4_2 | 37 | #ifdef BSD4_2 |
| 42 | #include <sys/time.h> | 38 | #include <sys/time.h> |
| 43 | #include <sys/resource.h> | 39 | #include <sys/resource.h> |
diff --git a/src/menu.c b/src/menu.c index a424200fb3e..321dc2677a1 100644 --- a/src/menu.c +++ b/src/menu.c | |||
| @@ -133,12 +133,14 @@ discard_menu_items (void) | |||
| 133 | xassert (NILP (menu_items_inuse)); | 133 | xassert (NILP (menu_items_inuse)); |
| 134 | } | 134 | } |
| 135 | 135 | ||
| 136 | #ifdef HAVE_NS | ||
| 136 | static Lisp_Object | 137 | static Lisp_Object |
| 137 | cleanup_popup_menu (Lisp_Object arg) | 138 | cleanup_popup_menu (Lisp_Object arg) |
| 138 | { | 139 | { |
| 139 | discard_menu_items (); | 140 | discard_menu_items (); |
| 140 | return Qnil; | 141 | return Qnil; |
| 141 | } | 142 | } |
| 143 | #endif | ||
| 142 | 144 | ||
| 143 | /* This undoes save_menu_items, and it is called by the specpdl unwind | 145 | /* This undoes save_menu_items, and it is called by the specpdl unwind |
| 144 | mechanism. */ | 146 | mechanism. */ |
diff --git a/src/ndir.h b/src/ndir.h index d7bac9d3fae..92d198334b7 100644 --- a/src/ndir.h +++ b/src/ndir.h | |||
| @@ -32,11 +32,10 @@ typedef struct | |||
| 32 | char dd_buf[DIRBLKSIZ]; /* directory block */ | 32 | char dd_buf[DIRBLKSIZ]; /* directory block */ |
| 33 | } DIR; /* stream data from opendir() */ | 33 | } DIR; /* stream data from opendir() */ |
| 34 | 34 | ||
| 35 | extern DIR *opendir(); | 35 | extern DIR *opendir (char *); |
| 36 | extern struct direct *readdir(); | 36 | extern struct direct *readdir (DIR *); |
| 37 | extern long telldir(); | 37 | extern void seekdir (DIR *, long); |
| 38 | extern void seekdir(); | 38 | extern void closedir (DIR *); |
| 39 | extern void closedir(); | ||
| 40 | 39 | ||
| 41 | #define rewinddir( dirp ) seekdir( dirp, 0L ) | 40 | #define rewinddir( dirp ) seekdir( dirp, 0L ) |
| 42 | 41 | ||
diff --git a/src/ralloc.c b/src/ralloc.c index 0a2b156e393..5f2b52fcc4b 100644 --- a/src/ralloc.c +++ b/src/ralloc.c | |||
| @@ -79,7 +79,7 @@ static void r_alloc_init (void); | |||
| 79 | /* Declarations for working with the malloc, ralloc, and system breaks. */ | 79 | /* Declarations for working with the malloc, ralloc, and system breaks. */ |
| 80 | 80 | ||
| 81 | /* Function to set the real break value. */ | 81 | /* Function to set the real break value. */ |
| 82 | POINTER (*real_morecore) (); | 82 | POINTER (*real_morecore) (long int); |
| 83 | 83 | ||
| 84 | /* The break value, as seen by malloc. */ | 84 | /* The break value, as seen by malloc. */ |
| 85 | static POINTER virtual_break_value; | 85 | static POINTER virtual_break_value; |
| @@ -111,7 +111,7 @@ static int extra_bytes; | |||
| 111 | from the system. */ | 111 | from the system. */ |
| 112 | 112 | ||
| 113 | #ifndef SYSTEM_MALLOC | 113 | #ifndef SYSTEM_MALLOC |
| 114 | extern POINTER (*__morecore) (); | 114 | extern POINTER (*__morecore) (long int); |
| 115 | #endif | 115 | #endif |
| 116 | 116 | ||
| 117 | 117 | ||
| @@ -519,35 +519,6 @@ relocate_blocs (bloc_ptr bloc, heap_ptr heap, POINTER address) | |||
| 519 | 519 | ||
| 520 | return 1; | 520 | return 1; |
| 521 | } | 521 | } |
| 522 | |||
| 523 | /* Reorder the bloc BLOC to go before bloc BEFORE in the doubly linked list. | ||
| 524 | This is necessary if we put the memory of space of BLOC | ||
| 525 | before that of BEFORE. */ | ||
| 526 | |||
| 527 | static void | ||
| 528 | reorder_bloc (bloc_ptr bloc, bloc_ptr before) | ||
| 529 | { | ||
| 530 | bloc_ptr prev, next; | ||
| 531 | |||
| 532 | /* Splice BLOC out from where it is. */ | ||
| 533 | prev = bloc->prev; | ||
| 534 | next = bloc->next; | ||
| 535 | |||
| 536 | if (prev) | ||
| 537 | prev->next = next; | ||
| 538 | if (next) | ||
| 539 | next->prev = prev; | ||
| 540 | |||
| 541 | /* Splice it in before BEFORE. */ | ||
| 542 | prev = before->prev; | ||
| 543 | |||
| 544 | if (prev) | ||
| 545 | prev->next = bloc; | ||
| 546 | bloc->prev = prev; | ||
| 547 | |||
| 548 | before->prev = bloc; | ||
| 549 | bloc->next = before; | ||
| 550 | } | ||
| 551 | 522 | ||
| 552 | /* Update the records of which heaps contain which blocs, starting | 523 | /* Update the records of which heaps contain which blocs, starting |
| 553 | with heap HEAP and bloc BLOC. */ | 524 | with heap HEAP and bloc BLOC. */ |
diff --git a/src/sound.c b/src/sound.c index e0ebd565151..4e3d583ccf0 100644 --- a/src/sound.c +++ b/src/sound.c | |||
| @@ -115,7 +115,9 @@ enum sound_attr | |||
| 115 | SOUND_ATTR_SENTINEL | 115 | SOUND_ATTR_SENTINEL |
| 116 | }; | 116 | }; |
| 117 | 117 | ||
| 118 | #ifdef HAVE_ALSA | ||
| 118 | static void alsa_sound_perror (char *, int) NO_RETURN; | 119 | static void alsa_sound_perror (char *, int) NO_RETURN; |
| 120 | #endif | ||
| 119 | static void sound_perror (char *) NO_RETURN; | 121 | static void sound_perror (char *) NO_RETURN; |
| 120 | static void sound_warning (char *); | 122 | static void sound_warning (char *); |
| 121 | static int parse_sound (Lisp_Object, Lisp_Object *); | 123 | static int parse_sound (Lisp_Object, Lisp_Object *); |
diff --git a/src/syssignal.h b/src/syssignal.h index e3765add425..f034e9e0761 100644 --- a/src/syssignal.h +++ b/src/syssignal.h | |||
| @@ -160,7 +160,7 @@ sigset_t sys_sigsetmask (sigset_t new_mask); | |||
| 160 | 160 | ||
| 161 | #ifndef HAVE_STRSIGNAL | 161 | #ifndef HAVE_STRSIGNAL |
| 162 | /* strsignal is in sysdep.c */ | 162 | /* strsignal is in sysdep.c */ |
| 163 | char *strsignal (); | 163 | char *strsignal (int); |
| 164 | #endif | 164 | #endif |
| 165 | 165 | ||
| 166 | #ifdef FORWARD_SIGNAL_TO_MAIN_THREAD | 166 | #ifdef FORWARD_SIGNAL_TO_MAIN_THREAD |
diff --git a/src/term.c b/src/term.c index 3233db84cf7..25501370cdf 100644 --- a/src/term.c +++ b/src/term.c | |||
| @@ -183,7 +183,7 @@ static int no_controlling_tty; | |||
| 183 | 183 | ||
| 184 | static int system_uses_terminfo; | 184 | static int system_uses_terminfo; |
| 185 | 185 | ||
| 186 | char *tparam (); | 186 | char *tparam (char *, char *, int, int, ...); |
| 187 | 187 | ||
| 188 | extern char *tgetstr (char *, char **); | 188 | extern char *tgetstr (char *, char **); |
| 189 | 189 | ||
| @@ -1363,6 +1363,7 @@ static struct fkey_table keys[] = | |||
| 1363 | {"!3", "S-undo"} /*shifted undo key*/ | 1363 | {"!3", "S-undo"} /*shifted undo key*/ |
| 1364 | }; | 1364 | }; |
| 1365 | 1365 | ||
| 1366 | #ifndef DOS_NT | ||
| 1366 | static char **term_get_fkeys_address; | 1367 | static char **term_get_fkeys_address; |
| 1367 | static KBOARD *term_get_fkeys_kboard; | 1368 | static KBOARD *term_get_fkeys_kboard; |
| 1368 | static Lisp_Object term_get_fkeys_1 (void); | 1369 | static Lisp_Object term_get_fkeys_1 (void); |
| @@ -1500,6 +1501,7 @@ term_get_fkeys_1 (void) | |||
| 1500 | 1501 | ||
| 1501 | return Qnil; | 1502 | return Qnil; |
| 1502 | } | 1503 | } |
| 1504 | #endif /* not DOS_NT */ | ||
| 1503 | 1505 | ||
| 1504 | 1506 | ||
| 1505 | /*********************************************************************** | 1507 | /*********************************************************************** |
diff --git a/src/terminfo.c b/src/terminfo.c index 89d7426e8f4..50749492cfe 100644 --- a/src/terminfo.c +++ b/src/terminfo.c | |||
| @@ -35,10 +35,12 @@ char *UP, *BC, PC; | |||
| 35 | */ | 35 | */ |
| 36 | 36 | ||
| 37 | char * | 37 | char * |
| 38 | tparam (char *string, char *outstring, int len, int arg1, int arg2, int arg3, int arg4, int arg5, int arg6, int arg7, int arg8, int arg9) | 38 | tparam (char *string, char *outstring, |
| 39 | int len, int arg1, int arg2, int arg3, int arg4, | ||
| 40 | int arg5, int arg6, int arg7, int arg8, int arg9) | ||
| 39 | { | 41 | { |
| 40 | char *temp; | 42 | char *temp; |
| 41 | extern char *tparm(/* ??? */); | 43 | extern char *tparm (char *str, ...); |
| 42 | 44 | ||
| 43 | temp = tparm (string, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9); | 45 | temp = tparm (string, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9); |
| 44 | if (outstring == 0) | 46 | if (outstring == 0) |
diff --git a/src/unexalpha.c b/src/unexalpha.c deleted file mode 100644 index d0faa179931..00000000000 --- a/src/unexalpha.c +++ /dev/null | |||
| @@ -1,539 +0,0 @@ | |||
| 1 | /* Unexec for DEC alpha. | ||
| 2 | |||
| 3 | Copyright (C) 1994, 2000, 2001, 2002, 2003, 2004, | ||
| 4 | 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. | ||
| 5 | |||
| 6 | Author: Rainer Schoepf <schoepf@sc.ZIB-Berlin.DE> | ||
| 7 | |||
| 8 | This file is part of GNU Emacs. | ||
| 9 | |||
| 10 | GNU Emacs is free software: you can redistribute it and/or modify | ||
| 11 | it under the terms of the GNU General Public License as published by | ||
| 12 | the Free Software Foundation, either version 3 of the License, or | ||
| 13 | (at your option) any later version. | ||
| 14 | |||
| 15 | GNU Emacs is distributed in the hope that it will be useful, | ||
| 16 | but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 17 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 18 | GNU General Public License for more details. | ||
| 19 | |||
| 20 | You should have received a copy of the GNU General Public License | ||
| 21 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | ||
| 22 | |||
| 23 | |||
| 24 | #include <config.h> | ||
| 25 | #include <sys/types.h> | ||
| 26 | #include <sys/file.h> | ||
| 27 | #include <sys/stat.h> | ||
| 28 | #include <sys/mman.h> | ||
| 29 | #include <stdio.h> | ||
| 30 | #include <errno.h> | ||
| 31 | #include <string.h> | ||
| 32 | #if !defined (__NetBSD__) && !defined (__OpenBSD__) | ||
| 33 | #include <filehdr.h> | ||
| 34 | #include <aouthdr.h> | ||
| 35 | #include <scnhdr.h> | ||
| 36 | #include <syms.h> | ||
| 37 | #ifndef __linux__ | ||
| 38 | # include <reloc.h> | ||
| 39 | # include <elf_abi.h> | ||
| 40 | #endif | ||
| 41 | #else /* __NetBSD__ or __OpenBSD__ */ | ||
| 42 | /* | ||
| 43 | * NetBSD/Alpha does not have 'normal' user-land ECOFF support because | ||
| 44 | * there's no desire to support ECOFF as the executable format in the | ||
| 45 | * long term. | ||
| 46 | */ | ||
| 47 | #include <sys/exec_ecoff.h> | ||
| 48 | |||
| 49 | /* Structures, constants, etc., that NetBSD defines strangely. */ | ||
| 50 | #define filehdr ecoff_filehdr | ||
| 51 | #define aouthdr ecoff_aouthdr | ||
| 52 | #define scnhdr ecoff_scnhdr | ||
| 53 | #define HDRR struct ecoff_symhdr | ||
| 54 | #define pHDRR HDRR * | ||
| 55 | #define cbHDRR sizeof(HDRR) | ||
| 56 | #ifdef __OpenBSD__ | ||
| 57 | #define ALPHAMAGIC ECOFF_MAGIC_NATIVE_ALPHA | ||
| 58 | #else | ||
| 59 | #define ALPHAMAGIC ECOFF_MAGIC_NETBSD_ALPHA | ||
| 60 | #endif | ||
| 61 | #define ZMAGIC ECOFF_ZMAGIC | ||
| 62 | |||
| 63 | /* Misc. constants that NetBSD doesn't define at all. */ | ||
| 64 | #define ALPHAUMAGIC 0617 | ||
| 65 | #define _MIPS_NSCNS_MAX 35 | ||
| 66 | #define STYP_TEXT 0x00000020 | ||
| 67 | #define STYP_DATA 0x00000040 | ||
| 68 | #define STYP_BSS 0x00000080 | ||
| 69 | #define STYP_RDATA 0x00000100 | ||
| 70 | #define STYP_SDATA 0x00000200 | ||
| 71 | #define STYP_SBSS 0x00000400 | ||
| 72 | #define STYP_INIT 0x80000000 | ||
| 73 | #define _TEXT ".text" | ||
| 74 | #define _DATA ".data" | ||
| 75 | #define _BSS ".bss" | ||
| 76 | #define _INIT ".init" | ||
| 77 | #define _RDATA ".rdata" | ||
| 78 | #define _SDATA ".sdata" | ||
| 79 | #define _SBSS ".sbss" | ||
| 80 | #define TEXT_START 0x120000000 | ||
| 81 | #endif /* __NetBSD__ || __OpenBSD__ */ | ||
| 82 | |||
| 83 | |||
| 84 | static void fatal_unexec (char *, char *); | ||
| 85 | static void mark_x (char *); | ||
| 86 | |||
| 87 | static void update_dynamic_symbols (char *, char *, int, struct aouthdr); | ||
| 88 | |||
| 89 | #define READ(_fd, _buffer, _size, _error_message, _error_arg) \ | ||
| 90 | errno = EEOF; \ | ||
| 91 | if (read (_fd, _buffer, _size) != _size) \ | ||
| 92 | fatal_unexec (_error_message, _error_arg); | ||
| 93 | |||
| 94 | #define WRITE(_fd, _buffer, _size, _error_message, _error_arg) \ | ||
| 95 | if (write (_fd, _buffer, _size) != _size) \ | ||
| 96 | fatal_unexec (_error_message, _error_arg); | ||
| 97 | |||
| 98 | #define SEEK(_fd, _position, _error_message, _error_arg) \ | ||
| 99 | errno = EEOF; \ | ||
| 100 | if (lseek (_fd, _position, L_SET) != _position) \ | ||
| 101 | fatal_unexec (_error_message, _error_arg); | ||
| 102 | |||
| 103 | #ifdef HAVE_UNISTD_H | ||
| 104 | #include <unistd.h> | ||
| 105 | #else | ||
| 106 | void *sbrk (); | ||
| 107 | #endif | ||
| 108 | |||
| 109 | #define EEOF -1 | ||
| 110 | |||
| 111 | static struct scnhdr *text_section; | ||
| 112 | static struct scnhdr *rel_dyn_section; | ||
| 113 | static struct scnhdr *dynstr_section; | ||
| 114 | static struct scnhdr *dynsym_section; | ||
| 115 | static struct scnhdr *init_section; | ||
| 116 | static struct scnhdr *finit_section; | ||
| 117 | static struct scnhdr *rdata_section; | ||
| 118 | static struct scnhdr *rconst_section; | ||
| 119 | static struct scnhdr *data_section; | ||
| 120 | static struct scnhdr *pdata_section; | ||
| 121 | static struct scnhdr *xdata_section; | ||
| 122 | static struct scnhdr *got_section; | ||
| 123 | static struct scnhdr *lit8_section; | ||
| 124 | static struct scnhdr *lit4_section; | ||
| 125 | static struct scnhdr *sdata_section; | ||
| 126 | static struct scnhdr *sbss_section; | ||
| 127 | static struct scnhdr *bss_section; | ||
| 128 | |||
| 129 | static struct scnhdr old_data_scnhdr; | ||
| 130 | |||
| 131 | static unsigned long Brk; | ||
| 132 | |||
| 133 | struct headers { | ||
| 134 | struct filehdr fhdr; | ||
| 135 | struct aouthdr aout; | ||
| 136 | struct scnhdr section[_MIPS_NSCNS_MAX]; | ||
| 137 | }; | ||
| 138 | |||
| 139 | |||
| 140 | void | ||
| 141 | unexec (new_name, a_name, data_start, bss_start, entry_address) | ||
| 142 | char *new_name, *a_name; | ||
| 143 | unsigned long data_start, bss_start, entry_address; | ||
| 144 | { | ||
| 145 | int new, old; | ||
| 146 | char * oldptr; | ||
| 147 | struct headers ohdr, nhdr; | ||
| 148 | struct stat stat; | ||
| 149 | long pagesize, brk; | ||
| 150 | long newsyms, symrel; | ||
| 151 | int nread; | ||
| 152 | int i; | ||
| 153 | long vaddr, scnptr; | ||
| 154 | #define BUFSIZE 8192 | ||
| 155 | char buffer[BUFSIZE]; | ||
| 156 | |||
| 157 | if ((old = open (a_name, O_RDONLY)) < 0) | ||
| 158 | fatal_unexec ("opening %s", a_name); | ||
| 159 | |||
| 160 | new = creat (new_name, 0666); | ||
| 161 | if (new < 0) fatal_unexec ("creating %s", new_name); | ||
| 162 | |||
| 163 | if ((fstat (old, &stat) == -1)) | ||
| 164 | fatal_unexec ("fstat %s", a_name); | ||
| 165 | |||
| 166 | oldptr = (char *)mmap (0, stat.st_size, PROT_READ, MAP_FILE|MAP_SHARED, old, 0); | ||
| 167 | |||
| 168 | if (oldptr == (char *)-1) | ||
| 169 | fatal_unexec ("mmap %s", a_name); | ||
| 170 | |||
| 171 | close (old); | ||
| 172 | |||
| 173 | /* This is a copy of the a.out header of the original executable */ | ||
| 174 | |||
| 175 | ohdr = (*(struct headers *)oldptr); | ||
| 176 | |||
| 177 | /* This is where we build the new header from the in-memory copy */ | ||
| 178 | |||
| 179 | nhdr = *((struct headers *)TEXT_START); | ||
| 180 | |||
| 181 | /* First do some consistency checks */ | ||
| 182 | |||
| 183 | if (nhdr.fhdr.f_magic != ALPHAMAGIC | ||
| 184 | && nhdr.fhdr.f_magic != ALPHAUMAGIC) | ||
| 185 | { | ||
| 186 | fprintf (stderr, "unexec: input file magic number is %x, not %x or %x.\n", | ||
| 187 | nhdr.fhdr.f_magic, ALPHAMAGIC, ALPHAUMAGIC); | ||
| 188 | exit (1); | ||
| 189 | } | ||
| 190 | |||
| 191 | if (nhdr.fhdr.f_opthdr != sizeof (nhdr.aout)) | ||
| 192 | { | ||
| 193 | fprintf (stderr, "unexec: input a.out header is %d bytes, not %d.\n", | ||
| 194 | nhdr.fhdr.f_opthdr, (int)sizeof (nhdr.aout)); | ||
| 195 | exit (1); | ||
| 196 | } | ||
| 197 | if (nhdr.aout.magic != ZMAGIC) | ||
| 198 | { | ||
| 199 | fprintf (stderr, "unexec: input file a.out magic number is %o, not %o.\n", | ||
| 200 | nhdr.aout.magic, ZMAGIC); | ||
| 201 | exit (1); | ||
| 202 | } | ||
| 203 | |||
| 204 | |||
| 205 | /* Now check the existence of certain header section and grab | ||
| 206 | their addresses. */ | ||
| 207 | |||
| 208 | #define CHECK_SCNHDR(ptr, name, flags) \ | ||
| 209 | ptr = NULL; \ | ||
| 210 | for (i = 0; i < nhdr.fhdr.f_nscns && !ptr; i++) \ | ||
| 211 | if (strncmp (nhdr.section[i].s_name, name, 8) == 0) \ | ||
| 212 | { \ | ||
| 213 | if (nhdr.section[i].s_flags != flags) \ | ||
| 214 | fprintf (stderr, "unexec: %x flags (%x expected) in %s section.\n", \ | ||
| 215 | nhdr.section[i].s_flags, flags, name); \ | ||
| 216 | ptr = nhdr.section + i; \ | ||
| 217 | } \ | ||
| 218 | |||
| 219 | CHECK_SCNHDR (text_section, _TEXT, STYP_TEXT); | ||
| 220 | CHECK_SCNHDR (init_section, _INIT, STYP_INIT); | ||
| 221 | #ifdef _REL_DYN | ||
| 222 | CHECK_SCNHDR (rel_dyn_section, _REL_DYN, STYP_REL_DYN); | ||
| 223 | #endif /* _REL_DYN */ | ||
| 224 | #ifdef _DYNSYM | ||
| 225 | CHECK_SCNHDR (dynsym_section, _DYNSYM, STYP_DYNSYM); | ||
| 226 | #endif /* _REL_DYN */ | ||
| 227 | #ifdef _DYNSTR | ||
| 228 | CHECK_SCNHDR (dynstr_section, _DYNSTR, STYP_DYNSTR); | ||
| 229 | #endif /* _REL_DYN */ | ||
| 230 | #ifdef _FINI | ||
| 231 | CHECK_SCNHDR (finit_section, _FINI, STYP_FINI); | ||
| 232 | #endif /* _FINI */ | ||
| 233 | CHECK_SCNHDR (rdata_section, _RDATA, STYP_RDATA); | ||
| 234 | #ifdef _RCONST | ||
| 235 | CHECK_SCNHDR (rconst_section, _RCONST, STYP_RCONST); | ||
| 236 | #endif | ||
| 237 | #ifdef _PDATA | ||
| 238 | CHECK_SCNHDR (pdata_section, _PDATA, STYP_PDATA); | ||
| 239 | #endif /* _PDATA */ | ||
| 240 | #ifdef _GOT | ||
| 241 | CHECK_SCNHDR (got_section, _GOT, STYP_GOT); | ||
| 242 | #endif /* _GOT */ | ||
| 243 | CHECK_SCNHDR (data_section, _DATA, STYP_DATA); | ||
| 244 | #ifdef _XDATA | ||
| 245 | CHECK_SCNHDR (xdata_section, _XDATA, STYP_XDATA); | ||
| 246 | #endif /* _XDATA */ | ||
| 247 | #ifdef _LIT8 | ||
| 248 | CHECK_SCNHDR (lit8_section, _LIT8, STYP_LIT8); | ||
| 249 | CHECK_SCNHDR (lit4_section, _LIT4, STYP_LIT4); | ||
| 250 | #endif /* _LIT8 */ | ||
| 251 | CHECK_SCNHDR (sdata_section, _SDATA, STYP_SDATA); | ||
| 252 | CHECK_SCNHDR (sbss_section, _SBSS, STYP_SBSS); | ||
| 253 | CHECK_SCNHDR (bss_section, _BSS, STYP_BSS); | ||
| 254 | |||
| 255 | |||
| 256 | pagesize = getpagesize (); | ||
| 257 | brk = (((long) (sbrk (0))) + pagesize - 1) & (-pagesize); | ||
| 258 | |||
| 259 | /* Remember the current break */ | ||
| 260 | |||
| 261 | Brk = brk; | ||
| 262 | |||
| 263 | memcpy (&old_data_scnhdr, data_section, sizeof (old_data_scnhdr)); | ||
| 264 | |||
| 265 | nhdr.aout.dsize = brk - DATA_START; | ||
| 266 | nhdr.aout.bsize = 0; | ||
| 267 | if (entry_address == 0) | ||
| 268 | { | ||
| 269 | extern __start (); | ||
| 270 | nhdr.aout.entry = (unsigned long)__start; | ||
| 271 | } | ||
| 272 | else | ||
| 273 | nhdr.aout.entry = entry_address; | ||
| 274 | |||
| 275 | nhdr.aout.bss_start = nhdr.aout.data_start + nhdr.aout.dsize; | ||
| 276 | |||
| 277 | if (rdata_section != NULL) | ||
| 278 | { | ||
| 279 | rdata_section->s_size = data_start - DATA_START; | ||
| 280 | |||
| 281 | /* Adjust start and virtual addresses of rdata_section, too. */ | ||
| 282 | rdata_section->s_vaddr = DATA_START; | ||
| 283 | rdata_section->s_paddr = DATA_START; | ||
| 284 | rdata_section->s_scnptr = text_section->s_scnptr + nhdr.aout.tsize; | ||
| 285 | } | ||
| 286 | |||
| 287 | data_section->s_vaddr = data_start; | ||
| 288 | data_section->s_paddr = data_start; | ||
| 289 | data_section->s_size = brk - data_start; | ||
| 290 | |||
| 291 | if (rdata_section != NULL) | ||
| 292 | { | ||
| 293 | data_section->s_scnptr = rdata_section->s_scnptr + rdata_section->s_size; | ||
| 294 | } | ||
| 295 | |||
| 296 | vaddr = data_section->s_vaddr + data_section->s_size; | ||
| 297 | scnptr = data_section->s_scnptr + data_section->s_size; | ||
| 298 | if (lit8_section != NULL) | ||
| 299 | { | ||
| 300 | lit8_section->s_vaddr = vaddr; | ||
| 301 | lit8_section->s_paddr = vaddr; | ||
| 302 | lit8_section->s_size = 0; | ||
| 303 | lit8_section->s_scnptr = scnptr; | ||
| 304 | } | ||
| 305 | if (lit4_section != NULL) | ||
| 306 | { | ||
| 307 | lit4_section->s_vaddr = vaddr; | ||
| 308 | lit4_section->s_paddr = vaddr; | ||
| 309 | lit4_section->s_size = 0; | ||
| 310 | lit4_section->s_scnptr = scnptr; | ||
| 311 | } | ||
| 312 | if (sdata_section != NULL) | ||
| 313 | { | ||
| 314 | sdata_section->s_vaddr = vaddr; | ||
| 315 | sdata_section->s_paddr = vaddr; | ||
| 316 | sdata_section->s_size = 0; | ||
| 317 | sdata_section->s_scnptr = scnptr; | ||
| 318 | } | ||
| 319 | #ifdef _XDATA | ||
| 320 | if (xdata_section != NULL) | ||
| 321 | { | ||
| 322 | xdata_section->s_vaddr = vaddr; | ||
| 323 | xdata_section->s_paddr = vaddr; | ||
| 324 | xdata_section->s_size = 0; | ||
| 325 | xdata_section->s_scnptr = scnptr; | ||
| 326 | } | ||
| 327 | #endif | ||
| 328 | #ifdef _GOT | ||
| 329 | if (got_section != NULL) | ||
| 330 | { | ||
| 331 | memcpy (buffer, got_section, sizeof (struct scnhdr)); | ||
| 332 | |||
| 333 | got_section->s_vaddr = vaddr; | ||
| 334 | got_section->s_paddr = vaddr; | ||
| 335 | got_section->s_size = 0; | ||
| 336 | got_section->s_scnptr = scnptr; | ||
| 337 | } | ||
| 338 | #endif /*_GOT */ | ||
| 339 | if (sbss_section != NULL) | ||
| 340 | { | ||
| 341 | sbss_section->s_vaddr = vaddr; | ||
| 342 | sbss_section->s_paddr = vaddr; | ||
| 343 | sbss_section->s_size = 0; | ||
| 344 | sbss_section->s_scnptr = scnptr; | ||
| 345 | } | ||
| 346 | if (bss_section != NULL) | ||
| 347 | { | ||
| 348 | bss_section->s_vaddr = vaddr; | ||
| 349 | bss_section->s_paddr = vaddr; | ||
| 350 | bss_section->s_size = 0; | ||
| 351 | bss_section->s_scnptr = scnptr; | ||
| 352 | } | ||
| 353 | |||
| 354 | WRITE (new, (char *)TEXT_START, nhdr.aout.tsize, | ||
| 355 | "writing text section to %s", new_name); | ||
| 356 | WRITE (new, (char *)DATA_START, nhdr.aout.dsize, | ||
| 357 | "writing data section to %s", new_name); | ||
| 358 | |||
| 359 | #ifdef _GOT | ||
| 360 | #define old_got_section ((struct scnhdr *)buffer) | ||
| 361 | |||
| 362 | if (got_section != NULL) | ||
| 363 | { | ||
| 364 | SEEK (new, old_got_section->s_scnptr, | ||
| 365 | "seeking to start of got_section in %s", new_name); | ||
| 366 | WRITE (new, oldptr + old_got_section->s_scnptr, old_got_section->s_size, | ||
| 367 | "writing new got_section of %s", new_name); | ||
| 368 | SEEK (new, nhdr.aout.tsize + nhdr.aout.dsize, | ||
| 369 | "seeking to end of data section of %s", new_name); | ||
| 370 | } | ||
| 371 | |||
| 372 | #undef old_got_section | ||
| 373 | #endif | ||
| 374 | |||
| 375 | /* | ||
| 376 | * Construct new symbol table header | ||
| 377 | */ | ||
| 378 | |||
| 379 | memcpy (buffer, oldptr + nhdr.fhdr.f_symptr, cbHDRR); | ||
| 380 | |||
| 381 | #define symhdr ((pHDRR)buffer) | ||
| 382 | newsyms = nhdr.aout.tsize + nhdr.aout.dsize; | ||
| 383 | symrel = newsyms - nhdr.fhdr.f_symptr; | ||
| 384 | nhdr.fhdr.f_symptr = newsyms; | ||
| 385 | symhdr->cbLineOffset += symrel; | ||
| 386 | symhdr->cbDnOffset += symrel; | ||
| 387 | symhdr->cbPdOffset += symrel; | ||
| 388 | symhdr->cbSymOffset += symrel; | ||
| 389 | symhdr->cbOptOffset += symrel; | ||
| 390 | symhdr->cbAuxOffset += symrel; | ||
| 391 | symhdr->cbSsOffset += symrel; | ||
| 392 | symhdr->cbSsExtOffset += symrel; | ||
| 393 | symhdr->cbFdOffset += symrel; | ||
| 394 | symhdr->cbRfdOffset += symrel; | ||
| 395 | symhdr->cbExtOffset += symrel; | ||
| 396 | |||
| 397 | WRITE (new, buffer, cbHDRR, "writing symbol table header of %s", new_name); | ||
| 398 | |||
| 399 | /* | ||
| 400 | * Copy the symbol table and line numbers | ||
| 401 | */ | ||
| 402 | WRITE (new, oldptr + ohdr.fhdr.f_symptr + cbHDRR, | ||
| 403 | stat.st_size - ohdr.fhdr.f_symptr - cbHDRR, | ||
| 404 | "writing symbol table of %s", new_name); | ||
| 405 | |||
| 406 | #ifdef _REL_DYN | ||
| 407 | if (rel_dyn_section) | ||
| 408 | update_dynamic_symbols (oldptr, new_name, new, nhdr.aout); | ||
| 409 | #endif | ||
| 410 | |||
| 411 | #undef symhdr | ||
| 412 | |||
| 413 | SEEK (new, 0, "seeking to start of header in %s", new_name); | ||
| 414 | WRITE (new, &nhdr, sizeof (nhdr), | ||
| 415 | "writing header of %s", new_name); | ||
| 416 | |||
| 417 | close (old); | ||
| 418 | close (new); | ||
| 419 | mark_x (new_name); | ||
| 420 | } | ||
| 421 | |||
| 422 | |||
| 423 | static void | ||
| 424 | update_dynamic_symbols (old, new_name, new, aout) | ||
| 425 | char *old; /* Pointer to old executable */ | ||
| 426 | char *new_name; /* Name of new executable */ | ||
| 427 | int new; /* File descriptor for new executable */ | ||
| 428 | struct aouthdr aout; /* a.out info from the file header */ | ||
| 429 | { | ||
| 430 | #if !defined (__linux__) && !defined (__NetBSD__) && !defined (__OpenBSD__) | ||
| 431 | |||
| 432 | typedef struct dynrel_info { | ||
| 433 | char * addr; | ||
| 434 | unsigned type:8; | ||
| 435 | unsigned index:24; | ||
| 436 | unsigned info:8; | ||
| 437 | unsigned pad:8; | ||
| 438 | } dr_info; | ||
| 439 | |||
| 440 | int nsyms = rel_dyn_section->s_size / sizeof (struct dynrel_info); | ||
| 441 | int i; | ||
| 442 | dr_info * rd_base = (dr_info *) (old + rel_dyn_section->s_scnptr); | ||
| 443 | Elf32_Sym * ds_base = (Elf32_Sym *) (old + dynsym_section->s_scnptr); | ||
| 444 | |||
| 445 | for (i = 0; i < nsyms; i++) { | ||
| 446 | register Elf32_Sym x; | ||
| 447 | |||
| 448 | if (rd_base[i].index == 0) | ||
| 449 | continue; | ||
| 450 | |||
| 451 | x = ds_base[rd_base[i].index]; | ||
| 452 | |||
| 453 | #if 0 | ||
| 454 | fprintf (stderr, "Object inspected: %s, addr = %lx, shndx = %x", | ||
| 455 | old + dynstr_section->s_scnptr + x.st_name, rd_base[i].addr, x.st_shndx); | ||
| 456 | #endif | ||
| 457 | |||
| 458 | |||
| 459 | if ((ELF32_ST_BIND (x.st_info) == STB_GLOBAL) | ||
| 460 | && (x.st_shndx == 0) | ||
| 461 | /* && (x.st_value == NULL) */ | ||
| 462 | ) { | ||
| 463 | /* OK, this is probably a reference to an object in a shared | ||
| 464 | library, so copy the old value. This is done in several steps: | ||
| 465 | 1. reladdr is the address of the location in question relative to | ||
| 466 | the start of the data section, | ||
| 467 | 2. oldref is the addr is the mapped in temacs executable, | ||
| 468 | 3. newref is the address of the location in question in the | ||
| 469 | undumped executable, | ||
| 470 | 4. len is the size of the object reference in bytes -- | ||
| 471 | currently only 4 (long) and 8 (quad) are supported. | ||
| 472 | */ | ||
| 473 | register unsigned long reladdr = (long)rd_base[i].addr - old_data_scnhdr.s_vaddr; | ||
| 474 | char * oldref = old + old_data_scnhdr.s_scnptr + reladdr; | ||
| 475 | unsigned long newref = aout.tsize + reladdr; | ||
| 476 | int len; | ||
| 477 | |||
| 478 | #if 0 | ||
| 479 | fprintf (stderr, "...relocated\n"); | ||
| 480 | #endif | ||
| 481 | |||
| 482 | if (rd_base[i].type == R_REFLONG) | ||
| 483 | len = 4; | ||
| 484 | else if (rd_base[i].type == R_REFQUAD) | ||
| 485 | len = 8; | ||
| 486 | else | ||
| 487 | fatal_unexec ("unrecognized relocation type in .dyn.rel section (symbol #%d)", (char *) i); | ||
| 488 | |||
| 489 | SEEK (new, newref, "seeking to dynamic symbol in %s", new_name); | ||
| 490 | WRITE (new, oldref, len, "writing old dynrel info in %s", new_name); | ||
| 491 | } | ||
| 492 | |||
| 493 | #if 0 | ||
| 494 | else | ||
| 495 | fprintf (stderr, "...not relocated\n"); | ||
| 496 | #endif | ||
| 497 | |||
| 498 | } | ||
| 499 | |||
| 500 | #endif /* not __linux__ and not __NetBSD__ and not __OpenBSD__ */ | ||
| 501 | } | ||
| 502 | |||
| 503 | |||
| 504 | /* | ||
| 505 | * mark_x | ||
| 506 | * | ||
| 507 | * After successfully building the new a.out, mark it executable | ||
| 508 | */ | ||
| 509 | |||
| 510 | static void | ||
| 511 | mark_x (name) | ||
| 512 | char *name; | ||
| 513 | { | ||
| 514 | struct stat sbuf; | ||
| 515 | int um = umask (777); | ||
| 516 | umask (um); | ||
| 517 | if (stat (name, &sbuf) < 0) | ||
| 518 | fatal_unexec ("getting protection on %s", name); | ||
| 519 | sbuf.st_mode |= 0111 & ~um; | ||
| 520 | if (chmod (name, sbuf.st_mode) < 0) | ||
| 521 | fatal_unexec ("setting protection on %s", name); | ||
| 522 | } | ||
| 523 | |||
| 524 | static void | ||
| 525 | fatal_unexec (s, arg) | ||
| 526 | char *s; | ||
| 527 | char *arg; | ||
| 528 | { | ||
| 529 | if (errno == EEOF) | ||
| 530 | fputs ("unexec: unexpected end of file, ", stderr); | ||
| 531 | else | ||
| 532 | fprintf (stderr, "unexec: %s, ", strerror (errno)); | ||
| 533 | fprintf (stderr, s, arg); | ||
| 534 | fputs (".\n", stderr); | ||
| 535 | exit (1); | ||
| 536 | } | ||
| 537 | |||
| 538 | /* arch-tag: 46316c49-ee08-4aa3-942b-00798902f5bd | ||
| 539 | (do not change this comment) */ | ||
diff --git a/src/vm-limit.c b/src/vm-limit.c index b288276f394..71ad82d687e 100644 --- a/src/vm-limit.c +++ b/src/vm-limit.c | |||
| @@ -100,7 +100,7 @@ get_lim_data (void) | |||
| 100 | } | 100 | } |
| 101 | 101 | ||
| 102 | #else | 102 | #else |
| 103 | #if !defined (BSD4_2) && !defined (__osf__) | 103 | #if !defined (BSD4_2) && !defined (__osf__) && !defined (CYGWIN) |
| 104 | 104 | ||
| 105 | #ifdef MSDOS | 105 | #ifdef MSDOS |
| 106 | void | 106 | void |
| @@ -173,9 +173,9 @@ static void | |||
| 173 | check_memory_limits (void) | 173 | check_memory_limits (void) |
| 174 | { | 174 | { |
| 175 | #ifdef REL_ALLOC | 175 | #ifdef REL_ALLOC |
| 176 | extern POINTER (*real_morecore) (); | 176 | extern POINTER (*real_morecore) (SIZE); |
| 177 | #endif | 177 | #endif |
| 178 | extern POINTER (*__morecore) (); | 178 | extern POINTER (*__morecore) (SIZE); |
| 179 | 179 | ||
| 180 | register POINTER cp; | 180 | register POINTER cp; |
| 181 | unsigned long five_percent; | 181 | unsigned long five_percent; |
diff --git a/src/w32fns.c b/src/w32fns.c index 57786d76795..72830c435e9 100644 --- a/src/w32fns.c +++ b/src/w32fns.c | |||
| @@ -439,8 +439,6 @@ void x_explicitly_set_name (struct frame *, Lisp_Object, Lisp_Object); | |||
| 439 | void x_set_menu_bar_lines (struct frame *, Lisp_Object, Lisp_Object); | 439 | void x_set_menu_bar_lines (struct frame *, Lisp_Object, Lisp_Object); |
| 440 | void x_set_title (struct frame *, Lisp_Object, Lisp_Object); | 440 | void x_set_title (struct frame *, Lisp_Object, Lisp_Object); |
| 441 | void x_set_tool_bar_lines (struct frame *, Lisp_Object, Lisp_Object); | 441 | void x_set_tool_bar_lines (struct frame *, Lisp_Object, Lisp_Object); |
| 442 | static void x_edge_detection (struct frame *, struct image *, Lisp_Object, | ||
| 443 | Lisp_Object); | ||
| 444 | 442 | ||
| 445 | 443 | ||
| 446 | 444 | ||
| @@ -788,25 +786,6 @@ DEFUN ("w32-default-color-map", Fw32_default_color_map, Sw32_default_color_map, | |||
| 788 | } | 786 | } |
| 789 | 787 | ||
| 790 | static Lisp_Object | 788 | static Lisp_Object |
| 791 | w32_to_x_color (Lisp_Object rgb) | ||
| 792 | { | ||
| 793 | Lisp_Object color; | ||
| 794 | |||
| 795 | CHECK_NUMBER (rgb); | ||
| 796 | |||
| 797 | BLOCK_INPUT; | ||
| 798 | |||
| 799 | color = Frassq (rgb, Vw32_color_map); | ||
| 800 | |||
| 801 | UNBLOCK_INPUT; | ||
| 802 | |||
| 803 | if (!NILP (color)) | ||
| 804 | return (Fcar (color)); | ||
| 805 | else | ||
| 806 | return Qnil; | ||
| 807 | } | ||
| 808 | |||
| 809 | static Lisp_Object | ||
| 810 | w32_color_map_lookup (char *colorname) | 789 | w32_color_map_lookup (char *colorname) |
| 811 | { | 790 | { |
| 812 | Lisp_Object tail, ret = Qnil; | 791 | Lisp_Object tail, ret = Qnil; |
diff --git a/src/w32gui.h b/src/w32gui.h index 07a6fed0b47..9cad4f21f21 100644 --- a/src/w32gui.h +++ b/src/w32gui.h | |||
| @@ -118,7 +118,7 @@ extern int nCmdShow; | |||
| 118 | #define PBaseSize (1L << 8) /* program specified base for incrementing */ | 118 | #define PBaseSize (1L << 8) /* program specified base for incrementing */ |
| 119 | #define PWinGravity (1L << 9) /* program specified window gravity */ | 119 | #define PWinGravity (1L << 9) /* program specified window gravity */ |
| 120 | 120 | ||
| 121 | extern int XParseGeometry (); | 121 | extern int XParseGeometry (char *, int *, int *, unsigned *, unsigned *); |
| 122 | 122 | ||
| 123 | 123 | ||
| 124 | typedef struct { | 124 | typedef struct { |
diff --git a/src/w32heap.h b/src/w32heap.h index cbd7f7ae96d..20a49a4e0ac 100644 --- a/src/w32heap.h +++ b/src/w32heap.h | |||
| @@ -41,8 +41,8 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | |||
| 41 | #define get_w32_major_version() w32_major_version | 41 | #define get_w32_major_version() w32_major_version |
| 42 | #define get_w32_minor_version() w32_minor_version | 42 | #define get_w32_minor_version() w32_minor_version |
| 43 | 43 | ||
| 44 | extern unsigned char *get_data_start(); | 44 | extern unsigned char *get_data_start (void); |
| 45 | extern unsigned char *get_data_end(); | 45 | extern unsigned char *get_data_end (void); |
| 46 | extern unsigned long reserved_heap_size; | 46 | extern unsigned long reserved_heap_size; |
| 47 | extern SYSTEM_INFO sysinfo_cache; | 47 | extern SYSTEM_INFO sysinfo_cache; |
| 48 | extern OSVERSIONINFO osinfo_cache; | 48 | extern OSVERSIONINFO osinfo_cache; |
| @@ -62,7 +62,7 @@ extern int os_subtype; | |||
| 62 | extern void *sbrk (unsigned long size); | 62 | extern void *sbrk (unsigned long size); |
| 63 | 63 | ||
| 64 | /* Initialize heap structures for sbrk on startup. */ | 64 | /* Initialize heap structures for sbrk on startup. */ |
| 65 | extern void init_heap (); | 65 | extern void init_heap (void); |
| 66 | 66 | ||
| 67 | /* Round the heap to this size. */ | 67 | /* Round the heap to this size. */ |
| 68 | extern void round_heap (unsigned long size); | 68 | extern void round_heap (unsigned long size); |
diff --git a/src/w32menu.c b/src/w32menu.c index e96b70b59dc..919f8505da8 100644 --- a/src/w32menu.c +++ b/src/w32menu.c | |||
| @@ -111,30 +111,6 @@ void w32_free_menu_strings (HWND); | |||
| 111 | 111 | ||
| 112 | int pending_menu_activation; | 112 | int pending_menu_activation; |
| 113 | 113 | ||
| 114 | |||
| 115 | /* Return the frame whose ->output_data.w32->menubar_widget equals | ||
| 116 | ID, or 0 if none. */ | ||
| 117 | |||
| 118 | static struct frame * | ||
| 119 | menubar_id_to_frame (HMENU id) | ||
| 120 | { | ||
| 121 | Lisp_Object tail, frame; | ||
| 122 | FRAME_PTR f; | ||
| 123 | |||
| 124 | for (tail = Vframe_list; CONSP (tail); tail = XCDR (tail)) | ||
| 125 | { | ||
| 126 | frame = XCAR (tail); | ||
| 127 | if (!FRAMEP (frame)) | ||
| 128 | continue; | ||
| 129 | f = XFRAME (frame); | ||
| 130 | if (!FRAME_WINDOW_P (f)) | ||
| 131 | continue; | ||
| 132 | if (f->output_data.w32->menubar_widget == id) | ||
| 133 | return f; | ||
| 134 | } | ||
| 135 | return 0; | ||
| 136 | } | ||
| 137 | |||
| 138 | #ifdef HAVE_MENUS | 114 | #ifdef HAVE_MENUS |
| 139 | 115 | ||
| 140 | DEFUN ("x-popup-dialog", Fx_popup_dialog, Sx_popup_dialog, 2, 3, 0, | 116 | DEFUN ("x-popup-dialog", Fx_popup_dialog, Sx_popup_dialog, 2, 3, 0, |
| @@ -1316,14 +1292,6 @@ name_is_separator (char *name) | |||
| 1316 | return (*name == '\0' || start + 2 == name); | 1292 | return (*name == '\0' || start + 2 == name); |
| 1317 | } | 1293 | } |
| 1318 | 1294 | ||
| 1319 | |||
| 1320 | /* Indicate boundary between left and right. */ | ||
| 1321 | static int | ||
| 1322 | add_left_right_boundary (HMENU menu) | ||
| 1323 | { | ||
| 1324 | return AppendMenu (menu, MF_MENUBARBREAK, 0, NULL); | ||
| 1325 | } | ||
| 1326 | |||
| 1327 | /* UTF8: 0xxxxxxx, 110xxxxx 10xxxxxx, 1110xxxx, 10xxxxxx, 10xxxxxx */ | 1295 | /* UTF8: 0xxxxxxx, 110xxxxx 10xxxxxx, 1110xxxx, 10xxxxxx, 10xxxxxx */ |
| 1328 | static void | 1296 | static void |
| 1329 | utf8to16 (unsigned char * src, int len, WCHAR * dest) | 1297 | utf8to16 (unsigned char * src, int len, WCHAR * dest) |
diff --git a/src/w32term.c b/src/w32term.c index 3a0a1b1abae..fc03034b14b 100644 --- a/src/w32term.c +++ b/src/w32term.c | |||
| @@ -268,7 +268,9 @@ static void x_draw_bar_cursor (struct window *, struct glyph_row *, int, | |||
| 268 | static void w32_clip_to_row (struct window *, struct glyph_row *, int, HDC); | 268 | static void w32_clip_to_row (struct window *, struct glyph_row *, int, HDC); |
| 269 | static BOOL my_show_window (struct frame *, HWND, int); | 269 | static BOOL my_show_window (struct frame *, HWND, int); |
| 270 | static void my_set_window_pos (HWND, HWND, int, int, int, int, UINT); | 270 | static void my_set_window_pos (HWND, HWND, int, int, int, int, UINT); |
| 271 | #if 0 | ||
| 271 | static void my_set_focus (struct frame *, HWND); | 272 | static void my_set_focus (struct frame *, HWND); |
| 273 | #endif | ||
| 272 | static void my_set_foreground_window (HWND); | 274 | static void my_set_foreground_window (HWND); |
| 273 | static void my_destroy_window (struct frame *, HWND); | 275 | static void my_destroy_window (struct frame *, HWND); |
| 274 | 276 | ||
| @@ -3366,12 +3368,14 @@ my_set_window_pos (HWND hwnd, HWND hwndAfter, | |||
| 3366 | #endif | 3368 | #endif |
| 3367 | } | 3369 | } |
| 3368 | 3370 | ||
| 3371 | #if 0 | ||
| 3369 | static void | 3372 | static void |
| 3370 | my_set_focus (struct frame * f, HWND hwnd) | 3373 | my_set_focus (struct frame * f, HWND hwnd) |
| 3371 | { | 3374 | { |
| 3372 | SendMessage (FRAME_W32_WINDOW (f), WM_EMACS_SETFOCUS, | 3375 | SendMessage (FRAME_W32_WINDOW (f), WM_EMACS_SETFOCUS, |
| 3373 | (WPARAM) hwnd, 0); | 3376 | (WPARAM) hwnd, 0); |
| 3374 | } | 3377 | } |
| 3378 | #endif | ||
| 3375 | 3379 | ||
| 3376 | static void | 3380 | static void |
| 3377 | my_set_foreground_window (HWND hwnd) | 3381 | my_set_foreground_window (HWND hwnd) |
diff --git a/src/w32term.h b/src/w32term.h index b5b3d4451f2..ea245144ac3 100644 --- a/src/w32term.h +++ b/src/w32term.h | |||
| @@ -48,8 +48,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 48 | extern MSG CurMsg; | 48 | extern MSG CurMsg; |
| 49 | extern BOOL bUseDflt; | 49 | extern BOOL bUseDflt; |
| 50 | 50 | ||
| 51 | extern struct frame *x_window_to_frame (); | ||
| 52 | |||
| 53 | /* Structure recording bitmaps and reference count. | 51 | /* Structure recording bitmaps and reference count. |
| 54 | If REFCOUNT is 0 then this record is free to be reused. */ | 52 | If REFCOUNT is 0 then this record is free to be reused. */ |
| 55 | 53 | ||
| @@ -226,13 +224,16 @@ extern Lisp_Object w32_display_name_list; | |||
| 226 | /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */ | 224 | /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'. */ |
| 227 | extern Lisp_Object Vx_pixel_size_width_font_regexp; | 225 | extern Lisp_Object Vx_pixel_size_width_font_regexp; |
| 228 | 226 | ||
| 229 | struct w32_display_info *x_display_info_for_name (); | 227 | extern struct frame *x_window_to_frame (struct w32_display_info *, HWND); |
| 228 | |||
| 229 | struct w32_display_info *x_display_info_for_name (Lisp_Object); | ||
| 230 | 230 | ||
| 231 | Lisp_Object display_x_get_resource (struct w32_display_info *, | 231 | Lisp_Object display_x_get_resource (struct w32_display_info *, |
| 232 | Lisp_Object, Lisp_Object, | 232 | Lisp_Object, Lisp_Object, |
| 233 | Lisp_Object, Lisp_Object); | 233 | Lisp_Object, Lisp_Object); |
| 234 | 234 | ||
| 235 | extern struct w32_display_info *w32_term_init (); | 235 | extern struct w32_display_info *w32_term_init (Lisp_Object, |
| 236 | char *, char *); | ||
| 236 | 237 | ||
| 237 | extern int x_display_pixel_height (struct w32_display_info *); | 238 | extern int x_display_pixel_height (struct w32_display_info *); |
| 238 | extern int x_display_pixel_width (struct w32_display_info *); | 239 | extern int x_display_pixel_width (struct w32_display_info *); |
| @@ -544,8 +545,10 @@ struct scroll_bar { | |||
| 544 | #define VERTICAL_SCROLL_BAR_WIDTH_TRIM (0) | 545 | #define VERTICAL_SCROLL_BAR_WIDTH_TRIM (0) |
| 545 | 546 | ||
| 546 | 547 | ||
| 547 | extern void w32_fill_rect (); | 548 | struct frame; /* from frame.h */ |
| 548 | extern void w32_clear_window (); | 549 | |
| 550 | extern void w32_fill_rect (struct frame *, HDC, COLORREF, RECT *); | ||
| 551 | extern void w32_clear_window (struct frame *); | ||
| 549 | 552 | ||
| 550 | #define w32_fill_area(f,hdc,pix,x,y,nx,ny) \ | 553 | #define w32_fill_area(f,hdc,pix,x,y,nx,ny) \ |
| 551 | do { \ | 554 | do { \ |
| @@ -645,10 +648,10 @@ typedef struct deferred_msg | |||
| 645 | 648 | ||
| 646 | extern CRITICAL_SECTION critsect; | 649 | extern CRITICAL_SECTION critsect; |
| 647 | 650 | ||
| 648 | extern void init_crit (); | 651 | extern void init_crit (void); |
| 649 | extern void delete_crit (); | 652 | extern void delete_crit (void); |
| 650 | 653 | ||
| 651 | extern void signal_quit (); | 654 | extern void signal_quit (void); |
| 652 | 655 | ||
| 653 | #define enter_crit() EnterCriticalSection (&critsect) | 656 | #define enter_crit() EnterCriticalSection (&critsect) |
| 654 | #define leave_crit() LeaveCriticalSection (&critsect) | 657 | #define leave_crit() LeaveCriticalSection (&critsect) |
| @@ -658,14 +661,13 @@ extern void deselect_palette (struct frame * f, HDC hdc); | |||
| 658 | extern HDC get_frame_dc (struct frame * f); | 661 | extern HDC get_frame_dc (struct frame * f); |
| 659 | extern int release_frame_dc (struct frame * f, HDC hDC); | 662 | extern int release_frame_dc (struct frame * f, HDC hDC); |
| 660 | 663 | ||
| 661 | extern void drain_message_queue (); | 664 | extern void drain_message_queue (void); |
| 662 | 665 | ||
| 663 | extern BOOL get_next_msg (); | 666 | extern BOOL get_next_msg (W32Msg *, BOOL); |
| 664 | extern BOOL post_msg (); | 667 | extern BOOL post_msg (W32Msg *); |
| 665 | extern void complete_deferred_msg (HWND hwnd, UINT msg, LRESULT result); | 668 | extern void complete_deferred_msg (HWND hwnd, UINT msg, LRESULT result); |
| 666 | extern void wait_for_sync (); | ||
| 667 | 669 | ||
| 668 | extern BOOL parse_button (); | 670 | extern BOOL parse_button (int, int, int *, int *); |
| 669 | 671 | ||
| 670 | extern void w32_sys_ring_bell (struct frame *f); | 672 | extern void w32_sys_ring_bell (struct frame *f); |
| 671 | extern void x_delete_display (struct w32_display_info *dpyinfo); | 673 | extern void x_delete_display (struct w32_display_info *dpyinfo); |
| @@ -725,7 +727,7 @@ struct frame * check_x_frame (Lisp_Object); | |||
| 725 | EXFUN (Fx_display_color_p, 1); | 727 | EXFUN (Fx_display_color_p, 1); |
| 726 | EXFUN (Fx_display_grayscale_p, 1); | 728 | EXFUN (Fx_display_grayscale_p, 1); |
| 727 | 729 | ||
| 728 | typedef DWORD (WINAPI * ClipboardSequence_Proc) (); | 730 | typedef DWORD (WINAPI * ClipboardSequence_Proc) (void); |
| 729 | typedef BOOL (WINAPI * AppendMenuW_Proc) ( | 731 | typedef BOOL (WINAPI * AppendMenuW_Proc) ( |
| 730 | IN HMENU, | 732 | IN HMENU, |
| 731 | IN UINT, | 733 | IN UINT, |
diff --git a/src/xfaces.c b/src/xfaces.c index d5aabd40c0c..c0c53f3aa1f 100644 --- a/src/xfaces.c +++ b/src/xfaces.c | |||
| @@ -513,7 +513,6 @@ struct named_merge_point; | |||
| 513 | static void map_tty_color (struct frame *, struct face *, | 513 | static void map_tty_color (struct frame *, struct face *, |
| 514 | enum lface_attribute_index, int *); | 514 | enum lface_attribute_index, int *); |
| 515 | static Lisp_Object resolve_face_name (Lisp_Object, int); | 515 | static Lisp_Object resolve_face_name (Lisp_Object, int); |
| 516 | static int may_use_scalable_font_p (const char *); | ||
| 517 | static void set_font_frame_param (Lisp_Object, Lisp_Object); | 516 | static void set_font_frame_param (Lisp_Object, Lisp_Object); |
| 518 | static int get_lface_attributes (struct frame *, Lisp_Object, Lisp_Object *, | 517 | static int get_lface_attributes (struct frame *, Lisp_Object, Lisp_Object *, |
| 519 | int, struct named_merge_point *); | 518 | int, struct named_merge_point *); |