diff options
| author | Miles Bader | 2006-12-16 01:29:26 +0000 |
|---|---|---|
| committer | Miles Bader | 2006-12-16 01:29:26 +0000 |
| commit | 4bc5d7668ef47295810f28a14d67b4a9e12a341f (patch) | |
| tree | 2e22bd79984f0772c43e294babc07c1508ce95ce | |
| parent | b44bfd5e9bf3a0e853bc0d4788e4c89a01a70d6a (diff) | |
| parent | c3342e8eb3eaf4560210fd030383a940640648f2 (diff) | |
| download | emacs-4bc5d7668ef47295810f28a14d67b4a9e12a341f.tar.gz emacs-4bc5d7668ef47295810f28a14d67b4a9e12a341f.zip | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 545-562)
- Update from CVS
- Update from erc--emacs--22
- Merge from gnus--rel--5.10
- erc-iswitchb: Temporarily enable iswitchb mode
* gnus--rel--5.10 (patch 172-176)
- Merge from emacs--devo--0
- Update from CVS
- Update from CVS: lisp/legacy-gnus-agent.el: Add Copyright notice.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-156
459 files changed, 2241 insertions, 1842 deletions
| @@ -1,3 +1,21 @@ | |||
| 1 | 2006-12-10 Andreas Schwab <schwab@suse.de> | ||
| 2 | |||
| 3 | * configure.in: Remove check for struct timezone, its result is | ||
| 4 | never used. | ||
| 5 | |||
| 6 | * configure: Regenerate. | ||
| 7 | |||
| 8 | 2006-12-08 NAKAJI Hiroyuki <nakaji@jp.freebsd.org> (tiny change) | ||
| 9 | |||
| 10 | * configure.in: Add support for Solaris 10 on x86-64. | ||
| 11 | |||
| 12 | * configure: Regenerate. | ||
| 13 | |||
| 14 | 2006-12-08 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> | ||
| 15 | |||
| 16 | * INSTALL (DETAILED BUILDING AND INSTALLATION): Document usage | ||
| 17 | of PKG_CONFIG_PATH. | ||
| 18 | |||
| 1 | 2006-12-04 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 19 | 2006-12-04 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
| 2 | 20 | ||
| 3 | * configure.in (HAVE_SYNC): New test. | 21 | * configure.in (HAVE_SYNC): New test. |
| @@ -666,7 +684,7 @@ | |||
| 666 | 684 | ||
| 667 | * make-dist (lispref): Do include lispref/index.texi. | 685 | * make-dist (lispref): Do include lispref/index.texi. |
| 668 | 686 | ||
| 669 | 2004-01-06 Eric Hanchrow <offby1@blarg.net> (tiny change) | 687 | 2004-01-06 Eric Hanchrow <offby1@blarg.net> (tiny change) |
| 670 | 688 | ||
| 671 | * make-dist (tempdir): Include cursors in nt/icons. | 689 | * make-dist (tempdir): Include cursors in nt/icons. |
| 672 | 690 | ||
| @@ -1913,7 +1931,7 @@ | |||
| 1913 | 1931 | ||
| 1914 | 2000-06-02 Dave Love <fx@gnu.org> | 1932 | 2000-06-02 Dave Love <fx@gnu.org> |
| 1915 | 1933 | ||
| 1916 | * Makefile.in: (install-arch-indep): Add pcl-cvs to list of info | 1934 | * Makefile.in (install-arch-indep): Add pcl-cvs to list of info |
| 1917 | files. | 1935 | files. |
| 1918 | 1936 | ||
| 1919 | * configure.in: Don't specify -n32 flag for mips-sgi-irix6.5. | 1937 | * configure.in: Don't specify -n32 flag for mips-sgi-irix6.5. |
| @@ -2073,7 +2091,7 @@ | |||
| 2073 | 2091 | ||
| 2074 | 1999-12-04 Dave Love <fx@gnu.org> | 2092 | 1999-12-04 Dave Love <fx@gnu.org> |
| 2075 | 2093 | ||
| 2076 | * Makefile.in: (install-arch-indep): Depend on `info'. | 2094 | * Makefile.in (install-arch-indep): Depend on `info'. |
| 2077 | (install-strip): Use `install' as sub-make target. | 2095 | (install-strip): Use `install' as sub-make target. |
| 2078 | 2096 | ||
| 2079 | 1999-11-23 Ken Raeburn <raeburn@gnu.org> | 2097 | 1999-11-23 Ken Raeburn <raeburn@gnu.org> |
| @@ -383,6 +383,16 @@ to look in `/bar/mylib' for libraries, pass the -O3 optimization | |||
| 383 | switch to the compiler, and link against libfoo.a and libbar.a | 383 | switch to the compiler, and link against libfoo.a and libbar.a |
| 384 | libraries in addition to the standard ones. | 384 | libraries in addition to the standard ones. |
| 385 | 385 | ||
| 386 | For some libraries, like Gtk+, fontconfig and ALSA, `configure' use | ||
| 387 | pkg-config to find where those libraries are installed. | ||
| 388 | If you wan't pkg-config to look in special directories, you have to set | ||
| 389 | the environment variable PKG_CONFIG_PATH to point to the directories | ||
| 390 | where the .pc-files for those libraries are. | ||
| 391 | For example: | ||
| 392 | |||
| 393 | PKG_CONFIG_PATH='/usr/local/alsa/lib/pkgconfig:/opt/gtk+-2.8/lib/pkgconfig' \ | ||
| 394 | ./configure | ||
| 395 | |||
| 386 | The work of `configure' can be done by editing various files in the | 396 | The work of `configure' can be done by editing various files in the |
| 387 | distribution, but using `configure' is easier. See the section called | 397 | distribution, but using `configure' is easier. See the section called |
| 388 | "CONFIGURATION BY HAND" below if you want to do the configuration | 398 | "CONFIGURATION BY HAND" below if you want to do the configuration |
diff --git a/admin/FOR-RELEASE b/admin/FOR-RELEASE index 3e481810a69..55aa32bd0e9 100644 --- a/admin/FOR-RELEASE +++ b/admin/FOR-RELEASE | |||
| @@ -53,11 +53,16 @@ to the hack introduced on 2005-07-01 to fix some other Cleartype problem. | |||
| 53 | ** monnier@iro.umontreal.ca, Nov 24: | 53 | ** monnier@iro.umontreal.ca, Nov 24: |
| 54 | gnus-summary-tick-article-forward doesn't work any more? | 54 | gnus-summary-tick-article-forward doesn't work any more? |
| 55 | 55 | ||
| 56 | ** christopher.ian.moore@gmail.com, Nov 30: too much recursion in gnus-sort-threads-1. | 56 | ** Should CC mode set beginning-of-defun-function? |
| 57 | 57 | ||
| 58 | ** dooglus@gmail.com, Dec 1: Replacement of spaces in wdired | 58 | ** Need papers from Rubini for his code in t-mouse.el |
| 59 | Sent instructions. | ||
| 59 | 60 | ||
| 60 | ** Should CC mode set beginning-of-defun-function? | 61 | ** jpff@cs.bath.ac.uk, Dec 7: Failure to submit second netnews message. |
| 62 | |||
| 63 | ** kbd_buffer_store_event[_hold] called from outside signal handlers. | ||
| 64 | |||
| 65 | ** org.el change papers | ||
| 61 | 66 | ||
| 62 | * DOCUMENTATION | 67 | * DOCUMENTATION |
| 63 | 68 | ||
| @@ -2456,6 +2456,7 @@ _ACEOF | |||
| 2456 | m68* ) machine=sun3 ;; | 2456 | m68* ) machine=sun3 ;; |
| 2457 | i[3456]86-sun-sunos[34]* ) machine=sun386 ;; | 2457 | i[3456]86-sun-sunos[34]* ) machine=sun386 ;; |
| 2458 | i[3456]86-*-* ) machine=intel386 ;; | 2458 | i[3456]86-*-* ) machine=intel386 ;; |
| 2459 | amd64-*-*|x86_64-*-*) machine=amdx86-64 ;; | ||
| 2459 | powerpcle* ) machine=powerpcle ;; | 2460 | powerpcle* ) machine=powerpcle ;; |
| 2460 | powerpc* | rs6000* ) machine=ibmrs6000 ;; | 2461 | powerpc* | rs6000* ) machine=ibmrs6000 ;; |
| 2461 | sparc* ) machine=sparc ;; | 2462 | sparc* ) machine=sparc ;; |
| @@ -21653,300 +21654,6 @@ _ACEOF | |||
| 21653 | fi | 21654 | fi |
| 21654 | fi | 21655 | fi |
| 21655 | 21656 | ||
| 21656 | # This defines (or not) HAVE_TZNAME and HAVE_TM_ZONE. | ||
| 21657 | echo "$as_me:$LINENO: checking for struct tm.tm_zone" >&5 | ||
| 21658 | echo $ECHO_N "checking for struct tm.tm_zone... $ECHO_C" >&6 | ||
| 21659 | if test "${ac_cv_member_struct_tm_tm_zone+set}" = set; then | ||
| 21660 | echo $ECHO_N "(cached) $ECHO_C" >&6 | ||
| 21661 | else | ||
| 21662 | cat >conftest.$ac_ext <<_ACEOF | ||
| 21663 | /* confdefs.h. */ | ||
| 21664 | _ACEOF | ||
| 21665 | cat confdefs.h >>conftest.$ac_ext | ||
| 21666 | cat >>conftest.$ac_ext <<_ACEOF | ||
| 21667 | /* end confdefs.h. */ | ||
| 21668 | #include <sys/types.h> | ||
| 21669 | #include <$ac_cv_struct_tm> | ||
| 21670 | |||
| 21671 | |||
| 21672 | int | ||
| 21673 | main () | ||
| 21674 | { | ||
| 21675 | static struct tm ac_aggr; | ||
| 21676 | if (ac_aggr.tm_zone) | ||
| 21677 | return 0; | ||
| 21678 | ; | ||
| 21679 | return 0; | ||
| 21680 | } | ||
| 21681 | _ACEOF | ||
| 21682 | rm -f conftest.$ac_objext | ||
| 21683 | if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 | ||
| 21684 | (eval $ac_compile) 2>conftest.er1 | ||
| 21685 | ac_status=$? | ||
| 21686 | grep -v '^ *+' conftest.er1 >conftest.err | ||
| 21687 | rm -f conftest.er1 | ||
| 21688 | cat conftest.err >&5 | ||
| 21689 | echo "$as_me:$LINENO: \$? = $ac_status" >&5 | ||
| 21690 | (exit $ac_status); } && | ||
| 21691 | { ac_try='test -z "$ac_c_werror_flag" | ||
| 21692 | || test ! -s conftest.err' | ||
| 21693 | { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 | ||
| 21694 | (eval $ac_try) 2>&5 | ||
| 21695 | ac_status=$? | ||
| 21696 | echo "$as_me:$LINENO: \$? = $ac_status" >&5 | ||
| 21697 | (exit $ac_status); }; } && | ||
| 21698 | { ac_try='test -s conftest.$ac_objext' | ||
| 21699 | { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 | ||
| 21700 | (eval $ac_try) 2>&5 | ||
| 21701 | ac_status=$? | ||
| 21702 | echo "$as_me:$LINENO: \$? = $ac_status" >&5 | ||
| 21703 | (exit $ac_status); }; }; then | ||
| 21704 | ac_cv_member_struct_tm_tm_zone=yes | ||
| 21705 | else | ||
| 21706 | echo "$as_me: failed program was:" >&5 | ||
| 21707 | sed 's/^/| /' conftest.$ac_ext >&5 | ||
| 21708 | |||
| 21709 | cat >conftest.$ac_ext <<_ACEOF | ||
| 21710 | /* confdefs.h. */ | ||
| 21711 | _ACEOF | ||
| 21712 | cat confdefs.h >>conftest.$ac_ext | ||
| 21713 | cat >>conftest.$ac_ext <<_ACEOF | ||
| 21714 | /* end confdefs.h. */ | ||
| 21715 | #include <sys/types.h> | ||
| 21716 | #include <$ac_cv_struct_tm> | ||
| 21717 | |||
| 21718 | |||
| 21719 | int | ||
| 21720 | main () | ||
| 21721 | { | ||
| 21722 | static struct tm ac_aggr; | ||
| 21723 | if (sizeof ac_aggr.tm_zone) | ||
| 21724 | return 0; | ||
| 21725 | ; | ||
| 21726 | return 0; | ||
| 21727 | } | ||
| 21728 | _ACEOF | ||
| 21729 | rm -f conftest.$ac_objext | ||
| 21730 | if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 | ||
| 21731 | (eval $ac_compile) 2>conftest.er1 | ||
| 21732 | ac_status=$? | ||
| 21733 | grep -v '^ *+' conftest.er1 >conftest.err | ||
| 21734 | rm -f conftest.er1 | ||
| 21735 | cat conftest.err >&5 | ||
| 21736 | echo "$as_me:$LINENO: \$? = $ac_status" >&5 | ||
| 21737 | (exit $ac_status); } && | ||
| 21738 | { ac_try='test -z "$ac_c_werror_flag" | ||
| 21739 | || test ! -s conftest.err' | ||
| 21740 | { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 | ||
| 21741 | (eval $ac_try) 2>&5 | ||
| 21742 | ac_status=$? | ||
| 21743 | echo "$as_me:$LINENO: \$? = $ac_status" >&5 | ||
| 21744 | (exit $ac_status); }; } && | ||
| 21745 | { ac_try='test -s conftest.$ac_objext' | ||
| 21746 | { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 | ||
| 21747 | (eval $ac_try) 2>&5 | ||
| 21748 | ac_status=$? | ||
| 21749 | echo "$as_me:$LINENO: \$? = $ac_status" >&5 | ||
| 21750 | (exit $ac_status); }; }; then | ||
| 21751 | ac_cv_member_struct_tm_tm_zone=yes | ||
| 21752 | else | ||
| 21753 | echo "$as_me: failed program was:" >&5 | ||
| 21754 | sed 's/^/| /' conftest.$ac_ext >&5 | ||
| 21755 | |||
| 21756 | ac_cv_member_struct_tm_tm_zone=no | ||
| 21757 | fi | ||
| 21758 | rm -f conftest.err conftest.$ac_objext conftest.$ac_ext | ||
| 21759 | fi | ||
| 21760 | rm -f conftest.err conftest.$ac_objext conftest.$ac_ext | ||
| 21761 | fi | ||
| 21762 | echo "$as_me:$LINENO: result: $ac_cv_member_struct_tm_tm_zone" >&5 | ||
| 21763 | echo "${ECHO_T}$ac_cv_member_struct_tm_tm_zone" >&6 | ||
| 21764 | if test $ac_cv_member_struct_tm_tm_zone = yes; then | ||
| 21765 | |||
| 21766 | cat >>confdefs.h <<_ACEOF | ||
| 21767 | #define HAVE_STRUCT_TM_TM_ZONE 1 | ||
| 21768 | _ACEOF | ||
| 21769 | |||
| 21770 | |||
| 21771 | fi | ||
| 21772 | |||
| 21773 | if test "$ac_cv_member_struct_tm_tm_zone" = yes; then | ||
| 21774 | |||
| 21775 | cat >>confdefs.h <<\_ACEOF | ||
| 21776 | #define HAVE_TM_ZONE 1 | ||
| 21777 | _ACEOF | ||
| 21778 | |||
| 21779 | else | ||
| 21780 | echo "$as_me:$LINENO: checking for tzname" >&5 | ||
| 21781 | echo $ECHO_N "checking for tzname... $ECHO_C" >&6 | ||
| 21782 | if test "${ac_cv_var_tzname+set}" = set; then | ||
| 21783 | echo $ECHO_N "(cached) $ECHO_C" >&6 | ||
| 21784 | else | ||
| 21785 | cat >conftest.$ac_ext <<_ACEOF | ||
| 21786 | /* confdefs.h. */ | ||
| 21787 | _ACEOF | ||
| 21788 | cat confdefs.h >>conftest.$ac_ext | ||
| 21789 | cat >>conftest.$ac_ext <<_ACEOF | ||
| 21790 | /* end confdefs.h. */ | ||
| 21791 | #include <time.h> | ||
| 21792 | #ifndef tzname /* For SGI. */ | ||
| 21793 | extern char *tzname[]; /* RS6000 and others reject char **tzname. */ | ||
| 21794 | #endif | ||
| 21795 | |||
| 21796 | int | ||
| 21797 | main () | ||
| 21798 | { | ||
| 21799 | atoi(*tzname); | ||
| 21800 | ; | ||
| 21801 | return 0; | ||
| 21802 | } | ||
| 21803 | _ACEOF | ||
| 21804 | rm -f conftest.$ac_objext conftest$ac_exeext | ||
| 21805 | if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 | ||
| 21806 | (eval $ac_link) 2>conftest.er1 | ||
| 21807 | ac_status=$? | ||
| 21808 | grep -v '^ *+' conftest.er1 >conftest.err | ||
| 21809 | rm -f conftest.er1 | ||
| 21810 | cat conftest.err >&5 | ||
| 21811 | echo "$as_me:$LINENO: \$? = $ac_status" >&5 | ||
| 21812 | (exit $ac_status); } && | ||
| 21813 | { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' | ||
| 21814 | { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 | ||
| 21815 | (eval $ac_try) 2>&5 | ||
| 21816 | ac_status=$? | ||
| 21817 | echo "$as_me:$LINENO: \$? = $ac_status" >&5 | ||
| 21818 | (exit $ac_status); }; } && | ||
| 21819 | { ac_try='test -s conftest$ac_exeext' | ||
| 21820 | { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 | ||
| 21821 | (eval $ac_try) 2>&5 | ||
| 21822 | ac_status=$? | ||
| 21823 | echo "$as_me:$LINENO: \$? = $ac_status" >&5 | ||
| 21824 | (exit $ac_status); }; }; then | ||
| 21825 | ac_cv_var_tzname=yes | ||
| 21826 | else | ||
| 21827 | echo "$as_me: failed program was:" >&5 | ||
| 21828 | sed 's/^/| /' conftest.$ac_ext >&5 | ||
| 21829 | |||
| 21830 | ac_cv_var_tzname=no | ||
| 21831 | fi | ||
| 21832 | rm -f conftest.err conftest.$ac_objext \ | ||
| 21833 | conftest$ac_exeext conftest.$ac_ext | ||
| 21834 | fi | ||
| 21835 | echo "$as_me:$LINENO: result: $ac_cv_var_tzname" >&5 | ||
| 21836 | echo "${ECHO_T}$ac_cv_var_tzname" >&6 | ||
| 21837 | if test $ac_cv_var_tzname = yes; then | ||
| 21838 | |||
| 21839 | cat >>confdefs.h <<\_ACEOF | ||
| 21840 | #define HAVE_TZNAME 1 | ||
| 21841 | _ACEOF | ||
| 21842 | |||
| 21843 | fi | ||
| 21844 | fi | ||
| 21845 | |||
| 21846 | |||
| 21847 | if test "$ac_cv_func_gettimeofday" = yes; then | ||
| 21848 | echo "$as_me:$LINENO: checking for struct timezone" >&5 | ||
| 21849 | echo $ECHO_N "checking for struct timezone... $ECHO_C" >&6 | ||
| 21850 | if test "${emacs_cv_struct_timezone+set}" = set; then | ||
| 21851 | echo $ECHO_N "(cached) $ECHO_C" >&6 | ||
| 21852 | else | ||
| 21853 | cat >conftest.$ac_ext <<_ACEOF | ||
| 21854 | /* confdefs.h. */ | ||
| 21855 | _ACEOF | ||
| 21856 | cat confdefs.h >>conftest.$ac_ext | ||
| 21857 | cat >>conftest.$ac_ext <<_ACEOF | ||
| 21858 | /* end confdefs.h. */ | ||
| 21859 | #include <sys/time.h> | ||
| 21860 | int | ||
| 21861 | main () | ||
| 21862 | { | ||
| 21863 | struct timezone tz; | ||
| 21864 | ; | ||
| 21865 | return 0; | ||
| 21866 | } | ||
| 21867 | _ACEOF | ||
| 21868 | rm -f conftest.$ac_objext | ||
| 21869 | if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 | ||
| 21870 | (eval $ac_compile) 2>conftest.er1 | ||
| 21871 | ac_status=$? | ||
| 21872 | grep -v '^ *+' conftest.er1 >conftest.err | ||
| 21873 | rm -f conftest.er1 | ||
| 21874 | cat conftest.err >&5 | ||
| 21875 | echo "$as_me:$LINENO: \$? = $ac_status" >&5 | ||
| 21876 | (exit $ac_status); } && | ||
| 21877 | { ac_try='test -z "$ac_c_werror_flag" | ||
| 21878 | || test ! -s conftest.err' | ||
| 21879 | { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 | ||
| 21880 | (eval $ac_try) 2>&5 | ||
| 21881 | ac_status=$? | ||
| 21882 | echo "$as_me:$LINENO: \$? = $ac_status" >&5 | ||
| 21883 | (exit $ac_status); }; } && | ||
| 21884 | { ac_try='test -s conftest.$ac_objext' | ||
| 21885 | { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 | ||
| 21886 | (eval $ac_try) 2>&5 | ||
| 21887 | ac_status=$? | ||
| 21888 | echo "$as_me:$LINENO: \$? = $ac_status" >&5 | ||
| 21889 | (exit $ac_status); }; }; then | ||
| 21890 | if test "$cross_compiling" = yes; then | ||
| 21891 | emacs_cv_struct_timezone=yes | ||
| 21892 | else | ||
| 21893 | cat >conftest.$ac_ext <<_ACEOF | ||
| 21894 | /* confdefs.h. */ | ||
| 21895 | _ACEOF | ||
| 21896 | cat confdefs.h >>conftest.$ac_ext | ||
| 21897 | cat >>conftest.$ac_ext <<_ACEOF | ||
| 21898 | /* end confdefs.h. */ | ||
| 21899 | |||
| 21900 | #ifdef TIME_WITH_SYS_TIME | ||
| 21901 | #include <sys/time.h> | ||
| 21902 | #include <time.h> | ||
| 21903 | #else | ||
| 21904 | #ifdef HAVE_SYS_TIME_H | ||
| 21905 | #include <sys/time.h> | ||
| 21906 | #else | ||
| 21907 | #include <time.h> | ||
| 21908 | #endif | ||
| 21909 | #endif | ||
| 21910 | main () { | ||
| 21911 | struct timeval time; | ||
| 21912 | struct timezone dummy; | ||
| 21913 | exit (gettimeofday (&time, &dummy)); | ||
| 21914 | } | ||
| 21915 | _ACEOF | ||
| 21916 | rm -f conftest$ac_exeext | ||
| 21917 | if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 | ||
| 21918 | (eval $ac_link) 2>&5 | ||
| 21919 | ac_status=$? | ||
| 21920 | echo "$as_me:$LINENO: \$? = $ac_status" >&5 | ||
| 21921 | (exit $ac_status); } && { ac_try='./conftest$ac_exeext' | ||
| 21922 | { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 | ||
| 21923 | (eval $ac_try) 2>&5 | ||
| 21924 | ac_status=$? | ||
| 21925 | echo "$as_me:$LINENO: \$? = $ac_status" >&5 | ||
| 21926 | (exit $ac_status); }; }; then | ||
| 21927 | emacs_cv_struct_timezone=yes | ||
| 21928 | else | ||
| 21929 | echo "$as_me: program exited with status $ac_status" >&5 | ||
| 21930 | echo "$as_me: failed program was:" >&5 | ||
| 21931 | sed 's/^/| /' conftest.$ac_ext >&5 | ||
| 21932 | |||
| 21933 | ( exit $ac_status ) | ||
| 21934 | emacs_cv_struct_timezone=no | ||
| 21935 | fi | ||
| 21936 | rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext | ||
| 21937 | fi | ||
| 21938 | else | ||
| 21939 | echo "$as_me: failed program was:" >&5 | ||
| 21940 | sed 's/^/| /' conftest.$ac_ext >&5 | ||
| 21941 | |||
| 21942 | emacs_cv_struct_timezone=no | ||
| 21943 | fi | ||
| 21944 | rm -f conftest.err conftest.$ac_objext conftest.$ac_ext | ||
| 21945 | fi | ||
| 21946 | echo "$as_me:$LINENO: result: $emacs_cv_struct_timezone" >&5 | ||
| 21947 | echo "${ECHO_T}$emacs_cv_struct_timezone" >&6 | ||
| 21948 | fi | ||
| 21949 | |||
| 21950 | ok_so_far=yes | 21657 | ok_so_far=yes |
| 21951 | echo "$as_me:$LINENO: checking for socket" >&5 | 21658 | echo "$as_me:$LINENO: checking for socket" >&5 |
| 21952 | echo $ECHO_N "checking for socket... $ECHO_C" >&6 | 21659 | echo $ECHO_N "checking for socket... $ECHO_C" >&6 |
diff --git a/configure.in b/configure.in index 99cc2d6b6ee..f1402409c0b 100644 --- a/configure.in +++ b/configure.in | |||
| @@ -960,6 +960,7 @@ dnl see the `changequote' comment above. | |||
| 960 | m68* ) machine=sun3 ;; | 960 | m68* ) machine=sun3 ;; |
| 961 | i[3456]86-sun-sunos[34]* ) machine=sun386 ;; | 961 | i[3456]86-sun-sunos[34]* ) machine=sun386 ;; |
| 962 | i[3456]86-*-* ) machine=intel386 ;; | 962 | i[3456]86-*-* ) machine=intel386 ;; |
| 963 | amd64-*-*|x86_64-*-*) machine=amdx86-64 ;; | ||
| 963 | powerpcle* ) machine=powerpcle ;; | 964 | powerpcle* ) machine=powerpcle ;; |
| 964 | powerpc* | rs6000* ) machine=ibmrs6000 ;; | 965 | powerpc* | rs6000* ) machine=ibmrs6000 ;; |
| 965 | sparc* ) machine=sparc ;; | 966 | sparc* ) machine=sparc ;; |
| @@ -2743,38 +2744,6 @@ if test "x$HAVE_TIMEVAL" = xyes; then | |||
| 2743 | fi | 2744 | fi |
| 2744 | fi | 2745 | fi |
| 2745 | 2746 | ||
| 2746 | # This defines (or not) HAVE_TZNAME and HAVE_TM_ZONE. | ||
| 2747 | AC_STRUCT_TIMEZONE | ||
| 2748 | |||
| 2749 | dnl Note that AC_STRUCT_TIMEZONE doesn't do what you might expect. | ||
| 2750 | if test "$ac_cv_func_gettimeofday" = yes; then | ||
| 2751 | AC_CACHE_CHECK([for struct timezone], emacs_cv_struct_timezone, | ||
| 2752 | [AC_TRY_COMPILE([#include <sys/time.h>], | ||
| 2753 | [struct timezone tz;], | ||
| 2754 | dnl It may be that we can't call gettimeofday with a non-null pointer, | ||
| 2755 | dnl even though we have struct timezone (e.g. HPUX). In that case | ||
| 2756 | dnl we'll lie about struct timezone. | ||
| 2757 | [AC_TRY_RUN([ | ||
| 2758 | #ifdef TIME_WITH_SYS_TIME | ||
| 2759 | #include <sys/time.h> | ||
| 2760 | #include <time.h> | ||
| 2761 | #else | ||
| 2762 | #ifdef HAVE_SYS_TIME_H | ||
| 2763 | #include <sys/time.h> | ||
| 2764 | #else | ||
| 2765 | #include <time.h> | ||
| 2766 | #endif | ||
| 2767 | #endif | ||
| 2768 | main () { | ||
| 2769 | struct timeval time; | ||
| 2770 | struct timezone dummy; | ||
| 2771 | exit (gettimeofday (&time, &dummy)); | ||
| 2772 | }], | ||
| 2773 | emacs_cv_struct_timezone=yes, | ||
| 2774 | emacs_cv_struct_timezone=no, emacs_cv_struct_timezone=yes)], | ||
| 2775 | emacs_cv_struct_timezone=no)]) | ||
| 2776 | fi | ||
| 2777 | |||
| 2778 | ok_so_far=yes | 2747 | ok_so_far=yes |
| 2779 | AC_CHECK_FUNC(socket, , ok_so_far=no) | 2748 | AC_CHECK_FUNC(socket, , ok_so_far=no) |
| 2780 | if test $ok_so_far = yes; then | 2749 | if test $ok_so_far = yes; then |
diff --git a/etc/ChangeLog b/etc/ChangeLog index 12ab19fa7b1..13aa4c593c6 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2006-12-08 Michael Olson <mwolson@gnu.org> | ||
| 2 | |||
| 3 | * ERC-NEWS: Note that the list module has been removed. | ||
| 4 | |||
| 1 | 2006-12-05 Micha,Ak(Bl Cadilhac <michael.cadilhac@lrde.org> | 5 | 2006-12-05 Micha,Ak(Bl Cadilhac <michael.cadilhac@lrde.org> |
| 2 | 6 | ||
| 3 | * NEWS (Changes to cmuscheme): Mention the alternative for | 7 | * NEWS (Changes to cmuscheme): Mention the alternative for |
diff --git a/etc/ERC-NEWS b/etc/ERC-NEWS index cce444749c4..5b0cd6f260f 100644 --- a/etc/ERC-NEWS +++ b/etc/ERC-NEWS | |||
| @@ -10,6 +10,11 @@ known as `erc' is now `erc-open'. | |||
| 10 | 10 | ||
| 11 | ** Changes and additions to modules | 11 | ** Changes and additions to modules |
| 12 | 12 | ||
| 13 | *** Channel lists (erc-list.el) | ||
| 14 | |||
| 15 | **** This has been removed from Emacs 22, since a major contributor | ||
| 16 | to it has not yet assigned changes. | ||
| 17 | |||
| 13 | *** Channel tracking (erc-track.el) | 18 | *** Channel tracking (erc-track.el) |
| 14 | 19 | ||
| 15 | **** Use mouse-face and help-echo for channel names in the mode-line. | 20 | **** Use mouse-face and help-echo for channel names in the mode-line. |
| @@ -1945,10 +1945,10 @@ are left unspecified and can be bound individually through the global | |||
| 1945 | or local keymaps. | 1945 | or local keymaps. |
| 1946 | 1946 | ||
| 1947 | +++ | 1947 | +++ |
| 1948 | ** The new kmacro package provides a simpler user interface to | 1948 | ** Emacs' keyboard macro facilities have been enhanced by the new |
| 1949 | emacs' keyboard macro facilities. | 1949 | kmacro package. |
| 1950 | 1950 | ||
| 1951 | Basically, it uses two function keys (default F3 and F4) like this: | 1951 | Keyboard macros are now defined and executed via the F3 and F4 keys: |
| 1952 | F3 starts a macro, F4 ends the macro, and pressing F4 again executes | 1952 | F3 starts a macro, F4 ends the macro, and pressing F4 again executes |
| 1953 | the last macro. While defining the macro, F3 inserts a counter value | 1953 | the last macro. While defining the macro, F3 inserts a counter value |
| 1954 | which automatically increments every time the macro is executed. | 1954 | which automatically increments every time the macro is executed. |
| @@ -1963,8 +1963,8 @@ manipulating the macro counter and format via C-x C-k C-c, | |||
| 1963 | C-x C-k C-a, and C-x C-k C-f. See the commentary in kmacro.el | 1963 | C-x C-k C-a, and C-x C-k C-f. See the commentary in kmacro.el |
| 1964 | for more commands. | 1964 | for more commands. |
| 1965 | 1965 | ||
| 1966 | The normal macro bindings C-x (, C-x ), and C-x e now interfaces to | 1966 | The original macro bindings C-x (, C-x ), and C-x e are still |
| 1967 | the keyboard macro ring. | 1967 | available, but they now interface to the keyboard macro ring too. |
| 1968 | 1968 | ||
| 1969 | The C-x e command now automatically terminates the current macro | 1969 | The C-x e command now automatically terminates the current macro |
| 1970 | before calling it, if used while defining a macro. | 1970 | before calling it, if used while defining a macro. |
diff --git a/etc/edt-user.doc b/etc/edt-user.doc index 1195c21841f..bd130e2f5df 100644 --- a/etc/edt-user.doc +++ b/etc/edt-user.doc | |||
| @@ -5,8 +5,8 @@ File: edt-user.doc --- EDT Emulation User Instructions | |||
| 5 | Copyright (C) 1986, 1992, 1994, 1995, 1999, 2000, 2002, 2003, 2004, | 5 | Copyright (C) 1986, 1992, 1994, 1995, 1999, 2000, 2002, 2003, 2004, |
| 6 | 2005, 2006 Free Software Foundation, Inc. | 6 | 2005, 2006 Free Software Foundation, Inc. |
| 7 | 7 | ||
| 8 | Author: Kevin Gallagher <kevingal@onramp.net> | 8 | Author: Kevin Gallagher <Kevin.Gallagher@boeing.com> |
| 9 | Maintainer: Kevin Gallagher <kevingal@onramp.net> | 9 | Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com> |
| 10 | Keywords: emulations | 10 | Keywords: emulations |
| 11 | 11 | ||
| 12 | This file is part of GNU Emacs. | 12 | This file is part of GNU Emacs. |
| @@ -928,7 +928,7 @@ G-F12: Delete Other Windows | (PF1) | (PF2) | (PF3) | (PF4) | | |||
| 928 | G-HELP: Emacs Help | PAGE |Scroll Win|Open Line | DEL W | | 928 | G-HELP: Emacs Help | PAGE |Scroll Win|Open Line | DEL W | |
| 929 | DO: Execute extended command | (7) | (8) | (9) | (-) | | 929 | DO: Execute extended command | (7) | (8) | (9) | (-) | |
| 930 | C-a: Beginning of Line |Ex Ext Cmd|Fill Parag|Elim Tabs | UND W | | 930 | C-a: Beginning of Line |Ex Ext Cmd|Fill Parag|Elim Tabs | UND W | |
| 931 | C-b: Switch to Buffer +----------+----------+----------+----------+ | 931 | C-b: Backward Character +----------+----------+----------+----------+ |
| 932 | C-d: Delete Character | ADVANCE | BACKUP | CUT/COPY | DEL C | | 932 | C-d: Delete Character | ADVANCE | BACKUP | CUT/COPY | DEL C | |
| 933 | C-e: End of Line | (4) | (5) | (6) | (,) | | 933 | C-e: End of Line | (4) | (5) | (6) | (,) | |
| 934 | C-f: Forward Character | BOTTOM | TOP | Yank | UND C | | 934 | C-f: Forward Character | BOTTOM | TOP | Yank | UND C | |
diff --git a/leim/ChangeLog b/leim/ChangeLog index 1d86928a2c8..c7df3d6cbf9 100644 --- a/leim/ChangeLog +++ b/leim/ChangeLog | |||
| @@ -1,3 +1,15 @@ | |||
| 1 | 2006-12-09 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * quail/latin-alt.el ("scandinavian-alt-postfix"): Fix typo. | ||
| 4 | |||
| 5 | * quail/uni-input.el (ucs-input-help): Fix title of ucs input method. | ||
| 6 | |||
| 7 | 2006-12-09 Eli Zaretskii <eliz@gnu.org> | ||
| 8 | |||
| 9 | * makefile.w32-in (leim-list.el): Depend on leim-ext.el as well. | ||
| 10 | Run Emacs to append non-empty non-comment lines in leim-ext.el | ||
| 11 | to leim-list.el. | ||
| 12 | |||
| 1 | 2006-12-05 Juanma Barranquero <lekktu@gmail.com> | 13 | 2006-12-05 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 14 | ||
| 3 | * makefile.w32-in (MISC): Add $(srcdir)/quail/sisheng.elc. | 15 | * makefile.w32-in (MISC): Add $(srcdir)/quail/sisheng.elc. |
diff --git a/leim/Makefile.in b/leim/Makefile.in index b3e058fa7bb..1892ab8feca 100644 --- a/leim/Makefile.in +++ b/leim/Makefile.in | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | # Makefile for leim subdirectory in GNU Emacs. | 1 | # Makefile for leim subdirectory in GNU Emacs. |
| 2 | # Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 | 2 | # Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 3 | # Free Software Foundation, Inc. | 3 | # Free Software Foundation, Inc. |
| 4 | # Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 | 4 | # Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | # National Institute of Advanced Industrial Science and Technology (AIST) | 5 | # National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | # Registration Number H14PRO021 | 6 | # Registration Number H14PRO021 |
| 7 | 7 | ||
diff --git a/leim/leim-ext.el b/leim/leim-ext.el index 681e81185b2..cdbea2edecd 100644 --- a/leim/leim-ext.el +++ b/leim/leim-ext.el | |||
| @@ -1,8 +1,8 @@ | |||
| 1 | ;; leim-ext.el -- extra leim configulation -*- coding:iso-2022-7bit; -*- | 1 | ;; leim-ext.el -- extra leim configuration -*- coding:iso-2022-7bit; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2004, 2006 | 3 | ;; Copyright (C) 2004, 2006 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 2004, 2005 | 5 | ;; Copyright (C) 2004, 2005, 2006 |
| 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 7 | ;; Registration Number H13PRO009 | 7 | ;; Registration Number H13PRO009 |
| 8 | 8 | ||
diff --git a/leim/makefile.w32-in b/leim/makefile.w32-in index 3b2e2fd41b5..7c1b4fdd99f 100644 --- a/leim/makefile.w32-in +++ b/leim/makefile.w32-in | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | # -*- Makefile -*- for leim subdirectory in GNU Emacs on the Microsoft W32 API. | 1 | # -*- Makefile -*- for leim subdirectory in GNU Emacs on the Microsoft W32 API. |
| 2 | # Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 | 2 | # Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 3 | # Free Software Foundation, Inc. | 3 | # Free Software Foundation, Inc. |
| 4 | # Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 | 4 | # Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | # National Institute of Advanced Industrial Science and Technology (AIST) | 5 | # National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | # Registration Number H14PRO021 | 6 | # Registration Number H14PRO021 |
| 7 | 7 | ||
| @@ -184,11 +184,12 @@ $(MISC_DIC): | |||
| 184 | -f batch-byte-compile $(MISC_DIC:.elc=.el) | 184 | -f batch-byte-compile $(MISC_DIC:.elc=.el) |
| 185 | 185 | ||
| 186 | # | 186 | # |
| 187 | # WARNING: Do NOT split the part inside $(ARGQUOTE)s into multiple lines as | 187 | # WARNING: Do NOT split the parts inside $(ARGQUOTE)s into multiple lines as |
| 188 | # this can break with GNU Make 3.81 and later if sh.exe is used. | 188 | # this can break with GNU Make 3.81 and later if sh.exe is used. |
| 189 | leim-list.el: $(SUBDIRS) $(WORLD) | 189 | leim-list.el: $(SUBDIRS) $(WORLD) $(srcdir)/leim-ext.el |
| 190 | $(RUN_EMACS) -l $(buildlisppath)/international/quail \ | 190 | $(RUN_EMACS) -l $(buildlisppath)/international/quail \ |
| 191 | --eval $(ARGQUOTE)(update-leim-list-file $(DQUOTE).$(DQUOTE))$(ARGQUOTE) | 191 | --eval $(ARGQUOTE)(update-leim-list-file $(DQUOTE).$(DQUOTE))$(ARGQUOTE) |
| 192 | $(RUN_EMACS) --eval $(ARGQUOTE)(w32-append-code-lines $(DQUOTE)$@$(DQUOTE) $(DQUOTE)$(srcdir)/leim-ext.el$(DQUOTE))$(ARGQUOTE) | ||
| 192 | 193 | ||
| 193 | install: all | 194 | install: all |
| 194 | - mkdir "$(INSTALLDIR)" | 195 | - mkdir "$(INSTALLDIR)" |
diff --git a/leim/quail/cyril-jis.el b/leim/quail/cyril-jis.el index e0e76451217..6ac7b456d9a 100644 --- a/leim/quail/cyril-jis.el +++ b/leim/quail/cyril-jis.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; cyril-jis.el --- Quail package for inputting JISX0208 Cyrillic letters | 1 | ;;; cyril-jis.el --- Quail package for inputting JISX0208 Cyrillic letters |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2001, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2001, 2006 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1997 | 4 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 7 | 7 | ||
diff --git a/leim/quail/cyrillic.el b/leim/quail/cyrillic.el index 061bcbb8e58..771858e51e1 100644 --- a/leim/quail/cyrillic.el +++ b/leim/quail/cyrillic.el | |||
| @@ -2,7 +2,7 @@ | |||
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006 | 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1997, 2003 | 5 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 7 | ;; Registration Number H14PRO021 | 7 | ;; Registration Number H14PRO021 |
| 8 | 8 | ||
diff --git a/leim/quail/ethiopic.el b/leim/quail/ethiopic.el index c1f07534c91..dd85cfe384b 100644 --- a/leim/quail/ethiopic.el +++ b/leim/quail/ethiopic.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; ethiopic.el --- Quail package for inputting Ethiopic characters -*-coding: iso-2022-7bit;-*- | 1 | ;;; ethiopic.el --- Quail package for inputting Ethiopic characters -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2001, 2006 | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | ;; Registration Number H14PRO021 | 5 | ;; Registration Number H14PRO021 |
| 6 | 6 | ||
diff --git a/leim/quail/greek.el b/leim/quail/greek.el index a9a97c85352..9c266a2f8f5 100644 --- a/leim/quail/greek.el +++ b/leim/quail/greek.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; greek.el --- Quail package for inputting Greek -*-coding: iso-2022-7bit-*- | 1 | ;;; greek.el --- Quail package for inputting Greek -*-coding: iso-2022-7bit-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2001, 2002, 2003, 2004, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2001, 2002, 2003, 2004, 2006 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1997, 2001 | 4 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 7 | 7 | ||
diff --git a/leim/quail/hangul.el b/leim/quail/hangul.el index a8a821ad9bb..0ed46752bc1 100644 --- a/leim/quail/hangul.el +++ b/leim/quail/hangul.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; hangul.el --- Quail package for inputting Korean Hangul characters -*-coding: iso-2022-7bit;-*- | 1 | ;;; hangul.el --- Quail package for inputting Korean Hangul characters -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2002, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2002, 2006 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1997 | 4 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 7 | 7 | ||
diff --git a/leim/quail/hangul3.el b/leim/quail/hangul3.el index 493d9206f7a..12970198133 100644 --- a/leim/quail/hangul3.el +++ b/leim/quail/hangul3.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; hangul3.el --- Quail package for inputting Korean Hangul characters -*-coding: iso-2022-7bit;-*- | 1 | ;;; hangul3.el --- Quail package for inputting Korean Hangul characters -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2006 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1997, 2002 | 4 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 7 | 7 | ||
diff --git a/leim/quail/hanja-jis.el b/leim/quail/hanja-jis.el index baf426bc94a..569ed8273fe 100644 --- a/leim/quail/hanja-jis.el +++ b/leim/quail/hanja-jis.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; hanja-jis.el --- Quail package for inputting Korean Hanja (JISX0208) -*-coding: iso-2022-7bit;-*- | 1 | ;;; hanja-jis.el --- Quail package for inputting Korean Hanja (JISX0208) -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997 | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | ;; Registration Number H14PRO021 | 5 | ;; Registration Number H14PRO021 |
| 6 | 6 | ||
diff --git a/leim/quail/hanja.el b/leim/quail/hanja.el index 6e9419e73d3..1ef047410d4 100644 --- a/leim/quail/hanja.el +++ b/leim/quail/hanja.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; hanja.el --- Quail-package for Korean Hanja (KSC5601) -*-coding: iso-2022-7bit;-*- | 1 | ;;; hanja.el --- Quail-package for Korean Hanja (KSC5601) -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 2006 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1997 | 4 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 7 | 7 | ||
diff --git a/leim/quail/hebrew.el b/leim/quail/hebrew.el index 4193f59775f..60febc4ea44 100644 --- a/leim/quail/hebrew.el +++ b/leim/quail/hebrew.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; hebrew.el --- Quail package for inputting Hebrew characters -*-coding: iso-2022-7bit;-*- | 1 | ;;; hebrew.el --- Quail package for inputting Hebrew characters -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999 | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | ;; Registration Number H14PRO021 | 5 | ;; Registration Number H14PRO021 |
| 6 | 6 | ||
diff --git a/leim/quail/ipa.el b/leim/quail/ipa.el index 48ce2b4063f..56f356a4782 100644 --- a/leim/quail/ipa.el +++ b/leim/quail/ipa.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; ipa.el --- Quail package for inputting IPA characters -*-coding: iso-2022-7bit;-*- | 1 | ;;; ipa.el --- Quail package for inputting IPA characters -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997 | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | ;; Registration Number H14PRO021 | 5 | ;; Registration Number H14PRO021 |
| 6 | 6 | ||
diff --git a/leim/quail/japanese.el b/leim/quail/japanese.el index 18cd23ae2ed..ff133708153 100644 --- a/leim/quail/japanese.el +++ b/leim/quail/japanese.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; japanese.el --- Quail package for inputting Japanese -*-coding: iso-2022-7bit;-*- | 1 | ;;; japanese.el --- Quail package for inputting Japanese -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2001, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2001, 2006 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2005 | 4 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 7 | 7 | ||
diff --git a/leim/quail/lao.el b/leim/quail/lao.el index 09151735de0..d547ff2dbe9 100644 --- a/leim/quail/lao.el +++ b/leim/quail/lao.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; lao.el --- Quail package for inputting Lao characters -*-coding: iso-2022-7bit;-*- | 1 | ;;; lao.el --- Quail package for inputting Lao characters -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1999, 2004 | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | ;; Registration Number H14PRO021 | 5 | ;; Registration Number H14PRO021 |
| 6 | 6 | ||
diff --git a/leim/quail/latin-alt.el b/leim/quail/latin-alt.el index 330c1b904b2..d573d4a0e13 100644 --- a/leim/quail/latin-alt.el +++ b/leim/quail/latin-alt.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; latin-alt.el --- Quail package for inputting various European characters -*-coding: utf-8;-*- | 1 | ;;; latin-alt.el --- Quail package for inputting various European characters -*-coding: utf-8;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2006 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1999 | 4 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 7 | 7 | ||
| @@ -1289,7 +1289,7 @@ Doubling the postfix separates the letter and postfix: e.g. aee -> ae | |||
| 1289 | (quail-define-package | 1289 | (quail-define-package |
| 1290 | "scandinavian-alt-postfix" "Latin-1" "SC<" t | 1290 | "scandinavian-alt-postfix" "Latin-1" "SC<" t |
| 1291 | "Scandinavian input method with postfix modifiers | 1291 | "Scandinavian input method with postfix modifiers |
| 1292 | Supported languages are Swidish, Norwegian, Danish, and Finnish. | 1292 | Supported languages are Swedish, Norwegian, Danish, and Finnish. |
| 1293 | 1293 | ||
| 1294 | ae -> æ | 1294 | ae -> æ |
| 1295 | oe -> ø | 1295 | oe -> ø |
diff --git a/leim/quail/latin-ltx.el b/leim/quail/latin-ltx.el index 6efdeccad26..cb6052a7f05 100644 --- a/leim/quail/latin-ltx.el +++ b/leim/quail/latin-ltx.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; latin-ltx.el --- Quail package for TeX-style input -*-coding: utf-8;-*- | 1 | ;;; latin-ltx.el --- Quail package for TeX-style input -*-coding: utf-8;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2001, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2001, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 2001, 2005 | 4 | ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 7 | 7 | ||
diff --git a/leim/quail/latin-post.el b/leim/quail/latin-post.el index a3c7d9cb30e..7fdf3e7f980 100644 --- a/leim/quail/latin-post.el +++ b/leim/quail/latin-post.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; latin-post.el --- Quail packages for inputting various European characters -*-coding: utf-8;-*- | 1 | ;;; latin-post.el --- Quail packages for inputting various European characters -*-coding: utf-8;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2006 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1997, 1999 | 4 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 7 | ;; Copyright (C) 2003 | 7 | ;; Copyright (C) 2003 |
diff --git a/leim/quail/latin-pre.el b/leim/quail/latin-pre.el index eb5c118b9f8..be2a1b21749 100644 --- a/leim/quail/latin-pre.el +++ b/leim/quail/latin-pre.el | |||
| @@ -2,7 +2,7 @@ | |||
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2006 | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2006 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2005 | 5 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 7 | ;; Registration Number H14PRO021 | 7 | ;; Registration Number H14PRO021 |
| 8 | 8 | ||
diff --git a/leim/quail/lrt.el b/leim/quail/lrt.el index 7985523f7e1..9ce43294a16 100644 --- a/leim/quail/lrt.el +++ b/leim/quail/lrt.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; lrt.el --- Quail package for inputting Lao characters by LRT method -*-coding: iso-2022-7bit;-*- | 1 | ;;; lrt.el --- Quail package for inputting Lao characters by LRT method -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1998, 2006 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1997, 1999 | 4 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 7 | 7 | ||
diff --git a/leim/quail/py-punct.el b/leim/quail/py-punct.el index 04874b6cb60..5fa4d9b9da0 100644 --- a/leim/quail/py-punct.el +++ b/leim/quail/py-punct.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; py-punct.el --- Quail packages for Chinese (pinyin + extra symbols) -*-coding: iso-2022-7bit;-*- | 1 | ;;; py-punct.el --- Quail packages for Chinese (pinyin + extra symbols) -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2001, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2001, 2006 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1997, 2000 | 4 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 7 | 7 | ||
diff --git a/leim/quail/pypunct-b5.el b/leim/quail/pypunct-b5.el index f8fc747ba03..8d57e42b141 100644 --- a/leim/quail/pypunct-b5.el +++ b/leim/quail/pypunct-b5.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; pypunct-b5.el --- Quail packages for Chinese (pinyin + extra symbols) -*-coding: iso-2022-7bit;-*- | 1 | ;;; pypunct-b5.el --- Quail packages for Chinese (pinyin + extra symbols) -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 2000, 2003 | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | ;; Registration Number H14PRO021 | 5 | ;; Registration Number H14PRO021 |
| 6 | 6 | ||
diff --git a/leim/quail/symbol-ksc.el b/leim/quail/symbol-ksc.el index 1747d40c109..de7386aa2d0 100644 --- a/leim/quail/symbol-ksc.el +++ b/leim/quail/symbol-ksc.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; symbol-ksc.el --- Quail-package for Korean Symbol (KSC5601) -*-coding: iso-2022-7bit;-*- | 1 | ;;; symbol-ksc.el --- Quail-package for Korean Symbol (KSC5601) -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 2005, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 2005, 2006 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1997, 1998 | 4 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 7 | 7 | ||
diff --git a/leim/quail/thai.el b/leim/quail/thai.el index f27aab7acb0..6d7f16cae80 100644 --- a/leim/quail/thai.el +++ b/leim/quail/thai.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; thai.el --- Quail package for inputting Thai characters -*-coding: iso-2022-7bit;-*- | 1 | ;;; thai.el --- Quail package for inputting Thai characters -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 1997, 1999, 2005 | 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 | ||
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 6 | 7 | ||
diff --git a/leim/quail/tibetan.el b/leim/quail/tibetan.el index e3f9f3c8bfb..e710cada914 100644 --- a/leim/quail/tibetan.el +++ b/leim/quail/tibetan.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; tibetan.el --- Quail package for inputting Tibetan characters -*-coding: iso-2022-7bit;-*- | 1 | ;;; tibetan.el --- Quail package for inputting Tibetan characters -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 2006 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1997, 1998, 1999, 2000 | 4 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 7 | 7 | ||
diff --git a/leim/quail/uni-input.el b/leim/quail/uni-input.el index 73ba07ef566..a5f32068424 100644 --- a/leim/quail/uni-input.el +++ b/leim/quail/uni-input.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; uni-input.el --- Hex Unicode input method | 1 | ;;; uni-input.el --- Hex Unicode input method |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2001, 2002, 2003, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2001, 2002, 2003, 2006 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 2004 | 4 | ;; Copyright (C) 2004, 2005, 2006 |
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 7 | 7 | ||
| @@ -118,7 +118,7 @@ While this input method is active, the variable | |||
| 118 | (interactive) | 118 | (interactive) |
| 119 | (with-output-to-temp-buffer "*Help*" | 119 | (with-output-to-temp-buffer "*Help*" |
| 120 | (princ "\ | 120 | (princ "\ |
| 121 | Input method: ucs (mode line indicator:U) | 121 | Input method: ucs (mode line indicator:U+) |
| 122 | 122 | ||
| 123 | Input as Unicode: U<hex> or u<hex>, where <hex> is a four-digit hex number."))) | 123 | Input as Unicode: U<hex> or u<hex>, where <hex> is a four-digit hex number."))) |
| 124 | 124 | ||
diff --git a/leim/quail/viqr.el b/leim/quail/viqr.el index 0a7acf42c70..bbe54a91f6d 100644 --- a/leim/quail/viqr.el +++ b/leim/quail/viqr.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; viqr.el --- Quail packages for inputting Vietnamese with VIQR system -*-coding: iso-2022-7bit;-*- | 1 | ;;; viqr.el --- Quail packages for inputting Vietnamese with VIQR system -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997 | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | ;; Registration Number H14PRO021 | 5 | ;; Registration Number H14PRO021 |
| 6 | 6 | ||
diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog index 97266d8a66e..f15644050d9 100644 --- a/lib-src/ChangeLog +++ b/lib-src/ChangeLog | |||
| @@ -1,3 +1,10 @@ | |||
| 1 | 2006-12-15 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * emacsclient.c (w32_execvp): New function; wrapper for `execvp'. | ||
| 4 | (execvp) [WINDOWSNT]: Redefine to `w32_execvp'. | ||
| 5 | (fail): Remove Windows-specific fix (subsumed into w32_execvp). | ||
| 6 | Suggestions and comment by Eli Zaretskii. | ||
| 7 | |||
| 1 | 2006-12-06 Christoph Conrad <christoph.conrad@gmx.de> | 8 | 2006-12-06 Christoph Conrad <christoph.conrad@gmx.de> |
| 2 | 9 | ||
| 3 | * makefile.w32-in ($(BLD)/emacsclient.exe, $(BLD)/emacsclientw.exe): | 10 | * makefile.w32-in ($(BLD)/emacsclient.exe, $(BLD)/emacsclientw.exe): |
| @@ -19,11 +26,11 @@ | |||
| 19 | (set_tcp_socket): Make the message for non-local connections | 26 | (set_tcp_socket): Make the message for non-local connections |
| 20 | informational rather than an error. | 27 | informational rather than an error. |
| 21 | 28 | ||
| 22 | 2006-11-28 Kevin Ryde <user42@zip.com.au> (tiny change) | 29 | 2006-11-28 Kevin Ryde <user42@zip.com.au> (tiny change) |
| 23 | 30 | ||
| 24 | * etags.c (readline): Check for double quote after #line. | 31 | * etags.c (readline): Check for double quote after #line. |
| 25 | 32 | ||
| 26 | 2006-11-28 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> (tiny change) | 33 | 2006-11-28 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> |
| 27 | 34 | ||
| 28 | * etags.c (readline): sscanf could in principle return 2. | 35 | * etags.c (readline): sscanf could in principle return 2. |
| 29 | 36 | ||
| @@ -55,8 +62,8 @@ | |||
| 55 | 62 | ||
| 56 | 2006-11-24 Michael Mauger <mmaug@yahoo.com> | 63 | 2006-11-24 Michael Mauger <mmaug@yahoo.com> |
| 57 | 64 | ||
| 58 | * emacsclient.c (file_name_absolute_p) [WINDOWSNT]: Support | 65 | * emacsclient.c (file_name_absolute_p) [WINDOWSNT]: Support absolute |
| 59 | absolute file names with forward slashes. | 66 | file names with forward slashes. |
| 60 | 67 | ||
| 61 | 2006-11-23 Juanma Barranquero <lekktu@gmail.com> | 68 | 2006-11-23 Juanma Barranquero <lekktu@gmail.com> |
| 62 | 69 | ||
diff --git a/lib-src/emacsclient.c b/lib-src/emacsclient.c index f05b98eccee..bbd6cbe239b 100644 --- a/lib-src/emacsclient.c +++ b/lib-src/emacsclient.c | |||
| @@ -152,16 +152,15 @@ struct option longopts[] = | |||
| 152 | /* Message functions. */ | 152 | /* Message functions. */ |
| 153 | 153 | ||
| 154 | #ifdef WINDOWSNT | 154 | #ifdef WINDOWSNT |
| 155 | /* I first tried to check for STDOUT. The check did not work, | ||
| 156 | I get a valid handle also in nonconsole apps. | ||
| 157 | Instead I test for console title, which seems to work. */ | ||
| 158 | int | 155 | int |
| 159 | w32_window_app() | 156 | w32_window_app () |
| 160 | { | 157 | { |
| 161 | static int window_app = -1; | 158 | static int window_app = -1; |
| 162 | char szTitle[MAX_PATH]; | 159 | char szTitle[MAX_PATH]; |
| 163 | 160 | ||
| 164 | if (window_app < 0) | 161 | if (window_app < 0) |
| 162 | /* Checking for STDOUT does not work; it's a valid handle also in | ||
| 163 | nonconsole apps. Testing for the console title seems to work. */ | ||
| 165 | window_app = (GetConsoleTitleA (szTitle, MAX_PATH) == 0); | 164 | window_app = (GetConsoleTitleA (szTitle, MAX_PATH) == 0); |
| 166 | 165 | ||
| 167 | return window_app; | 166 | return window_app; |
| @@ -298,6 +297,43 @@ Report bugs to bug-gnu-emacs@gnu.org.\n", progname); | |||
| 298 | } | 297 | } |
| 299 | 298 | ||
| 300 | 299 | ||
| 300 | #ifdef WINDOWSNT | ||
| 301 | |||
| 302 | /* | ||
| 303 | execvp wrapper for Windows. Quotes arguments with embedded spaces. | ||
| 304 | |||
| 305 | This is necessary due to the broken implementation of exec* routines in | ||
| 306 | the Microsoft libraries: they concatenate the arguments together without | ||
| 307 | quoting special characters, and pass the result to CreateProcess, with | ||
| 308 | predictably bad results. By contrast, Posix execvp passes the arguments | ||
| 309 | directly into the argv array of the child process. | ||
| 310 | */ | ||
| 311 | int | ||
| 312 | w32_execvp (path, argv) | ||
| 313 | char *path; | ||
| 314 | char **argv; | ||
| 315 | { | ||
| 316 | int i; | ||
| 317 | |||
| 318 | /* Required to allow a .BAT script as alternate editor. */ | ||
| 319 | argv[0] = (char *) alternate_editor; | ||
| 320 | |||
| 321 | for (i = 0; argv[i]; i++) | ||
| 322 | if (strchr (argv[i], ' ')) | ||
| 323 | { | ||
| 324 | char *quoted = alloca (strlen (argv[i]) + 3); | ||
| 325 | sprintf (quoted, "\"%s\"", argv[i]); | ||
| 326 | argv[i] = quoted; | ||
| 327 | } | ||
| 328 | |||
| 329 | return execvp (path, argv); | ||
| 330 | } | ||
| 331 | |||
| 332 | #undef execvp | ||
| 333 | #define execvp w32_execvp | ||
| 334 | |||
| 335 | #endif /* WINDOWSNT */ | ||
| 336 | |||
| 301 | /* | 337 | /* |
| 302 | Try to run a different command, or --if no alternate editor is | 338 | Try to run a different command, or --if no alternate editor is |
| 303 | defined-- exit with an errorcode. | 339 | defined-- exit with an errorcode. |
| @@ -310,9 +346,7 @@ fail (argc, argv) | |||
| 310 | if (alternate_editor) | 346 | if (alternate_editor) |
| 311 | { | 347 | { |
| 312 | int i = optind - 1; | 348 | int i = optind - 1; |
| 313 | #ifdef WINDOWSNT | 349 | |
| 314 | argv[i] = (char *)alternate_editor; | ||
| 315 | #endif | ||
| 316 | execvp (alternate_editor, argv + i); | 350 | execvp (alternate_editor, argv + i); |
| 317 | message (TRUE, "%s: error executing alternate editor \"%s\"\n", | 351 | message (TRUE, "%s: error executing alternate editor \"%s\"\n", |
| 318 | progname, alternate_editor); | 352 | progname, alternate_editor); |
| @@ -463,7 +497,7 @@ file_name_absolute_p (filename) | |||
| 463 | } | 497 | } |
| 464 | 498 | ||
| 465 | #ifdef WINDOWSNT | 499 | #ifdef WINDOWSNT |
| 466 | /* Wrapper to make WSACleanup a cdecl, as required by atexit(). */ | 500 | /* Wrapper to make WSACleanup a cdecl, as required by atexit. */ |
| 467 | void | 501 | void |
| 468 | __cdecl close_winsock () | 502 | __cdecl close_winsock () |
| 469 | { | 503 | { |
| @@ -858,7 +892,7 @@ main (argc, argv) | |||
| 858 | /* | 892 | /* |
| 859 | Modern Windows restrict which processes can set the foreground window. | 893 | Modern Windows restrict which processes can set the foreground window. |
| 860 | emacsclient can allow Emacs to grab the focus by calling the function | 894 | emacsclient can allow Emacs to grab the focus by calling the function |
| 861 | AllowSetForegroundWindow(). Unfortunately, older Windows (W95, W98 | 895 | AllowSetForegroundWindow. Unfortunately, older Windows (W95, W98 |
| 862 | and NT) lack this function, so we have to check its availability. | 896 | and NT) lack this function, so we have to check its availability. |
| 863 | */ | 897 | */ |
| 864 | if (emacs_pid) | 898 | if (emacs_pid) |
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index db246ef0235..a57b4d5655d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,181 @@ | |||
| 1 | 2006-12-15 Richard Stallman <rms@gnu.org> | ||
| 2 | |||
| 3 | * shell.el (shell): Doc fix. | ||
| 4 | |||
| 5 | 2006-12-15 Kevin Gallagher <Kevin.Gallagher@boeing.com> | ||
| 6 | |||
| 7 | * emulation/edt.el (edt-xserver): | ||
| 8 | * emulation/edt-mapper.el (edt-xserver): Replace `/' with a `-', | ||
| 9 | to fix a problem on Cygwin. | ||
| 10 | |||
| 11 | * emulation/edt.el | ||
| 12 | * emulation/edt-mapper.el | ||
| 13 | * emulation/edt-lk201.el | ||
| 14 | * emulation/edt-pc.el | ||
| 15 | * emulation/edt-vt100.el: Update maintainer's email address. | ||
| 16 | |||
| 17 | 2006-12-15 Simon Marshall <simon@gnu.org> | ||
| 18 | |||
| 19 | * progmodes/cc-fonts.el (c-font-lock-declarations): Fix previous | ||
| 20 | change. | ||
| 21 | |||
| 22 | 2006-12-15 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | ||
| 23 | |||
| 24 | * term/mac-win.el (mac-atsu-font-table): Remove defvar. | ||
| 25 | (mac-handle-font-selection): Use mac-atsu-font-face-attributes | ||
| 26 | instead of mac-atsu-font-table. | ||
| 27 | (fontset-default): Specify argument MAXIMUM in x-list-fonts calls. | ||
| 28 | |||
| 29 | 2006-12-14 Stephen Leake <stephen_leake@member.fsf.org> | ||
| 30 | |||
| 31 | * align.el (align-match-tex-pattern): Fix a rare bug which | ||
| 32 | hanged Emacs. | ||
| 33 | |||
| 34 | 2006-12-14 Richard Stallman <rms@gnu.org> | ||
| 35 | |||
| 36 | * startup.el (use-fancy-splash-screens-p): Use frame-height | ||
| 37 | instead of window-height. Pass frame to image-size. | ||
| 38 | |||
| 39 | 2006-12-13 Kenichi Handa <handa@m17n.org> | ||
| 40 | |||
| 41 | * international/mule-cmds.el (set-locale-environment): | ||
| 42 | Set default-sendmail-coding-system too. | ||
| 43 | |||
| 44 | 2006-12-12 J.D. Smith <jdsmith@as.arizona.edu> | ||
| 45 | |||
| 46 | * progmodes/idlw-help.el: Fix copyright notice. | ||
| 47 | |||
| 48 | 2006-12-12 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 49 | |||
| 50 | * emacs-lisp/syntax.el (syntax-ppss-toplevel-pos): New fun. | ||
| 51 | |||
| 52 | 2006-12-11 Juanma Barranquero <lekktu@gmail.com> | ||
| 53 | |||
| 54 | * subr.el (unread-command-char): Reformat obsolescence info. | ||
| 55 | |||
| 56 | 2006-12-11 Richard Stallman <rms@gnu.org> | ||
| 57 | |||
| 58 | * emacs-lisp/cl-macs.el (defstruct): Suppress warnings | ||
| 59 | about calls to cl-struct-setf-expander. | ||
| 60 | |||
| 61 | 2006-12-11 Juanma Barranquero <lekktu@gmail.com> | ||
| 62 | |||
| 63 | * ediff-merg.el (ediff-show-clashes-only): Doc fix. | ||
| 64 | (ediff-combination-pattern): Fix typo in docstring. | ||
| 65 | |||
| 66 | * textmodes/refer.el (refer-find-entry): Doc fix. | ||
| 67 | (refer-bib-files-regexp, refer-bib-directory, refer-bib-files) | ||
| 68 | (refer-cache-bib-files, refer-find-next-entry, refer-yank-key): | ||
| 69 | Fix tipos in docstrings. | ||
| 70 | |||
| 71 | * progmodes/idlwave.el (idlwave-library-path): Fix typos in docstring. | ||
| 72 | |||
| 73 | 2006-12-10 Kim F. Storm <storm@cua.dk> | ||
| 74 | |||
| 75 | * ido.el (ido-init-completion-maps): Remap backward-kill-word | ||
| 76 | instead of binding M-backspace. | ||
| 77 | |||
| 78 | 2006-12-10 Juanma Barranquero <lekktu@gmail.com> | ||
| 79 | |||
| 80 | * replace.el (replace-match-data, replace-match-maybe-edit): | ||
| 81 | * calc/calc-aent.el (calc-eval-error): | ||
| 82 | * emulation/vi.el (vi-char-argument): | ||
| 83 | * progmodes/cc-langs.el (c-at-vsemi-p-fn) | ||
| 84 | (c-vsemi-status-unknown-p-fn): Doc fixes. | ||
| 85 | |||
| 86 | 2006-12-10 Chong Yidong <cyd@stupidchicken.com> | ||
| 87 | |||
| 88 | * menu-bar.el (menu-bar-showhide-menu, menu-bar-tools-menu) | ||
| 89 | (menu-bar-help-menu): Tooltip fixes. Suggested by Francis Wright. | ||
| 90 | |||
| 91 | 2006-12-10 Masatake YAMATO <jet@gyve.org> | ||
| 92 | |||
| 93 | * progmodes/ld-script.el (ld-script-keywords): Fix a typo. | ||
| 94 | |||
| 95 | 2006-12-09 Chong Yidong <cyd@stupidchicken.com> | ||
| 96 | |||
| 97 | * mouse-sel.el (mouse-sel-mode): Register mouse-2 as a click type. | ||
| 98 | |||
| 99 | * man.el (Man-xref-button-action): New function. If the | ||
| 100 | `Man-target-string' button property is a function, assume it | ||
| 101 | accepts a position argument. | ||
| 102 | (Man-abstract-xref-man-page): Use it. | ||
| 103 | (Man-default-man-entry): New optional arg POS. | ||
| 104 | |||
| 105 | * wdired.el (wdired-preprocess-symlinks): Make the spaces after | ||
| 106 | symlink arrows read-only and non-rear-sticky. | ||
| 107 | |||
| 108 | 2006-12-09 Martin Rudalics <rudalics@gmx.at> | ||
| 109 | |||
| 110 | * wdired.el (wdired-change-to-wdired-mode, wdired-finish-edit) | ||
| 111 | (wdired-search-and-rename): Simplify code. | ||
| 112 | (wdired-preprocess-files, wdired-preprocess-perms): Make | ||
| 113 | read-only property of preceding character rear-nonsticky to | ||
| 114 | avoid that it can be modified. Put old-name and old-link | ||
| 115 | properties on character preceding name and replace | ||
| 116 | put-text-property by add-text-properties. | ||
| 117 | (wdired-get-filename, wdired-get-previous-link): Get old-name | ||
| 118 | and old-link properties from character preceding name and | ||
| 119 | simplify code. | ||
| 120 | (wdired-preprocess-perms, wdired-set-bit, wdired-toggle-bit) | ||
| 121 | (wdired-perms-to-number): Make local-map property | ||
| 122 | rear-nonsticky to avoid that text following permissions may be | ||
| 123 | modified. Use add-text-properties instead of put-text-property | ||
| 124 | when changing a permission bit. | ||
| 125 | (wdired-change-to-dired-mode): Remove stickiness properties. | ||
| 126 | |||
| 127 | 2006-12-09 Juanma Barranquero <lekktu@gmail.com> | ||
| 128 | |||
| 129 | * international/mule-cmds.el (register-input-method): Doc fix. | ||
| 130 | |||
| 131 | 2006-12-09 Masayuki Ataka <masayuki.ataka@gmail.com> (tiny change) | ||
| 132 | |||
| 133 | * cmuscheme.el (scheme-start-file): Use `let*', not `let'. | ||
| 134 | |||
| 135 | 2006-12-09 Micha,Ak(Bl Cadilhac <michael.cadilhac@lrde.org> | ||
| 136 | |||
| 137 | * textmodes/flyspell.el (flyspell-hack-local-variables-hook): New. | ||
| 138 | Force buffer local defs evaluation on local variables loading. | ||
| 139 | (flyspell-mode-on, flyspell-mode-off): Use it in | ||
| 140 | `hack-local-variables-hook'. | ||
| 141 | |||
| 142 | 2006-12-09 Eli Zaretskii <eliz@gnu.org> | ||
| 143 | |||
| 144 | * emacs-lisp/find-func.el (find-variable): Doc fix. | ||
| 145 | |||
| 146 | * help-fns.el (variable-at-point): Doc fix. | ||
| 147 | |||
| 148 | * w32-fns.el (w32-append-code-lines): New function. | ||
| 149 | |||
| 150 | 2006-12-09 Romain Francoise <romain@orebokech.com> | ||
| 151 | |||
| 152 | * comint.el (comint-insert-input): Delete obsolete comment. | ||
| 153 | |||
| 154 | 2006-12-08 Kevin Rodgers <ihs_4664@yahoo.com> | ||
| 155 | |||
| 156 | * files.el (insert-file-1): Compare file size to | ||
| 157 | large-file-warning-threshold and request confirmation when | ||
| 158 | warranted. | ||
| 159 | |||
| 160 | 2006-12-08 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 161 | |||
| 162 | * net/browse-url.el (browse-url): Set DISPLAY to the one of the | ||
| 163 | current frame, in case we're connected to several displays. | ||
| 164 | |||
| 165 | 2006-12-08 Juanma Barranquero <lekktu@gmail.com> | ||
| 166 | |||
| 167 | * frame.el (other-frame): Doc fix. | ||
| 168 | (set-frame-parameter): Fix typo in docstring. | ||
| 169 | |||
| 170 | 2006-12-07 Kim F. Storm <storm@cua.dk> | ||
| 171 | |||
| 172 | * info.el (Info-index): Strip leading colon from topic. | ||
| 173 | |||
| 174 | 2006-12-07 Nick Roberts <nickrob@snap.net.nz> | ||
| 175 | |||
| 176 | * progmodes/gud.el (gud-speedbar-buttons): Deal with references | ||
| 177 | to pointers. | ||
| 178 | |||
| 1 | 2006-12-05 J.D. Smith <jdsmith@as.arizona.edu> | 179 | 2006-12-05 J.D. Smith <jdsmith@as.arizona.edu> |
| 2 | 180 | ||
| 3 | * progmodes/idlwave.el (idlwave-xml-create-class-method-lists): | 181 | * progmodes/idlwave.el (idlwave-xml-create-class-method-lists): |
| @@ -6,9 +184,10 @@ | |||
| 6 | 2006-12-05 Kim F. Storm <storm@cua.dk> | 184 | 2006-12-05 Kim F. Storm <storm@cua.dk> |
| 7 | 185 | ||
| 8 | * emulation/cua-base.el (cua-paste-pop-rotate-temporarily): Doc fix. | 186 | * emulation/cua-base.el (cua-paste-pop-rotate-temporarily): Doc fix. |
| 9 | (cua-paste-pop): Rework last change for cua-paste-pop-rotate-temporarily, | 187 | (cua-paste-pop): Rework last change for |
| 10 | so first M-y and C-y works alike, pasting the head of the kill-ring, and | 188 | cua-paste-pop-rotate-temporarily, so first M-y and C-y works alike, |
| 11 | prefix arg C-u M-y inserts the text inserted by the last M-y command. | 189 | pasting the head of the kill-ring, and prefix arg C-u M-y inserts the |
| 190 | text inserted by the last M-y command. | ||
| 12 | 191 | ||
| 13 | 2006-12-05 Micha,Ak(Bl Cadilhac <michael.cadilhac@lrde.org> | 192 | 2006-12-05 Micha,Ak(Bl Cadilhac <michael.cadilhac@lrde.org> |
| 14 | 193 | ||
| @@ -25,8 +204,7 @@ | |||
| 25 | * progmodes/fortran.el (fortran-mode-abbrev-table) | 204 | * progmodes/fortran.el (fortran-mode-abbrev-table) |
| 26 | * progmodes/octave-mod.el (octave-abbrev-table) | 205 | * progmodes/octave-mod.el (octave-abbrev-table) |
| 27 | * progmodes/sql.el (sql-mode-abbrev-table): Define abbrevs even | 206 | * progmodes/sql.el (sql-mode-abbrev-table): Define abbrevs even |
| 28 | if abbrev-table is non-nil (saved user abbrevs may have been | 207 | if abbrev-table is non-nil (saved user abbrevs may have been restored). |
| 29 | restored). | ||
| 30 | 208 | ||
| 31 | * progmodes/vhdl-mode.el (vhdl-mode-abbrev-table-init): Do not | 209 | * progmodes/vhdl-mode.el (vhdl-mode-abbrev-table-init): Do not |
| 32 | clear abbrev table, else saved abbrevs will not be restored. | 210 | clear abbrev table, else saved abbrevs will not be restored. |
diff --git a/lisp/ChangeLog.1 b/lisp/ChangeLog.1 index 4dd226b42a3..7dc41a63526 100644 --- a/lisp/ChangeLog.1 +++ b/lisp/ChangeLog.1 | |||
| @@ -3246,7 +3246,8 @@ | |||
| 3246 | Set current buffer variables from defaults | 3246 | Set current buffer variables from defaults |
| 3247 | in case user's init file has changed them. | 3247 | in case user's init file has changed them. |
| 3248 | 3248 | ||
| 3249 | Copyright (C) 1985, 1986 Free Software Foundation, Inc. | 3249 | Copyright (C) 1985, 1986, 2001, 2002, 2003, 2004, 2005, 2006 |
| 3250 | Free Software Foundation, Inc. | ||
| 3250 | Copying and distribution of this file, with or without modification, | 3251 | Copying and distribution of this file, with or without modification, |
| 3251 | are permitted provided the copyright notice and this notice are preserved. | 3252 | are permitted provided the copyright notice and this notice are preserved. |
| 3252 | 3253 | ||
diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10 index 912dfd2761b..2547ce63f5b 100644 --- a/lisp/ChangeLog.10 +++ b/lisp/ChangeLog.10 | |||
| @@ -294,7 +294,7 @@ | |||
| 294 | properties completely. | 294 | properties completely. |
| 295 | 295 | ||
| 296 | * progmodes/cc-fonts.el (c-cpp-matchers): Handle line | 296 | * progmodes/cc-fonts.el (c-cpp-matchers): Handle line |
| 297 | continuations in cpp expressions. Do not fontify symbols after | 297 | continuations in cpp expressions. Do not fontify symbols after |
| 298 | #ifdef etc as variables since that isn't consistent with how | 298 | #ifdef etc as variables since that isn't consistent with how |
| 299 | the face is used elsewhere (i.e. only for the definition of | 299 | the face is used elsewhere (i.e. only for the definition of |
| 300 | the symbol). | 300 | the symbol). |
| @@ -492,7 +492,7 @@ | |||
| 492 | directives are now considered part of the keywords to make | 492 | directives are now considered part of the keywords to make |
| 493 | things easier. | 493 | things easier. |
| 494 | 494 | ||
| 495 | * progmodes/cc-defs.el: (c-(up|down)-list-(forward|backward)): | 495 | * progmodes/cc-defs.el (c-(up|down)-list-(forward|backward)): |
| 496 | Make the position optional and added docstrings. | 496 | Make the position optional and added docstrings. |
| 497 | 497 | ||
| 498 | (c-go-(up|down)-list-(forward|backward)): Add variants of the | 498 | (c-go-(up|down)-list-(forward|backward)): Add variants of the |
| @@ -742,7 +742,7 @@ | |||
| 742 | (c-simple-skip-symbol-backward, c-syntactic-content) | 742 | (c-simple-skip-symbol-backward, c-syntactic-content) |
| 743 | (c-remove-<>-paren-properties): New helper functions. | 743 | (c-remove-<>-paren-properties): New helper functions. |
| 744 | 744 | ||
| 745 | * progmodes/cc-defs.el: (c-clear-char-syntax) | 745 | * progmodes/cc-defs.el (c-clear-char-syntax) |
| 746 | (c-mark-paren-open, c-mark-paren-close): New support functions | 746 | (c-mark-paren-open, c-mark-paren-close): New support functions |
| 747 | to handle syntactic properties on C++ template arglist brackets. | 747 | to handle syntactic properties on C++ template arglist brackets. |
| 748 | (c-put-type-face, c-put-reference-face): Helpers to put faces on | 748 | (c-put-type-face, c-put-reference-face): Helpers to put faces on |
| @@ -1074,7 +1074,7 @@ | |||
| 1074 | (iswitchb-xemacs): Delete variable and use (featurep 'xemacs) | 1074 | (iswitchb-xemacs): Delete variable and use (featurep 'xemacs) |
| 1075 | and fboundp instead. | 1075 | and fboundp instead. |
| 1076 | (iswitchb-completions): Remove two redundant arguments and local | 1076 | (iswitchb-completions): Remove two redundant arguments and local |
| 1077 | variables. (All above from Stefan Monnier). | 1077 | variables. (All above from Stefan Monnier). |
| 1078 | 1078 | ||
| 1079 | 2003-06-20 Masatake YAMATO <jet@gyve.org> | 1079 | 2003-06-20 Masatake YAMATO <jet@gyve.org> |
| 1080 | 1080 | ||
| @@ -1182,7 +1182,7 @@ | |||
| 1182 | (gud-find-c-expr): Simplify. | 1182 | (gud-find-c-expr): Simplify. |
| 1183 | 1183 | ||
| 1184 | * progmodes/fortran.el (fortran-gud-syntax-table): Syntax table | 1184 | * progmodes/fortran.el (fortran-gud-syntax-table): Syntax table |
| 1185 | for parsing Fortran expressions for gud-print. (Stefan Monnier) | 1185 | for parsing Fortran expressions for gud-print. (Stefan Monnier) |
| 1186 | (fortran-mode): Add local variable gud-find-expr. | 1186 | (fortran-mode): Add local variable gud-find-expr. |
| 1187 | 1187 | ||
| 1188 | * progmodes/cc-mode.el (c-mode): Add local variable gud-find-expr. | 1188 | * progmodes/cc-mode.el (c-mode): Add local variable gud-find-expr. |
| @@ -1285,7 +1285,7 @@ | |||
| 1285 | 1285 | ||
| 1286 | * emacs-lisp/debug.el (debug): Fix call to message. | 1286 | * emacs-lisp/debug.el (debug): Fix call to message. |
| 1287 | 1287 | ||
| 1288 | 2003-06-16 Michael Mauger <mmaug@yahoo.com> (tiny change) | 1288 | 2003-06-16 Michael Mauger <mmaug@yahoo.com> (tiny change) |
| 1289 | 1289 | ||
| 1290 | * emulation/cua-base.el (cua-mode): Use explicit arg to turn off | 1290 | * emulation/cua-base.el (cua-mode): Use explicit arg to turn off |
| 1291 | minor modes. | 1291 | minor modes. |
| @@ -2183,7 +2183,7 @@ | |||
| 2183 | when requested. | 2183 | when requested. |
| 2184 | (gud-menu-map): Add a toggle button to menubar for gdb-many-windows. | 2184 | (gud-menu-map): Add a toggle button to menubar for gdb-many-windows. |
| 2185 | (gdb-many-windows): Define explicitly as a function and a variable | 2185 | (gdb-many-windows): Define explicitly as a function and a variable |
| 2186 | (formerly as a minor mode). These need to be global so layout can | 2186 | (formerly as a minor mode). These need to be global so layout can |
| 2187 | be reset from any buffer. | 2187 | be reset from any buffer. |
| 2188 | (gdb-assembler-mode): Keep fringe outside margin as the overlay | 2188 | (gdb-assembler-mode): Keep fringe outside margin as the overlay |
| 2189 | arrow is not used for assembler. | 2189 | arrow is not used for assembler. |
| @@ -2257,7 +2257,7 @@ | |||
| 2257 | 2257 | ||
| 2258 | * net/tramp-efs.el: New file. | 2258 | * net/tramp-efs.el: New file. |
| 2259 | 2259 | ||
| 2260 | 2003-05-24 Michael Albinus <Michael.Albinus@alcatel.de> | 2260 | 2003-05-24 Michael Albinus <Michael.Albinus@alcatel.de> |
| 2261 | 2261 | ||
| 2262 | * net/tramp.el (tramp-handle-file-truename): `sym' shouldn't be | 2262 | * net/tramp.el (tramp-handle-file-truename): `sym' shouldn't be |
| 2263 | quoted. | 2263 | quoted. |
| @@ -2302,7 +2302,7 @@ | |||
| 2302 | (forms--mode-commands): Don't bind \t in the maps where | 2302 | (forms--mode-commands): Don't bind \t in the maps where |
| 2303 | we call forms--mode-commands1. | 2303 | we call forms--mode-commands1. |
| 2304 | 2304 | ||
| 2305 | 2003-05-23 Taro Kawagishi <tarok@acm.org> | 2305 | 2003-05-23 Taro Kawagishi <tarok@acm.org> |
| 2306 | 2306 | ||
| 2307 | * arc-mode.el (archive-lzh-summarize): Calculate correct total | 2307 | * arc-mode.el (archive-lzh-summarize): Calculate correct total |
| 2308 | header size for LZH level 1 header. | 2308 | header size for LZH level 1 header. |
| @@ -2396,7 +2396,7 @@ | |||
| 2396 | choices buffer. | 2396 | choices buffer. |
| 2397 | (ispell-show-choices): Directly select `choices-window'. | 2397 | (ispell-show-choices): Directly select `choices-window'. |
| 2398 | (ispell-help): Use default buffer size for electric help. | 2398 | (ispell-help): Use default buffer size for electric help. |
| 2399 | (ispell-adjusted-window-height): Correct for xemacs detection. | 2399 | (ispell-adjusted-window-height): Correct for XEmacs detection. |
| 2400 | (ispell-start-process): Don't double specify dictionary file name. | 2400 | (ispell-start-process): Don't double specify dictionary file name. |
| 2401 | (ispell-init-process): Set `ispell-library-path' each call. | 2401 | (ispell-init-process): Set `ispell-library-path' each call. |
| 2402 | (ispell-change-dictionary): Now only completes valid dictionaries. | 2402 | (ispell-change-dictionary): Now only completes valid dictionaries. |
| @@ -3831,7 +3831,7 @@ | |||
| 3831 | 2003-04-13 Masatake YAMATO <jet@gyve.org> | 3831 | 2003-04-13 Masatake YAMATO <jet@gyve.org> |
| 3832 | 3832 | ||
| 3833 | * bindings.el (toplevel): Don't change the face | 3833 | * bindings.el (toplevel): Don't change the face |
| 3834 | of major-mode on the mode line. Setting the face on | 3834 | of major-mode on the mode line. Setting the face on |
| 3835 | the mode line code is installed by my mistake in | 3835 | the mode line code is installed by my mistake in |
| 3836 | my last change. | 3836 | my last change. |
| 3837 | 3837 | ||
| @@ -3876,7 +3876,7 @@ | |||
| 3876 | (describe-minor-mode-from-symbol): | 3876 | (describe-minor-mode-from-symbol): |
| 3877 | Renamed from (old) describe-minor-mode. | 3877 | Renamed from (old) describe-minor-mode. |
| 3878 | Use describe-minor-mode-completion-table-for-symbol. | 3878 | Use describe-minor-mode-completion-table-for-symbol. |
| 3879 | Don't use eval. Just use symbol-name. | 3879 | Don't use eval. Just use symbol-name. |
| 3880 | (describe-minor-mode-from-indicator): Document is updated. | 3880 | (describe-minor-mode-from-indicator): Document is updated. |
| 3881 | Use `format-mode-line'. | 3881 | Use `format-mode-line'. |
| 3882 | Use describe-minor-mode-from-symbol instead of describe-minor-mode. | 3882 | Use describe-minor-mode-from-symbol instead of describe-minor-mode. |
| @@ -3933,7 +3933,7 @@ | |||
| 3933 | 2003-04-11 Masatake YAMATO <jet@gyve.org> | 3933 | 2003-04-11 Masatake YAMATO <jet@gyve.org> |
| 3934 | 3934 | ||
| 3935 | * progmodes/etags.el (select-tags-table-mode-map): | 3935 | * progmodes/etags.el (select-tags-table-mode-map): |
| 3936 | Don't create new keymap. Instead copy from button-buffer-map. | 3936 | Don't create new keymap. Instead copy from button-buffer-map. |
| 3937 | Bind push-button to `t' instead of binding | 3937 | Bind push-button to `t' instead of binding |
| 3938 | select-tags-table-select directly | 3938 | select-tags-table-select directly |
| 3939 | (tags-select-tags-table): New button. | 3939 | (tags-select-tags-table): New button. |
| @@ -4124,7 +4124,7 @@ | |||
| 4124 | the same order as that in the buffer list, | 4124 | the same order as that in the buffer list, |
| 4125 | (desktop-save): Put buffers in the order given in desktop file, | 4125 | (desktop-save): Put buffers in the order given in desktop file, |
| 4126 | regardless of what handlers do. | 4126 | regardless of what handlers do. |
| 4127 | (desktop-file-version): New variable. Version number of desktop | 4127 | (desktop-file-version): New variable. Version number of desktop |
| 4128 | file format. | 4128 | file format. |
| 4129 | (desktop-create-buffer-form): Variable deleted. | 4129 | (desktop-create-buffer-form): Variable deleted. |
| 4130 | (desktop-save): New customizable variable. | 4130 | (desktop-save): New customizable variable. |
| @@ -4134,7 +4134,7 @@ | |||
| 4134 | (desktop-file-name): New function to convert a filename to the | 4134 | (desktop-file-name): New function to convert a filename to the |
| 4135 | format specified in `desktop-file-name-format'. | 4135 | format specified in `desktop-file-name-format'. |
| 4136 | (desktop-create-buffer): Parameters renamed to descriptive | 4136 | (desktop-create-buffer): Parameters renamed to descriptive |
| 4137 | systematic names. These parameters are visible to handlers. | 4137 | systematic names. These parameters are visible to handlers. |
| 4138 | Renames: | 4138 | Renames: |
| 4139 | ver -> desktop-file-version | 4139 | ver -> desktop-file-version |
| 4140 | mim -> desktop-buffer-minor-modes | 4140 | mim -> desktop-buffer-minor-modes |
| @@ -4157,7 +4157,7 @@ | |||
| 4157 | (desktop-change-dir): New function. | 4157 | (desktop-change-dir): New function. |
| 4158 | (desktop-save-in-load-dir): New function. Save desktop in | 4158 | (desktop-save-in-load-dir): New function. Save desktop in |
| 4159 | directory from which it was loaded. | 4159 | directory from which it was loaded. |
| 4160 | (desktop-revert): New function. Revert to the last loaded desktop. | 4160 | (desktop-revert): New function. Revert to the last loaded desktop. |
| 4161 | 4161 | ||
| 4162 | 2003-04-06 Masatake YAMATO <jet@gyve.org> | 4162 | 2003-04-06 Masatake YAMATO <jet@gyve.org> |
| 4163 | 4163 | ||
| @@ -5624,7 +5624,7 @@ | |||
| 5624 | Face markup of calendar and diary displays: Any entry line that | 5624 | Face markup of calendar and diary displays: Any entry line that |
| 5625 | ends with [foo:value] where foo is a face attribute (except :box | 5625 | ends with [foo:value] where foo is a face attribute (except :box |
| 5626 | :stipple) or with [face:blah] tags, will have these values applied | 5626 | :stipple) or with [face:blah] tags, will have these values applied |
| 5627 | to the calendar and fancy diary displays. These attributes "stack" | 5627 | to the calendar and fancy diary displays. These attributes "stack" |
| 5628 | on calendar displays. File-wide attributes can be defined as | 5628 | on calendar displays. File-wide attributes can be defined as |
| 5629 | follows: the first line matching "^# [tag:value]" defines the | 5629 | follows: the first line matching "^# [tag:value]" defines the |
| 5630 | value for that particular tag. All of the tags' regexps can be | 5630 | value for that particular tag. All of the tags' regexps can be |
| @@ -6260,7 +6260,7 @@ | |||
| 6260 | of unrecognized entries indicating syntax errors in ChangeLog files. | 6260 | of unrecognized entries indicating syntax errors in ChangeLog files. |
| 6261 | (authors-coding-system): New variable. | 6261 | (authors-coding-system): New variable. |
| 6262 | (authors-many-files): Update doc string. | 6262 | (authors-many-files): Update doc string. |
| 6263 | (authors-aliases): Change format. Now one entry with multiple | 6263 | (authors-aliases): Change format. Now one entry with multiple |
| 6264 | aliases per author. | 6264 | aliases per author. |
| 6265 | (authors-valid-file-names, authors-renamed-files-alist) | 6265 | (authors-valid-file-names, authors-renamed-files-alist) |
| 6266 | (authors-renamed-files-regexps): New variables. | 6266 | (authors-renamed-files-regexps): New variables. |
| @@ -6363,7 +6363,7 @@ | |||
| 6363 | 6363 | ||
| 6364 | 2003-01-25 Bill Wohler <wohler@newt.com> | 6364 | 2003-01-25 Bill Wohler <wohler@newt.com> |
| 6365 | 6365 | ||
| 6366 | * mh-e: Created directory. ChangeLog will appear in a week when we | 6366 | * mh-e: Created directory. ChangeLog will appear in a week when we |
| 6367 | release version 7.2. | 6367 | release version 7.2. |
| 6368 | 6368 | ||
| 6369 | * mail/mh-alias.el, mail/mh-comp.el, mail/mh-customize.el, mail/mh-e.el, | 6369 | * mail/mh-alias.el, mail/mh-comp.el, mail/mh-customize.el, mail/mh-e.el, |
| @@ -6532,7 +6532,7 @@ | |||
| 6532 | 6532 | ||
| 6533 | * gud.el (gud-display-line): If the current file is newer than its | 6533 | * gud.el (gud-display-line): If the current file is newer than its |
| 6534 | buffer, offer to reread the file. | 6534 | buffer, offer to reread the file. |
| 6535 | (gud-keep-buffer): New buffer local variable. Ensures offer to | 6535 | (gud-keep-buffer): New buffer local variable. Ensures offer to |
| 6536 | reread file is made just once. | 6536 | reread file is made just once. |
| 6537 | 6537 | ||
| 6538 | 2003-01-20 Stefan Monnier <monnier@cs.yale.edu> | 6538 | 2003-01-20 Stefan Monnier <monnier@cs.yale.edu> |
| @@ -6862,7 +6862,7 @@ | |||
| 6862 | 2003-01-11 Nick Roberts <nick@nick.uklinux.net> | 6862 | 2003-01-11 Nick Roberts <nick@nick.uklinux.net> |
| 6863 | 6863 | ||
| 6864 | * gud.el (gud-kill-buffer-hook): Save gud-minor-mode type. | 6864 | * gud.el (gud-kill-buffer-hook): Save gud-minor-mode type. |
| 6865 | (gud-reset): New function. Reset environment at end of debugging. | 6865 | (gud-reset): New function. Reset environment at end of debugging. |
| 6866 | (gud-sentinel): Call gud-reset or gdb-reset. | 6866 | (gud-sentinel): Call gud-reset or gdb-reset. |
| 6867 | (gud-menu-map, gud-tool-bar-map, gdb): Change gud-goto to gud-until. | 6867 | (gud-menu-map, gud-tool-bar-map, gdb): Change gud-goto to gud-until. |
| 6868 | 6868 | ||
| @@ -6870,7 +6870,7 @@ | |||
| 6870 | to find out if variable shuld be dereferenced. | 6870 | to find out if variable shuld be dereferenced. |
| 6871 | (gud-display1): Exit if there is `No symbol'. | 6871 | (gud-display1): Exit if there is `No symbol'. |
| 6872 | (gdb-expressions-mode-map): Correction to key-binding. | 6872 | (gdb-expressions-mode-map): Correction to key-binding. |
| 6873 | (gdb-reset): New function. Reset environment at end of debugging. | 6873 | (gdb-reset): New function. Reset environment at end of debugging. |
| 6874 | (gdb-quit): Remove. | 6874 | (gdb-quit): Remove. |
| 6875 | 6875 | ||
| 6876 | 2003-01-10 Dave Love <fx@gnu.org> | 6876 | 2003-01-10 Dave Love <fx@gnu.org> |
| @@ -7159,7 +7159,7 @@ | |||
| 7159 | (gdb-mouse-goto-breakpoint, gdb-frames-select): New functions. | 7159 | (gdb-mouse-goto-breakpoint, gdb-frames-select): New functions. |
| 7160 | (gdb-frames-mouse-select): Simplify. | 7160 | (gdb-frames-mouse-select): Simplify. |
| 7161 | Make keybindings (gdb-goto-breakpoint, gdb-frames-select, etc) | 7161 | Make keybindings (gdb-goto-breakpoint, gdb-frames-select, etc) |
| 7162 | consistent with other modes in emacs. | 7162 | consistent with other modes in Emacs. |
| 7163 | (gdb-display-source-buffer): Return window of source buffer | 7163 | (gdb-display-source-buffer): Return window of source buffer |
| 7164 | for (gud-display-line). | 7164 | for (gud-display-line). |
| 7165 | 7165 | ||
| @@ -7395,8 +7395,8 @@ | |||
| 7395 | 7395 | ||
| 7396 | 2002-12-21 Nick Roberts <nick@nick.uklinux.net> | 7396 | 2002-12-21 Nick Roberts <nick@nick.uklinux.net> |
| 7397 | 7397 | ||
| 7398 | * gdb-ui.el: Remove the concept of an instance. This means that | 7398 | * gdb-ui.el: Remove the concept of an instance. This means that |
| 7399 | a lot of functions have been renamed. Accessors are prefixed with | 7399 | a lot of functions have been renamed. Accessors are prefixed with |
| 7400 | gdb-get, setters with gdb-set and the word instance has been | 7400 | gdb-get, setters with gdb-set and the word instance has been |
| 7401 | removed from many function and variable names. | 7401 | removed from many function and variable names. |
| 7402 | (gdb-display-buffer): Protect source buffer as well | 7402 | (gdb-display-buffer): Protect source buffer as well |
| @@ -7575,7 +7575,7 @@ | |||
| 7575 | 2002-12-13 Markus Rost <rost@math.ohio-state.edu> | 7575 | 2002-12-13 Markus Rost <rost@math.ohio-state.edu> |
| 7576 | 7576 | ||
| 7577 | * emacs-lisp/easy-mmode.el (define-minor-mode): | 7577 | * emacs-lisp/easy-mmode.el (define-minor-mode): |
| 7578 | Use `custom-current-group'. Pass all groups to the hook. | 7578 | Use `custom-current-group'. Pass all groups to the hook. |
| 7579 | (easy-mmode-define-global-mode): Use `custom-current-group'. | 7579 | (easy-mmode-define-global-mode): Use `custom-current-group'. |
| 7580 | 7580 | ||
| 7581 | * international/mule-cmds.el (current-language-environment): | 7581 | * international/mule-cmds.el (current-language-environment): |
| @@ -7993,7 +7993,7 @@ | |||
| 7993 | 2002-11-30 Nick Roberts <nick@nick.uklinux.net> | 7993 | 2002-11-30 Nick Roberts <nick@nick.uklinux.net> |
| 7994 | 7994 | ||
| 7995 | * gdb-ui.el (gdb-many-windows): Define as a minor mode. | 7995 | * gdb-ui.el (gdb-many-windows): Define as a minor mode. |
| 7996 | (toggle-gdb-windows): Remove. (Patch from Stefan Monnier) | 7996 | (toggle-gdb-windows): Remove. (Patch from Stefan Monnier) |
| 7997 | 7997 | ||
| 7998 | * tooltip.el (tooltip-gud-process-output): Handle annotations that | 7998 | * tooltip.el (tooltip-gud-process-output): Handle annotations that |
| 7999 | are output with gdba in gdb-ui.el. | 7999 | are output with gdba in gdb-ui.el. |
| @@ -8115,7 +8115,7 @@ | |||
| 8115 | * tooltip.el (tooltip-gud-print-command): Add server prefix to the | 8115 | * tooltip.el (tooltip-gud-print-command): Add server prefix to the |
| 8116 | print command for gdb to keep it out of the command history. | 8116 | print command for gdb to keep it out of the command history. |
| 8117 | 8117 | ||
| 8118 | * gdb-ui.el: Major re-organisation. Simplify legacy gdba | 8118 | * gdb-ui.el: Major re-organisation. Simplify legacy gdba |
| 8119 | code to allow only one gdb process. | 8119 | code to allow only one gdb process. |
| 8120 | 8120 | ||
| 8121 | 2002-11-23 Markus Rost <rost@math.ohio-state.edu> | 8121 | 2002-11-23 Markus Rost <rost@math.ohio-state.edu> |
| @@ -8129,7 +8129,7 @@ | |||
| 8129 | 8129 | ||
| 8130 | 2002-11-21 Nick Roberts <nick@nick.uklinux.net> | 8130 | 2002-11-21 Nick Roberts <nick@nick.uklinux.net> |
| 8131 | 8131 | ||
| 8132 | * gdb-ui.el : General tidying. Patches from Stefan Monnier. | 8132 | * gdb-ui.el : General tidying. Patches from Stefan Monnier. |
| 8133 | 8133 | ||
| 8134 | 2002-11-20 Simon Josefsson <jas@extundo.com> | 8134 | 2002-11-20 Simon Josefsson <jas@extundo.com> |
| 8135 | 8135 | ||
| @@ -9372,11 +9372,11 @@ | |||
| 9372 | append slash only if result doesn't end in a slash already. | 9372 | append slash only if result doesn't end in a slash already. |
| 9373 | (tramp-handle-file-truename): Restructure logic. If list of steps | 9373 | (tramp-handle-file-truename): Restructure logic. If list of steps |
| 9374 | is nil, return "/" as the real name. | 9374 | is nil, return "/" as the real name. |
| 9375 | (tramp-completion-mode): Add "\\(" and "\\)". Otherwise, | 9375 | (tramp-completion-mode): Add "\\(" and "\\)". Otherwise, |
| 9376 | `match-string' doesn't make sense. From Michael Albinus. | 9376 | `match-string' doesn't make sense. From Michael Albinus. |
| 9377 | (tramp-host-with-port-regexp): New defcustom. Equal to previous | 9377 | (tramp-host-with-port-regexp): New defcustom. Equal to previous |
| 9378 | `tramp-host-regexp'. From Michael Albinus. | 9378 | `tramp-host-regexp'. From Michael Albinus. |
| 9379 | (tramp-host-regexp): Taken off hashes in host names. Otherwise, | 9379 | (tramp-host-regexp): Taken off hashes in host names. Otherwise, |
| 9380 | scanning files like .rhosts would take comments as host names. | 9380 | scanning files like .rhosts would take comments as host names. |
| 9381 | From Michael Albinus. | 9381 | From Michael Albinus. |
| 9382 | (tramp-file-name-structure, tramp-multi-file-name-hop-structure): | 9382 | (tramp-file-name-structure, tramp-multi-file-name-hop-structure): |
| @@ -10009,7 +10009,7 @@ | |||
| 10009 | (occur-next, occur-prev): Use it. | 10009 | (occur-next, occur-prev): Use it. |
| 10010 | 10010 | ||
| 10011 | * progmodes/sh-script.el (sh-mark-init): Don't set `occur-buffer'. | 10011 | * progmodes/sh-script.el (sh-mark-init): Don't set `occur-buffer'. |
| 10012 | (sh-mark-line): Likewise. Use 'occur-target and 'occur-match | 10012 | (sh-mark-line): Likewise. Use 'occur-target and 'occur-match |
| 10013 | instead of 'occur and 'occur-point. | 10013 | instead of 'occur and 'occur-point. |
| 10014 | 10014 | ||
| 10015 | * eshell/em-unix.el (eshell-occur-mode-mouse-goto) | 10015 | * eshell/em-unix.el (eshell-occur-mode-mouse-goto) |
| @@ -10096,7 +10096,7 @@ | |||
| 10096 | (tramp-parse-netrc, tramp-parse-netrc-group): New functions. | 10096 | (tramp-parse-netrc, tramp-parse-netrc-group): New functions. |
| 10097 | (tramp-user-regexp): " \t" are not user regexp characters. | 10097 | (tramp-user-regexp): " \t" are not user regexp characters. |
| 10098 | (tramp-completion-handle-file-name-all-completions): | 10098 | (tramp-completion-handle-file-name-all-completions): |
| 10099 | Remove Ange-FTP cmpletion. It has a bug not handling the "/ftp:" prefix | 10099 | Remove Ange-FTP cmpletion. It has a bug not handling the "/ftp:" prefix |
| 10100 | completely, and it returns local completions as well. | 10100 | completely, and it returns local completions as well. |
| 10101 | (tramp-completion-function-alist-ftp): New constant. | 10101 | (tramp-completion-function-alist-ftp): New constant. |
| 10102 | (tramp-completion-function-alist): Add completion function for "ftp". | 10102 | (tramp-completion-function-alist): Add completion function for "ftp". |
| @@ -10275,27 +10275,26 @@ | |||
| 10275 | 2002-09-07 Michael Albinus <Michael.Albinus@alcatel.de> | 10275 | 2002-09-07 Michael Albinus <Michael.Albinus@alcatel.de> |
| 10276 | 10276 | ||
| 10277 | * net/tramp.el (tramp-methods): Remove `tramp-completion-function' | 10277 | * net/tramp.el (tramp-methods): Remove `tramp-completion-function' |
| 10278 | entries. They are handled now by `tramp-completion-function-alist'. | 10278 | entries. They are handled now by `tramp-completion-function-alist'. |
| 10279 | (tramp-completion-function): Defvar removed. I've never used | 10279 | (tramp-completion-function): Defvar removed. I've never used it. Hmm. |
| 10280 | it. Hmm. | ||
| 10281 | (tramp-get-completion-function) | 10280 | (tramp-get-completion-function) |
| 10282 | (tramp-get-completion-rsh, tramp-get-completion-ssh) | 10281 | (tramp-get-completion-rsh, tramp-get-completion-ssh) |
| 10283 | (tramp-get-completion-telnet, tramp-get-completion-su): | 10282 | (tramp-get-completion-telnet, tramp-get-completion-su): |
| 10284 | Functions removed as well. Not necessary any longer due to extended | 10283 | Functions removed as well. Not necessary any longer due to extended |
| 10285 | customization means. | 10284 | customization means. |
| 10286 | (tramp-completion-function-alist): New defcustom. Holds all | 10285 | (tramp-completion-function-alist): New defcustom. Holds all |
| 10287 | FUNCTION FILE pairs used for user and host name completion | 10286 | FUNCTION FILE pairs used for user and host name completion |
| 10288 | relevant for METHOD. | 10287 | relevant for METHOD. |
| 10289 | (tramp-completion-function-alist-rsh) | 10288 | (tramp-completion-function-alist-rsh) |
| 10290 | (tramp-completion-function-alist-ssh) | 10289 | (tramp-completion-function-alist-ssh) |
| 10291 | (tramp-completion-function-alist-telnet) | 10290 | (tramp-completion-function-alist-telnet) |
| 10292 | (tramp-completion-function-alist-su): Defconst for initializing | 10291 | (tramp-completion-function-alist-su): Defconst for initializing |
| 10293 | `tramp-completion-function-alist'. Unfortunately, mainly UNIX-like | 10292 | `tramp-completion-function-alist'. Unfortunately, mainly UNIX-like |
| 10294 | values are known for me until now. Needs to be completed for at | 10293 | values are known for me until now. Needs to be completed for at |
| 10295 | least VMS++ like operating systems. | 10294 | least VMS++ like operating systems. |
| 10296 | (tramp-set-completion-function) | 10295 | (tramp-set-completion-function) |
| 10297 | (tramp-get-completion-function): New functions for configuration | 10296 | (tramp-get-completion-function): New functions for configuration |
| 10298 | of `tramp-completion-function-alist'. The old definition of | 10297 | of `tramp-completion-function-alist'. The old definition of |
| 10299 | `tramp-get-completion-function' has been discarded. | 10298 | `tramp-get-completion-function' has been discarded. |
| 10300 | (tramp-completion-handle-file-name-all-completions): | 10299 | (tramp-completion-handle-file-name-all-completions): |
| 10301 | Change function call for user/host completion according to definition | 10300 | Change function call for user/host completion according to definition |
| @@ -10332,7 +10331,7 @@ | |||
| 10332 | (tramp-get-completion-user-host): Accept user names as they are if | 10331 | (tramp-get-completion-user-host): Accept user names as they are if |
| 10333 | typed until "@". | 10332 | typed until "@". |
| 10334 | (tramp-completion-mode): Replace `last-input-char' by modern | 10333 | (tramp-completion-mode): Replace `last-input-char' by modern |
| 10335 | `last-input-event'. Check for `event-modifiers'. | 10334 | `last-input-event'. Check for `event-modifiers'. |
| 10336 | 10335 | ||
| 10337 | 2002-09-06 Kai Gro,A_(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> | 10336 | 2002-09-06 Kai Gro,A_(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> |
| 10338 | 10337 | ||
| @@ -10391,8 +10390,8 @@ | |||
| 10391 | (tramp-make-multi-tramp-file-format-unified) | 10390 | (tramp-make-multi-tramp-file-format-unified) |
| 10392 | (tramp-make-multi-tramp-file-format-separate): Removed. | 10391 | (tramp-make-multi-tramp-file-format-separate): Removed. |
| 10393 | (tramp-make-tramp-file-name): Allow partial tramp file | 10392 | (tramp-make-tramp-file-name): Allow partial tramp file |
| 10394 | names. Generate tramp file format on-the-fly depending on | 10393 | names. Generate tramp file format on-the-fly depending on |
| 10395 | parameters. Apply atomar format strings resp expressions. | 10394 | parameters. Apply atomar format strings resp expressions. |
| 10396 | (tramp-get-completion-methods) | 10395 | (tramp-get-completion-methods) |
| 10397 | (tramp-get-completion-user-host): Apply `tramp-make-tramp-file-name'. | 10396 | (tramp-get-completion-user-host): Apply `tramp-make-tramp-file-name'. |
| 10398 | (tramp-parse-hosts-group): Take all host names and IP addresses | 10397 | (tramp-parse-hosts-group): Take all host names and IP addresses |
| @@ -10444,7 +10443,7 @@ | |||
| 10444 | 10443 | ||
| 10445 | * net/tramp.el (tramp-get-completion-methods) | 10444 | * net/tramp.el (tramp-get-completion-methods) |
| 10446 | (tramp-get-completion-rsh) | 10445 | (tramp-get-completion-rsh) |
| 10447 | (tramp-get-completion-ssh): Add "[" for Xemacs. | 10446 | (tramp-get-completion-ssh): Add "[" for XEmacs. |
| 10448 | (tramp-completion-file-name-regexp-separate): Expression adapted. | 10447 | (tramp-completion-file-name-regexp-separate): Expression adapted. |
| 10449 | (tramp-completion-file-name-handler-alist): Add handler for | 10448 | (tramp-completion-file-name-handler-alist): Add handler for |
| 10450 | `file-name-directory' and `file-name-nondirectory'. | 10449 | `file-name-directory' and `file-name-nondirectory'. |
| @@ -10455,7 +10454,7 @@ | |||
| 10455 | (tramp-completion-handle-file-name-all-completions): | 10454 | (tramp-completion-handle-file-name-all-completions): |
| 10456 | Apply `tramp-completion-run-real-handler'. | 10455 | Apply `tramp-completion-run-real-handler'. |
| 10457 | (tramp-parse-rhosts) | 10456 | (tramp-parse-rhosts) |
| 10458 | (tramp-parse-shosts): Use `with-temp-buffer'. `result$,1!=(B renamed to | 10457 | (tramp-parse-shosts): Use `with-temp-buffer'. `result' renamed to |
| 10459 | `res' (otherwise side effects in XEmacs). | 10458 | `res' (otherwise side effects in XEmacs). |
| 10460 | 10459 | ||
| 10461 | 2002-08-24 Michael Albinus <Michael.Albinus@alcatel.de> | 10460 | 2002-08-24 Michael Albinus <Michael.Albinus@alcatel.de> |
| @@ -10470,7 +10469,7 @@ | |||
| 10470 | (tramp-get-completion-ssh): Doc string tuned. | 10469 | (tramp-get-completion-ssh): Doc string tuned. |
| 10471 | (tramp-methods): Doc string and custom type extended for | 10470 | (tramp-methods): Doc string and custom type extended for |
| 10472 | `tramp-completion-function'. | 10471 | `tramp-completion-function'. |
| 10473 | (tramp-completion-function): Variable added. Is it really used? | 10472 | (tramp-completion-function): Variable added. Is it really used? |
| 10474 | Other variables like `tramp-completion-function' aren't used. | 10473 | Other variables like `tramp-completion-function' aren't used. |
| 10475 | (tramp-completion-file-name-handler-alist): Add handler for | 10474 | (tramp-completion-file-name-handler-alist): Add handler for |
| 10476 | `file-name-completion'. | 10475 | `file-name-completion'. |
| @@ -10518,7 +10517,7 @@ | |||
| 10518 | 10517 | ||
| 10519 | * net/tramp.el (tramp-invoke-ange-ftp): `tramp-disable-ange-ftp' | 10518 | * net/tramp.el (tramp-invoke-ange-ftp): `tramp-disable-ange-ftp' |
| 10520 | must be called again after activating `ange-ftp'. | 10519 | must be called again after activating `ange-ftp'. |
| 10521 | (tramp-ange-ftp-file-name-p): Check for Xemacs. | 10520 | (tramp-ange-ftp-file-name-p): Check for XEmacs. |
| 10522 | 10521 | ||
| 10523 | 2002-08-08 Michael Albinus <Michael.Albinus@alcatel.de> | 10522 | 2002-08-08 Michael Albinus <Michael.Albinus@alcatel.de> |
| 10524 | 10523 | ||
| @@ -10528,7 +10527,7 @@ | |||
| 10528 | tramp-invoke-ange-ftp 'write-region. | 10527 | tramp-invoke-ange-ftp 'write-region. |
| 10529 | (tramp-handle-set-file-modes): Change order of FILENAME and MODE | 10528 | (tramp-handle-set-file-modes): Change order of FILENAME and MODE |
| 10530 | passing to tramp-invoke-ange-ftp 'set-file-modes. | 10529 | passing to tramp-invoke-ange-ftp 'set-file-modes. |
| 10531 | (tramp-flatten-list): New function. Maybe this functionality does | 10530 | (tramp-flatten-list): New function. Maybe this functionality does |
| 10532 | exist already elsewhere in the libraries. | 10531 | exist already elsewhere in the libraries. |
| 10533 | (tramp-invoke-ange-ftp): Apply `tramp-flatten-list' to parameter | 10532 | (tramp-invoke-ange-ftp): Apply `tramp-flatten-list' to parameter |
| 10534 | list in order to avoid nested lists, f.e. when invoked from | 10533 | list in order to avoid nested lists, f.e. when invoked from |
| @@ -10660,7 +10659,7 @@ | |||
| 10660 | 10659 | ||
| 10661 | 2002-09-18 Luc Teirlinck <teirllm@mail.auburn.edu> | 10660 | 2002-09-18 Luc Teirlinck <teirllm@mail.auburn.edu> |
| 10662 | 10661 | ||
| 10663 | * ielm.el: (*1, *2, *3): New variables. | 10662 | * ielm.el (*1, *2, *3): New variables. |
| 10664 | (ielm-eval-input): Make temporary buffers current on entry and | 10663 | (ielm-eval-input): Make temporary buffers current on entry and |
| 10665 | exit to the let bindings for *, ** and ***. | 10664 | exit to the let bindings for *, ** and ***. |
| 10666 | (inferior-emacs-lisp-mode): Mention *1, *2 and *3 in the docstring. | 10665 | (inferior-emacs-lisp-mode): Mention *1, *2 and *3 in the docstring. |
| @@ -10961,7 +10960,7 @@ | |||
| 10961 | 2002-09-12 Simon Josefsson <jas@extundo.com> | 10960 | 2002-09-12 Simon Josefsson <jas@extundo.com> |
| 10962 | 10961 | ||
| 10963 | * mail/smtpmail.el (smtpmail-send-it): Don't use : in filenames | 10962 | * mail/smtpmail.el (smtpmail-send-it): Don't use : in filenames |
| 10964 | (for cygwin). Suggested by Andrew Senior <aws@watson.ibm.com>. | 10963 | (for cygwin). Suggested by Andrew Senior <aws@watson.ibm.com>. |
| 10965 | Use expand-file-name. Also don't require time-stamp. | 10964 | Use expand-file-name. Also don't require time-stamp. |
| 10966 | 10965 | ||
| 10967 | 2002-09-11 Richard M. Stallman <rms@gnu.org> | 10966 | 2002-09-11 Richard M. Stallman <rms@gnu.org> |
| @@ -11259,7 +11258,7 @@ | |||
| 11259 | 2002-09-08 Kim F. Storm <storm@cua.dk> | 11258 | 2002-09-08 Kim F. Storm <storm@cua.dk> |
| 11260 | 11259 | ||
| 11261 | * kmacro.el (kmacro-end-and-call-macro): New command to end and | 11260 | * kmacro.el (kmacro-end-and-call-macro): New command to end and |
| 11262 | call keyboard macro in one step. Bind it to C-x e by default. | 11261 | call keyboard macro in one step. Bind it to C-x e by default. |
| 11263 | (kmacro-call-macro): Use format-kbd-macro. | 11262 | (kmacro-call-macro): Use format-kbd-macro. |
| 11264 | (kmacro-step-edit-macro): New command to interactively step edit | 11263 | (kmacro-step-edit-macro): New command to interactively step edit |
| 11265 | and execute last keyboard macro. | 11264 | and execute last keyboard macro. |
| @@ -11459,7 +11458,7 @@ | |||
| 11459 | 11458 | ||
| 11460 | From Michael Albinus <Michael.Albinus@alcatel.de>: | 11459 | From Michael Albinus <Michael.Albinus@alcatel.de>: |
| 11461 | * net/tramp.el (tramp-invoke-ange-ftp): | 11460 | * net/tramp.el (tramp-invoke-ange-ftp): |
| 11462 | (tramp-ange-ftp-file-name-p): Check for Xemacs. | 11461 | (tramp-ange-ftp-file-name-p): Check for XEmacs. |
| 11463 | (tramp-do-copy-or-rename-file): Don't pass KEEP-DATE to | 11462 | (tramp-do-copy-or-rename-file): Don't pass KEEP-DATE to |
| 11464 | tramp-invoke-ange-ftp 'rename. | 11463 | tramp-invoke-ange-ftp 'rename. |
| 11465 | (tramp-handle-write-region): Don't pass LOCKNAME and CONFIRM to | 11464 | (tramp-handle-write-region): Don't pass LOCKNAME and CONFIRM to |
| @@ -12552,7 +12551,7 @@ | |||
| 12552 | 12551 | ||
| 12553 | * warnings.el (lwarn, warn, warning-levels): Doc fix. | 12552 | * warnings.el (lwarn, warn, warning-levels): Doc fix. |
| 12554 | (warning-suppress-log-types): Fix typo. | 12553 | (warning-suppress-log-types): Fix typo. |
| 12555 | (display-warning): Fix typo. Remove useless assignment to free variable | 12554 | (display-warning): Fix typo. Remove useless assignment to free variable |
| 12556 | `group-string'. | 12555 | `group-string'. |
| 12557 | 12556 | ||
| 12558 | 2002-07-25 Markus Rost <rost@math.ohio-state.edu> | 12557 | 2002-07-25 Markus Rost <rost@math.ohio-state.edu> |
| @@ -13371,8 +13370,8 @@ | |||
| 13371 | * files.el (after-find-file): Don't check for read-only status | 13370 | * files.el (after-find-file): Don't check for read-only status |
| 13372 | of files just created (and not yet saved on disk). | 13371 | of files just created (and not yet saved on disk). |
| 13373 | 13372 | ||
| 13374 | * ido.el (ido-completion-help): Changed xemacs specific code to | 13373 | * ido.el (ido-completion-help): Changed XEmacs specific code to |
| 13375 | avoid byte compiler warning in GNU emacs. | 13374 | avoid byte compiler warning in GNU Emacs. |
| 13376 | (ido-set-matches1): Use regexp-quote instead of identity. | 13375 | (ido-set-matches1): Use regexp-quote instead of identity. |
| 13377 | (ido-complete-space): New function. | 13376 | (ido-complete-space): New function. |
| 13378 | (ido-define-mode-map): Bind it to SPACE. | 13377 | (ido-define-mode-map): Bind it to SPACE. |
| @@ -13696,7 +13695,7 @@ | |||
| 13696 | * faces.el (describe-face): Capitalize "not documented" message. | 13695 | * faces.el (describe-face): Capitalize "not documented" message. |
| 13697 | 13696 | ||
| 13698 | * help-fns.el (describe-variable): Likewise. | 13697 | * help-fns.el (describe-variable): Likewise. |
| 13699 | (describe-function-1): Likewise. Also, document the obsolescence | 13698 | (describe-function-1): Likewise. Also, document the obsolescence |
| 13700 | of the function, if applicable. | 13699 | of the function, if applicable. |
| 13701 | 13700 | ||
| 13702 | 2002-06-26 Juanma Barranquero <lektu@terra.es> | 13701 | 2002-06-26 Juanma Barranquero <lektu@terra.es> |
| @@ -14190,7 +14189,7 @@ | |||
| 14190 | (italic): Try underlining for displays that don't support real italics. | 14189 | (italic): Try underlining for displays that don't support real italics. |
| 14191 | * cus-edit.el (custom-display): Add support for `supports' predicate. | 14190 | * cus-edit.el (custom-display): Add support for `supports' predicate. |
| 14192 | * term/tty-colors.el (color-name-rgb-alist): Use 16-bit RGB values | 14191 | * term/tty-colors.el (color-name-rgb-alist): Use 16-bit RGB values |
| 14193 | instead of 8-bit, for consistency with the rest of emacs. | 14192 | instead of 8-bit, for consistency with the rest of Emacs. |
| 14194 | (tty-color-canonicalize): Only copy COLOR if we need to change it. | 14193 | (tty-color-canonicalize): Only copy COLOR if we need to change it. |
| 14195 | (tty-color-approximate): Scale values from `color-name-rgb-alist' | 14194 | (tty-color-approximate): Scale values from `color-name-rgb-alist' |
| 14196 | appropriately. Return the whole color description, rather than | 14195 | appropriately. Return the whole color description, rather than |
| @@ -14553,7 +14552,7 @@ | |||
| 14553 | 14552 | ||
| 14554 | 2002-05-24 Glenn Morris <gmorris@ast.cam.ac.uk> | 14553 | 2002-05-24 Glenn Morris <gmorris@ast.cam.ac.uk> |
| 14555 | 14554 | ||
| 14556 | * progmodes/f90.el: (f90-end-of-subprogram): Remove the final | 14555 | * progmodes/f90.el (f90-end-of-subprogram): Remove the final |
| 14557 | `forward-line'. | 14556 | `forward-line'. |
| 14558 | (f90-end-of-block, f90-beginning-of-block, f90-next-block-end) | 14557 | (f90-end-of-block, f90-beginning-of-block, f90-next-block-end) |
| 14559 | (f90-previous-block-start): New navigation commands. | 14558 | (f90-previous-block-start): New navigation commands. |
| @@ -14587,7 +14586,7 @@ | |||
| 14587 | (apropos-calc-scores, apropos-score-str, apropos-score-doc) | 14586 | (apropos-calc-scores, apropos-score-str, apropos-score-doc) |
| 14588 | (apropos-score-symbol): New functions. | 14587 | (apropos-score-symbol): New functions. |
| 14589 | (apropos-command, apropos, apropos-value, apropos-documentation): | 14588 | (apropos-command, apropos, apropos-value, apropos-documentation): |
| 14590 | Allow keywords in addition to regexp. Added scoring. | 14589 | Allow keywords in addition to regexp. Added scoring. |
| 14591 | (apropos-documentation-check-doc-file) | 14590 | (apropos-documentation-check-doc-file) |
| 14592 | (apropos-documentation-check-elc-file): Added scoring. | 14591 | (apropos-documentation-check-elc-file): Added scoring. |
| 14593 | (apropos-print): Sort according to score. | 14592 | (apropos-print): Sort according to score. |
| @@ -15271,7 +15270,7 @@ | |||
| 15271 | (mouse-wheel-scroll-screen): Remove. | 15270 | (mouse-wheel-scroll-screen): Remove. |
| 15272 | ([mouse-wheel], [C-mouse-wheel], [S-mouse-wheel]): Use mwheel-scroll. | 15271 | ([mouse-wheel], [C-mouse-wheel], [S-mouse-wheel]): Use mwheel-scroll. |
| 15273 | 15272 | ||
| 15274 | * w32-vars.el: (mouse-wheel-scroll-amount): Remove. | 15273 | * w32-vars.el (mouse-wheel-scroll-amount): Remove. |
| 15275 | 15274 | ||
| 15276 | 2002-05-04 Markus Rost <rost@math.ohio-state.edu> | 15275 | 2002-05-04 Markus Rost <rost@math.ohio-state.edu> |
| 15277 | 15276 | ||
| @@ -15964,7 +15963,7 @@ | |||
| 15964 | 15963 | ||
| 15965 | 2002-04-22 Martin Stjernholm <bug-cc-mode@gnu.org> | 15964 | 2002-04-22 Martin Stjernholm <bug-cc-mode@gnu.org> |
| 15966 | 15965 | ||
| 15967 | * progmodes/cc-mode.el: (c-define-abbrev-table): New function to | 15966 | * progmodes/cc-mode.el (c-define-abbrev-table): New function to |
| 15968 | pass the SYSTEM-FLAG to `define-abbrev' in a way that works in | 15967 | pass the SYSTEM-FLAG to `define-abbrev' in a way that works in |
| 15969 | emacsen that doesn't support it. | 15968 | emacsen that doesn't support it. |
| 15970 | 15969 | ||
| @@ -16480,7 +16479,7 @@ | |||
| 16480 | and macros. | 16479 | and macros. |
| 16481 | 16480 | ||
| 16482 | (c-in-literal): No longer recognizes macros as literals by | 16481 | (c-in-literal): No longer recognizes macros as literals by |
| 16483 | default. An extra flag argument is required to do that. | 16482 | default. An extra flag argument is required to do that. |
| 16484 | 16483 | ||
| 16485 | (c-macro-start, c-query-macro-start) | 16484 | (c-macro-start, c-query-macro-start) |
| 16486 | (c-query-and-set-macro-start): Added a cache for the macro | 16485 | (c-query-and-set-macro-start): Added a cache for the macro |
| @@ -16848,9 +16847,9 @@ | |||
| 16848 | (scroll-all-beginning-of-buffer-all, scroll-all-end-of-buffer-all): | 16847 | (scroll-all-beginning-of-buffer-all, scroll-all-end-of-buffer-all): |
| 16849 | New functions. | 16848 | New functions. |
| 16850 | 16849 | ||
| 16851 | * files.el: (auto-mode-alist): .f95 files in f90-mode. | 16850 | * files.el (auto-mode-alist): .f95 files in f90-mode. |
| 16852 | 16851 | ||
| 16853 | * progmodes/fortran.el: (fortran-beginning-do): Make regexp match | 16852 | * progmodes/fortran.el (fortran-beginning-do): Make regexp match |
| 16854 | a DO statement irrespective of numeric label. | 16853 | a DO statement irrespective of numeric label. |
| 16855 | 16854 | ||
| 16856 | 2002-04-20 Glenn Morris <gmorris@ast.cam.ac.uk> | 16855 | 2002-04-20 Glenn Morris <gmorris@ast.cam.ac.uk> |
| @@ -16956,7 +16955,7 @@ | |||
| 16956 | 16955 | ||
| 16957 | 2002-04-16 Michael Kifer <kifer@cs.stonybrook.edu> | 16956 | 2002-04-16 Michael Kifer <kifer@cs.stonybrook.edu> |
| 16958 | 16957 | ||
| 16959 | * viper-ex.el: Patch by Samuel Padgett. Copyright papers received. | 16958 | * viper-ex.el: Patch by Samuel Padgett. Copyright papers received. |
| 16960 | (viper-ex-print-buf-name): New variable. | 16959 | (viper-ex-print-buf-name): New variable. |
| 16961 | (viper-ex-print-buf): New variable. | 16960 | (viper-ex-print-buf): New variable. |
| 16962 | (ex-token-alist): Invoke ex-print on ":print" Ex commands. | 16961 | (ex-token-alist): Invoke ex-print on ":print" Ex commands. |
| @@ -17448,7 +17447,7 @@ | |||
| 17448 | 2002-04-02 Mike Williams <mdub@bigfoot.com> | 17447 | 2002-04-02 Mike Williams <mdub@bigfoot.com> |
| 17449 | 17448 | ||
| 17450 | * textmodes/sgml-mode.el (sgml-close-tag): Rename from | 17449 | * textmodes/sgml-mode.el (sgml-close-tag): Rename from |
| 17451 | sgml-insert-end-tag. Simplify by using sgml-lexical-context. | 17450 | sgml-insert-end-tag. Simplify by using sgml-lexical-context. |
| 17452 | (sgml-get-context): Remove use of sgml-inside-tag-p. | 17451 | (sgml-get-context): Remove use of sgml-inside-tag-p. |
| 17453 | (sgml-inside-tag-p): Remove. | 17452 | (sgml-inside-tag-p): Remove. |
| 17454 | (sgml-looking-back-at): Short-circuit at beg of buffer. | 17453 | (sgml-looking-back-at): Short-circuit at beg of buffer. |
| @@ -17493,7 +17492,7 @@ | |||
| 17493 | 17492 | ||
| 17494 | * textmodes/xml-lite.el: Removed much redundant stuff. | 17493 | * textmodes/xml-lite.el: Removed much redundant stuff. |
| 17495 | (xml-lite-parse-tag-backward): Simplify parsing by assuming we | 17494 | (xml-lite-parse-tag-backward): Simplify parsing by assuming we |
| 17496 | always start within text. Make use of sgml-unclosed-tag-p. | 17495 | always start within text. Make use of sgml-unclosed-tag-p. |
| 17497 | 17496 | ||
| 17498 | 2002-04-01 Ville Skytt,Ad(B <ville.skytta@xemacs.org> | 17497 | 2002-04-01 Ville Skytt,Ad(B <ville.skytta@xemacs.org> |
| 17499 | 17498 | ||
| @@ -18368,7 +18367,7 @@ | |||
| 18368 | 18367 | ||
| 18369 | * ediff-init.el: Comments. | 18368 | * ediff-init.el: Comments. |
| 18370 | 18369 | ||
| 18371 | * ediff-hook.el: Got rid of autoloads. Not needed, since the hook | 18370 | * ediff-hook.el: Got rid of autoloads. Not needed, since the hook |
| 18372 | is loaded. | 18371 | is loaded. |
| 18373 | 18372 | ||
| 18374 | * ediff-mult.el (ediff-intersect-directories) | 18373 | * ediff-mult.el (ediff-intersect-directories) |
| @@ -18383,7 +18382,7 @@ | |||
| 18383 | 18382 | ||
| 18384 | * ediff-util.el (ediff-compute-custom-diffs-maybe): Buglet fix. | 18383 | * ediff-util.el (ediff-compute-custom-diffs-maybe): Buglet fix. |
| 18385 | (ediff-inferior-compare-regions): Use | 18384 | (ediff-inferior-compare-regions): Use |
| 18386 | ediff-clone-buffer-for-region-comparison. Better and simpler interface. | 18385 | ediff-clone-buffer-for-region-comparison. Better and simpler interface. |
| 18387 | 18386 | ||
| 18388 | * ediff.el (ediff-directories-internal): Cleanup. | 18387 | * ediff.el (ediff-directories-internal): Cleanup. |
| 18389 | (ediff-clone-buffer-for-region-comparison): Better interface. | 18388 | (ediff-clone-buffer-for-region-comparison): Better interface. |
| @@ -19140,7 +19139,7 @@ | |||
| 19140 | 2002-02-10 Michael Kifer <kifer@cs.stonybrook.edu> | 19139 | 2002-02-10 Michael Kifer <kifer@cs.stonybrook.edu> |
| 19141 | 19140 | ||
| 19142 | * viper-util.el (viper-read-key-sequence): Fix so it'll read | 19141 | * viper-util.el (viper-read-key-sequence): Fix so it'll read |
| 19143 | fast key sequences in emacs native mode | 19142 | fast key sequences in Emacs native mode |
| 19144 | (viper-events-to-keys): Delete. | 19143 | (viper-events-to-keys): Delete. |
| 19145 | 19144 | ||
| 19146 | * viper.el (describe-key, describe-key-briefly): Get rid of | 19145 | * viper.el (describe-key, describe-key-briefly): Get rid of |
| @@ -19705,7 +19704,7 @@ | |||
| 19705 | 19704 | ||
| 19706 | 2002-01-20 Colin Walters <walters@verbum.org> | 19705 | 2002-01-20 Colin Walters <walters@verbum.org> |
| 19707 | 19706 | ||
| 19708 | * ibuffer.el: (toplevel) Require `ibuf-ext', which is now compiled | 19707 | * ibuffer.el (toplevel): Require `ibuf-ext', which is now compiled |
| 19709 | with `byte-compile-dynamic'. | 19708 | with `byte-compile-dynamic'. |
| 19710 | (ibuffer-default-directory, toplevel): Doc files. | 19709 | (ibuffer-default-directory, toplevel): Doc files. |
| 19711 | 19710 | ||
| @@ -20050,7 +20049,7 @@ | |||
| 20050 | 20049 | ||
| 20051 | * viper-init.el (viper-cond-compile-for-xemacs-or-emacs): | 20050 | * viper-init.el (viper-cond-compile-for-xemacs-or-emacs): |
| 20052 | new macro that replaces viper-emacs-p and viper-xemacs-p in many | 20051 | new macro that replaces viper-emacs-p and viper-xemacs-p in many |
| 20053 | cases. Used to reduce the number of warnings. | 20052 | cases. Used to reduce the number of warnings. |
| 20054 | 20053 | ||
| 20055 | * viper-cmd.el: Use viper-cond-compile-for-xemacs-or-emacs. | 20054 | * viper-cmd.el: Use viper-cond-compile-for-xemacs-or-emacs. |
| 20056 | (viper-standard-value): Move here from viper.el. | 20055 | (viper-standard-value): Move here from viper.el. |
| @@ -21766,7 +21765,7 @@ | |||
| 21766 | 21765 | ||
| 21767 | 2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu> | 21766 | 2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu> |
| 21768 | 21767 | ||
| 21769 | * mail/rmail.el (rmail-enable-mime-composing): New. A lightweight | 21768 | * mail/rmail.el (rmail-enable-mime-composing): New. A lightweight |
| 21770 | version of rmail-enable-mime. | 21769 | version of rmail-enable-mime. |
| 21771 | (rmail-forward): Use it. | 21770 | (rmail-forward): Use it. |
| 21772 | 21771 | ||
| @@ -22028,7 +22027,7 @@ | |||
| 22028 | 22027 | ||
| 22029 | * emacs-lisp/lisp.el (mark-sexp): Mark more if repeated. | 22028 | * emacs-lisp/lisp.el (mark-sexp): Mark more if repeated. |
| 22030 | 22029 | ||
| 22031 | * progmodes/cc-engine.el (c-parse-state): Typo. From Martin Stjernholm. | 22030 | * progmodes/cc-engine.el (c-parse-state): Typo. From Martin Stjernholm. |
| 22032 | 22031 | ||
| 22033 | * mwheel.el (mouse-wheel-scroll-amount): Allow float values. | 22032 | * mwheel.el (mouse-wheel-scroll-amount): Allow float values. |
| 22034 | (mouse-wheel-progessive-speed): New var. | 22033 | (mouse-wheel-progessive-speed): New var. |
| @@ -22600,7 +22599,7 @@ | |||
| 22600 | * calc/calc-macs.el (calc-record-compilation-date-macro): Return a | 22599 | * calc/calc-macs.el (calc-record-compilation-date-macro): Return a |
| 22601 | simple `setq' form. | 22600 | simple `setq' form. |
| 22602 | 22601 | ||
| 22603 | * calc/calc-ext.el: (toplevel): Require calc. | 22602 | * calc/calc-ext.el (toplevel): Require calc. |
| 22604 | (calc-fancy-prefix-map): New. | 22603 | (calc-fancy-prefix-map): New. |
| 22605 | (calc-fancy-prefix): Use it. | 22604 | (calc-fancy-prefix): Use it. |
| 22606 | (calc-fancy-prefix-other-key): New. | 22605 | (calc-fancy-prefix-other-key): New. |
| @@ -23233,7 +23232,7 @@ | |||
| 23233 | 23232 | ||
| 23234 | 2001-10-26 Jason Rumney <jasonr@gnu.org> | 23233 | 2001-10-26 Jason Rumney <jasonr@gnu.org> |
| 23235 | 23234 | ||
| 23236 | * w32-fns.el: (w32-charset-info-alist): Use ANSI for iso10646-1 | 23235 | * w32-fns.el (w32-charset-info-alist): Use ANSI for iso10646-1 |
| 23237 | when UNICODE is not defined. | 23236 | when UNICODE is not defined. |
| 23238 | 23237 | ||
| 23239 | 2001-10-26 Sam Steingold <sds@gnu.org> | 23238 | 2001-10-26 Sam Steingold <sds@gnu.org> |
| @@ -23547,7 +23546,8 @@ See ChangeLog.9 for earlier changes. | |||
| 23547 | ;; coding: iso-2022-7bit | 23546 | ;; coding: iso-2022-7bit |
| 23548 | ;; End: | 23547 | ;; End: |
| 23549 | 23548 | ||
| 23550 | Copyright (C) 2001, 2002 Free Software Foundation, Inc. | 23549 | Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 |
| 23550 | Free Software Foundation, Inc. | ||
| 23551 | Copying and distribution of this file, with or without modification, | 23551 | Copying and distribution of this file, with or without modification, |
| 23552 | are permitted provided the copyright notice and this notice are preserved. | 23552 | are permitted provided the copyright notice and this notice are preserved. |
| 23553 | 23553 | ||
diff --git a/lisp/ChangeLog.11 b/lisp/ChangeLog.11 index f9c93d4102e..4de116f8bf9 100644 --- a/lisp/ChangeLog.11 +++ b/lisp/ChangeLog.11 | |||
| @@ -14336,7 +14336,7 @@ See ChangeLog.10 for earlier changes. | |||
| 14336 | ;; coding: iso-2022-7bit | 14336 | ;; coding: iso-2022-7bit |
| 14337 | ;; End: | 14337 | ;; End: |
| 14338 | 14338 | ||
| 14339 | Copyright (C) 2003, 2004 Free Software Foundation, Inc. | 14339 | Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 14340 | Copying and distribution of this file, with or without modification, | 14340 | Copying and distribution of this file, with or without modification, |
| 14341 | are permitted provided the copyright notice and this notice are preserved. | 14341 | are permitted provided the copyright notice and this notice are preserved. |
| 14342 | 14342 | ||
diff --git a/lisp/ChangeLog.2 b/lisp/ChangeLog.2 index fd97c5a07aa..cc94f4ff64f 100644 --- a/lisp/ChangeLog.2 +++ b/lisp/ChangeLog.2 | |||
| @@ -3994,7 +3994,8 @@ | |||
| 3994 | 3994 | ||
| 3995 | See ChangeLog.1 for earlier changes. | 3995 | See ChangeLog.1 for earlier changes. |
| 3996 | 3996 | ||
| 3997 | Copyright (C) 1986, 1987, 1988 Free Software Foundation, Inc. | 3997 | Copyright (C) 1986, 1987, 1988, 2001, 2002, 2003, 2004, 2005, 2006 |
| 3998 | Free Software Foundation, Inc. | ||
| 3998 | Copying and distribution of this file, with or without modification, | 3999 | Copying and distribution of this file, with or without modification, |
| 3999 | are permitted provided the copyright notice and this notice are preserved. | 4000 | are permitted provided the copyright notice and this notice are preserved. |
| 4000 | 4001 | ||
diff --git a/lisp/ChangeLog.3 b/lisp/ChangeLog.3 index af6d2f0c382..66bad2c8021 100644 --- a/lisp/ChangeLog.3 +++ b/lisp/ChangeLog.3 | |||
| @@ -12615,7 +12615,8 @@ | |||
| 12615 | 12615 | ||
| 12616 | See ChangeLog.2 for earlier changes. | 12616 | See ChangeLog.2 for earlier changes. |
| 12617 | 12617 | ||
| 12618 | Copyright (C) 1989, 1993 Free Software Foundation, Inc. | 12618 | Copyright (C) 1989, 1993, 2001, 2002, 2003, 2004, 2005, 2006 |
| 12619 | Free Software Foundation, Inc. | ||
| 12619 | Copying and distribution of this file, with or without modification, | 12620 | Copying and distribution of this file, with or without modification, |
| 12620 | are permitted provided the copyright notice and this notice are preserved. | 12621 | are permitted provided the copyright notice and this notice are preserved. |
| 12621 | 12622 | ||
diff --git a/lisp/ChangeLog.4 b/lisp/ChangeLog.4 index 2e852552f05..30fa3124635 100644 --- a/lisp/ChangeLog.4 +++ b/lisp/ChangeLog.4 | |||
| @@ -8939,7 +8939,8 @@ | |||
| 8939 | 8939 | ||
| 8940 | See ChangeLog.3 for earlier changes. | 8940 | See ChangeLog.3 for earlier changes. |
| 8941 | 8941 | ||
| 8942 | Copyright (C) 1993, 1994 Free Software Foundation, Inc. | 8942 | Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006 |
| 8943 | Free Software Foundation, Inc. | ||
| 8943 | Copying and distribution of this file, with or without modification, | 8944 | Copying and distribution of this file, with or without modification, |
| 8944 | are permitted provided the copyright notice and this notice are preserved. | 8945 | are permitted provided the copyright notice and this notice are preserved. |
| 8945 | 8946 | ||
diff --git a/lisp/ChangeLog.5 b/lisp/ChangeLog.5 index 5aedc76efed..a070a2cf7a4 100644 --- a/lisp/ChangeLog.5 +++ b/lisp/ChangeLog.5 | |||
| @@ -9261,7 +9261,8 @@ | |||
| 9261 | 9261 | ||
| 9262 | See ChangeLog.4 for earlier changes. | 9262 | See ChangeLog.4 for earlier changes. |
| 9263 | 9263 | ||
| 9264 | Copyright (C) 1994, 1995 Free Software Foundation, Inc. | 9264 | Copyright (C) 1994, 1995, 2001, 2002, 2003, 2004, 2005, 2006 |
| 9265 | Free Software Foundation, Inc. | ||
| 9265 | Copying and distribution of this file, with or without modification, | 9266 | Copying and distribution of this file, with or without modification, |
| 9266 | are permitted provided the copyright notice and this notice are preserved. | 9267 | are permitted provided the copyright notice and this notice are preserved. |
| 9267 | 9268 | ||
diff --git a/lisp/ChangeLog.6 b/lisp/ChangeLog.6 index 356715b8d09..dfa9dfae61b 100644 --- a/lisp/ChangeLog.6 +++ b/lisp/ChangeLog.6 | |||
| @@ -8021,7 +8021,8 @@ Wed Jul 26 15:40:00 Michael Kifer (kifer@cs.sunysb.edu) | |||
| 8021 | 8021 | ||
| 8022 | See ChangeLog.5 for earlier changes. | 8022 | See ChangeLog.5 for earlier changes. |
| 8023 | 8023 | ||
| 8024 | Copyright (C) 1995, 1996 Free Software Foundation, Inc. | 8024 | Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004, 2005, 2006 |
| 8025 | Free Software Foundation, Inc. | ||
| 8025 | Copying and distribution of this file, with or without modification, | 8026 | Copying and distribution of this file, with or without modification, |
| 8026 | are permitted provided the copyright notice and this notice are preserved. | 8027 | are permitted provided the copyright notice and this notice are preserved. |
| 8027 | 8028 | ||
diff --git a/lisp/ChangeLog.7 b/lisp/ChangeLog.7 index f89cb7b0d47..fa07ccc187b 100644 --- a/lisp/ChangeLog.7 +++ b/lisp/ChangeLog.7 | |||
| @@ -23139,7 +23139,8 @@ | |||
| 23139 | 23139 | ||
| 23140 | See ChangeLog.6 for earlier changes. | 23140 | See ChangeLog.6 for earlier changes. |
| 23141 | 23141 | ||
| 23142 | Copyright (C) 1997, 1998 Free Software Foundation, Inc. | 23142 | Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006 |
| 23143 | Free Software Foundation, Inc. | ||
| 23143 | Copying and distribution of this file, with or without modification, | 23144 | Copying and distribution of this file, with or without modification, |
| 23144 | are permitted provided the copyright notice and this notice are preserved. | 23145 | are permitted provided the copyright notice and this notice are preserved. |
| 23145 | 23146 | ||
diff --git a/lisp/ChangeLog.8 b/lisp/ChangeLog.8 index b59c0bd27ec..7aaaed4196f 100644 --- a/lisp/ChangeLog.8 +++ b/lisp/ChangeLog.8 | |||
| @@ -10012,7 +10012,8 @@ | |||
| 10012 | 10012 | ||
| 10013 | See ChangeLog.7 for earlier changes. | 10013 | See ChangeLog.7 for earlier changes. |
| 10014 | 10014 | ||
| 10015 | Copyright (C) 1999 Free Software Foundation, Inc. | 10015 | Copyright (C) 1999, 2001, 2002, 2003, 2004, 2005, 2006 |
| 10016 | Free Software Foundation, Inc. | ||
| 10016 | Copying and distribution of this file, with or without modification, | 10017 | Copying and distribution of this file, with or without modification, |
| 10017 | are permitted provided the copyright notice and this notice are preserved. | 10018 | are permitted provided the copyright notice and this notice are preserved. |
| 10018 | 10019 | ||
diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9 index 6bd0b347c30..78c0734ddd9 100644 --- a/lisp/ChangeLog.9 +++ b/lisp/ChangeLog.9 | |||
| @@ -20695,7 +20695,8 @@ See ChangeLog.8 for earlier changes. | |||
| 20695 | ;; coding: iso-2022-7bit | 20695 | ;; coding: iso-2022-7bit |
| 20696 | ;; End: | 20696 | ;; End: |
| 20697 | 20697 | ||
| 20698 | Copyright (C) 2000, 2001 Free Software Foundation, Inc. | 20698 | Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 20699 | Free Software Foundation, Inc. | ||
| 20699 | Copying and distribution of this file, with or without modification, | 20700 | Copying and distribution of this file, with or without modification, |
| 20700 | are permitted provided the copyright notice and this notice are preserved. | 20701 | are permitted provided the copyright notice and this notice are preserved. |
| 20701 | 20702 | ||
diff --git a/lisp/align.el b/lisp/align.el index b49979059a3..0a0144ee65a 100644 --- a/lisp/align.el +++ b/lisp/align.el | |||
| @@ -3,7 +3,8 @@ | |||
| 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
| 7 | ;; Maintainer: FSF | ||
| 7 | ;; Keywords: convenience languages lisp | 8 | ;; Keywords: convenience languages lisp |
| 8 | 9 | ||
| 9 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| @@ -1074,7 +1075,7 @@ current position." | |||
| 1074 | (eq (char-before pos) ?\\)) | 1075 | (eq (char-before pos) ?\\)) |
| 1075 | (setq count (1+ count) pos (1- pos))) | 1076 | (setq count (1+ count) pos (1- pos))) |
| 1076 | (eq (mod count 2) 1)) | 1077 | (eq (mod count 2) 1)) |
| 1077 | (goto-char (match-beginning 2)))) | 1078 | (goto-char (match-beginning (if reverse 1 2))))) |
| 1078 | result)) | 1079 | result)) |
| 1079 | 1080 | ||
| 1080 | (defun align-new-section-p (beg end separator) | 1081 | (defun align-new-section-p (beg end separator) |
diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el index fe5bf4cf9e0..af1113dca76 100644 --- a/lisp/calc/calc-aent.el +++ b/lisp/calc/calc-aent.el | |||
| @@ -232,9 +232,9 @@ | |||
| 232 | 232 | ||
| 233 | (defvar calc-eval-error nil | 233 | (defvar calc-eval-error nil |
| 234 | "Determines how calc handles errors. | 234 | "Determines how calc handles errors. |
| 235 | NIL means return a list containing the character position of error. | 235 | If nil, return a list containing the character position of error. |
| 236 | STRING means return error message as string rather than list. | 236 | STRING means return error message as string rather than list. |
| 237 | T means abort and give an error message.") | 237 | The value t means abort and give an error message.") |
| 238 | 238 | ||
| 239 | (defun calc-eval-error (msg) | 239 | (defun calc-eval-error (msg) |
| 240 | (if calc-eval-error | 240 | (if calc-eval-error |
| @@ -700,10 +700,10 @@ in Calc algebraic input.") | |||
| 700 | (math-read-token)))))) | 700 | (math-read-token)))))) |
| 701 | ((or (and (>= ch ?0) (<= ch ?9)) | 701 | ((or (and (>= ch ?0) (<= ch ?9)) |
| 702 | (and (eq ch '?\.) | 702 | (and (eq ch '?\.) |
| 703 | (eq (string-match "\\.[0-9]" math-exp-str math-exp-pos) | 703 | (eq (string-match "\\.[0-9]" math-exp-str math-exp-pos) |
| 704 | math-exp-pos)) | 704 | math-exp-pos)) |
| 705 | (and (eq ch '?_) | 705 | (and (eq ch '?_) |
| 706 | (eq (string-match "_\\.?[0-9]" math-exp-str math-exp-pos) | 706 | (eq (string-match "_\\.?[0-9]" math-exp-str math-exp-pos) |
| 707 | math-exp-pos) | 707 | math-exp-pos) |
| 708 | (or (eq math-exp-pos 0) | 708 | (or (eq math-exp-pos 0) |
| 709 | (and (memq calc-language '(nil flat big unform | 709 | (and (memq calc-language '(nil flat big unform |
| @@ -713,7 +713,7 @@ in Calc algebraic input.") | |||
| 713 | (1- math-exp-pos)))))) | 713 | (1- math-exp-pos)))))) |
| 714 | (or (and (eq calc-language 'c) | 714 | (or (and (eq calc-language 'c) |
| 715 | (string-match "0[xX][0-9a-fA-F]+" math-exp-str math-exp-pos)) | 715 | (string-match "0[xX][0-9a-fA-F]+" math-exp-str math-exp-pos)) |
| 716 | (string-match "_?\\([0-9]+.?0*@ *\\)?\\([0-9]+.?0*' *\\)?\\(0*\\([2-9]\\|1[0-4]\\)\\(#\\|\\^\\^\\)[0-9a-dA-D.]+[eE][-+_]?[0-9]+\\|0*\\([2-9]\\|[0-2][0-9]\\|3[0-6]\\)\\(#\\|\\^\\^\\)[0-9a-zA-Z:.]+\\|[0-9]+:[0-9:]+\\|[0-9.]+\\([eE][-+_]?[0-9]+\\)?\"?\\)?" | 716 | (string-match "_?\\([0-9]+.?0*@ *\\)?\\([0-9]+.?0*' *\\)?\\(0*\\([2-9]\\|1[0-4]\\)\\(#\\|\\^\\^\\)[0-9a-dA-D.]+[eE][-+_]?[0-9]+\\|0*\\([2-9]\\|[0-2][0-9]\\|3[0-6]\\)\\(#\\|\\^\\^\\)[0-9a-zA-Z:.]+\\|[0-9]+:[0-9:]+\\|[0-9.]+\\([eE][-+_]?[0-9]+\\)?\"?\\)?" |
| 717 | math-exp-str math-exp-pos)) | 717 | math-exp-str math-exp-pos)) |
| 718 | (setq math-exp-token 'number | 718 | (setq math-exp-token 'number |
| 719 | math-expr-data (math-match-substring math-exp-str 0) | 719 | math-expr-data (math-match-substring math-exp-str 0) |
| @@ -751,7 +751,7 @@ in Calc algebraic input.") | |||
| 751 | math-expr-data (math-match-substring math-exp-str 0) | 751 | math-expr-data (math-match-substring math-exp-str 0) |
| 752 | math-exp-pos (match-end 0))) | 752 | math-exp-pos (match-end 0))) |
| 753 | ((and (eq ch ?\") | 753 | ((and (eq ch ?\") |
| 754 | (string-match "\\(\"\\([^\"\\]\\|\\\\.\\)*\\)\\(\"\\|\\'\\)" | 754 | (string-match "\\(\"\\([^\"\\]\\|\\\\.\\)*\\)\\(\"\\|\\'\\)" |
| 755 | math-exp-str math-exp-pos)) | 755 | math-exp-str math-exp-pos)) |
| 756 | (if (eq calc-language 'eqn) | 756 | (if (eq calc-language 'eqn) |
| 757 | (progn | 757 | (progn |
| @@ -765,9 +765,9 @@ in Calc algebraic input.") | |||
| 765 | math-exp-pos (match-end 0)))) | 765 | math-exp-pos (match-end 0)))) |
| 766 | ((and (= ch ?\\) (eq calc-language 'tex) | 766 | ((and (= ch ?\\) (eq calc-language 'tex) |
| 767 | (< math-exp-pos (1- (length math-exp-str)))) | 767 | (< math-exp-pos (1- (length math-exp-str)))) |
| 768 | (or (string-match "\\\\hbox *{\\([a-zA-Z0-9]+\\)}" | 768 | (or (string-match "\\\\hbox *{\\([a-zA-Z0-9]+\\)}" |
| 769 | math-exp-str math-exp-pos) | 769 | math-exp-str math-exp-pos) |
| 770 | (string-match "\\(\\\\\\([a-zA-Z]+\\|[^a-zA-Z]\\)\\)" | 770 | (string-match "\\(\\\\\\([a-zA-Z]+\\|[^a-zA-Z]\\)\\)" |
| 771 | math-exp-str math-exp-pos)) | 771 | math-exp-str math-exp-pos)) |
| 772 | (setq math-exp-token 'symbol | 772 | (setq math-exp-token 'symbol |
| 773 | math-exp-pos (match-end 0) | 773 | math-exp-pos (match-end 0) |
| @@ -791,11 +791,11 @@ in Calc algebraic input.") | |||
| 791 | (aset math-exp-str right ?\]))))))) | 791 | (aset math-exp-str right ?\]))))))) |
| 792 | ((and (= ch ?\\) (eq calc-language 'latex) | 792 | ((and (= ch ?\\) (eq calc-language 'latex) |
| 793 | (< math-exp-pos (1- (length math-exp-str)))) | 793 | (< math-exp-pos (1- (length math-exp-str)))) |
| 794 | (or (string-match "\\\\hbox *{\\([a-zA-Z0-9]+\\)}" | 794 | (or (string-match "\\\\hbox *{\\([a-zA-Z0-9]+\\)}" |
| 795 | math-exp-str math-exp-pos) | 795 | math-exp-str math-exp-pos) |
| 796 | (string-match "\\\\text *{\\([a-zA-Z0-9]+\\)}" | 796 | (string-match "\\\\text *{\\([a-zA-Z0-9]+\\)}" |
| 797 | math-exp-str math-exp-pos) | 797 | math-exp-str math-exp-pos) |
| 798 | (string-match "\\(\\\\\\([a-zA-Z]+\\|[^a-zA-Z]\\)\\)" | 798 | (string-match "\\(\\\\\\([a-zA-Z]+\\|[^a-zA-Z]\\)\\)" |
| 799 | math-exp-str math-exp-pos)) | 799 | math-exp-str math-exp-pos)) |
| 800 | (setq math-exp-token 'symbol | 800 | (setq math-exp-token 'symbol |
| 801 | math-exp-pos (match-end 0) | 801 | math-exp-pos (match-end 0) |
| @@ -821,7 +821,7 @@ in Calc algebraic input.") | |||
| 821 | (string= envname "pmatrix")) | 821 | (string= envname "pmatrix")) |
| 822 | (if (string-match (concat "\\\\end{" envname "}") | 822 | (if (string-match (concat "\\\\end{" envname "}") |
| 823 | math-exp-str math-exp-pos) | 823 | math-exp-str math-exp-pos) |
| 824 | (setq math-exp-str | 824 | (setq math-exp-str |
| 825 | (replace-match "]" t t math-exp-str)) | 825 | (replace-match "]" t t math-exp-str)) |
| 826 | (error "%s" (concat "No closing \\end{" envname "}")))))) | 826 | (error "%s" (concat "No closing \\end{" envname "}")))))) |
| 827 | ((and (eq (nth 1 code) 'mat) | 827 | ((and (eq (nth 1 code) 'mat) |
| @@ -852,7 +852,7 @@ in Calc algebraic input.") | |||
| 852 | (setq math-exp-token 'punc | 852 | (setq math-exp-token 'punc |
| 853 | math-expr-data (math-match-substring math-exp-str 0) | 853 | math-expr-data (math-match-substring math-exp-str 0) |
| 854 | math-exp-pos (match-end 0)) | 854 | math-exp-pos (match-end 0)) |
| 855 | (and (eq (string-match "\\\\dots\\." math-exp-str math-exp-pos) | 855 | (and (eq (string-match "\\\\dots\\." math-exp-str math-exp-pos) |
| 856 | math-exp-pos) | 856 | math-exp-pos) |
| 857 | (setq math-exp-pos (match-end 0))) | 857 | (setq math-exp-pos (match-end 0))) |
| 858 | (if (memq (aref math-expr-data 0) '(?~ ?^)) | 858 | (if (memq (aref math-expr-data 0) '(?~ ?^)) |
diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index 3a0c73f040d..d2a7217a1dc 100644 --- a/lisp/cmuscheme.el +++ b/lisp/cmuscheme.el | |||
| @@ -269,9 +269,9 @@ is run). | |||
| 269 | "Return the name of the start file corresponding to PROG. | 269 | "Return the name of the start file corresponding to PROG. |
| 270 | Search in the directories \"~\" and \"~/.emacs.d\", in this | 270 | Search in the directories \"~\" and \"~/.emacs.d\", in this |
| 271 | order. Return nil if no start file found." | 271 | order. Return nil if no start file found." |
| 272 | (let ((progname (file-name-nondirectory prog)) | 272 | (let* ((progname (file-name-nondirectory prog)) |
| 273 | (start-file (concat "~/.emacs_" progname)) | 273 | (start-file (concat "~/.emacs_" progname)) |
| 274 | (alt-start-file (concat "~/.emacs.d/init_" progname ".scm"))) | 274 | (alt-start-file (concat "~/.emacs.d/init_" progname ".scm"))) |
| 275 | (if (file-exists-p start-file) | 275 | (if (file-exists-p start-file) |
| 276 | start-file | 276 | start-file |
| 277 | (and (file-exists-p alt-start-file) alt-start-file)))) | 277 | (and (file-exists-p alt-start-file) alt-start-file)))) |
diff --git a/lisp/comint.el b/lisp/comint.el index 191807af847..b32f129c679 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -804,8 +804,6 @@ buffer. The hook `comint-exec-hook' is run after each exec." | |||
| 804 | 804 | ||
| 805 | (defun comint-insert-input (event) | 805 | (defun comint-insert-input (event) |
| 806 | "In a Comint buffer, set the current input to the previous input at point." | 806 | "In a Comint buffer, set the current input to the previous input at point." |
| 807 | ;; This doesn't use "e" because it is supposed to work | ||
| 808 | ;; for events without parameters. | ||
| 809 | (interactive "e") | 807 | (interactive "e") |
| 810 | (mouse-set-point event) | 808 | (mouse-set-point event) |
| 811 | (let ((pos (point))) | 809 | (let ((pos (point))) |
diff --git a/lisp/composite.el b/lisp/composite.el index b6626ecc8dd..c59e3f792e1 100644 --- a/lisp/composite.el +++ b/lisp/composite.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; composite.el --- support character composition | 1 | ;;; composite.el --- support character composition |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000 | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | ;; Registration Number H14PRO021 | 5 | ;; Registration Number H14PRO021 |
| 6 | 6 | ||
diff --git a/lisp/ediff-merg.el b/lisp/ediff-merg.el index 92f462c0181..2dba9e4116b 100644 --- a/lisp/ediff-merg.el +++ b/lisp/ediff-merg.el | |||
| @@ -62,7 +62,7 @@ Valid values are the symbols `default-A', `default-B', and `combined'." | |||
| 62 | '("<<<<<<< variant A" A ">>>>>>> variant B" B "####### Ancestor" Ancestor "======= end") | 62 | '("<<<<<<< variant A" A ">>>>>>> variant B" B "####### Ancestor" Ancestor "======= end") |
| 63 | "*Pattern to be used for combining difference regions in buffers A and B. | 63 | "*Pattern to be used for combining difference regions in buffers A and B. |
| 64 | The value must be a list of the form | 64 | The value must be a list of the form |
| 65 | (STRING1 bufspec1 STRING2 bufspec2 STRING3 bufspec3 STRING4) | 65 | \(STRING1 bufspec1 STRING2 bufspec2 STRING3 bufspec3 STRING4) |
| 66 | where bufspec is the symbol A, B, or Ancestor. For instance, if the value is | 66 | where bufspec is the symbol A, B, or Ancestor. For instance, if the value is |
| 67 | '(STRING1 A STRING2 Ancestor STRING3 B STRING4) then the | 67 | '(STRING1 A STRING2 Ancestor STRING3 B STRING4) then the |
| 68 | combined text will look like this: | 68 | combined text will look like this: |
| @@ -82,7 +82,7 @@ STRING4 | |||
| 82 | (defcustom ediff-show-clashes-only nil | 82 | (defcustom ediff-show-clashes-only nil |
| 83 | "*If t, show only those diff regions where both buffers disagree with the ancestor. | 83 | "*If t, show only those diff regions where both buffers disagree with the ancestor. |
| 84 | This means that regions that have status prefer-A or prefer-B will be | 84 | This means that regions that have status prefer-A or prefer-B will be |
| 85 | skipped over. nil means show all regions." | 85 | skipped over. A value of nil means show all regions." |
| 86 | :type 'boolean | 86 | :type 'boolean |
| 87 | :group 'ediff-merge | 87 | :group 'ediff-merge |
| 88 | ) | 88 | ) |
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index 5aa8bbd14cc..f6037c065fe 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; advice.el --- an overloading mechanism for Emacs Lisp functions | 1 | ;;; advice.el --- an overloading mechanism for Emacs Lisp functions |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1994, 2000, 2001, 2004, | 3 | ;; Copyright (C) 1993, 1994, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Hans Chalupsky <hans@cs.buffalo.edu> | 6 | ;; Author: Hans Chalupsky <hans@cs.buffalo.edu> |
diff --git a/lisp/emacs-lisp/assoc.el b/lisp/emacs-lisp/assoc.el index f3d0b9efc9b..1d710cceb48 100644 --- a/lisp/emacs-lisp/assoc.el +++ b/lisp/emacs-lisp/assoc.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; assoc.el --- insert/delete/sort functions on association lists | 1 | ;;; assoc.el --- insert/delete/sort functions on association lists |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Barry A. Warsaw <bwarsaw@cen.com> | 6 | ;; Author: Barry A. Warsaw <bwarsaw@cen.com> |
diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el index 3c2d937624e..b9afebcb3ef 100644 --- a/lisp/emacs-lisp/authors.el +++ b/lisp/emacs-lisp/authors.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; authors.el --- utility for maintaining Emacs' AUTHORS file -*-coding: iso-2022-7bit;-*- | 1 | ;;; authors.el --- utility for maintaining Emacs' AUTHORS file -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2000, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Gerd Moellmann <gerd@gnu.org> | 6 | ;; Author: Gerd Moellmann <gerd@gnu.org> |
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index ba68b842305..9c6da5f7b3c 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; byte-run.el --- byte-compiler support for inlining | 1 | ;;; byte-run.el --- byte-compiler support for inlining |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Jamie Zawinski <jwz@lucid.com> | 6 | ;; Author: Jamie Zawinski <jwz@lucid.com> |
diff --git a/lisp/emacs-lisp/cl-compat.el b/lisp/emacs-lisp/cl-compat.el index 34f9642fe1f..8b2c786ca04 100644 --- a/lisp/emacs-lisp/cl-compat.el +++ b/lisp/emacs-lisp/cl-compat.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; cl-compat.el --- Common Lisp extensions for GNU Emacs Lisp (compatibility) | 1 | ;;; cl-compat.el --- Common Lisp extensions for GNU Emacs Lisp (compatibility) |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Dave Gillespie <daveg@synaptics.com> | 6 | ;; Author: Dave Gillespie <daveg@synaptics.com> |
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 2e741408c04..55c95b655d4 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; cl-extra.el --- Common Lisp features, part 2 -*-byte-compile-dynamic: t;-*- | 1 | ;;; cl-extra.el --- Common Lisp features, part 2 -*-byte-compile-dynamic: t;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1993, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Dave Gillespie <daveg@synaptics.com> | 6 | ;; Author: Dave Gillespie <daveg@synaptics.com> |
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index ab3bfeccfb3..915bde800ee 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; cl-macs.el --- Common Lisp macros -*-byte-compile-dynamic: t;-*- | 1 | ;;; cl-macs.el --- Common Lisp macros -*-byte-compile-dynamic: t;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Author: Dave Gillespie <daveg@synaptics.com> | 6 | ;; Author: Dave Gillespie <daveg@synaptics.com> |
| 6 | ;; Version: 2.02 | 7 | ;; Version: 2.02 |
| @@ -2291,10 +2292,15 @@ copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors. | |||
| 2291 | (if (cadr (memq :read-only (cddr desc))) | 2292 | (if (cadr (memq :read-only (cddr desc))) |
| 2292 | (list 'error (format "%s is a read-only slot" | 2293 | (list 'error (format "%s is a read-only slot" |
| 2293 | accessor)) | 2294 | accessor)) |
| 2294 | (list 'cl-struct-setf-expander 'cl-x | 2295 | ;; If cl is loaded only for compilation, |
| 2295 | (list 'quote name) (list 'quote accessor) | 2296 | ;; the call to cl-struct-setf-expander would |
| 2296 | (and pred-check (list 'quote pred-check)) | 2297 | ;; cause a warning because it may not be |
| 2297 | pos))) | 2298 | ;; defined at run time. Suppress that warning. |
| 2299 | (list 'with-no-warnings | ||
| 2300 | (list 'cl-struct-setf-expander 'cl-x | ||
| 2301 | (list 'quote name) (list 'quote accessor) | ||
| 2302 | (and pred-check (list 'quote pred-check)) | ||
| 2303 | pos)))) | ||
| 2298 | forms) | 2304 | forms) |
| 2299 | (if print-auto | 2305 | (if print-auto |
| 2300 | (nconc print-func | 2306 | (nconc print-func |
diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el index 6b14acd23df..11609d8a4ca 100644 --- a/lisp/emacs-lisp/cl-seq.el +++ b/lisp/emacs-lisp/cl-seq.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; cl-seq.el --- Common Lisp features, part 3 -*-byte-compile-dynamic: t;-*- | 1 | ;;; cl-seq.el --- Common Lisp features, part 3 -*-byte-compile-dynamic: t;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Dave Gillespie <daveg@synaptics.com> | 6 | ;; Author: Dave Gillespie <daveg@synaptics.com> |
diff --git a/lisp/emacs-lisp/cl-specs.el b/lisp/emacs-lisp/cl-specs.el index 9d3f1f63061..644d0736d84 100644 --- a/lisp/emacs-lisp/cl-specs.el +++ b/lisp/emacs-lisp/cl-specs.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; cl-specs.el --- Edebug specs for cl.el -*- no-byte-compile: t -*- | 1 | ;;; cl-specs.el --- Edebug specs for cl.el -*- no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | ;; Author: Daniel LaLiberte <liberte@holonexus.org> | 5 | ;; Author: Daniel LaLiberte <liberte@holonexus.org> |
| 6 | ;; Keywords: lisp, tools, maint | 6 | ;; Keywords: lisp, tools, maint |
diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index d2d68189230..0c9091e2128 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; cl.el --- Common Lisp extensions for Emacs -*-byte-compile-dynamic: t;-*- | 1 | ;;; cl.el --- Common Lisp extensions for Emacs -*-byte-compile-dynamic: t;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Dave Gillespie <daveg@synaptics.com> | 6 | ;; Author: Dave Gillespie <daveg@synaptics.com> |
diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el index 11d4d7fb2ba..6fd98583ccc 100644 --- a/lisp/emacs-lisp/crm.el +++ b/lisp/emacs-lisp/crm.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; crm.el --- read multiple strings with completion | 1 | ;;; crm.el --- read multiple strings with completion |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1986, 1993, 1994, 1995, 1996, 1997, 1998, 1999, | 3 | ;; Copyright (C) 1985, 1986, 1993, 1994, 1995, 1996, 1997, 1998, 1999, |
| 4 | ;; 2000, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Sen Nagata <sen@eccosys.com> | 6 | ;; Author: Sen Nagata <sen@eccosys.com> |
| 7 | ;; Keywords: completion, minibuffer, multiple elements | 7 | ;; Keywords: completion, minibuffer, multiple elements |
diff --git a/lisp/emacs-lisp/cust-print.el b/lisp/emacs-lisp/cust-print.el index f37a5348552..c38702c38f6 100644 --- a/lisp/emacs-lisp/cust-print.el +++ b/lisp/emacs-lisp/cust-print.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; cust-print.el --- handles print-level and print-circle | 1 | ;;; cust-print.el --- handles print-level and print-circle |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Daniel LaLiberte <liberte@holonexus.org> | 6 | ;; Author: Daniel LaLiberte <liberte@holonexus.org> |
diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el index 10482bd49c4..8bb4e5f7643 100644 --- a/lisp/emacs-lisp/derived.el +++ b/lisp/emacs-lisp/derived.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; derived.el --- allow inheritance of major modes | 1 | ;;; derived.el --- allow inheritance of major modes |
| 2 | ;; (formerly mode-clone.el) | 2 | ;; (formerly mode-clone.el) |
| 3 | 3 | ||
| 4 | ;; Copyright (C) 1993, 1994, 1999, 2002, 2003, 2004, | 4 | ;; Copyright (C) 1993, 1994, 1999, 2001, 2002, 2003, 2004, |
| 5 | ;; 2005, 2006 Free Software Foundation, Inc. | 5 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 6 | 6 | ||
| 7 | ;; Author: David Megginson (dmeggins@aix1.uottawa.ca) | 7 | ;; Author: David Megginson (dmeggins@aix1.uottawa.ca) |
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index 92f5251a8b1..a2153beebd9 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; easymenu.el --- support the easymenu interface for defining a menu | 1 | ;;; easymenu.el --- support the easymenu interface for defining a menu |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 1996, 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1994, 1996, 1998, 1999, 2000, 2001, 2002, 2003, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Keywords: emulations | 6 | ;; Keywords: emulations |
| 7 | ;; Author: Richard Stallman <rms@gnu.org> | 7 | ;; Author: Richard Stallman <rms@gnu.org> |
diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el index 98d778f1507..3bf34279b79 100644 --- a/lisp/emacs-lisp/eldoc.el +++ b/lisp/emacs-lisp/eldoc.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; eldoc.el --- show function arglist or variable docstring in echo area | 1 | ;;; eldoc.el --- show function arglist or variable docstring in echo area |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Noah Friedman <friedman@splode.com> | 6 | ;; Author: Noah Friedman <friedman@splode.com> |
diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el index 85c0026e801..124817427d6 100644 --- a/lisp/emacs-lisp/elint.el +++ b/lisp/emacs-lisp/elint.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; elint.el --- Lint Emacs Lisp | 1 | ;;; elint.el --- Lint Emacs Lisp |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Peter Liljenberg <petli@lysator.liu.se> | 6 | ;; Author: Peter Liljenberg <petli@lysator.liu.se> |
diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el index b4857f4310d..0ffaf564ba4 100644 --- a/lisp/emacs-lisp/ewoc.el +++ b/lisp/emacs-lisp/ewoc.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; ewoc.el --- utility to maintain a view of a list of objects in a buffer | 1 | ;;; ewoc.el --- utility to maintain a view of a list of objects in a buffer |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, | 3 | ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, |
| 4 | ;; 2000, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Per Cederqvist <ceder@lysator.liu.se> | 6 | ;; Author: Per Cederqvist <ceder@lysator.liu.se> |
| 7 | ;; Inge Wallin <inge@lysator.liu.se> | 7 | ;; Inge Wallin <inge@lysator.liu.se> |
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index a51493d22ea..35ba803d78e 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el | |||
| @@ -397,7 +397,7 @@ The library where VARIABLE is defined is searched for in FILE or | |||
| 397 | 397 | ||
| 398 | ;;;###autoload | 398 | ;;;###autoload |
| 399 | (defun find-variable (variable) | 399 | (defun find-variable (variable) |
| 400 | "Find the definition of the VARIABLE near point. | 400 | "Find the definition of the VARIABLE at or before point. |
| 401 | 401 | ||
| 402 | Finds the library containing the definition of the variable | 402 | Finds the library containing the definition of the variable |
| 403 | near point (selected by `variable-at-point') in a buffer and | 403 | near point (selected by `variable-at-point') in a buffer and |
diff --git a/lisp/emacs-lisp/find-gc.el b/lisp/emacs-lisp/find-gc.el index dedadfa8c36..482a72eece2 100644 --- a/lisp/emacs-lisp/find-gc.el +++ b/lisp/emacs-lisp/find-gc.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; find-gc.el --- detect functions that call the garbage collector | 1 | ;;; find-gc.el --- detect functions that call the garbage collector |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/emacs-lisp/float-sup.el b/lisp/emacs-lisp/float-sup.el index fb367d1cac4..dc630e72c92 100644 --- a/lisp/emacs-lisp/float-sup.el +++ b/lisp/emacs-lisp/float-sup.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; float-sup.el --- define some constants useful for floating point numbers. | 1 | ;;; float-sup.el --- define some constants useful for floating point numbers. |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1986, 1987, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1985, 1986, 1987, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/emacs-lisp/generic.el b/lisp/emacs-lisp/generic.el index e52072e9db1..0f38c4c54c6 100644 --- a/lisp/emacs-lisp/generic.el +++ b/lisp/emacs-lisp/generic.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; generic.el --- defining simple major modes with comment and font-lock | 1 | ;;; generic.el --- defining simple major modes with comment and font-lock |
| 2 | ;; | 2 | ;; |
| 3 | ;; Copyright (C) 1997, 1999, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | ;; | 5 | ;; |
| 6 | ;; Author: Peter Breton <pbreton@cs.umb.edu> | 6 | ;; Author: Peter Breton <pbreton@cs.umb.edu> |
diff --git a/lisp/emacs-lisp/gulp.el b/lisp/emacs-lisp/gulp.el index d6b963a7e3d..6fc2dba9273 100644 --- a/lisp/emacs-lisp/gulp.el +++ b/lisp/emacs-lisp/gulp.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gulp.el --- ask for updates for Lisp packages | 1 | ;;; gulp.el --- ask for updates for Lisp packages |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Sam Shteingold <shteingd@math.ucla.edu> | 6 | ;; Author: Sam Shteingold <shteingd@math.ucla.edu> |
diff --git a/lisp/emacs-lisp/helper.el b/lisp/emacs-lisp/helper.el index 92eb86ce676..a7cf792a4ba 100644 --- a/lisp/emacs-lisp/helper.el +++ b/lisp/emacs-lisp/helper.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; helper.el --- utility help package supporting help in electric modes | 1 | ;;; helper.el --- utility help package supporting help in electric modes |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: K. Shane Hartman | 6 | ;; Author: K. Shane Hartman |
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index 6bc7da7ba28..6e06e4a067b 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; lisp.el --- Lisp editing commands for Emacs | 1 | ;;; lisp.el --- Lisp editing commands for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1986, 1994, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1985, 1986, 1994, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el index aa87b7fed09..0f6904356ae 100644 --- a/lisp/emacs-lisp/lmenu.el +++ b/lisp/emacs-lisp/lmenu.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; lmenu.el --- emulate Lucid's menubar support | 1 | ;;; lmenu.el --- emulate Lucid's menubar support |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 1993, 1994, 1997, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1992, 1993, 1994, 1997, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Keywords: emulations obsolete | 6 | ;; Keywords: emulations obsolete |
diff --git a/lisp/emacs-lisp/lselect.el b/lisp/emacs-lisp/lselect.el index 5aed4822818..8b18d1a1123 100644 --- a/lisp/emacs-lisp/lselect.el +++ b/lisp/emacs-lisp/lselect.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; lselect.el --- Lucid interface to X Selections | 1 | ;;; lselect.el --- Lucid interface to X Selections |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1990, 1993, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1990, 1993, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/emacs-lisp/map-ynp.el b/lisp/emacs-lisp/map-ynp.el index dc966a75cd6..7b2dac6cd45 100644 --- a/lisp/emacs-lisp/map-ynp.el +++ b/lisp/emacs-lisp/map-ynp.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; map-ynp.el --- general-purpose boolean question-asker | 1 | ;;; map-ynp.el --- general-purpose boolean question-asker |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 2000, 2002, 2003, | 3 | ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 2000, 2001, 2002, 2003, |
| 4 | ;; 2004, 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Roland McGrath <roland@gnu.org> | 6 | ;; Author: Roland McGrath <roland@gnu.org> |
diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el index ab242af3ac3..2832dd1cbf0 100644 --- a/lisp/emacs-lisp/regexp-opt.el +++ b/lisp/emacs-lisp/regexp-opt.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; regexp-opt.el --- generate efficient regexps to match strings | 1 | ;;; regexp-opt.el --- generate efficient regexps to match strings |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2002, | 3 | ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, |
| 4 | ;; 2003, 2004, 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Simon Marshall <simon@gnu.org> | 6 | ;; Author: Simon Marshall <simon@gnu.org> |
diff --git a/lisp/emacs-lisp/regi.el b/lisp/emacs-lisp/regi.el index 06ed2880ee1..bc6c9983b19 100644 --- a/lisp/emacs-lisp/regi.el +++ b/lisp/emacs-lisp/regi.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; regi.el --- REGular expression Interpreting engine | 1 | ;;; regi.el --- REGular expression Interpreting engine |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: 1993 Barry A. Warsaw, Century Computing, Inc. <bwarsaw@cen.com> | 6 | ;; Author: 1993 Barry A. Warsaw, Century Computing, Inc. <bwarsaw@cen.com> |
diff --git a/lisp/emacs-lisp/ring.el b/lisp/emacs-lisp/ring.el index c5391f94b05..f775513e961 100644 --- a/lisp/emacs-lisp/ring.el +++ b/lisp/emacs-lisp/ring.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; ring.el --- handle rings of items | 1 | ;;; ring.el --- handle rings of items |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el index 7162aa822b7..98f3e30f10e 100644 --- a/lisp/emacs-lisp/shadow.el +++ b/lisp/emacs-lisp/shadow.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; shadow.el --- locate Emacs Lisp file shadowings | 1 | ;;; shadow.el --- locate Emacs Lisp file shadowings |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Terry Jones <terry@santafe.edu> | 6 | ;; Author: Terry Jones <terry@santafe.edu> |
diff --git a/lisp/emacs-lisp/sregex.el b/lisp/emacs-lisp/sregex.el index 23145bccc36..5d37eb99859 100644 --- a/lisp/emacs-lisp/sregex.el +++ b/lisp/emacs-lisp/sregex.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; sregex.el --- symbolic regular expressions | 1 | ;;; sregex.el --- symbolic regular expressions |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Bob Glickstein <bobg+sregex@zanshin.com> | 6 | ;; Author: Bob Glickstein <bobg+sregex@zanshin.com> |
diff --git a/lisp/emacs-lisp/syntax.el b/lisp/emacs-lisp/syntax.el index 695d7877b38..f290db42c04 100644 --- a/lisp/emacs-lisp/syntax.el +++ b/lisp/emacs-lisp/syntax.el | |||
| @@ -52,6 +52,14 @@ | |||
| 52 | (defsubst syntax-ppss-depth (ppss) | 52 | (defsubst syntax-ppss-depth (ppss) |
| 53 | (nth 0 ppss)) | 53 | (nth 0 ppss)) |
| 54 | 54 | ||
| 55 | (defun syntax-ppss-toplevel-pos (ppss) | ||
| 56 | "Return the last preceding position at toplevel. | ||
| 57 | \"At toplevel\" means that it is outside of any syntactic entity: | ||
| 58 | outside of any parentheses, or comments, or strings. | ||
| 59 | Returns nil iff PPSS itself corresponds to a toplevel position." | ||
| 60 | (or (car (nth 9 ppss)) | ||
| 61 | (nth 8 ppss))) | ||
| 62 | |||
| 55 | (defsubst syntax-ppss-context (ppss) | 63 | (defsubst syntax-ppss-context (ppss) |
| 56 | (cond | 64 | (cond |
| 57 | ((nth 3 ppss) 'string) | 65 | ((nth 3 ppss) 'string) |
diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el index 0c66a207351..4ad4dac1d58 100644 --- a/lisp/emacs-lisp/timer.el +++ b/lisp/emacs-lisp/timer.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; timer.el --- run a function with args at some time in future | 1 | ;;; timer.el --- run a function with args at some time in future |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/emacs-lisp/tq.el b/lisp/emacs-lisp/tq.el index 1e1e143f0f0..7c4303b5b79 100644 --- a/lisp/emacs-lisp/tq.el +++ b/lisp/emacs-lisp/tq.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; tq.el --- utility to maintain a transaction queue | 1 | ;;; tq.el --- utility to maintain a transaction queue |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1986, 1987, 1992, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1985, 1986, 1987, 1992, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Scott Draves <spot@cs.cmu.edu> | 6 | ;; Author: Scott Draves <spot@cs.cmu.edu> |
diff --git a/lisp/emacs-lisp/trace.el b/lisp/emacs-lisp/trace.el index 191be58c0b5..5250a34b3fd 100644 --- a/lisp/emacs-lisp/trace.el +++ b/lisp/emacs-lisp/trace.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; trace.el --- tracing facility for Emacs Lisp functions | 1 | ;;; trace.el --- tracing facility for Emacs Lisp functions |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1998, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1993, 1998, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Hans Chalupsky <hans@cs.buffalo.edu> | 6 | ;; Author: Hans Chalupsky <hans@cs.buffalo.edu> |
diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el index 361d1b98d3b..0d629d69235 100644 --- a/lisp/emulation/crisp.el +++ b/lisp/emulation/crisp.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; crisp.el --- CRiSP/Brief Emacs emulator | 1 | ;;; crisp.el --- CRiSP/Brief Emacs emulator |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1997, 1998, 1999, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Gary D. Foster <Gary.Foster@Corp.Sun.COM> | 6 | ;; Author: Gary D. Foster <Gary.Foster@Corp.Sun.COM> |
diff --git a/lisp/emulation/edt-lk201.el b/lisp/emulation/edt-lk201.el index 17308c132e0..f7bca958b72 100644 --- a/lisp/emulation/edt-lk201.el +++ b/lisp/emulation/edt-lk201.el | |||
| @@ -1,10 +1,10 @@ | |||
| 1 | ;;; edt-lk201.el --- enhanced EDT keypad mode emulation for LK-201 keyboards | 1 | ;;; edt-lk201.el --- enhanced EDT keypad mode emulation for LK-201 keyboards |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1986, 1992, 1993, 1995, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1986, 1992, 1993, 1995, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Kevin Gallagher <kevingal@onramp.net> | 6 | ;; Author: Kevin Gallagher <Kevin.Gallagher@boeing.com> |
| 7 | ;; Maintainer: Kevin Gallagher <kevingal@onramp.net> | 7 | ;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com> |
| 8 | ;; Keywords: emulations | 8 | ;; Keywords: emulations |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
diff --git a/lisp/emulation/edt-mapper.el b/lisp/emulation/edt-mapper.el index cee60c6ec8e..53bb8e63d33 100644 --- a/lisp/emulation/edt-mapper.el +++ b/lisp/emulation/edt-mapper.el | |||
| @@ -3,8 +3,8 @@ | |||
| 3 | ;; Copyright (C) 1994, 1995, 2000, 2001, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1994, 1995, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Kevin Gallagher <kevingal@onramp.net> | 6 | ;; Author: Kevin Gallagher <Kevin.Gallagher@boeing.com> |
| 7 | ;; Maintainer: Kevin Gallagher <kevingal@onramp.net> | 7 | ;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com> |
| 8 | ;; Keywords: emulations | 8 | ;; Keywords: emulations |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| @@ -129,8 +129,12 @@ | |||
| 129 | 129 | ||
| 130 | (defconst edt-xserver (if (eq edt-window-system 'x) | 130 | (defconst edt-xserver (if (eq edt-window-system 'x) |
| 131 | (if edt-x-emacs-p | 131 | (if edt-x-emacs-p |
| 132 | (replace-in-string (x-server-vendor) "[ _]" "-") | 132 | ;; The Cygwin window manager has a `/' in its |
| 133 | (subst-char-in-string ? ?- (x-server-vendor))) | 133 | ;; name, which breaks the generated file name of |
| 134 | ;; the custom key map file. Replace `/' with a | ||
| 135 | ;; `-' to work around that. | ||
| 136 | (replace-in-string (x-server-vendor) "[ /]" "-") | ||
| 137 | (subst-char-in-string ?/ ?- (subst-char-in-string ? ?- (x-server-vendor)))) | ||
| 134 | nil) | 138 | nil) |
| 135 | "Indicates X server vendor name, if applicable.") | 139 | "Indicates X server vendor name, if applicable.") |
| 136 | 140 | ||
diff --git a/lisp/emulation/edt-pc.el b/lisp/emulation/edt-pc.el index 6f393197281..1282e940d9c 100644 --- a/lisp/emulation/edt-pc.el +++ b/lisp/emulation/edt-pc.el | |||
| @@ -1,10 +1,10 @@ | |||
| 1 | ;;; edt-pc.el --- enhanced EDT keypad mode emulation for PC 101 keyboards | 1 | ;;; edt-pc.el --- enhanced EDT keypad mode emulation for PC 101 keyboards |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1986, 1994, 1995, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1986, 1994, 1995, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Kevin Gallagher <kevingal@onramp.net> | 6 | ;; Author: Kevin Gallagher <Kevin.Gallagher@boeing.com> |
| 7 | ;; Maintainer: Kevin Gallagher <kevingal@onramp.net> | 7 | ;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com> |
| 8 | ;; Keywords: emulations | 8 | ;; Keywords: emulations |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
diff --git a/lisp/emulation/edt-vt100.el b/lisp/emulation/edt-vt100.el index b4599cdb2cd..cd3e03885eb 100644 --- a/lisp/emulation/edt-vt100.el +++ b/lisp/emulation/edt-vt100.el | |||
| @@ -3,8 +3,8 @@ | |||
| 3 | ;; Copyright (C) 1986, 1992, 1993, 1995, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1986, 1992, 1993, 1995, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Kevin Gallagher <kevingal@onramp.net> | 6 | ;; Author: Kevin Gallagher <Kevin.Gallagher@boeing.com> |
| 7 | ;; Maintainer: Kevin Gallagher <kevingal@onramp.net> | 7 | ;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com> |
| 8 | ;; Keywords: emulations | 8 | ;; Keywords: emulations |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index ae131dc50e9..89d017a1cad 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el | |||
| @@ -3,8 +3,8 @@ | |||
| 3 | ;; Copyright (C) 1986, 1992, 1993, 1994, 1995, 2000, 2001, 2002, 2003, | 3 | ;; Copyright (C) 1986, 1992, 1993, 1994, 1995, 2000, 2001, 2002, 2003, |
| 4 | ;; 2004, 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Kevin Gallagher <kevingal@onramp.net> | 6 | ;; Author: Kevin Gallagher <Kevin.Gallagher@boeing.com> |
| 7 | ;; Maintainer: Kevin Gallagher <kevingal@onramp.net> | 7 | ;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com> |
| 8 | ;; Keywords: emulations | 8 | ;; Keywords: emulations |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| @@ -339,8 +339,12 @@ This means that an edt-user.el file was found in the user's `load-path'.") | |||
| 339 | 339 | ||
| 340 | (defconst edt-xserver (if (eq edt-window-system 'x) | 340 | (defconst edt-xserver (if (eq edt-window-system 'x) |
| 341 | (if edt-x-emacs19-p | 341 | (if edt-x-emacs19-p |
| 342 | (replace-in-string (x-server-vendor) "[ _]" "-") | 342 | ;; The Cygwin window manager has a `/' in its |
| 343 | (subst-char-in-string ? ?- (x-server-vendor))) | 343 | ;; name, which breaks the generated file name of |
| 344 | ;; the custom key map file. Replace `/' with a | ||
| 345 | ;; `-' to work around that. | ||
| 346 | (replace-in-string (x-server-vendor) "[ /]" "-") | ||
| 347 | (subst-char-in-string ?/ ?- (subst-char-in-string ? ?- (x-server-vendor)))) | ||
| 344 | nil) | 348 | nil) |
| 345 | "Indicates X server vendor name, if applicable.") | 349 | "Indicates X server vendor name, if applicable.") |
| 346 | 350 | ||
diff --git a/lisp/emulation/pc-mode.el b/lisp/emulation/pc-mode.el index e2b0d36f0f4..af632694bd0 100644 --- a/lisp/emulation/pc-mode.el +++ b/lisp/emulation/pc-mode.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; pc-mode.el --- emulate certain key bindings used on PCs | 1 | ;;; pc-mode.el --- emulate certain key bindings used on PCs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el index 5d90728898a..b848f45d7d8 100644 --- a/lisp/emulation/tpu-edt.el +++ b/lisp/emulation/tpu-edt.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; tpu-edt.el --- Emacs emulating TPU emulating EDT | 1 | ;;; tpu-edt.el --- Emacs emulating TPU emulating EDT |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1994, 1995, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Rob Riepel <riepel@networking.stanford.edu> | 6 | ;; Author: Rob Riepel <riepel@networking.stanford.edu> |
diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el index 2aed6f464d5..2a84e5ff7d5 100644 --- a/lisp/emulation/tpu-extras.el +++ b/lisp/emulation/tpu-extras.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; tpu-extras.el --- scroll margins and free cursor mode for TPU-edt | 1 | ;;; tpu-extras.el --- scroll margins and free cursor mode for TPU-edt |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1994, 1995, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Rob Riepel <riepel@networking.stanford.edu> | 6 | ;; Author: Rob Riepel <riepel@networking.stanford.edu> |
diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el index eb71542e811..349a03fc8eb 100644 --- a/lisp/emulation/tpu-mapper.el +++ b/lisp/emulation/tpu-mapper.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; tpu-mapper.el --- create a TPU-edt X-windows keymap file | 1 | ;;; tpu-mapper.el --- create a TPU-edt X-windows keymap file |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1994, 1995, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1993, 1994, 1995, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Rob Riepel <riepel@networking.stanford.edu> | 6 | ;; Author: Rob Riepel <riepel@networking.stanford.edu> |
diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el index 559d1677347..54fb2d1e997 100644 --- a/lisp/emulation/vi.el +++ b/lisp/emulation/vi.el | |||
| @@ -820,7 +820,7 @@ The given COUNT is remembered for future scrollings." | |||
| 820 | 820 | ||
| 821 | (defun vi-char-argument (arg) | 821 | (defun vi-char-argument (arg) |
| 822 | "Get following character (could be any CHAR) as part of the prefix argument. | 822 | "Get following character (could be any CHAR) as part of the prefix argument. |
| 823 | Possible prefix-arg cases are NIL, INTEGER, (NIL . CHAR) or (INTEGER . CHAR)." | 823 | Possible prefix-arg cases are nil, INTEGER, (nil . CHAR) or (INTEGER . CHAR)." |
| 824 | (interactive "P") | 824 | (interactive "P") |
| 825 | (let ((char (read-char))) | 825 | (let ((char (read-char))) |
| 826 | (cond ((null arg) (setq prefix-arg (cons nil char))) | 826 | (cond ((null arg) (setq prefix-arg (cons nil char))) |
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el index 8b5109793c0..16db3988c5b 100644 --- a/lisp/emulation/vip.el +++ b/lisp/emulation/vip.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; vip.el --- a VI Package for GNU Emacs | 1 | ;;; vip.el --- a VI Package for GNU Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1986, 1987, 1988, 1992, 1993, 1998, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1986, 1987, 1988, 1992, 1993, 1998, 2001, 2002, 2003, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Masahiko Sato <ms@sail.stanford.edu> | 6 | ;; Author: Masahiko Sato <ms@sail.stanford.edu> |
| 7 | ;; Keywords: emulations | 7 | ;; Keywords: emulations |
diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el index 0230d6e118a..a4a1575f629 100644 --- a/lisp/emulation/ws-mode.el +++ b/lisp/emulation/ws-mode.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; ws-mode.el --- WordStar emulation mode for GNU Emacs | 1 | ;;; ws-mode.el --- WordStar emulation mode for GNU Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1991, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1991, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Juergen Nickelsen <nickel@cs.tu-berlin.de> | 6 | ;; Author: Juergen Nickelsen <nickel@cs.tu-berlin.de> |
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index dfb6fc7afe8..c8c1cb56b54 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog | |||
| @@ -1,3 +1,23 @@ | |||
| 1 | 2006-12-13 Leo <sdl.web@gmail.com> | ||
| 2 | |||
| 3 | * erc.el (erc-iswitchb): Temporarily enable iswitchb mode if it | ||
| 4 | isn't active already, instead of leaving it on. | ||
| 5 | |||
| 6 | 2006-12-10 Juanma Barranquero <lekktu@gmail.com> | ||
| 7 | |||
| 8 | * erc-ezbounce.el (erc-ezb-init-session-list): Doc fix. | ||
| 9 | |||
| 10 | 2006-12-08 Michael Olson <mwolson@gnu.org> | ||
| 11 | |||
| 12 | * erc.el: Re-evaluate contributions from a contributor, and found | ||
| 13 | them under 15 lines of non-obvious code, so it is safe to remove | ||
| 14 | the copyright notice. | ||
| 15 | (erc-modules): Remove list module. | ||
| 16 | |||
| 17 | * erc-list.el: Remove, since a contributor who has not completed | ||
| 18 | their assignment has contributed significantly more than 15 lines | ||
| 19 | of code to this file. | ||
| 20 | |||
| 1 | 2006-11-28 Juanma Barranquero <lekktu@gmail.com> | 21 | 2006-11-28 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 22 | ||
| 3 | * erc.el (erc-cmd-BANLIST, erc-cmd-MASSUNBAN): Simplify. | 23 | * erc.el (erc-cmd-BANLIST, erc-cmd-MASSUNBAN): Simplify. |
| @@ -18,6 +38,11 @@ | |||
| 18 | (erc-update-current-channel-member, erc-load-script): | 38 | (erc-update-current-channel-member, erc-load-script): |
| 19 | (erc-mode-line-away-status-format): Doc fixes. | 39 | (erc-mode-line-away-status-format): Doc fixes. |
| 20 | 40 | ||
| 41 | 2006-11-20 Andrea Russo <rastandy@inventati.org> | ||
| 42 | |||
| 43 | * erc-dcc.el (erc-dcc-chat-setup): Initialize `erc-input-marker' | ||
| 44 | before calling `erc-display-prompt'. | ||
| 45 | |||
| 21 | 2006-11-24 Juanma Barranquero <lekktu@gmail.com> | 46 | 2006-11-24 Juanma Barranquero <lekktu@gmail.com> |
| 22 | 47 | ||
| 23 | * erc.el (erc-after-connect, erc-open-ssl-stream) | 48 | * erc.el (erc-after-connect, erc-open-ssl-stream) |
| @@ -86,6 +111,11 @@ | |||
| 86 | `erc-show-my-nick' is non-nil. | 111 | `erc-show-my-nick' is non-nil. |
| 87 | (erc-compute-server): Doc fix. | 112 | (erc-compute-server): Doc fix. |
| 88 | 113 | ||
| 114 | 2006-10-01 John J Foerch <jjfoerch@earthlink.net> | ||
| 115 | |||
| 116 | * erc-stamp.el (erc-insert-timestamp-right): Exclude the newline | ||
| 117 | from the erc-timestamp field. | ||
| 118 | |||
| 89 | 2006-09-11 Michael Olson <mwolson@gnu.org> | 119 | 2006-09-11 Michael Olson <mwolson@gnu.org> |
| 90 | 120 | ||
| 91 | * erc-nicklist.el (erc-nicklist-insert-contents): Add missing | 121 | * erc-nicklist.el (erc-nicklist-insert-contents): Add missing |
diff --git a/lisp/erc/ChangeLog.01 b/lisp/erc/ChangeLog.01 index 20a03801477..25f57569742 100644 --- a/lisp/erc/ChangeLog.01 +++ b/lisp/erc/ChangeLog.01 | |||
| @@ -1035,7 +1035,7 @@ | |||
| 1035 | 1035 | ||
| 1036 | * erc-speak.el, erc.el: New file. | 1036 | * erc-speak.el, erc.el: New file. |
| 1037 | 1037 | ||
| 1038 | Copyright (C) 2001 Free Software Foundation, Inc. | 1038 | Copyright (C) 2001, 2006 Free Software Foundation, Inc. |
| 1039 | Copying and distribution of this file, with or without modification, | 1039 | Copying and distribution of this file, with or without modification, |
| 1040 | are permitted provided the copyright notice and this notice are preserved. | 1040 | are permitted provided the copyright notice and this notice are preserved. |
| 1041 | 1041 | ||
diff --git a/lisp/erc/ChangeLog.02 b/lisp/erc/ChangeLog.02 index 006ac0c1415..332bd7fbfb9 100644 --- a/lisp/erc/ChangeLog.02 +++ b/lisp/erc/ChangeLog.02 | |||
| @@ -2596,7 +2596,7 @@ | |||
| 2596 | 2596 | ||
| 2597 | See ChangeLog.01 for earlier changes. | 2597 | See ChangeLog.01 for earlier changes. |
| 2598 | 2598 | ||
| 2599 | Copyright (C) 2002 Free Software Foundation, Inc. | 2599 | Copyright (C) 2002, 2006 Free Software Foundation, Inc. |
| 2600 | Copying and distribution of this file, with or without modification, | 2600 | Copying and distribution of this file, with or without modification, |
| 2601 | are permitted provided the copyright notice and this notice are preserved. | 2601 | are permitted provided the copyright notice and this notice are preserved. |
| 2602 | 2602 | ||
diff --git a/lisp/erc/ChangeLog.03 b/lisp/erc/ChangeLog.03 index 6f55258c04e..20f0f92f5e0 100644 --- a/lisp/erc/ChangeLog.03 +++ b/lisp/erc/ChangeLog.03 | |||
| @@ -2140,7 +2140,7 @@ | |||
| 2140 | 2140 | ||
| 2141 | See ChangeLog.02 for earlier changes. | 2141 | See ChangeLog.02 for earlier changes. |
| 2142 | 2142 | ||
| 2143 | Copyright (C) 2003 Free Software Foundation, Inc. | 2143 | Copyright (C) 2003, 2006 Free Software Foundation, Inc. |
| 2144 | Copying and distribution of this file, with or without modification, | 2144 | Copying and distribution of this file, with or without modification, |
| 2145 | are permitted provided the copyright notice and this notice are preserved. | 2145 | are permitted provided the copyright notice and this notice are preserved. |
| 2146 | 2146 | ||
diff --git a/lisp/erc/ChangeLog.04 b/lisp/erc/ChangeLog.04 index 3ab41db65b4..c5338a311c9 100644 --- a/lisp/erc/ChangeLog.04 +++ b/lisp/erc/ChangeLog.04 | |||
| @@ -2069,7 +2069,7 @@ | |||
| 2069 | 2069 | ||
| 2070 | See ChangeLog.03 for earlier changes. | 2070 | See ChangeLog.03 for earlier changes. |
| 2071 | 2071 | ||
| 2072 | Copyright (C) 2004 Free Software Foundation, Inc. | 2072 | Copyright (C) 2004, 2006 Free Software Foundation, Inc. |
| 2073 | Copying and distribution of this file, with or without modification, | 2073 | Copying and distribution of this file, with or without modification, |
| 2074 | are permitted provided the copyright notice and this notice are preserved. | 2074 | are permitted provided the copyright notice and this notice are preserved. |
| 2075 | 2075 | ||
diff --git a/lisp/erc/ChangeLog.05 b/lisp/erc/ChangeLog.05 index 8fa725459e2..a640aba00a1 100644 --- a/lisp/erc/ChangeLog.05 +++ b/lisp/erc/ChangeLog.05 | |||
| @@ -1217,7 +1217,7 @@ | |||
| 1217 | 1217 | ||
| 1218 | See ChangeLog.04 for earlier changes. | 1218 | See ChangeLog.04 for earlier changes. |
| 1219 | 1219 | ||
| 1220 | Copyright (C) 2005 Free Software Foundation, Inc. | 1220 | Copyright (C) 2005, 2006 Free Software Foundation, Inc. |
| 1221 | Copying and distribution of this file, with or without modification, | 1221 | Copying and distribution of this file, with or without modification, |
| 1222 | are permitted provided the copyright notice and this notice are preserved. | 1222 | are permitted provided the copyright notice and this notice are preserved. |
| 1223 | 1223 | ||
diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el index 1b5111e8525..eeb3e93801e 100644 --- a/lisp/erc/erc-dcc.el +++ b/lisp/erc/erc-dcc.el | |||
| @@ -1035,6 +1035,7 @@ other client." | |||
| 1035 | (setq erc-dcc-entry-data entry) | 1035 | (setq erc-dcc-entry-data entry) |
| 1036 | (setq erc-dcc-unprocessed-output "") | 1036 | (setq erc-dcc-unprocessed-output "") |
| 1037 | (setq erc-insert-marker (set-marker (make-marker) (point-max))) | 1037 | (setq erc-insert-marker (set-marker (make-marker) (point-max))) |
| 1038 | (setq erc-input-marker (make-marker)) | ||
| 1038 | (erc-display-prompt buffer (point-max)) | 1039 | (erc-display-prompt buffer (point-max)) |
| 1039 | (set-process-buffer proc buffer) | 1040 | (set-process-buffer proc buffer) |
| 1040 | (add-hook 'kill-buffer-hook 'erc-dcc-chat-buffer-killed nil t) | 1041 | (add-hook 'kill-buffer-hook 'erc-dcc-chat-buffer-killed nil t) |
diff --git a/lisp/erc/erc-ezbounce.el b/lisp/erc/erc-ezbounce.el index d04fe782f7e..ea5afcabcbe 100644 --- a/lisp/erc/erc-ezbounce.el +++ b/lisp/erc/erc-ezbounce.el | |||
| @@ -126,7 +126,7 @@ in the alist is `nil', prompt for the appropriate values." | |||
| 126 | 126 | ||
| 127 | ;;;###autoload | 127 | ;;;###autoload |
| 128 | (defun erc-ezb-init-session-list (message) | 128 | (defun erc-ezb-init-session-list (message) |
| 129 | "Reset the EZBounce session list to NIL." | 129 | "Reset the EZBounce session list to nil." |
| 130 | (setq erc-ezb-session-list nil) | 130 | (setq erc-ezb-session-list nil) |
| 131 | (setq erc-ezb-inside-session-listing t)) | 131 | (setq erc-ezb-inside-session-listing t)) |
| 132 | 132 | ||
| @@ -134,7 +134,7 @@ in the alist is `nil', prompt for the appropriate values." | |||
| 134 | (defun erc-ezb-end-of-session-list (message) | 134 | (defun erc-ezb-end-of-session-list (message) |
| 135 | "Indicate the end of the EZBounce session listing." | 135 | "Indicate the end of the EZBounce session listing." |
| 136 | (setq erc-ezb-inside-session-listing nil)) | 136 | (setq erc-ezb-inside-session-listing nil)) |
| 137 | 137 | ||
| 138 | ;;;###autoload | 138 | ;;;###autoload |
| 139 | (defun erc-ezb-add-session (message) | 139 | (defun erc-ezb-add-session (message) |
| 140 | "Add an EZBounce session to the session list." | 140 | "Add an EZBounce session to the session list." |
| @@ -157,7 +157,7 @@ in the alist is `nil', prompt for the appropriate values." | |||
| 157 | (read-from-minibuffer "IRC port: " | 157 | (read-from-minibuffer "IRC port: " |
| 158 | (erc-port-to-string "6667"))))) | 158 | (erc-port-to-string "6667"))))) |
| 159 | (erc-server-send (format "CONN %s %s" server port))))) | 159 | (erc-server-send (format "CONN %s %s" server port))))) |
| 160 | 160 | ||
| 161 | 161 | ||
| 162 | ;;;###autoload | 162 | ;;;###autoload |
| 163 | (defun erc-ezb-select-session () | 163 | (defun erc-ezb-select-session () |
| @@ -173,7 +173,7 @@ in the alist is `nil', prompt for the appropriate values." | |||
| 173 | (defun erc-ezb-initialize () | 173 | (defun erc-ezb-initialize () |
| 174 | "Add EZBouncer convenience functions to ERC." | 174 | "Add EZBouncer convenience functions to ERC." |
| 175 | (add-hook 'erc-server-NOTICE-functions 'erc-ezb-notice-autodetect)) | 175 | (add-hook 'erc-server-NOTICE-functions 'erc-ezb-notice-autodetect)) |
| 176 | 176 | ||
| 177 | (provide 'erc-ezbounce) | 177 | (provide 'erc-ezbounce) |
| 178 | 178 | ||
| 179 | ;; arch-tag: e972aa7b-a9f4-4d16-a489-074ec7a1002e | 179 | ;; arch-tag: e972aa7b-a9f4-4d16-a489-074ec7a1002e |
diff --git a/lisp/erc/erc-list.el b/lisp/erc/erc-list.el deleted file mode 100644 index c041842429e..00000000000 --- a/lisp/erc/erc-list.el +++ /dev/null | |||
| @@ -1,415 +0,0 @@ | |||
| 1 | ;;; erc-list.el --- Provide a faster channel listing mechanism | ||
| 2 | |||
| 3 | ;; Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. | ||
| 4 | ;; Copyright (C) 2004 Brian Palmer | ||
| 5 | |||
| 6 | ;; Author: Mario Lang <mlang@lexx.delysid.org> | ||
| 7 | ;; Keywords: comm | ||
| 8 | |||
| 9 | ;; This file is part of GNU Emacs. | ||
| 10 | |||
| 11 | ;; GNU Emacs is free software; you can redistribute it and/or modify | ||
| 12 | ;; it under the terms of the GNU General Public License as published by | ||
| 13 | ;; the Free Software Foundation; either version 2, or (at your option) | ||
| 14 | ;; any later version. | ||
| 15 | |||
| 16 | ;; GNU Emacs is distributed in the hope that it will be useful, | ||
| 17 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 18 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 19 | ;; GNU General Public License for more details. | ||
| 20 | |||
| 21 | ;; You should have received a copy of the GNU General Public License | ||
| 22 | ;; along with GNU Emacs; see the file COPYING. If not, write to the | ||
| 23 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | ||
| 24 | ;; Boston, MA 02110-1301, USA. | ||
| 25 | |||
| 26 | ;;; Commentary: | ||
| 27 | |||
| 28 | ;; This file provides a simple derived mode for viewing Channel lists. | ||
| 29 | ;; It also serves as a demonstration of how the new server hook facility | ||
| 30 | ;; can be used. | ||
| 31 | |||
| 32 | ;;; Code: | ||
| 33 | |||
| 34 | (require 'erc) | ||
| 35 | (require 'erc-networks) | ||
| 36 | (require 'sort) | ||
| 37 | (unless (fboundp 'make-overlay) | ||
| 38 | (require 'overlay)) | ||
| 39 | (eval-when-compile (require 'cl)) | ||
| 40 | |||
| 41 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||
| 42 | ;; User customizable variables. | ||
| 43 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||
| 44 | |||
| 45 | (defgroup erc-list nil | ||
| 46 | "Display IRC channels in another window when using /LIST" | ||
| 47 | :group 'erc) | ||
| 48 | |||
| 49 | (defcustom erc-chanlist-progress-message t | ||
| 50 | "*Show progress message while accumulating channel list." | ||
| 51 | :group 'erc-list | ||
| 52 | :type 'boolean) | ||
| 53 | |||
| 54 | (defcustom erc-no-list-networks nil | ||
| 55 | "*A list of network names on which the /LIST command refuses to work." | ||
| 56 | :group 'erc-list | ||
| 57 | :type '(repeat string)) | ||
| 58 | |||
| 59 | (defcustom erc-chanlist-frame-parameters nil | ||
| 60 | "*If nil, the channel list is displayed in a new window; if non-nil, | ||
| 61 | this variable holds the frame parameters used to make a frame to | ||
| 62 | display the channel list." | ||
| 63 | :group 'erc-list | ||
| 64 | :type 'list) | ||
| 65 | |||
| 66 | (defcustom erc-chanlist-hide-modeline nil | ||
| 67 | "*If nil, the channel list buffer has a modeline, otherwise the modeline is hidden." | ||
| 68 | :group 'erc-list | ||
| 69 | :type 'boolean) | ||
| 70 | |||
| 71 | (defface erc-chanlist-header-face '((t (:bold t))) | ||
| 72 | "Face used for the headers in erc's channel list." | ||
| 73 | :group 'erc-faces) | ||
| 74 | |||
| 75 | (defface erc-chanlist-odd-line-face '((t (:inverse-video t))) | ||
| 76 | "Face used for the odd lines in erc's channel list." | ||
| 77 | :group 'erc-faces) | ||
| 78 | |||
| 79 | (defface erc-chanlist-even-line-face '((t (:inverse-video nil))) | ||
| 80 | "Face used for the even lines in erc's channel list." | ||
| 81 | :group 'erc-faces) | ||
| 82 | |||
| 83 | (defface erc-chanlist-highlight '((t (:foreground "red"))) | ||
| 84 | "Face used to highlight the current line in the channel list." | ||
| 85 | :group 'erc-faces) | ||
| 86 | |||
| 87 | ;; This should perhaps be a defface that inherits values from the highlight face | ||
| 88 | ;; but xemacs does not support inheritance | ||
| 89 | (defcustom erc-chanlist-highlight-face 'erc-chanlist-highlight | ||
| 90 | "Face used for highlighting the current line in a list." | ||
| 91 | :type 'face | ||
| 92 | :group 'erc-faces) | ||
| 93 | |||
| 94 | |||
| 95 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||
| 96 | ;; All variables below this line are for internal use only. | ||
| 97 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||
| 98 | |||
| 99 | (defvar erc-chanlist-channel-line-regexp "^\\([#&\\*][^ \t\n]*\\)\\s-+[0-9]+" | ||
| 100 | "Regexp that matches a channel line in the channel list buffer.") | ||
| 101 | |||
| 102 | (defvar erc-chanlist-buffer nil) | ||
| 103 | (make-variable-buffer-local 'erc-chanlist-buffer) | ||
| 104 | |||
| 105 | (defvar erc-chanlist-last-time 0 | ||
| 106 | "A time value used to throttle the progress indicator.") | ||
| 107 | |||
| 108 | (defvar erc-chanlist-frame nil | ||
| 109 | "The frame displaying the most recent channel list buffer.") | ||
| 110 | |||
| 111 | (defvar erc-chanlist-sort-state 'channel | ||
| 112 | "The sort mode of the channel list buffer. Either 'channel or 'users.") | ||
| 113 | (make-variable-buffer-local 'erc-chanlist-sort-state) | ||
| 114 | |||
| 115 | (defvar erc-chanlist-highlight-overlay nil | ||
| 116 | "The overlay used for erc chanlist highlighting") | ||
| 117 | (make-variable-buffer-local 'erc-chanlist-highlight-overlay) | ||
| 118 | |||
| 119 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||
| 120 | ;; Define erc-chanlist-mode. | ||
| 121 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||
| 122 | |||
| 123 | (defcustom erc-chanlist-mode-hook nil | ||
| 124 | "Hook run by erc-chanlist-mode." | ||
| 125 | :group 'erc-list | ||
| 126 | :type 'hook) | ||
| 127 | |||
| 128 | (define-derived-mode erc-chanlist-mode fundamental-mode "ERC Channel List" | ||
| 129 | "Mode for viewing a channel list of a particular server. | ||
| 130 | |||
| 131 | \\{erc-chanlist-mode-map}" | ||
| 132 | (local-set-key "\C-c\C-j" 'erc-join-channel) | ||
| 133 | (local-set-key "j" 'erc-chanlist-join-channel) | ||
| 134 | (local-set-key "n" 'next-line) | ||
| 135 | (local-set-key "p" 'previous-line) | ||
| 136 | (local-set-key "q" 'erc-chanlist-quit) | ||
| 137 | (local-set-key "s" 'erc-chanlist-toggle-sort-state) | ||
| 138 | (local-set-key "t" 'toggle-truncate-lines) | ||
| 139 | (setq erc-chanlist-sort-state 'channel) | ||
| 140 | (setq truncate-lines t) | ||
| 141 | (add-hook 'post-command-hook 'erc-chanlist-post-command-hook 'append 'local)) | ||
| 142 | |||
| 143 | ;; Define module: | ||
| 144 | ;;;###autoload (autoload 'erc-list-mode "erc-list") | ||
| 145 | (define-erc-module list nil | ||
| 146 | "List channels nicely in a separate buffer." | ||
| 147 | ((defalias 'erc-cmd-LIST 'erc-list-channels)) | ||
| 148 | ((defalias 'erc-cmd-LIST 'erc-list-channels-simple))) | ||
| 149 | |||
| 150 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||
| 151 | ;; Functions. | ||
| 152 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | ||
| 153 | |||
| 154 | ;;;###autoload | ||
| 155 | (defun erc-list-channels (&rest channel) | ||
| 156 | "Display a buffer containing a list of channels on the current server. | ||
| 157 | Optional argument CHANNEL specifies a single channel to list (instead of every | ||
| 158 | available channel)." | ||
| 159 | (interactive | ||
| 160 | (remove "" (split-string | ||
| 161 | (read-from-minibuffer "List channels (RET for all): ") " "))) | ||
| 162 | (if (and (null channel) | ||
| 163 | (erc-member-ignore-case (erc-network-name) erc-no-list-networks)) | ||
| 164 | (erc-display-line "ERC is configured not to allow the /LIST command on this network!" | ||
| 165 | (current-buffer)) | ||
| 166 | (erc-display-line (erc-make-notice (concat "Listing channel" | ||
| 167 | (if channel | ||
| 168 | "." | ||
| 169 | "s. This may take a while.")))) | ||
| 170 | (erc-chanlist channel)) | ||
| 171 | t) | ||
| 172 | |||
| 173 | (defun erc-list-channels-simple (&optional line) | ||
| 174 | "Send the LIST command to the current server with optional channels LINE." | ||
| 175 | (when (string-match "^\\s-*\\(.*\\)$" line) | ||
| 176 | (let ((channels (match-string 1 line))) | ||
| 177 | (erc-log (format "cmd: LIST: %s" channels)) | ||
| 178 | (erc-server-send | ||
| 179 | (if (string= channels "") | ||
| 180 | "LIST" | ||
| 181 | (concat "LIST :" channels)))) | ||
| 182 | t)) | ||
| 183 | (put 'erc-list-channels-simple 'do-not-parse-args t) | ||
| 184 | |||
| 185 | ;;;###autoload | ||
| 186 | (defun erc-chanlist (&optional channels) | ||
| 187 | "Show a channel listing of the current server in a special mode. | ||
| 188 | Please note that this function only works with IRC servers which conform | ||
| 189 | to RFC and send the LIST header (#321) at start of list transmission." | ||
| 190 | (interactive) | ||
| 191 | (with-current-buffer (erc-server-buffer) | ||
| 192 | (erc-once-with-server-event | ||
| 193 | 321 | ||
| 194 | '(progn | ||
| 195 | (add-hook 'erc-server-322-functions 'erc-chanlist-322 nil t) | ||
| 196 | |||
| 197 | (erc-once-with-server-event | ||
| 198 | 323 | ||
| 199 | '(progn | ||
| 200 | (remove-hook 'erc-server-322-functions 'erc-chanlist-322 t) | ||
| 201 | (let ((buf erc-chanlist-buffer)) | ||
| 202 | (if (not (buffer-live-p buf)) | ||
| 203 | (error "`erc-chanlist-buffer' does not refer to a live buffer")) | ||
| 204 | |||
| 205 | (set-buffer buf) | ||
| 206 | (buffer-disable-undo) | ||
| 207 | (let (buffer-read-only | ||
| 208 | (sort-fold-case t)) | ||
| 209 | (sort-lines nil (point-min) (point-max)) | ||
| 210 | (setq erc-chanlist-sort-state 'channel) | ||
| 211 | |||
| 212 | (let ((sum (count-lines (point-min) (point-max)))) | ||
| 213 | (goto-char (point-min)) | ||
| 214 | (insert (substitute-command-keys | ||
| 215 | (concat "'\\[erc-chanlist-toggle-sort-state]' toggle sort mode.\n" | ||
| 216 | "'\\[erc-chanlist-quit]' kill this buffer.\n" | ||
| 217 | "'\\[toggle-truncate-lines]' toggle line truncation.\n" | ||
| 218 | "'\\[erc-chanlist-join-channel]' join the channel listed on the current line.\n\n"))) | ||
| 219 | (insert (format "%d channels (sorted by %s).\n\n" | ||
| 220 | sum (if (eq erc-chanlist-sort-state 'channel) | ||
| 221 | "channel name" | ||
| 222 | "number of users")))) | ||
| 223 | |||
| 224 | (insert (format "%-25s%5s %s\n------------------------ ----- ----------------------------\n" | ||
| 225 | "Channel" | ||
| 226 | "Users" | ||
| 227 | "Topic")) | ||
| 228 | |||
| 229 | ;; Display the channel list buffer. | ||
| 230 | (if erc-chanlist-frame-parameters | ||
| 231 | (progn | ||
| 232 | (if (or (null erc-chanlist-frame) | ||
| 233 | (not (frame-live-p erc-chanlist-frame))) | ||
| 234 | (setq erc-chanlist-frame | ||
| 235 | (make-frame `((name . ,(format "Channels on %s" | ||
| 236 | erc-session-server)) | ||
| 237 | ,@erc-chanlist-frame-parameters)))) | ||
| 238 | (select-frame erc-chanlist-frame) | ||
| 239 | (switch-to-buffer buf) | ||
| 240 | (erc-prettify-channel-list)) | ||
| 241 | (pop-to-buffer buf) | ||
| 242 | (erc-prettify-channel-list)))) | ||
| 243 | (goto-char (point-min)) | ||
| 244 | (search-forward-regexp "^------" nil t) | ||
| 245 | (forward-line 1) | ||
| 246 | (erc-chanlist-highlight-line) | ||
| 247 | (message "") | ||
| 248 | t)) | ||
| 249 | |||
| 250 | (setq erc-chanlist-buffer (get-buffer-create | ||
| 251 | (format "*Channels on %s*" | ||
| 252 | (erc-response.sender parsed)))) | ||
| 253 | (with-current-buffer erc-chanlist-buffer | ||
| 254 | (setq buffer-read-only nil) | ||
| 255 | (erase-buffer) | ||
| 256 | (erc-chanlist-mode) | ||
| 257 | (setq erc-server-process proc) | ||
| 258 | (if erc-chanlist-hide-modeline | ||
| 259 | (setq mode-line-format nil)) | ||
| 260 | (setq buffer-read-only t)) | ||
| 261 | t)) | ||
| 262 | |||
| 263 | ;; Now that we've setup our callbacks, pull the trigger. | ||
| 264 | (if (interactive-p) | ||
| 265 | (message "Collecting channel list for server %s" erc-session-server)) | ||
| 266 | (erc-server-send (if (null channels) | ||
| 267 | "LIST" | ||
| 268 | (concat "LIST " | ||
| 269 | (mapconcat #'identity channels ",")))))) | ||
| 270 | |||
| 271 | (defun erc-chanlist-322 (proc parsed) | ||
| 272 | "Process an IRC 322 message. | ||
| 273 | |||
| 274 | The message carries information about one channel for the LIST | ||
| 275 | command." | ||
| 276 | (multiple-value-bind (channel num-users) | ||
| 277 | (cdr (erc-response.command-args parsed)) | ||
| 278 | (let ((topic (erc-response.contents parsed))) | ||
| 279 | (with-current-buffer erc-chanlist-buffer | ||
| 280 | (save-excursion | ||
| 281 | (goto-char (point-max)) | ||
| 282 | (let (buffer-read-only) | ||
| 283 | (insert (format "%-26s%4s %s\n" (erc-controls-strip channel) | ||
| 284 | num-users | ||
| 285 | (erc-controls-strip topic)))) | ||
| 286 | |||
| 287 | ;; Maybe display a progress indicator in the minibuffer. | ||
| 288 | (when (and erc-chanlist-progress-message | ||
| 289 | (> (erc-time-diff | ||
| 290 | erc-chanlist-last-time (erc-current-time)) | ||
| 291 | 3)) | ||
| 292 | (setq erc-chanlist-last-time (erc-current-time)) | ||
| 293 | (message "Accumulating channel list ... %c" | ||
| 294 | (aref [?/ ?| ?\\ ?- ?! ?O ?o] (random 7)))) | ||
| 295 | |||
| 296 | ;; Return success to prevent other hook functions from being run. | ||
| 297 | t))))) | ||
| 298 | |||
| 299 | (defun erc-chanlist-post-command-hook () | ||
| 300 | "Keep the current line highlighted." | ||
| 301 | (ignore-errors | ||
| 302 | (save-excursion | ||
| 303 | (beginning-of-line) | ||
| 304 | (if (looking-at erc-chanlist-channel-line-regexp) | ||
| 305 | (erc-chanlist-highlight-line) | ||
| 306 | (erc-chanlist-dehighlight-line))))) | ||
| 307 | |||
| 308 | (defun erc-chanlist-highlight-line () | ||
| 309 | "Highlight the current line." | ||
| 310 | (unless erc-chanlist-highlight-overlay | ||
| 311 | (setq erc-chanlist-highlight-overlay | ||
| 312 | (make-overlay (point-min) (point-min))) | ||
| 313 | ;; Detach it from the buffer. | ||
| 314 | (delete-overlay erc-chanlist-highlight-overlay) | ||
| 315 | (overlay-put erc-chanlist-highlight-overlay | ||
| 316 | 'face erc-chanlist-highlight-face) | ||
| 317 | ;; Expressly put it at a higher priority than the text | ||
| 318 | ;; properties used for faces later on. Gnu emacs promises that | ||
| 319 | ;; right now overlays are higher priority than text properties, | ||
| 320 | ;; but why take chances? | ||
| 321 | (overlay-put erc-chanlist-highlight-overlay 'priority 1)) | ||
| 322 | (move-overlay erc-chanlist-highlight-overlay (point) (1+ (point-at-eol)))) | ||
| 323 | |||
| 324 | (defun erc-chanlist-dehighlight-line () | ||
| 325 | "Remove the line highlighting." | ||
| 326 | (delete-overlay erc-chanlist-highlight-overlay)) | ||
| 327 | |||
| 328 | (defun erc-prettify-channel-list () | ||
| 329 | "Make the channel list buffer look pretty. | ||
| 330 | When this function runs, the current buffer must be the channel | ||
| 331 | list buffer, or it does nothing." | ||
| 332 | (if (eq major-mode 'erc-chanlist-mode) | ||
| 333 | (save-excursion | ||
| 334 | (let ((inhibit-read-only t)) | ||
| 335 | (goto-char (point-min)) | ||
| 336 | (when (search-forward-regexp "^-------" nil t) | ||
| 337 | (add-text-properties | ||
| 338 | (point-min) (1+ (point-at-eol)) '(face erc-chanlist-header-face)) | ||
| 339 | (forward-line 1)) | ||
| 340 | |||
| 341 | (while (not (eobp)) | ||
| 342 | (add-text-properties | ||
| 343 | (point) (1+ (point-at-eol)) '(face erc-chanlist-odd-line-face)) | ||
| 344 | (forward-line 1) | ||
| 345 | (unless (eobp) | ||
| 346 | (add-text-properties | ||
| 347 | (point) (1+ (point-at-eol)) '(face erc-chanlist-even-line-face))) | ||
| 348 | (forward-line 1)))))) | ||
| 349 | |||
| 350 | (defun erc-chanlist-toggle-sort-state () | ||
| 351 | "Toggle the channel list buffer sorting method. | ||
| 352 | Either sort by channel names or by number of users in each channel." | ||
| 353 | (interactive) | ||
| 354 | (let ((inhibit-read-only t) | ||
| 355 | (sort-fold-case t)) | ||
| 356 | (save-excursion | ||
| 357 | (goto-char (point-min)) | ||
| 358 | (search-forward-regexp "^-----" nil t) | ||
| 359 | (forward-line 1) | ||
| 360 | (unless (eobp) | ||
| 361 | (if (eq erc-chanlist-sort-state 'channel) | ||
| 362 | (progn | ||
| 363 | (sort-numeric-fields 2 (point) (point-max)) | ||
| 364 | (reverse-region (point) (point-max)) | ||
| 365 | (setq erc-chanlist-sort-state 'users)) | ||
| 366 | (sort-lines nil (point) (point-max)) | ||
| 367 | (setq erc-chanlist-sort-state 'channel)) | ||
| 368 | |||
| 369 | (goto-char (point-min)) | ||
| 370 | (if (search-forward-regexp "^[0-9]+ channels (sorted by \\(.*\\)).$" | ||
| 371 | nil t) | ||
| 372 | (replace-match (if (eq erc-chanlist-sort-state 'channel) | ||
| 373 | "channel name" | ||
| 374 | "number of users") | ||
| 375 | nil nil nil 1)) | ||
| 376 | |||
| 377 | (goto-char (point-min)) | ||
| 378 | (search-forward-regexp "^-----" nil t) | ||
| 379 | (forward-line 1) | ||
| 380 | (recenter -1) | ||
| 381 | |||
| 382 | (erc-prettify-channel-list))))) | ||
| 383 | |||
| 384 | (defun erc-chanlist-quit () | ||
| 385 | "Quit Chanlist mode. | ||
| 386 | Kill the channel list buffer, window, and frame (if there's a frame | ||
| 387 | devoted to the channel list)." | ||
| 388 | (interactive) | ||
| 389 | (kill-buffer (current-buffer)) | ||
| 390 | (if (eq (selected-frame) erc-chanlist-frame) | ||
| 391 | (delete-frame) | ||
| 392 | (delete-window))) | ||
| 393 | |||
| 394 | (defun erc-chanlist-join-channel () | ||
| 395 | "Join the channel listed on the current line of the channel list buffer. | ||
| 396 | Private channels, which are shown as asterisks (*), are ignored." | ||
| 397 | (interactive) | ||
| 398 | (save-excursion | ||
| 399 | (beginning-of-line) | ||
| 400 | (when (looking-at erc-chanlist-channel-line-regexp) | ||
| 401 | (let ((channel-name (match-string 1))) | ||
| 402 | (when (and (stringp channel-name) | ||
| 403 | (not (string= channel-name "*"))) | ||
| 404 | (run-at-time 0.5 nil 'erc-join-channel channel-name)))))) | ||
| 405 | |||
| 406 | (provide 'erc-list) | ||
| 407 | |||
| 408 | ;;; erc-list.el ends here | ||
| 409 | ;; | ||
| 410 | ;; Local Variables: | ||
| 411 | ;; indent-tabs-mode: t | ||
| 412 | ;; tab-width: 8 | ||
| 413 | ;; End: | ||
| 414 | |||
| 415 | ;; arch-tag: 4a13196a-a61b-465a-9926-044dfbc7e5ff | ||
diff --git a/lisp/erc/erc-stamp.el b/lisp/erc/erc-stamp.el index 5d43baab6c9..b0622b99443 100644 --- a/lisp/erc/erc-stamp.el +++ b/lisp/erc/erc-stamp.el | |||
| @@ -266,8 +266,8 @@ be printed just before the window-width." | |||
| 266 | (indent-to pos) | 266 | (indent-to pos) |
| 267 | (setq from (point)) | 267 | (setq from (point)) |
| 268 | (insert string)) | 268 | (insert string)) |
| 269 | (erc-put-text-property from (1+ (point)) 'field 'erc-timestamp) | 269 | (erc-put-text-property from (point) 'field 'erc-timestamp) |
| 270 | (erc-put-text-property from (1+ (point)) 'rear-nonsticky t) | 270 | (erc-put-text-property from (point) 'rear-nonsticky t) |
| 271 | (when erc-timestamp-intangible | 271 | (when erc-timestamp-intangible |
| 272 | (erc-put-text-property from (1+ (point)) 'intangible t))))) | 272 | (erc-put-text-property from (1+ (point)) 'intangible t))))) |
| 273 | 273 | ||
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index a40da6f62c0..7de2828b86d 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el | |||
| @@ -2,7 +2,6 @@ | |||
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 2004 Brian Palmer | ||
| 6 | 5 | ||
| 7 | ;; Author: Alexander L. Belikoff (alexander@belikoff.net) | 6 | ;; Author: Alexander L. Belikoff (alexander@belikoff.net) |
| 8 | ;; Contributors: Sergey Berezin (sergey.berezin@cs.cmu.edu), | 7 | ;; Contributors: Sergey Berezin (sergey.berezin@cs.cmu.edu), |
| @@ -1669,22 +1668,25 @@ If `erc-track-mode' is in enabled, put the last element of | |||
| 1669 | Due to some yet unresolved reason, global function `iswitchb-mode' | 1668 | Due to some yet unresolved reason, global function `iswitchb-mode' |
| 1670 | needs to be active for this function to work." | 1669 | needs to be active for this function to work." |
| 1671 | (interactive "P") | 1670 | (interactive "P") |
| 1672 | (eval-and-compile | 1671 | (eval-when-compile |
| 1673 | (require 'iswitchb)) | 1672 | (require 'iswitchb)) |
| 1674 | (let ((iswitchb-make-buflist-hook | 1673 | (let ((enabled iswitchb-mode)) |
| 1675 | (lambda () | 1674 | (or enabled (iswitchb-mode 1)) |
| 1676 | (setq iswitchb-temp-buflist | 1675 | (let ((iswitchb-make-buflist-hook |
| 1677 | (mapcar 'buffer-name | 1676 | (lambda () |
| 1678 | (erc-buffer-list | 1677 | (setq iswitchb-temp-buflist |
| 1679 | nil | 1678 | (mapcar 'buffer-name |
| 1680 | (when arg erc-server-process))))))) | 1679 | (erc-buffer-list |
| 1681 | (switch-to-buffer | 1680 | nil |
| 1682 | (iswitchb-read-buffer | 1681 | (when arg erc-server-process))))))) |
| 1683 | "Switch-to: " | 1682 | (switch-to-buffer |
| 1684 | (if (boundp 'erc-modified-channels-alist) | 1683 | (iswitchb-read-buffer |
| 1685 | (buffer-name (caar (last erc-modified-channels-alist))) | 1684 | "Switch-to: " |
| 1686 | nil) | 1685 | (if (boundp 'erc-modified-channels-alist) |
| 1687 | t)))) | 1686 | (buffer-name (caar (last erc-modified-channels-alist))) |
| 1687 | nil) | ||
| 1688 | t))) | ||
| 1689 | (or enabled (iswitchb-mode -1)))) | ||
| 1688 | 1690 | ||
| 1689 | (defun erc-channel-list (proc) | 1691 | (defun erc-channel-list (proc) |
| 1690 | "Return a list of channel buffers. | 1692 | "Return a list of channel buffers. |
| @@ -1761,7 +1763,7 @@ all channel buffers on all servers." | |||
| 1761 | 1763 | ||
| 1762 | (defcustom erc-modules '(netsplit fill button match track completion readonly | 1764 | (defcustom erc-modules '(netsplit fill button match track completion readonly |
| 1763 | ring autojoin noncommands irccontrols | 1765 | ring autojoin noncommands irccontrols |
| 1764 | stamp list) | 1766 | stamp) |
| 1765 | "A list of modules which ERC should enable. | 1767 | "A list of modules which ERC should enable. |
| 1766 | If you set the value of this without using `customize' remember to call | 1768 | If you set the value of this without using `customize' remember to call |
| 1767 | \(erc-update-modules) after you change it. When using `customize', modules | 1769 | \(erc-update-modules) after you change it. When using `customize', modules |
| @@ -1792,7 +1794,6 @@ removed from the list will be disabled." | |||
| 1792 | (const :tag "Launch an identd server on port 8113" identd) | 1794 | (const :tag "Launch an identd server on port 8113" identd) |
| 1793 | (const :tag "Highlight or remove IRC control characters" | 1795 | (const :tag "Highlight or remove IRC control characters" |
| 1794 | irccontrols) | 1796 | irccontrols) |
| 1795 | (const :tag "List channels in a separate buffer" list) | ||
| 1796 | (const :tag "Save buffers in logs" log) | 1797 | (const :tag "Save buffers in logs" log) |
| 1797 | (const :tag "Highlight pals, fools, and other keywords" match) | 1798 | (const :tag "Highlight pals, fools, and other keywords" match) |
| 1798 | (const :tag "Detect netsplits" netsplit) | 1799 | (const :tag "Detect netsplits" netsplit) |
diff --git a/lisp/eshell/em-alias.el b/lisp/eshell/em-alias.el index 30b7f69cc38..96ec9d5e025 100644 --- a/lisp/eshell/em-alias.el +++ b/lisp/eshell/em-alias.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-alias.el --- creation and management of command aliases | 1 | ;;; em-alias.el --- creation and management of command aliases |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/em-banner.el b/lisp/eshell/em-banner.el index 18f7cd84c04..382964f304d 100644 --- a/lisp/eshell/em-banner.el +++ b/lisp/eshell/em-banner.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-banner.el --- sample module that displays a login banner | 1 | ;;; em-banner.el --- sample module that displays a login banner |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/em-basic.el b/lisp/eshell/em-basic.el index c942b3c6913..bcc1ef80f91 100644 --- a/lisp/eshell/em-basic.el +++ b/lisp/eshell/em-basic.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-basic.el --- basic shell builtin commands | 1 | ;;; em-basic.el --- basic shell builtin commands |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/em-cmpl.el b/lisp/eshell/em-cmpl.el index 19b1ad34569..50767a4a482 100644 --- a/lisp/eshell/em-cmpl.el +++ b/lisp/eshell/em-cmpl.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-cmpl.el --- completion using the TAB key | 1 | ;;; em-cmpl.el --- completion using the TAB key |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/em-dirs.el b/lisp/eshell/em-dirs.el index 12e84b5403f..dfcf9836061 100644 --- a/lisp/eshell/em-dirs.el +++ b/lisp/eshell/em-dirs.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-dirs.el --- directory navigation commands | 1 | ;;; em-dirs.el --- directory navigation commands |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/em-glob.el b/lisp/eshell/em-glob.el index c700d5d7f6e..bb9abc8aaa8 100644 --- a/lisp/eshell/em-glob.el +++ b/lisp/eshell/em-glob.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-glob.el --- extended file name globbing | 1 | ;;; em-glob.el --- extended file name globbing |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/em-hist.el b/lisp/eshell/em-hist.el index 66356c11925..24730f889f1 100644 --- a/lisp/eshell/em-hist.el +++ b/lisp/eshell/em-hist.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-hist.el --- history list management | 1 | ;;; em-hist.el --- history list management |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el index f705ca0e375..68e7caec0b0 100644 --- a/lisp/eshell/em-ls.el +++ b/lisp/eshell/em-ls.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-ls.el --- implementation of ls in Lisp | 1 | ;;; em-ls.el --- implementation of ls in Lisp |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/em-pred.el b/lisp/eshell/em-pred.el index a506bc03b2a..6a03a689a9f 100644 --- a/lisp/eshell/em-pred.el +++ b/lisp/eshell/em-pred.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-pred.el --- argument predicates and modifiers (ala zsh) | 1 | ;;; em-pred.el --- argument predicates and modifiers (ala zsh) |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/em-prompt.el b/lisp/eshell/em-prompt.el index e55008fe2e8..8476e64fc7a 100644 --- a/lisp/eshell/em-prompt.el +++ b/lisp/eshell/em-prompt.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-prompt.el --- command prompts | 1 | ;;; em-prompt.el --- command prompts |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/em-rebind.el b/lisp/eshell/em-rebind.el index 98627be2363..65ca9676d55 100644 --- a/lisp/eshell/em-rebind.el +++ b/lisp/eshell/em-rebind.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-rebind.el --- rebind keys when point is at current input | 1 | ;;; em-rebind.el --- rebind keys when point is at current input |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/em-script.el b/lisp/eshell/em-script.el index 782d70bb864..356fe76961e 100644 --- a/lisp/eshell/em-script.el +++ b/lisp/eshell/em-script.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-script.el --- Eshell script files | 1 | ;;; em-script.el --- Eshell script files |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/em-smart.el b/lisp/eshell/em-smart.el index 65a3280d34e..5537d1c72f1 100644 --- a/lisp/eshell/em-smart.el +++ b/lisp/eshell/em-smart.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-smart.el --- smart display of output | 1 | ;;; em-smart.el --- smart display of output |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/em-term.el b/lisp/eshell/em-term.el index a91eb044987..af6aa66c328 100644 --- a/lisp/eshell/em-term.el +++ b/lisp/eshell/em-term.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-term.el --- running visual commands | 1 | ;;; em-term.el --- running visual commands |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/em-xtra.el b/lisp/eshell/em-xtra.el index d53d67314a0..8b77186f46a 100644 --- a/lisp/eshell/em-xtra.el +++ b/lisp/eshell/em-xtra.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; em-xtra.el --- extra alias functions | 1 | ;;; em-xtra.el --- extra alias functions |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/esh-arg.el b/lisp/eshell/esh-arg.el index 5f636c66611..1b01501fb61 100644 --- a/lisp/eshell/esh-arg.el +++ b/lisp/eshell/esh-arg.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; esh-arg.el --- argument processing | 1 | ;;; esh-arg.el --- argument processing |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el index aad62bfc7dc..6c698c79393 100644 --- a/lisp/eshell/esh-cmd.el +++ b/lisp/eshell/esh-cmd.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; esh-cmd.el --- command invocation | 1 | ;;; esh-cmd.el --- command invocation |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/esh-ext.el b/lisp/eshell/esh-ext.el index 9f77f1e2868..f0aa026d8e4 100644 --- a/lisp/eshell/esh-ext.el +++ b/lisp/eshell/esh-ext.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; esh-ext.el --- commands external to Eshell | 1 | ;;; esh-ext.el --- commands external to Eshell |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/esh-io.el b/lisp/eshell/esh-io.el index 19f90e67f92..18dcb87b9ee 100644 --- a/lisp/eshell/esh-io.el +++ b/lisp/eshell/esh-io.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; esh-io.el --- I/O management | 1 | ;;; esh-io.el --- I/O management |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/esh-maint.el b/lisp/eshell/esh-maint.el index d0d9f85ece7..44c8935af28 100644 --- a/lisp/eshell/esh-maint.el +++ b/lisp/eshell/esh-maint.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; esh-maint.el --- init code for building eshell -*- no-byte-compile: t -*- | 1 | ;;; esh-maint.el --- init code for building eshell -*- no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/esh-opt.el b/lisp/eshell/esh-opt.el index 5d6e5821029..8c4c5f5fdc1 100644 --- a/lisp/eshell/esh-opt.el +++ b/lisp/eshell/esh-opt.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; esh-opt.el --- command options processing | 1 | ;;; esh-opt.el --- command options processing |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/esh-proc.el b/lisp/eshell/esh-proc.el index 379ac972206..7d8c66c1c53 100644 --- a/lisp/eshell/esh-proc.el +++ b/lisp/eshell/esh-proc.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; esh-proc.el --- process management | 1 | ;;; esh-proc.el --- process management |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/esh-test.el b/lisp/eshell/esh-test.el index 5aad4126f91..d3f20c32274 100644 --- a/lisp/eshell/esh-test.el +++ b/lisp/eshell/esh-test.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; esh-test.el --- Eshell test suite | 1 | ;;; esh-test.el --- Eshell test suite |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/esh-var.el b/lisp/eshell/esh-var.el index 2bebb6a79cc..5f21eb13fdf 100644 --- a/lisp/eshell/esh-var.el +++ b/lisp/eshell/esh-var.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; esh-var.el --- handling of variables | 1 | ;;; esh-var.el --- handling of variables |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/eshell/eshell.el b/lisp/eshell/eshell.el index cfc2f05b931..2a254e045ba 100644 --- a/lisp/eshell/eshell.el +++ b/lisp/eshell/eshell.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; eshell.el --- the Emacs command shell | 1 | ;;; eshell.el --- the Emacs command shell |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: John Wiegley <johnw@gnu.org> | 6 | ;; Author: John Wiegley <johnw@gnu.org> |
diff --git a/lisp/files.el b/lisp/files.el index 396e4c28b36..141fe9f26c9 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1695,6 +1695,16 @@ This function ensures that none of these modifications will take place." | |||
| 1695 | (if (file-directory-p filename) | 1695 | (if (file-directory-p filename) |
| 1696 | (signal 'file-error (list "Opening input file" "file is a directory" | 1696 | (signal 'file-error (list "Opening input file" "file is a directory" |
| 1697 | filename))) | 1697 | filename))) |
| 1698 | ;; Check whether the file is uncommonly large (see find-file-noselect): | ||
| 1699 | (let (size) | ||
| 1700 | (when (and large-file-warning-threshold | ||
| 1701 | (setq size (nth 7 (file-attributes filename))) | ||
| 1702 | (> size large-file-warning-threshold) | ||
| 1703 | (not (y-or-n-p | ||
| 1704 | (format "File %s is large (%dMB), really insert? " | ||
| 1705 | (file-name-nondirectory filename) | ||
| 1706 | (/ size 1048576))))) | ||
| 1707 | (error "Aborted"))) | ||
| 1698 | (let* ((buffer (find-buffer-visiting (abbreviate-file-name (file-truename filename)) | 1708 | (let* ((buffer (find-buffer-visiting (abbreviate-file-name (file-truename filename)) |
| 1699 | #'buffer-modified-p)) | 1709 | #'buffer-modified-p)) |
| 1700 | (tem (funcall insert-func filename))) | 1710 | (tem (funcall insert-func filename))) |
| @@ -2916,7 +2926,7 @@ Interactively, confirmation is required unless you supply a prefix argument." | |||
| 2916 | (interactive | 2926 | (interactive |
| 2917 | (list (if buffer-file-name | 2927 | (list (if buffer-file-name |
| 2918 | (read-file-name "Write file: " | 2928 | (read-file-name "Write file: " |
| 2919 | nil nil nil nil) | 2929 | nil nil nil nil) |
| 2920 | (read-file-name "Write file: " default-directory | 2930 | (read-file-name "Write file: " default-directory |
| 2921 | (expand-file-name | 2931 | (expand-file-name |
| 2922 | (file-name-nondirectory (buffer-name)) | 2932 | (file-name-nondirectory (buffer-name)) |
diff --git a/lisp/frame.el b/lisp/frame.el index 9aba8c54089..b8b0271664e 100644 --- a/lisp/frame.el +++ b/lisp/frame.el | |||
| @@ -705,7 +705,7 @@ This variable does not have any effect on MS-Windows." | |||
| 705 | (set-mouse-position (selected-frame) (1- (frame-width)) 0)))) | 705 | (set-mouse-position (selected-frame) (1- (frame-width)) 0)))) |
| 706 | 706 | ||
| 707 | (defun other-frame (arg) | 707 | (defun other-frame (arg) |
| 708 | "Select the ARG'th different visible frame on current display, and raise it. | 708 | "Select the ARGth different visible frame on current display, and raise it. |
| 709 | All frames are arranged in a cyclic order. | 709 | All frames are arranged in a cyclic order. |
| 710 | This command selects the frame ARG steps away in that order. | 710 | This command selects the frame ARG steps away in that order. |
| 711 | A negative ARG moves in the opposite order. | 711 | A negative ARG moves in the opposite order. |
| @@ -881,7 +881,7 @@ pixels) is kept by adjusting the numbers of the lines and columns." | |||
| 881 | (defun set-frame-parameter (frame parameter value) | 881 | (defun set-frame-parameter (frame parameter value) |
| 882 | "Set frame parameter PARAMETER to VALUE on FRAME. | 882 | "Set frame parameter PARAMETER to VALUE on FRAME. |
| 883 | If FRAME is nil, it defaults to the selected frame. | 883 | If FRAME is nil, it defaults to the selected frame. |
| 884 | See `modify-frame-parameters.'" | 884 | See `modify-frame-parameters'." |
| 885 | (modify-frame-parameters frame (list (cons parameter value)))) | 885 | (modify-frame-parameters frame (list (cons parameter value)))) |
| 886 | 886 | ||
| 887 | (defun set-background-color (color-name) | 887 | (defun set-background-color (color-name) |
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index eb324178b7d..047bac04076 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,20 @@ | |||
| 1 | 2006-12-13 Reiner Steib <Reiner.Steib@gmx.de> | ||
| 2 | |||
| 3 | * legacy-gnus-agent.el: Add Copyright notice. | ||
| 4 | |||
| 5 | 2006-12-12 Chong Yidong <cyd@stupidchicken.com> | ||
| 6 | |||
| 7 | * gnus-sum.el (gnus-make-thread-indent-array): Fix last change. | ||
| 8 | |||
| 9 | 2006-12-08 Chong Yidong <cyd@stupidchicken.com> | ||
| 10 | |||
| 11 | * gnus-sum.el (gnus-make-thread-indent-array): New optional arg | ||
| 12 | specifying array size. | ||
| 13 | (gnus-summary-insert-line, gnus-summary-prepare-threads): Regrow indent | ||
| 14 | array if it is too small. | ||
| 15 | (gnus-sort-threads-recursive): Renamed from gnus-sort-thread-1. | ||
| 16 | (gnus-sort-threads-loop): New function. | ||
| 17 | |||
| 1 | 2006-12-06 Chris Moore <dooglus@gmail.com> (tiny change) | 18 | 2006-12-06 Chris Moore <dooglus@gmail.com> (tiny change) |
| 2 | 19 | ||
| 3 | * gnus-sum.el (gnus-sort-threads, gnus-summary-limit-children): | 20 | * gnus-sum.el (gnus-sort-threads, gnus-summary-limit-children): |
diff --git a/lisp/gnus/ChangeLog.1 b/lisp/gnus/ChangeLog.1 index f917d0cbf73..5f86d24e019 100644 --- a/lisp/gnus/ChangeLog.1 +++ b/lisp/gnus/ChangeLog.1 | |||
| @@ -3726,7 +3726,8 @@ | |||
| 3726 | * gnus.el: Quassia Gnus v0.1 is released. | 3726 | * gnus.el: Quassia Gnus v0.1 is released. |
| 3727 | 3727 | ||
| 3728 | 3728 | ||
| 3729 | Copyright (C) 1997, 1998, 1999 Free Software Foundation, Inc. | 3729 | Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 3730 | 2005, 2006 Free Software Foundation, Inc. | ||
| 3730 | Copying and distribution of this file, with or without modification, | 3731 | Copying and distribution of this file, with or without modification, |
| 3731 | are permitted provided the copyright notice and this notice are preserved. | 3732 | are permitted provided the copyright notice and this notice are preserved. |
| 3732 | 3733 | ||
diff --git a/lisp/gnus/ChangeLog.2 b/lisp/gnus/ChangeLog.2 index 14b4c23c38a..dcd6e8249b4 100644 --- a/lisp/gnus/ChangeLog.2 +++ b/lisp/gnus/ChangeLog.2 | |||
| @@ -18857,7 +18857,8 @@ | |||
| 18857 | 18857 | ||
| 18858 | See ChangeLog.1 for earlier changes. | 18858 | See ChangeLog.1 for earlier changes. |
| 18859 | 18859 | ||
| 18860 | Copyright (C) 2000, 2001, 2002, 2004 Free Software Foundation, Inc. | 18860 | Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006 |
| 18861 | Free Software Foundation, Inc. | ||
| 18861 | Copying and distribution of this file, with or without modification, | 18862 | Copying and distribution of this file, with or without modification, |
| 18862 | are permitted provided the copyright notice and this notice are preserved. | 18863 | are permitted provided the copyright notice and this notice are preserved. |
| 18863 | 18864 | ||
diff --git a/lisp/gnus/format-spec.el b/lisp/gnus/format-spec.el index d287cd4081f..e905e91c2e1 100644 --- a/lisp/gnus/format-spec.el +++ b/lisp/gnus/format-spec.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; format-spec.el --- functions for formatting arbitrary formatting strings | 1 | ;;; format-spec.el --- functions for formatting arbitrary formatting strings |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/gnus-async.el b/lisp/gnus/gnus-async.el index 91d6358d2ad..ba884185841 100644 --- a/lisp/gnus/gnus-async.el +++ b/lisp/gnus/gnus-async.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gnus-async.el --- asynchronous support for Gnus | 1 | ;;; gnus-async.el --- asynchronous support for Gnus |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/gnus-audio.el b/lisp/gnus/gnus-audio.el index be100195b84..a3192d84f65 100644 --- a/lisp/gnus/gnus-audio.el +++ b/lisp/gnus/gnus-audio.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gnus-audio.el --- Sound effects for Gnus | 1 | ;;; gnus-audio.el --- Sound effects for Gnus |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1996, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Steven L. Baur <steve@miranova.com> | 6 | ;; Author: Steven L. Baur <steve@miranova.com> |
diff --git a/lisp/gnus/gnus-demon.el b/lisp/gnus/gnus-demon.el index fb28d6440fd..6df92620503 100644 --- a/lisp/gnus/gnus-demon.el +++ b/lisp/gnus/gnus-demon.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gnus-demon.el --- daemonic Gnus behaviour | 1 | ;;; gnus-demon.el --- daemonic Gnus behaviour |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/gnus-dup.el b/lisp/gnus/gnus-dup.el index 651237f1348..38420d51a18 100644 --- a/lisp/gnus/gnus-dup.el +++ b/lisp/gnus/gnus-dup.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gnus-dup.el --- suppression of duplicate articles in Gnus | 1 | ;;; gnus-dup.el --- suppression of duplicate articles in Gnus |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/gnus-kill.el b/lisp/gnus/gnus-kill.el index 90a4fcb593f..cf8d9bc431c 100644 --- a/lisp/gnus/gnus-kill.el +++ b/lisp/gnus/gnus-kill.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gnus-kill.el --- kill commands for Gnus | 1 | ;;; gnus-kill.el --- kill commands for Gnus |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, | 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> | 6 | ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
diff --git a/lisp/gnus/gnus-mh.el b/lisp/gnus/gnus-mh.el index 34c310f3205..3c3dd501736 100644 --- a/lisp/gnus/gnus-mh.el +++ b/lisp/gnus/gnus-mh.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gnus-mh.el --- mh-e interface for Gnus | 1 | ;;; gnus-mh.el --- mh-e interface for Gnus |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, | 3 | ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, |
| 4 | ;; 2004, 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> | 6 | ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
diff --git a/lisp/gnus/gnus-move.el b/lisp/gnus/gnus-move.el index 8a27ccd5d7f..fafd266b81d 100644 --- a/lisp/gnus/gnus-move.el +++ b/lisp/gnus/gnus-move.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gnus-move.el --- commands for moving Gnus from one server to another | 1 | ;;; gnus-move.el --- commands for moving Gnus from one server to another |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/gnus-nocem.el b/lisp/gnus/gnus-nocem.el index e75b25282b0..cfdaf137087 100644 --- a/lisp/gnus/gnus-nocem.el +++ b/lisp/gnus/gnus-nocem.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment | 1 | ;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/gnus-soup.el b/lisp/gnus/gnus-soup.el index bca59849766..31c721d9f1f 100644 --- a/lisp/gnus/gnus-soup.el +++ b/lisp/gnus/gnus-soup.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gnus-soup.el --- SOUP packet writing support for Gnus | 1 | ;;; gnus-soup.el --- SOUP packet writing support for Gnus |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Per Abrahamsen <abraham@iesd.auc.dk> | 6 | ;; Author: Per Abrahamsen <abraham@iesd.auc.dk> |
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 05d5614756b..29e0067bf9b 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el | |||
| @@ -3343,16 +3343,17 @@ buffer that was in action when the last article was fetched." | |||
| 3343 | t | 3343 | t |
| 3344 | (not (cdr (gnus-data-find-list article))))) | 3344 | (not (cdr (gnus-data-find-list article))))) |
| 3345 | 3345 | ||
| 3346 | (defun gnus-make-thread-indent-array () | 3346 | (defun gnus-make-thread-indent-array (&optional n) |
| 3347 | (let ((n 200)) | 3347 | (when (or n |
| 3348 | (unless (and gnus-thread-indent-array | 3348 | (progn (setq n 200) nil) |
| 3349 | (= gnus-thread-indent-level gnus-thread-indent-array-level)) | 3349 | (null gnus-thread-indent-array) |
| 3350 | (setq gnus-thread-indent-array (make-vector 201 "") | 3350 | (/= gnus-thread-indent-level gnus-thread-indent-array-level)) |
| 3351 | gnus-thread-indent-array-level gnus-thread-indent-level) | 3351 | (setq gnus-thread-indent-array (make-vector (1+ n) "") |
| 3352 | (while (>= n 0) | 3352 | gnus-thread-indent-array-level gnus-thread-indent-level) |
| 3353 | (aset gnus-thread-indent-array n | 3353 | (while (>= n 0) |
| 3354 | (make-string (* n gnus-thread-indent-level) ? )) | 3354 | (aset gnus-thread-indent-array n |
| 3355 | (setq n (1- n)))))) | 3355 | (make-string (* n gnus-thread-indent-level) ? )) |
| 3356 | (setq n (1- n))))) | ||
| 3356 | 3357 | ||
| 3357 | (defun gnus-update-summary-mark-positions () | 3358 | (defun gnus-update-summary-mark-positions () |
| 3358 | "Compute where the summary marks are to go." | 3359 | "Compute where the summary marks are to go." |
| @@ -3451,6 +3452,9 @@ buffer that was in action when the last article was fetched." | |||
| 3451 | gnus-tmp-expirable gnus-tmp-subject-or-nil | 3452 | gnus-tmp-expirable gnus-tmp-subject-or-nil |
| 3452 | &optional gnus-tmp-dummy gnus-tmp-score | 3453 | &optional gnus-tmp-dummy gnus-tmp-score |
| 3453 | gnus-tmp-process) | 3454 | gnus-tmp-process) |
| 3455 | (if (>= gnus-tmp-level (length gnus-thread-indent-array)) | ||
| 3456 | (gnus-make-thread-indent-array (max (* 2 (length gnus-thread-indent-array)) | ||
| 3457 | gnus-tmp-level))) | ||
| 3454 | (let* ((gnus-tmp-indentation (aref gnus-thread-indent-array gnus-tmp-level)) | 3458 | (let* ((gnus-tmp-indentation (aref gnus-thread-indent-array gnus-tmp-level)) |
| 3455 | (gnus-tmp-lines (mail-header-lines gnus-tmp-header)) | 3459 | (gnus-tmp-lines (mail-header-lines gnus-tmp-header)) |
| 3456 | (gnus-tmp-score (or gnus-tmp-score gnus-summary-default-score 0)) | 3460 | (gnus-tmp-score (or gnus-tmp-score gnus-summary-default-score 0)) |
| @@ -4549,23 +4553,46 @@ If LINE, insert the rebuilt thread starting on line LINE." | |||
| 4549 | (1+ (gnus-point-at-eol)) | 4553 | (1+ (gnus-point-at-eol)) |
| 4550 | (gnus-delete-line))))))) | 4554 | (gnus-delete-line))))))) |
| 4551 | 4555 | ||
| 4552 | (defun gnus-sort-threads-1 (threads func) | 4556 | (defun gnus-sort-threads-recursive (threads func) |
| 4553 | (sort (mapcar (lambda (thread) | 4557 | (sort (mapcar (lambda (thread) |
| 4554 | (cons (car thread) | 4558 | (cons (car thread) |
| 4555 | (and (cdr thread) | 4559 | (and (cdr thread) |
| 4556 | (gnus-sort-threads-1 (cdr thread) func)))) | 4560 | (gnus-sort-threads-recursive (cdr thread) func)))) |
| 4557 | threads) func)) | 4561 | threads) func)) |
| 4558 | 4562 | ||
| 4563 | (defun gnus-sort-threads-loop (threads func) | ||
| 4564 | (let* ((superthread (cons nil threads)) | ||
| 4565 | (stack (list (cons superthread threads))) | ||
| 4566 | remaining-threads thread) | ||
| 4567 | (while stack | ||
| 4568 | (setq remaining-threads (cdr (car stack))) | ||
| 4569 | (if remaining-threads | ||
| 4570 | (progn (setq thread (car remaining-threads)) | ||
| 4571 | (setcdr (car stack) (cdr remaining-threads)) | ||
| 4572 | (if (cdr thread) | ||
| 4573 | (push (cons thread (cdr thread)) stack))) | ||
| 4574 | (setq thread (caar stack)) | ||
| 4575 | (setcdr thread (sort (cdr thread) func)) | ||
| 4576 | (pop stack))) | ||
| 4577 | (cdr superthread))) | ||
| 4578 | |||
| 4559 | (defun gnus-sort-threads (threads) | 4579 | (defun gnus-sort-threads (threads) |
| 4560 | "Sort THREADS." | 4580 | "Sort THREADS." |
| 4561 | (if (not gnus-thread-sort-functions) | 4581 | (if (not gnus-thread-sort-functions) |
| 4562 | threads | 4582 | threads |
| 4563 | (gnus-message 8 "Sorting threads...") | 4583 | (gnus-message 8 "Sorting threads...") |
| 4564 | (let ((max-lisp-eval-depth (max 5000 max-lisp-eval-depth))) | 4584 | (prog1 |
| 4565 | (prog1 (gnus-sort-threads-1 | 4585 | (condition-case nil |
| 4566 | threads | 4586 | (let ((max-lisp-eval-depth (max max-lisp-eval-depth 5000))) |
| 4567 | (gnus-make-sort-function gnus-thread-sort-functions)) | 4587 | (gnus-sort-threads-recursive |
| 4568 | (gnus-message 8 "Sorting threads...done"))))) | 4588 | threads (gnus-make-sort-function gnus-thread-sort-functions))) |
| 4589 | ;; Even after binding max-lisp-eval-depth, the recursive | ||
| 4590 | ;; sorter might fail for very long threads. In that case, | ||
| 4591 | ;; try using a (less well-tested) non-recursive sorter. | ||
| 4592 | (error (gnus-sort-threads-loop | ||
| 4593 | threads (gnus-make-sort-function | ||
| 4594 | gnus-thread-sort-functions)))) | ||
| 4595 | (gnus-message 8 "Sorting threads...done")))) | ||
| 4569 | 4596 | ||
| 4570 | (defun gnus-sort-articles (articles) | 4597 | (defun gnus-sort-articles (articles) |
| 4571 | "Sort ARTICLES." | 4598 | "Sort ARTICLES." |
| @@ -4990,6 +5017,10 @@ or a straight list of headers." | |||
| 4990 | gnus-tmp-closing-bracket ?\>) | 5017 | gnus-tmp-closing-bracket ?\>) |
| 4991 | (setq gnus-tmp-opening-bracket ?\[ | 5018 | (setq gnus-tmp-opening-bracket ?\[ |
| 4992 | gnus-tmp-closing-bracket ?\])) | 5019 | gnus-tmp-closing-bracket ?\])) |
| 5020 | (if (>= gnus-tmp-level (length gnus-thread-indent-array)) | ||
| 5021 | (gnus-make-thread-indent-array | ||
| 5022 | (max (* 2 (length gnus-thread-indent-array)) | ||
| 5023 | gnus-tmp-level))) | ||
| 4993 | (setq | 5024 | (setq |
| 4994 | gnus-tmp-indentation | 5025 | gnus-tmp-indentation |
| 4995 | (aref gnus-thread-indent-array gnus-tmp-level) | 5026 | (aref gnus-thread-indent-array gnus-tmp-level) |
diff --git a/lisp/gnus/gnus-undo.el b/lisp/gnus/gnus-undo.el index 47be2ed97f5..f7a3d1779d5 100644 --- a/lisp/gnus/gnus-undo.el +++ b/lisp/gnus/gnus-undo.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gnus-undo.el --- minor mode for undoing in Gnus | 1 | ;;; gnus-undo.el --- minor mode for undoing in Gnus |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/legacy-gnus-agent.el b/lisp/gnus/legacy-gnus-agent.el index 50675b0ba27..cc8e4e370f4 100644 --- a/lisp/gnus/legacy-gnus-agent.el +++ b/lisp/gnus/legacy-gnus-agent.el | |||
| @@ -1,10 +1,39 @@ | |||
| 1 | ;;; gnus-agent.el --- Legacy unplugged support for Gnus | ||
| 2 | |||
| 3 | ;; Copyright (C) 2004, 2005, 2006 Free Software Foundation, Inc. | ||
| 4 | |||
| 5 | ;; Author: Kevin Greiner <kgreiner@xpediantsolutions.com> | ||
| 6 | ;; Keywords: news | ||
| 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 2, or (at your option) | ||
| 13 | ;; 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; see the file COPYING. If not, write to the | ||
| 22 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | ||
| 23 | ;; Boston, MA 02110-1301, USA. | ||
| 24 | |||
| 25 | ;;; Commentary: | ||
| 26 | |||
| 27 | ;; Conversion functions for the Agent. | ||
| 28 | |||
| 29 | ;;; Code: | ||
| 1 | (require 'gnus-start) | 30 | (require 'gnus-start) |
| 2 | (require 'gnus-util) | 31 | (require 'gnus-util) |
| 3 | (require 'gnus-range) | 32 | (require 'gnus-range) |
| 4 | (require 'gnus-agent) | 33 | (require 'gnus-agent) |
| 5 | 34 | ||
| 6 | ; Oort Gnus v0.08 - This release updated agent to no longer use | 35 | ;; Oort Gnus v0.08 - This release updated agent to no longer use |
| 7 | ; history file and to support a compressed alist. | 36 | ;; history file and to support a compressed alist. |
| 8 | 37 | ||
| 9 | (defvar gnus-agent-compressed-agentview-search-only nil) | 38 | (defvar gnus-agent-compressed-agentview-search-only nil) |
| 10 | 39 | ||
| @@ -224,4 +253,7 @@ possible that the hook was persistently saved." | |||
| 224 | ;; the .newsrc.eld file. | 253 | ;; the .newsrc.eld file. |
| 225 | (gnus-convert-mark-converter-prompt 'gnus-agent-unhook-expire-days t) | 254 | (gnus-convert-mark-converter-prompt 'gnus-agent-unhook-expire-days t) |
| 226 | 255 | ||
| 227 | ;;; arch-tag: 845c7b8a-88f7-4468-b8d7-94e8fc72cf1a | 256 | (provide 'legacy-gnus-agent) |
| 257 | |||
| 258 | ;; arch-tag: 845c7b8a-88f7-4468-b8d7-94e8fc72cf1a | ||
| 259 | ;;; legacy-gnus-agent.el ends here | ||
diff --git a/lisp/gnus/mail-parse.el b/lisp/gnus/mail-parse.el index 3c1aa8111c2..ae3bcb7270e 100644 --- a/lisp/gnus/mail-parse.el +++ b/lisp/gnus/mail-parse.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; mail-parse.el --- Interface functions for parsing mail | 1 | ;;; mail-parse.el --- Interface functions for parsing mail |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/mail-prsvr.el b/lisp/gnus/mail-prsvr.el index 144d61eb6a3..9cb214d50a4 100644 --- a/lisp/gnus/mail-prsvr.el +++ b/lisp/gnus/mail-prsvr.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; mail-prsvr.el --- Interface variables for parsing mail | 1 | ;;; mail-prsvr.el --- Interface variables for parsing mail |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/messcompat.el b/lisp/gnus/messcompat.el index f7b06f69029..1c56d5d8cf0 100644 --- a/lisp/gnus/messcompat.el +++ b/lisp/gnus/messcompat.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; messcompat.el --- making message mode compatible with mail mode | 1 | ;;; messcompat.el --- making message mode compatible with mail mode |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/nndir.el b/lisp/gnus/nndir.el index ec47c94749f..e821107cb48 100644 --- a/lisp/gnus/nndir.el +++ b/lisp/gnus/nndir.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; nndir.el --- single directory newsgroup access for Gnus | 1 | ;;; nndir.el --- single directory newsgroup access for Gnus |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/nnkiboze.el b/lisp/gnus/nnkiboze.el index b1fbc1f3d1d..dd4434553e6 100644 --- a/lisp/gnus/nnkiboze.el +++ b/lisp/gnus/nnkiboze.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; nnkiboze.el --- select virtual news access for Gnus | 1 | ;;; nnkiboze.el --- select virtual news access for Gnus |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/nnlistserv.el b/lisp/gnus/nnlistserv.el index 3ee8f4200a4..2c77b028bb5 100644 --- a/lisp/gnus/nnlistserv.el +++ b/lisp/gnus/nnlistserv.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; nnlistserv.el --- retrieving articles via web mailing list archives | 1 | ;;; nnlistserv.el --- retrieving articles via web mailing list archives |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/nnspool.el b/lisp/gnus/nnspool.el index 8de0c17c708..329b35ad867 100644 --- a/lisp/gnus/nnspool.el +++ b/lisp/gnus/nnspool.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; nnspool.el --- spool access for GNU Emacs | 1 | ;;; nnspool.el --- spool access for GNU Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998, | 3 | ;; Copyright (C) 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998, |
| 4 | ;; 2000, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> | 6 | ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
| 7 | ;; Lars Magne Ingebrigtsen <larsi@gnus.org> | 7 | ;; Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/nnwarchive.el b/lisp/gnus/nnwarchive.el index 13a22419672..c110553a854 100644 --- a/lisp/gnus/nnwarchive.el +++ b/lisp/gnus/nnwarchive.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; nnwarchive.el --- interfacing with web archives | 1 | ;;; nnwarchive.el --- interfacing with web archives |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> | 6 | ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> |
diff --git a/lisp/gnus/rfc1843.el b/lisp/gnus/rfc1843.el index aac75758c05..527769d4c83 100644 --- a/lisp/gnus/rfc1843.el +++ b/lisp/gnus/rfc1843.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; rfc1843.el --- HZ (rfc1843) decoding | 1 | ;;; rfc1843.el --- HZ (rfc1843) decoding |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> | 6 | ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> |
diff --git a/lisp/gnus/rfc2045.el b/lisp/gnus/rfc2045.el index f38ec0548fe..d41af595c94 100644 --- a/lisp/gnus/rfc2045.el +++ b/lisp/gnus/rfc2045.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; rfc2045.el --- Functions for decoding rfc2045 headers | 1 | ;;; rfc2045.el --- Functions for decoding rfc2045 headers |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el index 946c7a464a0..4ac26c16158 100644 --- a/lisp/gnus/rfc2047.el +++ b/lisp/gnus/rfc2047.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; rfc2047.el --- functions for encoding and decoding rfc2047 messages | 1 | ;;; rfc2047.el --- functions for encoding and decoding rfc2047 messages |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/rfc2104.el b/lisp/gnus/rfc2104.el index c343953177c..e0727984bb4 100644 --- a/lisp/gnus/rfc2104.el +++ b/lisp/gnus/rfc2104.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; rfc2104.el --- RFC2104 Hashed Message Authentication Codes | 1 | ;;; rfc2104.el --- RFC2104 Hashed Message Authentication Codes |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Simon Josefsson <jas@pdc.kth.se> | 6 | ;; Author: Simon Josefsson <jas@pdc.kth.se> |
diff --git a/lisp/gnus/rfc2231.el b/lisp/gnus/rfc2231.el index 284c95fc151..b054b1f9282 100644 --- a/lisp/gnus/rfc2231.el +++ b/lisp/gnus/rfc2231.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; rfc2231.el --- Functions for decoding rfc2231 headers | 1 | ;;; rfc2231.el --- Functions for decoding rfc2231 headers |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
diff --git a/lisp/gnus/starttls.el b/lisp/gnus/starttls.el index a9b64b4d1fc..229d6dca9f8 100644 --- a/lisp/gnus/starttls.el +++ b/lisp/gnus/starttls.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; starttls.el --- STARTTLS functions | 1 | ;;; starttls.el --- STARTTLS functions |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Daiki Ueno <ueno@unixuser.org> | 6 | ;; Author: Daiki Ueno <ueno@unixuser.org> |
diff --git a/lisp/gnus/utf7.el b/lisp/gnus/utf7.el index a1b7fdc6702..8c761602ce0 100644 --- a/lisp/gnus/utf7.el +++ b/lisp/gnus/utf7.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; utf7.el --- UTF-7 encoding/decoding for Emacs -*-coding: iso-8859-1;-*- | 1 | ;;; utf7.el --- UTF-7 encoding/decoding for Emacs -*-coding: iso-8859-1;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Jon K Hellan <hellan@acm.org> | 6 | ;; Author: Jon K Hellan <hellan@acm.org> |
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 8df079433f1..e4d77e3447c 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el | |||
| @@ -400,7 +400,7 @@ face (according to `face-differs-from-default-p')." | |||
| 400 | 400 | ||
| 401 | ;;;###autoload | 401 | ;;;###autoload |
| 402 | (defun variable-at-point (&optional any-symbol) | 402 | (defun variable-at-point (&optional any-symbol) |
| 403 | "Return the bound variable symbol found around point. | 403 | "Return the bound variable symbol found at or before point. |
| 404 | Return 0 if there is no such symbol. | 404 | Return 0 if there is no such symbol. |
| 405 | If ANY-SYMBOL is non-nil, don't insist the symbol be bound." | 405 | If ANY-SYMBOL is non-nil, don't insist the symbol be bound." |
| 406 | (or (condition-case () | 406 | (or (condition-case () |
diff --git a/lisp/ido.el b/lisp/ido.el index 0e18c4b5fde..796c377571c 100644 --- a/lisp/ido.el +++ b/lisp/ido.el | |||
| @@ -1566,7 +1566,8 @@ With ARG, turn ido speed-up on if arg is positive, off otherwise." | |||
| 1566 | (define-key map [(meta down)] 'ido-next-work-directory) | 1566 | (define-key map [(meta down)] 'ido-next-work-directory) |
| 1567 | (define-key map [backspace] 'ido-delete-backward-updir) | 1567 | (define-key map [backspace] 'ido-delete-backward-updir) |
| 1568 | (define-key map "\d" 'ido-delete-backward-updir) | 1568 | (define-key map "\d" 'ido-delete-backward-updir) |
| 1569 | (define-key map [(meta backspace)] 'ido-delete-backward-word-updir) | 1569 | (define-key map [remap backward-kill-word] 'ido-delete-backward-word-updir) ; M-DEL |
| 1570 | |||
| 1570 | (define-key map [(control backspace)] 'ido-up-directory) | 1571 | (define-key map [(control backspace)] 'ido-up-directory) |
| 1571 | (define-key map "\C-l" 'ido-reread-directory) | 1572 | (define-key map "\C-l" 'ido-reread-directory) |
| 1572 | (define-key map [(meta ?d)] 'ido-wide-find-dir-or-delete-dir) | 1573 | (define-key map [(meta ?d)] 'ido-wide-find-dir-or-delete-dir) |
diff --git a/lisp/info.el b/lisp/info.el index ad62940f99a..8b0558d898e 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -2805,6 +2805,11 @@ Give an empty topic name to go to the Index node itself." | |||
| 2805 | (kill-buffer Info-complete-menu-buffer))))) | 2805 | (kill-buffer Info-complete-menu-buffer))))) |
| 2806 | (if (equal Info-current-file "dir") | 2806 | (if (equal Info-current-file "dir") |
| 2807 | (error "The Info directory node has no index; use m to select a manual")) | 2807 | (error "The Info directory node has no index; use m to select a manual")) |
| 2808 | ;; Strip leading colon in topic; index format does not allow them. | ||
| 2809 | (if (and (stringp topic) | ||
| 2810 | (> (length topic) 0) | ||
| 2811 | (= (aref topic 0) ?:)) | ||
| 2812 | (setq topic (substring topic 1))) | ||
| 2808 | (let ((orignode Info-current-node) | 2813 | (let ((orignode Info-current-node) |
| 2809 | (pattern (format "\n\\* +\\([^\n]*%s[^\n]*\\):[ \t]+\\([^\n]*\\)\\.\\(?:[ \t\n]*(line +\\([0-9]+\\))\\)?" | 2814 | (pattern (format "\n\\* +\\([^\n]*%s[^\n]*\\):[ \t]+\\([^\n]*\\)\\.\\(?:[ \t\n]*(line +\\([0-9]+\\))\\)?" |
| 2810 | (regexp-quote topic))) | 2815 | (regexp-quote topic))) |
diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el index e9dac8b6812..9e8160d9c10 100644 --- a/lisp/international/ccl.el +++ b/lisp/international/ccl.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; ccl.el --- CCL (Code Conversion Language) compiler | 1 | ;;; ccl.el --- CCL (Code Conversion Language) compiler |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2001, 2002 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; Copyright (C) 1995, 1998, 1999, 2000 | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | 9 | ||
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index eb2d099dd41..e52df15a9b2 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el | |||
| @@ -1,8 +1,9 @@ | |||
| 1 | ;;; characters.el --- set syntax and category for multibyte characters | 1 | ;;; characters.el --- set syntax and category for multibyte characters |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004 | 3 | ;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005 | 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 6 | ;; 2005, 2006 | ||
| 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 7 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 8 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
diff --git a/lisp/international/codepage.el b/lisp/international/codepage.el index 7aab9bd85a8..ca5500b5415 100644 --- a/lisp/international/codepage.el +++ b/lisp/international/codepage.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; codepage.el --- MS-DOS/MS-Windows specific coding systems | 1 | ;;; codepage.el --- MS-DOS/MS-Windows specific coding systems |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2005 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2005 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 2000 | 4 | ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 7 | 7 | ||
diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el index 2cbb76cb08d..8456eb3c175 100644 --- a/lisp/international/encoded-kb.el +++ b/lisp/international/encoded-kb.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; encoded-kb.el --- handler to input multibyte characters encoded somehow | 1 | ;;; encoded-kb.el --- handler to input multibyte characters encoded somehow |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2004, 2005 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index 9f09c615451..e62583bb2b7 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; fontset.el --- commands for handling fontset | 1 | ;;; fontset.el --- commands for handling fontset |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003 | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | ;; Copyright (C) 2003, 2006 | 9 | ;; Copyright (C) 2003, 2006 |
diff --git a/lisp/international/isearch-x.el b/lisp/international/isearch-x.el index 1d0d50b01ac..a002df6687b 100644 --- a/lisp/international/isearch-x.el +++ b/lisp/international/isearch-x.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; isearch-x.el --- extended isearch handling commands | 1 | ;;; isearch-x.el --- extended isearch handling commands |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 2001, 2004 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1995, 1997, 1998, 2000 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | 9 | ||
diff --git a/lisp/international/iso-ascii.el b/lisp/international/iso-ascii.el index c1de1217133..1e0e129c3d9 100644 --- a/lisp/international/iso-ascii.el +++ b/lisp/international/iso-ascii.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals | 1 | ;;; iso-ascii.el --- set up char tables for ISO 8859/1 on ASCII terminals |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1987, 1995, 1998, 2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1987, 1995, 1998, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Author: Howard Gayle | 6 | ;; Author: Howard Gayle |
| 6 | ;; Maintainer: FSF | 7 | ;; Maintainer: FSF |
diff --git a/lisp/international/iso-cvt.el b/lisp/international/iso-cvt.el index ade60793884..00631390579 100644 --- a/lisp/international/iso-cvt.el +++ b/lisp/international/iso-cvt.el | |||
| @@ -1,8 +1,8 @@ | |||
| 1 | ;;; iso-cvt.el --- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*- | 1 | ;;; iso-cvt.el --- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*- |
| 2 | ;; This file was formerly called gm-lingo.el. | 2 | ;; This file was formerly called gm-lingo.el. |
| 3 | 3 | ||
| 4 | ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2003, 2004 | 4 | ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2001, |
| 5 | ;; Free Software Foundation, Inc. | 5 | ;; 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 6 | 6 | ||
| 7 | ;; Author: Michael Gschwind <mike@vlsivie.tuwien.ac.at> | 7 | ;; Author: Michael Gschwind <mike@vlsivie.tuwien.ac.at> |
| 8 | ;; Keywords: tex, iso, latin, i18n | 8 | ;; Keywords: tex, iso, latin, i18n |
diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el index b5fcd750d27..f39601f1f5a 100644 --- a/lisp/international/iso-transl.el +++ b/lisp/international/iso-transl.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; iso-transl.el --- keyboard input definitions for ISO 8859-1 -*- coding: iso-8859-1 -*- | 1 | ;;; iso-transl.el --- keyboard input definitions for ISO 8859-1 -*- coding: iso-8859-1 -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001 | 3 | ;; Copyright (C) 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Howard Gayle | 6 | ;; Author: Howard Gayle |
| 7 | ;; Maintainer: FSF | 7 | ;; Maintainer: FSF |
diff --git a/lisp/international/ja-dic-cnv.el b/lisp/international/ja-dic-cnv.el index 0d3c5577fb9..711b1342d7f 100644 --- a/lisp/international/ja-dic-cnv.el +++ b/lisp/international/ja-dic-cnv.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; ja-dic-cnv.el --- convert a Japanese dictionary (SKK-JISYO.L) to Emacs Lisp | 1 | ;;; ja-dic-cnv.el --- convert a Japanese dictionary (SKK-JISYO.L) to Emacs Lisp |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 2000 | 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 | ||
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 6 | 7 | ||
diff --git a/lisp/international/ja-dic-utl.el b/lisp/international/ja-dic-utl.el index 23874db591b..4c01ed5d75d 100644 --- a/lisp/international/ja-dic-utl.el +++ b/lisp/international/ja-dic-utl.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; ja-dic-utl.el --- utilities for handling Japanese dictionary (SKK-JISYO.L) | 1 | ;;; ja-dic-utl.el --- utilities for handling Japanese dictionary (SKK-JISYO.L) |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 2000 | 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 | ||
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 6 | 7 | ||
diff --git a/lisp/international/kinsoku.el b/lisp/international/kinsoku.el index 9d2a03fd6f0..a452f53c5dc 100644 --- a/lisp/international/kinsoku.el +++ b/lisp/international/kinsoku.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; kinsoku.el --- `Kinsoku' processing funcs -*- coding: iso-2022-7bit; -*- | 1 | ;;; kinsoku.el --- `Kinsoku' processing funcs -*- coding: iso-2022-7bit; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1995, 1997, 1998 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | 9 | ||
diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el index 6da899af93a..4094538c9a0 100644 --- a/lisp/international/kkc.el +++ b/lisp/international/kkc.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; kkc.el --- Kana Kanji converter -*- coding: iso-2022-7bit; -*- | 1 | ;;; kkc.el --- Kana Kanji converter -*- coding: iso-2022-7bit; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; Copyright (C) 1995, 1997, 1998, 2000, 2001, 2003 | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | 9 | ||
diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el index e558c222afd..60edc2a826d 100644 --- a/lisp/international/latin1-disp.el +++ b/lisp/international/latin1-disp.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*-coding: iso-2022-7bit;-*- | 1 | ;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2000, 2001, 2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Author: Dave Love <fx@gnu.org> | 6 | ;; Author: Dave Love <fx@gnu.org> |
| 6 | ;; Keywords: i18n | 7 | ;; Keywords: i18n |
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index e0e7e8512c8..fbdc0467f00 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -1,8 +1,9 @@ | |||
| 1 | ;;; mule-cmds.el --- commands for mulitilingual environment -*-coding: iso-2022-7bit -*- | 1 | ;;; mule-cmds.el --- commands for mulitilingual environment -*-coding: iso-2022-7bit -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 | 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 6 | ;; 2005, 2006 | ||
| 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 7 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 8 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
| @@ -841,7 +842,7 @@ and TO is ignored." | |||
| 841 | 842 | ||
| 842 | (let ((no-other-defaults nil) | 843 | (let ((no-other-defaults nil) |
| 843 | auto-cs) | 844 | auto-cs) |
| 844 | (unless (or (stringp from) find-file-literally) | 845 | (unless (or (stringp from) find-file-literally) |
| 845 | ;; Find an auto-coding that is specified for the the current | 846 | ;; Find an auto-coding that is specified for the the current |
| 846 | ;; buffer and file from the region FROM and TO. | 847 | ;; buffer and file from the region FROM and TO. |
| 847 | (save-excursion | 848 | (save-excursion |
| @@ -903,7 +904,7 @@ It is highly recommended to fix it before writing to a file." | |||
| 903 | (rassq base default-coding-system) | 904 | (rassq base default-coding-system) |
| 904 | (setq default-coding-system | 905 | (setq default-coding-system |
| 905 | (append default-coding-system | 906 | (append default-coding-system |
| 906 | (list (cons default-buffer-file-coding-system | 907 | (list (cons default-buffer-file-coding-system |
| 907 | base))))))) | 908 | base))))))) |
| 908 | 909 | ||
| 909 | ;; If the most preferred coding system has the property mime-charset, | 910 | ;; If the most preferred coding system has the property mime-charset, |
| @@ -928,10 +929,10 @@ It is highly recommended to fix it before writing to a file." | |||
| 928 | (let ((default-eol-type (coding-system-eol-type | 929 | (let ((default-eol-type (coding-system-eol-type |
| 929 | (caar default-coding-system)))) | 930 | (caar default-coding-system)))) |
| 930 | (if (and (vectorp default-eol-type) buffer-file-coding-system) | 931 | (if (and (vectorp default-eol-type) buffer-file-coding-system) |
| 931 | (setq default-eol-type (coding-system-eol-type | 932 | (setq default-eol-type (coding-system-eol-type |
| 932 | buffer-file-coding-system))) | 933 | buffer-file-coding-system))) |
| 933 | (if (and (vectorp default-eol-type) default-buffer-file-coding-system) | 934 | (if (and (vectorp default-eol-type) default-buffer-file-coding-system) |
| 934 | (setq default-eol-type (coding-system-eol-type | 935 | (setq default-eol-type (coding-system-eol-type |
| 935 | default-buffer-file-coding-system))) | 936 | default-buffer-file-coding-system))) |
| 936 | (if (and default-eol-type (not (vectorp default-eol-type))) | 937 | (if (and default-eol-type (not (vectorp default-eol-type))) |
| 937 | (dolist (elt default-coding-system) | 938 | (dolist (elt default-coding-system) |
| @@ -1201,7 +1202,7 @@ in the European submenu in each of those two menus." | |||
| 1201 | 1202 | ||
| 1202 | (dolist (elt alist) | 1203 | (dolist (elt alist) |
| 1203 | (set-language-info-internal lang-env (car elt) (cdr elt))) | 1204 | (set-language-info-internal lang-env (car elt) (cdr elt))) |
| 1204 | 1205 | ||
| 1205 | (if (equal lang-env current-language-environment) | 1206 | (if (equal lang-env current-language-environment) |
| 1206 | (set-language-environment lang-env)))) | 1207 | (set-language-environment lang-env)))) |
| 1207 | 1208 | ||
| @@ -1324,10 +1325,8 @@ See the function `register-input-method' for the meanings of the elements.") | |||
| 1324 | 1325 | ||
| 1325 | (defun register-input-method (input-method lang-env &rest args) | 1326 | (defun register-input-method (input-method lang-env &rest args) |
| 1326 | "Register INPUT-METHOD as an input method for language environment LANG-ENV. | 1327 | "Register INPUT-METHOD as an input method for language environment LANG-ENV. |
| 1327 | INPUT-METHOD and LANG-ENV are symbols or strings. | ||
| 1328 | 1328 | ||
| 1329 | The remaining arguments are: | 1329 | INPUT-METHOD and LANG-ENV are symbols or strings. |
| 1330 | ACTIVATE-FUNC, TITLE, DESCRIPTION, and ARGS... | ||
| 1331 | ACTIVATE-FUNC is a function to call to activate this method. | 1330 | ACTIVATE-FUNC is a function to call to activate this method. |
| 1332 | TITLE is a string to show in the mode line when this method is active. | 1331 | TITLE is a string to show in the mode line when this method is active. |
| 1333 | DESCRIPTION is a string describing this method and what it is good for. | 1332 | DESCRIPTION is a string describing this method and what it is good for. |
| @@ -1345,7 +1344,8 @@ string specified in this function takes precedence.) | |||
| 1345 | 1344 | ||
| 1346 | The commands `describe-input-method' and `list-input-methods' need | 1345 | The commands `describe-input-method' and `list-input-methods' need |
| 1347 | these duplicated values to show some information about input methods | 1346 | these duplicated values to show some information about input methods |
| 1348 | without loading the relevant Quail packages." | 1347 | without loading the relevant Quail packages. |
| 1348 | \n(fn INPUT-METHOD LANG-ENV ACTIVATE-FUNC TITLE DESCRIPTION &rest ARGS)" | ||
| 1349 | (if (symbolp lang-env) | 1349 | (if (symbolp lang-env) |
| 1350 | (setq lang-env (symbol-name lang-env))) | 1350 | (setq lang-env (symbol-name lang-env))) |
| 1351 | (if (symbolp input-method) | 1351 | (if (symbolp input-method) |
| @@ -2552,7 +2552,11 @@ See also `locale-charset-language-names', `locale-language-names', | |||
| 2552 | (not (coding-system-equal coding-system | 2552 | (not (coding-system-equal coding-system |
| 2553 | locale-coding-system))) | 2553 | locale-coding-system))) |
| 2554 | (prefer-coding-system coding-system) | 2554 | (prefer-coding-system coding-system) |
| 2555 | ;; Fixme: perhaps prefer-coding-system should set this too. | ||
| 2556 | ;; But it's not the time to do such a fundamental change. | ||
| 2557 | (setq default-sendmail-coding-system coding-system) | ||
| 2555 | (setq locale-coding-system coding-system)) | 2558 | (setq locale-coding-system coding-system)) |
| 2559 | |||
| 2556 | (when (get-language-info current-language-environment 'coding-priority) | 2560 | (when (get-language-info current-language-environment 'coding-priority) |
| 2557 | (let ((codeset (locale-info 'codeset)) | 2561 | (let ((codeset (locale-info 'codeset)) |
| 2558 | (coding-system (car (coding-system-priority-list)))) | 2562 | (coding-system (car (coding-system-priority-list)))) |
diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el index 7c36215af85..e10f776b33a 100644 --- a/lisp/international/mule-conf.el +++ b/lisp/international/mule-conf.el | |||
| @@ -1,8 +1,8 @@ | |||
| 1 | ;;; mule-conf.el --- configure multilingual environment | 1 | ;;; mule-conf.el --- configure multilingual environment |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2005 | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2003 | 5 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 7 | ;; Registration Number H14PRO021 | 7 | ;; Registration Number H14PRO021 |
| 8 | ;; Copyright (C) 2003 | 8 | ;; Copyright (C) 2003 |
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index d1cc9618175..a67b0213416 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el | |||
| @@ -1,8 +1,9 @@ | |||
| 1 | ;;; mule-diag.el --- show diagnosis of multilingual environment (Mule) | 1 | ;;; mule-diag.el --- show diagnosis of multilingual environment (Mule) |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003 | 3 | ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1997, 1999, 2000, 2001, 2002, 2003 | 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 6 | ;; 2005, 2006 | ||
| 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 7 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 8 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el index 6b4b9c712bd..4d1ec5ec7f3 100644 --- a/lisp/international/mule-util.el +++ b/lisp/international/mule-util.el | |||
| @@ -1,8 +1,9 @@ | |||
| 1 | ;;; mule-util.el --- utility functions for mulitilingual environment (mule) | 1 | ;;; mule-util.el --- utility functions for mulitilingual environment (mule) |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004 | 3 | ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1997, 1998, 1999, 2004 | 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 6 | ;; 2005, 2006 | ||
| 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 7 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 8 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 89f34d13620..cf6a3b21244 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el | |||
| @@ -2,7 +2,8 @@ | |||
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 | 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 6 | ;; 2005, 2006 | ||
| 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 7 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 8 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
diff --git a/lisp/international/ogonek.el b/lisp/international/ogonek.el index 7c522698ead..e629a4554e1 100644 --- a/lisp/international/ogonek.el +++ b/lisp/international/ogonek.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; ogonek.el --- change the encoding of Polish diacritics | 1 | ;;; ogonek.el --- change the encoding of Polish diacritics |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Author: W{\l}odek Bzyl, Ryszard Kubiak | 6 | ;; Author: W{\l}odek Bzyl, Ryszard Kubiak |
| 6 | ;; Maintainer: rysiek@ipipan.gda.pl (Ryszard Kubiak) | 7 | ;; Maintainer: rysiek@ipipan.gda.pl (Ryszard Kubiak) |
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index d0719117ee2..c13cd3660ff 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; quail.el --- provides simple input method for multilingual text | 1 | ;;; quail.el --- provides simple input method for multilingual text |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2000, 2001, 2002 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2003, 2004 | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | 9 | ||
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index 5727e484d73..e07df7b925f 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; titdic-cnv.el --- convert cxterm dictionary (TIT format) to Quail package -*- coding:iso-2022-7bit; -*- | 1 | ;;; titdic-cnv.el --- convert cxterm dictionary (TIT format) to Quail package -*- coding:iso-2022-7bit; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2000, 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; Copyright (C) 1995, 1997, 1998, 2000, 2001, 2002 | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
diff --git a/lisp/international/utf-7.el b/lisp/international/utf-7.el index 92504967340..02306269259 100644 --- a/lisp/international/utf-7.el +++ b/lisp/international/utf-7.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; utf-7.el --- utf-7 coding system | 1 | ;;; utf-7.el --- utf-7 coding system |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Dave Love <fx@gnu.org> | 5 | ;; Author: Dave Love <fx@gnu.org> |
| 6 | ;; Keywords: i18n, mail | 6 | ;; Keywords: i18n, mail |
diff --git a/lisp/isearchb.el b/lisp/isearchb.el index 56797bd0fb1..5fd59a2e5ee 100644 --- a/lisp/isearchb.el +++ b/lisp/isearchb.el | |||
| @@ -3,6 +3,7 @@ | |||
| 3 | ;; Copyright (C) 2004, 2005, 2006 John Wiegley | 3 | ;; Copyright (C) 2004, 2005, 2006 John Wiegley |
| 4 | 4 | ||
| 5 | ;; Author: John Wiegley <johnw@gnu.org> | 5 | ;; Author: John Wiegley <johnw@gnu.org> |
| 6 | ;; Maintainer: FSF | ||
| 6 | ;; Created: 16 Apr 2004 | 7 | ;; Created: 16 Apr 2004 |
| 7 | ;; Version: 1.5 | 8 | ;; Version: 1.5 |
| 8 | ;; Keywords: lisp | 9 | ;; Keywords: lisp |
diff --git a/lisp/language/china-util.el b/lisp/language/china-util.el index d0abc35dbdc..ce417796bef 100644 --- a/lisp/language/china-util.el +++ b/lisp/language/china-util.el | |||
| @@ -1,8 +1,9 @@ | |||
| 1 | ;;; china-util.el --- utilities for Chinese -*- coding: iso-2022-7bit -*- | 1 | ;;; china-util.el --- utilities for Chinese -*- coding: iso-2022-7bit -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 2001, 2003 | 3 | ;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1997, 2003 | 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 6 | ;; 2005, 2006 | ||
| 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 7 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 8 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el index 302c5f21de1..aaed3808a65 100644 --- a/lisp/language/chinese.el +++ b/lisp/language/chinese.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; chinese.el --- support for Chinese -*- coding: iso-2022-7bit; -*- | 1 | ;;; chinese.el --- support for Chinese -*- coding: iso-2022-7bit; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1995, 1997, 1998 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el index 6e4434771d0..1203301708e 100644 --- a/lisp/language/cyril-util.el +++ b/lisp/language/cyril-util.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; cyril-util.el --- utilities for Cyrillic scripts | 1 | ;;; cyril-util.el --- utilities for Cyrillic scripts |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2001, 2002 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Keywords: mule, multilingual, Cyrillic | 6 | ;; Keywords: mule, multilingual, Cyrillic |
| 6 | 7 | ||
diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el index 3b35bb2c1a2..110f07e14ea 100644 --- a/lisp/language/cyrillic.el +++ b/lisp/language/cyrillic.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; cyrillic.el --- support for Cyrillic -*- coding: iso-2022-7bit; -*- | 1 | ;;; cyrillic.el --- support for Cyrillic -*- coding: iso-2022-7bit; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2002, 2003, 2004 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
diff --git a/lisp/language/czech.el b/lisp/language/czech.el index be99c98b0a8..5db734565ab 100644 --- a/lisp/language/czech.el +++ b/lisp/language/czech.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; czech.el --- support for Czech -*- coding: iso-2022-7bit; no-byte-compile: t -*- | 1 | ;;; czech.el --- support for Czech -*- coding: iso-2022-7bit; no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 2001 Free Software Foundation. | 3 | ;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation. | ||
| 4 | 5 | ||
| 5 | ;; Author: Milan Zamazal <pdm@zamazal.org> | 6 | ;; Author: Milan Zamazal <pdm@zamazal.org> |
| 6 | ;; Maintainer: Pavel Jan,Am(Bk <Pavel@Janik.cz> | 7 | ;; Maintainer: Pavel Jan,Am(Bk <Pavel@Janik.cz> |
diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el index d70a471a4f5..92453078306 100644 --- a/lisp/language/devan-util.el +++ b/lisp/language/devan-util.el | |||
| @@ -1,8 +1,8 @@ | |||
| 1 | ;;; devan-util.el --- Support for composing Devanagari characters -*-coding: iso-2022-7bit;-*- | 1 | ;;; devan-util.el --- Support for composing Devanagari characters -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2003 | 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1997, 1998, 1999, 2000 | 5 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 7 | ;; Registration Number H14PRO021 | 7 | ;; Registration Number H14PRO021 |
| 8 | 8 | ||
diff --git a/lisp/language/devanagari.el b/lisp/language/devanagari.el index b03803a2a4f..515b8f4bbaf 100644 --- a/lisp/language/devanagari.el +++ b/lisp/language/devanagari.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; devanagari.el --- Support for Devanagari -*- coding: iso-2022-7bit; no-byte-compile: t -*- | 1 | ;;; devanagari.el --- Support for Devanagari -*- coding: iso-2022-7bit; no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 1997, 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> | 6 | ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> |
| 6 | ;; Keywords: multilingual, Indian, Devanagari | 7 | ;; Keywords: multilingual, Indian, Devanagari |
diff --git a/lisp/language/english.el b/lisp/language/english.el index 01d8215e648..00eba111742 100644 --- a/lisp/language/english.el +++ b/lisp/language/english.el | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | ;;; english.el --- support for English -*- no-byte-compile: t -*- | 1 | ;;; english.el --- support for English -*- no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1997 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 7 | ;; Registration Number H14PRO021 |
| 7 | ;; Copyright (C) 2003 | 8 | ;; Copyright (C) 2003 |
diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el index ba4b22b1153..93de5e74c4d 100644 --- a/lisp/language/ethio-util.el +++ b/lisp/language/ethio-util.el | |||
| @@ -1,8 +1,8 @@ | |||
| 1 | ;;; ethio-util.el --- utilities for Ethiopic -*- coding: utf-8-emacs; -*- | 1 | ;;; ethio-util.el --- utilities for Ethiopic -*- coding: utf-8-emacs; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2002 | 3 | ;; Copyright (C) 1997, 1998, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1997, 1998, 1999, 2001, 2004, 2005 | 5 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 7 | ;; Registration Number H14PRO021 | 7 | ;; Registration Number H14PRO021 |
| 8 | ;; Copyright (C) 2005, 2006 | 8 | ;; Copyright (C) 2005, 2006 |
diff --git a/lisp/language/ethiopic.el b/lisp/language/ethiopic.el index 49ce50d359a..3772dceae1e 100644 --- a/lisp/language/ethiopic.el +++ b/lisp/language/ethiopic.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; ethiopic.el --- support for Ethiopic -*- coding: utf-8-emacs; -*- | 1 | ;;; ethiopic.el --- support for Ethiopic -*- coding: utf-8-emacs; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1995, 2001, 2006 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | 9 | ||
diff --git a/lisp/language/european.el b/lisp/language/european.el index 497be4023b8..ecdca8b20f4 100644 --- a/lisp/language/european.el +++ b/lisp/language/european.el | |||
| @@ -1,8 +1,9 @@ | |||
| 1 | ;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*- | 1 | ;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004 | 3 | ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003 | 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 6 | ;; 2005, 2006 | ||
| 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 7 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 8 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
diff --git a/lisp/language/georgian.el b/lisp/language/georgian.el index 9d330256a03..5546df81d7e 100644 --- a/lisp/language/georgian.el +++ b/lisp/language/georgian.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; georgian.el --- language support for Georgian -*- no-byte-compile: t -*- | 1 | ;;; georgian.el --- language support for Georgian -*- no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Author: Dave Love <fx@gnu.org> | 6 | ;; Author: Dave Love <fx@gnu.org> |
| 6 | ;; Keywords: i18n | 7 | ;; Keywords: i18n |
diff --git a/lisp/language/greek.el b/lisp/language/greek.el index 8e046af88b9..aca46aa6b24 100644 --- a/lisp/language/greek.el +++ b/lisp/language/greek.el | |||
| @@ -1,9 +1,11 @@ | |||
| 1 | ;;; greek.el --- support for Greek -*- no-byte-compile: t -*- | 1 | ;;; greek.el --- support for Greek -*- no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2002 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2002 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1995 | 4 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 5 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 7 | ;; Registration Number H14PRO021 |
| 8 | |||
| 7 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
| 8 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 10 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 9 | ;; Registration Number H13PRO009 | 11 | ;; Registration Number H13PRO009 |
diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el index 4944b7a0881..f9c9aa68b7b 100644 --- a/lisp/language/hebrew.el +++ b/lisp/language/hebrew.el | |||
| @@ -1,9 +1,12 @@ | |||
| 1 | ;;; hebrew.el --- support for Hebrew -*- coding: iso-2022-7bit; no-byte-compile: t -*- | 1 | ;;; hebrew.el --- support for Hebrew -*- coding: iso-2022-7bit; no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1995 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 9 | |||
| 7 | ;; Copyright (C) 2003 | 10 | ;; Copyright (C) 2003 |
| 8 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 11 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 9 | ;; Registration Number H13PRO009 | 12 | ;; Registration Number H13PRO009 |
diff --git a/lisp/language/ind-util.el b/lisp/language/ind-util.el index 30bf1f13fd7..2693a565f02 100644 --- a/lisp/language/ind-util.el +++ b/lisp/language/ind-util.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: iso-2022-7bit; -*- | 1 | ;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: iso-2022-7bit; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> | 6 | ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> |
| 6 | ;; Keywords: multilingual, Indian, Devanagari | 7 | ;; Keywords: multilingual, Indian, Devanagari |
diff --git a/lisp/language/indian.el b/lisp/language/indian.el index 2ee8c086025..9c0425c96d0 100644 --- a/lisp/language/indian.el +++ b/lisp/language/indian.el | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | ;;; indian.el --- Indian languages support -*- coding: iso-2022-7bit; -*- | 1 | ;;; indian.el --- Indian languages support -*- coding: iso-2022-7bit; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1999, 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 2002, 2003 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 2002, 2003, 2004, 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 7 | ;; Registration Number H14PRO021 |
| 7 | 8 | ||
diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el index 2c72f529edd..c37e0bafd0a 100644 --- a/lisp/language/japan-util.el +++ b/lisp/language/japan-util.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; japan-util.el --- utilities for Japanese -*- coding: iso-2022-7bit; -*- | 1 | ;;; japan-util.el --- utilities for Japanese -*- coding: iso-2022-7bit; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1995, 1998, 2000, 2003 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | 9 | ||
diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el index dd1b5bec6ff..590167ad560 100644 --- a/lisp/language/japanese.el +++ b/lisp/language/japanese.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; japanese.el --- support for Japanese -*- coding: iso-2022-7bit; no-byte-compile: t -*- | 1 | ;;; japanese.el --- support for Japanese -*- coding: iso-2022-7bit; no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1995, 1997, 1998 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
diff --git a/lisp/language/kannada.el b/lisp/language/kannada.el index 82b4860e3dc..895c272b44e 100644 --- a/lisp/language/kannada.el +++ b/lisp/language/kannada.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; kannada.el --- Support for Kannada -*- coding: iso-2022-7bit; no-byte-compile: t -*- | 1 | ;;; kannada.el --- Support for Kannada -*- coding: iso-2022-7bit; no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Maintainer: CHOWKSEY, Kailash C. <klchxbec@m-net.arbornet.org> | 5 | ;; Maintainer: CHOWKSEY, Kailash C. <klchxbec@m-net.arbornet.org> |
| 6 | ;; Keywords: multilingual, Indian, Kannada | 6 | ;; Keywords: multilingual, Indian, Kannada |
diff --git a/lisp/language/knd-util.el b/lisp/language/knd-util.el index b0c4f4b1a73..38610c3989c 100644 --- a/lisp/language/knd-util.el +++ b/lisp/language/knd-util.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; knd-util.el --- Support for composing Kannada characters | 1 | ;;; knd-util.el --- Support for composing Kannada characters |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Maintainer: Maintainer: CHOWKSEY, Kailash C. <klchxbec@m-net.arbornet.org> | 5 | ;; Maintainer: Maintainer: CHOWKSEY, Kailash C. <klchxbec@m-net.arbornet.org> |
| 6 | ;; Keywords: multilingual, Kannada | 6 | ;; Keywords: multilingual, Kannada |
diff --git a/lisp/language/korea-util.el b/lisp/language/korea-util.el index d509ac6c825..f4d8e179eb2 100644 --- a/lisp/language/korea-util.el +++ b/lisp/language/korea-util.el | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | ;;; korea-util.el --- utilities for Korean | 1 | ;;; korea-util.el --- utilities for Korean |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1999 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1997, 1998, 1999 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 7 | ;; Registration Number H14PRO021 |
| 7 | 8 | ||
diff --git a/lisp/language/korean.el b/lisp/language/korean.el index c74b5f8212f..5a2ff9fdb19 100644 --- a/lisp/language/korean.el +++ b/lisp/language/korean.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; korean.el --- support for Korean -*- coding: iso-2022-7bit; no-byte-compile: t -*- | 1 | ;;; korean.el --- support for Korean -*- coding: iso-2022-7bit; no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1995, 1998 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el index 718baa3fd82..dcbdf7eb4aa 100644 --- a/lisp/language/lao-util.el +++ b/lisp/language/lao-util.el | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | ;;; lao-util.el --- utilities for Lao -*- coding: iso-2022-7bit; -*- | 1 | ;;; lao-util.el --- utilities for Lao -*- coding: iso-2022-7bit; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1997, 1998, 1999, 2000 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 7 | ;; Registration Number H14PRO021 |
| 7 | ;; Copyright (C) 2003 | 8 | ;; Copyright (C) 2003 |
diff --git a/lisp/language/lao.el b/lisp/language/lao.el index ec2ef61268c..ed290d988ef 100644 --- a/lisp/language/lao.el +++ b/lisp/language/lao.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; lao.el --- support for Lao -*- coding: iso-2022-7bit; no-byte-compile: t -*- | 1 | ;;; lao.el --- support for Lao -*- coding: iso-2022-7bit; no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2001 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1997, 1998, 1999, 2002 | 4 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 7 | ;; Copyright (C) 2003 | 7 | ;; Copyright (C) 2003 |
diff --git a/lisp/language/malayalam.el b/lisp/language/malayalam.el index fd17a95c69a..bab94a2a2d8 100644 --- a/lisp/language/malayalam.el +++ b/lisp/language/malayalam.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; malayalam.el --- Support for Malayalam -*- coding: iso-2022-7bit; no-byte-compile: t -*- | 1 | ;;; malayalam.el --- Support for Malayalam -*- coding: iso-2022-7bit; no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> | 5 | ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> |
| 6 | ;; Keywords: multilingual, Indian, Malayalam | 6 | ;; Keywords: multilingual, Indian, Malayalam |
diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el index f6bca5af0c2..ce643248242 100644 --- a/lisp/language/misc-lang.el +++ b/lisp/language/misc-lang.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; misc-lang.el --- support for miscellaneous languages (characters) -*- no-byte-compile: t -*- | 1 | ;;; misc-lang.el --- support for miscellaneous languages (characters) -*- no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 1997 | 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 | ||
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | ;; Registration Number H14PRO021 | 6 | ;; Registration Number H14PRO021 |
| 6 | 7 | ||
diff --git a/lisp/language/mlm-util.el b/lisp/language/mlm-util.el index 8a87425ae59..4d40f0dcb42 100644 --- a/lisp/language/mlm-util.el +++ b/lisp/language/mlm-util.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; mlm-util.el --- support for composing malayalam characters -*-coding: iso-2022-7bit;-*- | 1 | ;;; mlm-util.el --- support for composing malayalam characters -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> | 5 | ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> |
| 6 | ;; Keywords: multilingual, Malayalam | 6 | ;; Keywords: multilingual, Malayalam |
diff --git a/lisp/language/romanian.el b/lisp/language/romanian.el index 24d66bc32e3..79f8e7d87b8 100644 --- a/lisp/language/romanian.el +++ b/lisp/language/romanian.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; romanian.el --- support for Romanian -*- coding: iso-latin-2; no-byte-compile: t -*- | 1 | ;;; romanian.el --- support for Romanian -*- coding: iso-latin-2; no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 2002 Free Software Foundation. | 3 | ;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation. | ||
| 4 | 5 | ||
| 5 | ;; Author: Dan Nicolaescu <done@ece.arizona.edu> | 6 | ;; Author: Dan Nicolaescu <done@ece.arizona.edu> |
| 6 | ;; Keywords: multilingual, Romanian, i18n | 7 | ;; Keywords: multilingual, Romanian, i18n |
diff --git a/lisp/language/slovak.el b/lisp/language/slovak.el index 0d0f1abb6a3..3fe6fc0acb0 100644 --- a/lisp/language/slovak.el +++ b/lisp/language/slovak.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; slovak.el --- support for Slovak -*- coding: iso-2022-7bit; no-byte-compile: t -*- | 1 | ;;; slovak.el --- support for Slovak -*- coding: iso-2022-7bit; no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 2001 Free Software Foundation. | 3 | ;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation. | ||
| 4 | 5 | ||
| 5 | ;; Authors: Tibor ,B)(Bimko <tibor.simko@fmph.uniba.sk>, | 6 | ;; Authors: Tibor ,B)(Bimko <tibor.simko@fmph.uniba.sk>, |
| 6 | ;; Milan Zamazal <pdm@zamazal.org> | 7 | ;; Milan Zamazal <pdm@zamazal.org> |
diff --git a/lisp/language/tamil.el b/lisp/language/tamil.el index ff51e9efe9e..9be6490fe69 100644 --- a/lisp/language/tamil.el +++ b/lisp/language/tamil.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; tamil.el --- Support for Tamil -*- coding: iso-2022-7bit; no-byte-compile: t -*- | 1 | ;;; tamil.el --- Support for Tamil -*- coding: iso-2022-7bit; no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Maintainer: KAWABATA, Taichi <batta@beige.ocn.ne.jp> | 5 | ;; Maintainer: KAWABATA, Taichi <batta@beige.ocn.ne.jp> |
| 6 | ;; Keywords: multilingual, Indian, Tamil | 6 | ;; Keywords: multilingual, Indian, Tamil |
diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el index 8bae6e1e8ee..8dcfca2c3db 100644 --- a/lisp/language/thai-util.el +++ b/lisp/language/thai-util.el | |||
| @@ -1,9 +1,11 @@ | |||
| 1 | ;;; thai-util.el --- utilities for Thai -*- coding: iso-2022-7bit; -*- | 1 | ;;; thai-util.el --- utilities for Thai -*- coding: iso-2022-7bit; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2005 | 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 | ||
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | ;; Registration Number H13PRO009 | 6 | ;; Registration Number H13PRO009 |
| 6 | ;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. | 7 | ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 8 | ;; Free Software Foundation, Inc. | ||
| 7 | 9 | ||
| 8 | ;; Keywords: mule, multilingual, Thai, i18n | 10 | ;; Keywords: mule, multilingual, Thai, i18n |
| 9 | 11 | ||
diff --git a/lisp/language/thai-word.el b/lisp/language/thai-word.el index ee8db1f2708..b6144a1fb47 100644 --- a/lisp/language/thai-word.el +++ b/lisp/language/thai-word.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; thai-word.el -- find Thai word boundaries | 1 | ;;; thai-word.el -- find Thai word boundaries |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 | 3 | ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | ;; Registration Number H14PRO021 | 5 | ;; Registration Number H14PRO021 |
| 6 | 6 | ||
diff --git a/lisp/language/thai.el b/lisp/language/thai.el index 3a482865b40..0c346c7594b 100644 --- a/lisp/language/thai.el +++ b/lisp/language/thai.el | |||
| @@ -1,12 +1,14 @@ | |||
| 1 | ;;; thai.el --- support for Thai -*- coding: iso-2022-7bit; no-byte-compile: t -*- | 1 | ;;; thai.el --- support for Thai -*- coding: iso-2022-7bit; no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2002, 2005 | 3 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 | ||
| 4 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | ;; Registration Number H13PRO009 | 6 | ;; Registration Number H13PRO009 |
| 6 | ;; Copyright (C) 2005 | 7 | ;; Copyright (C) 2005 |
| 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 8 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 8 | ;; Registration Number H14PRO021 | 9 | ;; Registration Number H14PRO021 |
| 9 | ;; Copyright (C) 1997, 1998, 2000, 2001, 2002 Free Software Foundation, Inc. | 10 | ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005, |
| 11 | ;; 2006 Free Software Foundation, Inc. | ||
| 10 | 12 | ||
| 11 | ;; Keywords: multilingual, Thai, i18n | 13 | ;; Keywords: multilingual, Thai, i18n |
| 12 | 14 | ||
diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el index 83b0f29dee1..012456da6e7 100644 --- a/lisp/language/tibet-util.el +++ b/lisp/language/tibet-util.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; tibet-util.el --- utilities for Tibetan -*- coding: iso-2022-7bit; -*- | 1 | ;;; tibet-util.el --- utilities for Tibetan -*- coding: iso-2022-7bit; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 2002 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1995, 1997, 1998, 2000 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | 9 | ||
diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el index ba7fb554bab..6256382d870 100644 --- a/lisp/language/tibetan.el +++ b/lisp/language/tibetan.el | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | ;;; tibetan.el --- support for Tibetan language -*- coding: iso-2022-7bit; -*- | 1 | ;;; tibetan.el --- support for Tibetan language -*- coding: iso-2022-7bit; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 2002 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1997, 1999, 2000 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 7 | ;; Registration Number H14PRO021 |
| 7 | ;; Copyright (C) 2003 | 8 | ;; Copyright (C) 2003 |
diff --git a/lisp/language/tml-util.el b/lisp/language/tml-util.el index c541862826d..b655d3c1944 100644 --- a/lisp/language/tml-util.el +++ b/lisp/language/tml-util.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; tml-util.el --- support for composing tamil characters -*-coding: iso-2022-7bit;-*- | 1 | ;;; tml-util.el --- support for composing tamil characters -*-coding: iso-2022-7bit;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2001, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> | 5 | ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> |
| 6 | ;; Keywords: multilingual, Indian, Tamil | 6 | ;; Keywords: multilingual, Indian, Tamil |
diff --git a/lisp/language/utf-8-lang.el b/lisp/language/utf-8-lang.el index fe3616ae192..aae98bba251 100644 --- a/lisp/language/utf-8-lang.el +++ b/lisp/language/utf-8-lang.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; utf-8-lang.el --- generic UTF-8 language environment -*- no-byte-compile: t -*- | 1 | ;;; utf-8-lang.el --- generic UTF-8 language environment -*- no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Author: Dave Love <fx@gnu.org> | 6 | ;; Author: Dave Love <fx@gnu.org> |
| 6 | ;; Keywords: i18n | 7 | ;; Keywords: i18n |
diff --git a/lisp/language/viet-util.el b/lisp/language/viet-util.el index 2e6fc76da23..17e6f576951 100644 --- a/lisp/language/viet-util.el +++ b/lisp/language/viet-util.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; viet-util.el --- utilities for Vietnamese -*- coding: iso-2022-7bit; -*- | 1 | ;;; viet-util.el --- utilities for Vietnamese -*- coding: iso-2022-7bit; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1995, 1997 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el index 8b5c57a29dd..22141b6d0e3 100644 --- a/lisp/language/vietnamese.el +++ b/lisp/language/vietnamese.el | |||
| @@ -1,7 +1,9 @@ | |||
| 1 | ;;; vietnamese.el --- support for Vietnamese -*- coding: iso-2022-7bit; -*- | 1 | ;;; vietnamese.el --- support for Vietnamese -*- coding: iso-2022-7bit; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 2002 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Copyright (C) 1995, 1997, 1998, 2000 | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, | ||
| 6 | ;; 2005, 2006 | ||
| 5 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 7 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | ;; Registration Number H14PRO021 | 8 | ;; Registration Number H14PRO021 |
| 7 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
diff --git a/lisp/mail/blessmail.el b/lisp/mail/blessmail.el index 41bad17d70e..321dc13cebc 100644 --- a/lisp/mail/blessmail.el +++ b/lisp/mail/blessmail.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; blessmail.el --- decide whether movemail needs special privileges -*- no-byte-compile: t -*- | 1 | ;;; blessmail.el --- decide whether movemail needs special privileges -*- no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1994, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el index e831b89ef84..da7e5fcf579 100644 --- a/lisp/mail/footnote.el +++ b/lisp/mail/footnote.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; footnote.el --- footnote support for message mode -*- coding: iso-latin-1;-*- | 1 | ;;; footnote.el --- footnote support for message mode -*- coding: iso-latin-1;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Steven L Baur <steve@xemacs.org> | 6 | ;; Author: Steven L Baur <steve@xemacs.org> |
diff --git a/lisp/mail/mail-hist.el b/lisp/mail/mail-hist.el index a2d7b0aab0f..c718110e9ec 100644 --- a/lisp/mail/mail-hist.el +++ b/lisp/mail/mail-hist.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; mail-hist.el --- headers and message body history for outgoing mail | 1 | ;;; mail-hist.el --- headers and message body history for outgoing mail |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1994, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Karl Fogel <kfogel@red-bean.com> | 6 | ;; Author: Karl Fogel <kfogel@red-bean.com> |
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index eab55bdef25..1e32b2d02df 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; mailabbrev.el --- abbrev-expansion of mail aliases | 1 | ;;; mailabbrev.el --- abbrev-expansion of mail aliases |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1986, 1987, 1992, 1993, 1996, 1997, 2000, 2002, | 3 | ;; Copyright (C) 1985, 1986, 1987, 1992, 1993, 1996, 1997, 2000, 2001, |
| 4 | ;; 2003, 2004, 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Jamie Zawinski <jwz@lucid.com>, now <jwz@jwz.org> | 6 | ;; Author: Jamie Zawinski <jwz@lucid.com>, now <jwz@jwz.org> |
| 7 | ;; Maintainer: FSF | 7 | ;; Maintainer: FSF |
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index 7d60ed27e5c..d22507c7722 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; mailalias.el --- expand and complete mailing address aliases | 1 | ;;; mailalias.el --- expand and complete mailing address aliases |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1987, 1995, 1996, 1997, 2002, 2003, | 3 | ;; Copyright (C) 1985, 1987, 1995, 1996, 1997, 2001, 2002, 2003, |
| 4 | ;; 2004, 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/mail/mailheader.el b/lisp/mail/mailheader.el index 377144f7d68..4b6579fb6cb 100644 --- a/lisp/mail/mailheader.el +++ b/lisp/mail/mailheader.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; mailheader.el --- mail header parsing, merging, formatting | 1 | ;;; mailheader.el --- mail header parsing, merging, formatting |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Erik Naggum <erik@naggum.no> | 6 | ;; Author: Erik Naggum <erik@naggum.no> |
diff --git a/lisp/mail/metamail.el b/lisp/mail/metamail.el index 2388ab87971..4c6ef4bf928 100644 --- a/lisp/mail/metamail.el +++ b/lisp/mail/metamail.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; metamail.el --- Metamail interface for GNU Emacs | 1 | ;;; metamail.el --- Metamail interface for GNU Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1996, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1993, 1996, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> | 6 | ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> |
diff --git a/lisp/mail/mspools.el b/lisp/mail/mspools.el index a2f460d13a0..9084982b304 100644 --- a/lisp/mail/mspools.el +++ b/lisp/mail/mspools.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; mspools.el --- show mail spools waiting to be read | 1 | ;;; mspools.el --- show mail spools waiting to be read |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Stephen Eglen <stephen@gnu.org> | 6 | ;; Author: Stephen Eglen <stephen@gnu.org> |
diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el index fa6c1c5e307..35c1381d891 100644 --- a/lisp/mail/reporter.el +++ b/lisp/mail/reporter.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; reporter.el --- customizable bug reporting of lisp programs | 1 | ;;; reporter.el --- customizable bug reporting of lisp programs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 2001, 2002, 2003, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: 1993-1998 Barry A. Warsaw | 6 | ;; Author: 1993-1998 Barry A. Warsaw |
| 7 | ;; Maintainer: FSF | 7 | ;; Maintainer: FSF |
diff --git a/lisp/mail/rfc2368.el b/lisp/mail/rfc2368.el index ef20ac0398d..f03e9a635f0 100644 --- a/lisp/mail/rfc2368.el +++ b/lisp/mail/rfc2368.el | |||
| @@ -1,11 +1,11 @@ | |||
| 1 | ;;; rfc2368.el --- support for rfc2368 | 1 | ;;; rfc2368.el --- support for rfc2368 |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004, | ||
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | ||
| 5 | |||
| 3 | ;; Author: Sen Nagata <sen@eccosys.com> | 6 | ;; Author: Sen Nagata <sen@eccosys.com> |
| 4 | ;; Keywords: mail | 7 | ;; Keywords: mail |
| 5 | 8 | ||
| 6 | ;; Copyright (C) 1998, 2000, 2002, 2003, 2004, | ||
| 7 | ;; 2005, 2006 Free Software Foundation, Inc. | ||
| 8 | |||
| 9 | ;; This file is part of GNU Emacs. | 9 | ;; This file is part of GNU Emacs. |
| 10 | 10 | ||
| 11 | ;; GNU Emacs is free software; you can redistribute it and/or modify | 11 | ;; GNU Emacs is free software; you can redistribute it and/or modify |
diff --git a/lisp/mail/rfc822.el b/lisp/mail/rfc822.el index 97a47f56f99..67ff1e02e89 100644 --- a/lisp/mail/rfc822.el +++ b/lisp/mail/rfc822.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; rfc822.el --- hairy rfc822 parser for mail and news and suchlike | 1 | ;;; rfc822.el --- hairy rfc822 parser for mail and news and suchlike |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1986, 1987, 1990, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1986, 1987, 1990, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Richard Mlynarik <mly@eddie.mit.edu> | 6 | ;; Author: Richard Mlynarik <mly@eddie.mit.edu> |
diff --git a/lisp/mail/rmailmsc.el b/lisp/mail/rmailmsc.el index 3502c0a7c57..f7d0885a3ac 100644 --- a/lisp/mail/rmailmsc.el +++ b/lisp/mail/rmailmsc.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; rmailmsc.el --- miscellaneous support functions for the RMAIL mail reader | 1 | ;;; rmailmsc.el --- miscellaneous support functions for the RMAIL mail reader |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index cdb917701f7..f7beef054b0 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; supercite.el --- minor mode for citing mail and news replies | 1 | ;;; supercite.el --- minor mode for citing mail and news replies |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1997, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1993, 1997, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: 1993 Barry A. Warsaw <bwarsaw@python.org> | 6 | ;; Author: 1993 Barry A. Warsaw <bwarsaw@python.org> |
diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el index 4d48f467b59..ff53e06014e 100644 --- a/lisp/mail/uce.el +++ b/lisp/mail/uce.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; uce.el --- facilitate reply to unsolicited commercial email | 1 | ;;; uce.el --- facilitate reply to unsolicited commercial email |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 1998, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1996, 1998, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: stanislav shalunov <shalunov@mccme.ru> | 6 | ;; Author: stanislav shalunov <shalunov@mccme.ru> |
diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index 210a1d254f3..fce4e781ff8 100644 --- a/lisp/mail/undigest.el +++ b/lisp/mail/undigest.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; undigest.el --- digest-cracking support for the RMAIL mail reader | 1 | ;;; undigest.el --- digest-cracking support for the RMAIL mail reader |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1986, 1994, 1996, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1985, 1986, 1994, 1996, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el index cf12472fb0e..79788ff1dc0 100644 --- a/lisp/mail/unrmail.el +++ b/lisp/mail/unrmail.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; unrmail.el --- convert Rmail files to mailbox files | 1 | ;;; unrmail.el --- convert Rmail files to mailbox files |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/mail/vms-pmail.el b/lisp/mail/vms-pmail.el index e7c44edbeb2..3a801565315 100644 --- a/lisp/mail/vms-pmail.el +++ b/lisp/mail/vms-pmail.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; vms-pmail.el --- use Emacs as the editor within VMS mail | 1 | ;;; vms-pmail.el --- use Emacs as the editor within VMS mail |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Roland B Roberts <roberts@panix.com> | 6 | ;; Author: Roland B Roberts <roberts@panix.com> |
diff --git a/lisp/makefile.w32-in b/lisp/makefile.w32-in index ebecf87d220..1c15be1f5d4 100644 --- a/lisp/makefile.w32-in +++ b/lisp/makefile.w32-in | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | # -*- Makefile -*- for GNU Emacs on the Microsoft W32 API. | 1 | # -*- Makefile -*- for GNU Emacs on the Microsoft W32 API. |
| 2 | # Copyright (C) 2000, 2001, 2002, 2003, 2004, | 2 | # Copyright (C) 2000, 2001, 2002, 2003, 2004, |
| 3 | # 2005 Free Software Foundation, Inc. | 3 | # 2005, 2006 Free Software Foundation, Inc. |
| 4 | # | 4 | # |
| 5 | # This file is part of GNU Emacs. | 5 | # This file is part of GNU Emacs. |
| 6 | # | 6 | # |
diff --git a/lisp/man.el b/lisp/man.el index 2351853eeca..40a4e810204 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -428,13 +428,17 @@ Otherwise, the value is whatever the function | |||
| 428 | 'follow-link t | 428 | 'follow-link t |
| 429 | 'help-echo "mouse-2, RET: display this man page" | 429 | 'help-echo "mouse-2, RET: display this man page" |
| 430 | 'func nil | 430 | 'func nil |
| 431 | 'action (lambda (button) | 431 | 'action #'Man-xref-button-action) |
| 432 | (funcall | 432 | |
| 433 | (button-get button 'func) | 433 | (defun Man-xref-button-action (button) |
| 434 | (let ((func (button-get button 'Man-target-string))) | 434 | (let ((target (button-get button 'Man-target-string))) |
| 435 | (if func | 435 | (funcall |
| 436 | (if (functionp func) (funcall func) func) | 436 | (button-get button 'func) |
| 437 | (button-label button)))))) | 437 | (cond ((null target) |
| 438 | (button-label button)) | ||
| 439 | ((functionp target) | ||
| 440 | (funcall target (button-start button))) | ||
| 441 | (t target))))) | ||
| 438 | 442 | ||
| 439 | (define-button-type 'Man-xref-man-page | 443 | (define-button-type 'Man-xref-man-page |
| 440 | :supertype 'Man-abstract-xref-man-page | 444 | :supertype 'Man-abstract-xref-man-page |
| @@ -636,11 +640,12 @@ a new value." | |||
| 636 | ;; ====================================================================== | 640 | ;; ====================================================================== |
| 637 | ;; default man entry: get word under point | 641 | ;; default man entry: get word under point |
| 638 | 642 | ||
| 639 | (defsubst Man-default-man-entry () | 643 | (defsubst Man-default-man-entry (&optional pos) |
| 640 | "Make a guess at a default manual entry. | 644 | "Make a guess at a default manual entry based on the text at POS. |
| 641 | This guess is based on the text surrounding the cursor." | 645 | If POS is nil, the current point is used." |
| 642 | (let (word) | 646 | (let (word) |
| 643 | (save-excursion | 647 | (save-excursion |
| 648 | (if pos (goto-char pos)) | ||
| 644 | ;; Default man entry title is any word the cursor is on, or if | 649 | ;; Default man entry title is any word the cursor is on, or if |
| 645 | ;; cursor not on a word, then nearest preceding word. | 650 | ;; cursor not on a word, then nearest preceding word. |
| 646 | (skip-chars-backward "-a-zA-Z0-9._+:") | 651 | (skip-chars-backward "-a-zA-Z0-9._+:") |
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 72cc8521ee9..9ecc0053665 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -924,13 +924,13 @@ mail status in mode line")) | |||
| 924 | 924 | ||
| 925 | (define-key menu-bar-showhide-menu [showhide-tooltip-mode] | 925 | (define-key menu-bar-showhide-menu [showhide-tooltip-mode] |
| 926 | (list 'menu-item "Tooltips" 'tooltip-mode | 926 | (list 'menu-item "Tooltips" 'tooltip-mode |
| 927 | :help "Toggle tooltips on/off" | 927 | :help "Turn tooltips on/off" |
| 928 | :visible `(and (display-graphic-p) (fboundp 'x-show-tip)) | 928 | :visible `(and (display-graphic-p) (fboundp 'x-show-tip)) |
| 929 | :button `(:toggle . tooltip-mode))) | 929 | :button `(:toggle . tooltip-mode))) |
| 930 | 930 | ||
| 931 | (define-key menu-bar-showhide-menu [menu-bar-mode] | 931 | (define-key menu-bar-showhide-menu [menu-bar-mode] |
| 932 | '(menu-item "Menu-bar" menu-bar-mode | 932 | '(menu-item "Menu-bar" menu-bar-mode |
| 933 | :help "Toggle menu-bar on/off" | 933 | :help "Turn menu-bar on/off" |
| 934 | :button (:toggle . menu-bar-mode))) | 934 | :button (:toggle . menu-bar-mode))) |
| 935 | 935 | ||
| 936 | (define-key menu-bar-showhide-menu [showhide-tool-bar] | 936 | (define-key menu-bar-showhide-menu [showhide-tool-bar] |
| @@ -1127,7 +1127,8 @@ mail status in mode line")) | |||
| 1127 | '(menu-item "Programmable Calculator" calc | 1127 | '(menu-item "Programmable Calculator" calc |
| 1128 | :help "Invoke the Emacs built-in full scientific calculator")) | 1128 | :help "Invoke the Emacs built-in full scientific calculator")) |
| 1129 | (define-key menu-bar-tools-menu [calendar] | 1129 | (define-key menu-bar-tools-menu [calendar] |
| 1130 | '(menu-item "Calendar" calendar)) | 1130 | '(menu-item "Calendar" calendar |
| 1131 | :help "Invoke the Emacs built-in calendar")) | ||
| 1131 | 1132 | ||
| 1132 | (define-key menu-bar-tools-menu [separator-net] | 1133 | (define-key menu-bar-tools-menu [separator-net] |
| 1133 | '("--")) | 1134 | '("--")) |
| @@ -1386,12 +1387,14 @@ key, a click, or a menu-item")) | |||
| 1386 | '(menu-item "Send Bug Report..." report-emacs-bug | 1387 | '(menu-item "Send Bug Report..." report-emacs-bug |
| 1387 | :help "Send e-mail to Emacs maintainers")) | 1388 | :help "Send e-mail to Emacs maintainers")) |
| 1388 | (define-key menu-bar-help-menu [emacs-problems] | 1389 | (define-key menu-bar-help-menu [emacs-problems] |
| 1389 | '(menu-item "Emacs Known Problems" view-emacs-problems)) | 1390 | '(menu-item "Emacs Known Problems" view-emacs-problems |
| 1391 | :help "Read about known problems with Emacs")) | ||
| 1390 | (define-key menu-bar-help-menu [emacs-news] | 1392 | (define-key menu-bar-help-menu [emacs-news] |
| 1391 | '(menu-item "Emacs News" view-emacs-news | 1393 | '(menu-item "Emacs News" view-emacs-news |
| 1392 | :help "New features of this version")) | 1394 | :help "New features of this version")) |
| 1393 | (define-key menu-bar-help-menu [emacs-faq] | 1395 | (define-key menu-bar-help-menu [emacs-faq] |
| 1394 | '(menu-item "Emacs FAQ" view-emacs-FAQ)) | 1396 | '(menu-item "Emacs FAQ" view-emacs-FAQ |
| 1397 | :help "Frequently asked (and answered) questions about Emacs")) | ||
| 1395 | 1398 | ||
| 1396 | (defun help-with-tutorial-spec-language () | 1399 | (defun help-with-tutorial-spec-language () |
| 1397 | "Use the Emacs tutorial, specifying which language you want." | 1400 | "Use the Emacs tutorial, specifying which language you want." |
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 1093fdbcdb5..96bb50eec69 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog | |||
| @@ -2868,7 +2868,7 @@ | |||
| 2868 | * ChangeLog.1: New file. Contains old ChangeLog. | 2868 | * ChangeLog.1: New file. Contains old ChangeLog. |
| 2869 | 2869 | ||
| 2870 | 2870 | ||
| 2871 | Copyright (C) 2005 Free Software Foundation, Inc. | 2871 | Copyright (C) 2005, 2006 Free Software Foundation, Inc. |
| 2872 | 2872 | ||
| 2873 | Copying and distribution of this file, with or without modification, | 2873 | Copying and distribution of this file, with or without modification, |
| 2874 | are permitted in any medium without royalty provided the copyright | 2874 | are permitted in any medium without royalty provided the copyright |
diff --git a/lisp/mh-e/ChangeLog.1 b/lisp/mh-e/ChangeLog.1 index 66b510011a1..40b69964ec3 100644 --- a/lisp/mh-e/ChangeLog.1 +++ b/lisp/mh-e/ChangeLog.1 | |||
| @@ -11407,7 +11407,7 @@ | |||
| 11407 | (dist): Leave release in current directory. | 11407 | (dist): Leave release in current directory. |
| 11408 | 11408 | ||
| 11409 | 11409 | ||
| 11410 | Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. | 11410 | Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 11411 | 11411 | ||
| 11412 | Copying and distribution of this file, with or without modification, | 11412 | Copying and distribution of this file, with or without modification, |
| 11413 | are permitted in any medium without royalty provided the copyright | 11413 | are permitted in any medium without royalty provided the copyright |
diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el index a1209f827f1..5c3e79ed807 100644 --- a/lisp/mouse-sel.el +++ b/lisp/mouse-sel.el | |||
| @@ -244,6 +244,10 @@ primary selection and region." | |||
| 244 | :group 'mouse-sel | 244 | :group 'mouse-sel |
| 245 | (if mouse-sel-mode | 245 | (if mouse-sel-mode |
| 246 | (progn | 246 | (progn |
| 247 | ;; If mouse-2 has never been done by the user, initialize the | ||
| 248 | ;; `event-kind' property to ensure that `follow-link' clicks | ||
| 249 | ;; are interpreted correctly. | ||
| 250 | (put 'mouse-2 'event-kind 'mouse-click) | ||
| 247 | (add-hook 'x-lost-selection-functions 'mouse-sel-lost-selection-hook) | 251 | (add-hook 'x-lost-selection-functions 'mouse-sel-lost-selection-hook) |
| 248 | (when mouse-sel-default-bindings | 252 | (when mouse-sel-default-bindings |
| 249 | ;; Save original bindings and replace them with new ones. | 253 | ;; Save original bindings and replace them with new ones. |
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 3f514a2aaab..33006731622 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el | |||
| @@ -760,17 +760,23 @@ Prompts for a URL, defaulting to the URL at or before point. Variable | |||
| 760 | (interactive (browse-url-interactive-arg "URL: ")) | 760 | (interactive (browse-url-interactive-arg "URL: ")) |
| 761 | (unless (interactive-p) | 761 | (unless (interactive-p) |
| 762 | (setq args (or args (list browse-url-new-window-flag)))) | 762 | (setq args (or args (list browse-url-new-window-flag)))) |
| 763 | (if (functionp browse-url-browser-function) | 763 | (let ((process-environment (copy-sequence process-environment))) |
| 764 | (apply browse-url-browser-function url args) | 764 | ;; When connected to various displays, be careful to use the display of |
| 765 | ;; The `function' can be an alist; look down it for first match | 765 | ;; the currently selected frame, rather than the original start display, |
| 766 | ;; and apply the function (which might be a lambda). | 766 | ;; which may not even exist any more. |
| 767 | (catch 'done | 767 | (if (stringp (frame-parameter (selected-frame) 'display)) |
| 768 | (dolist (bf browse-url-browser-function) | 768 | (setenv "DISPLAY" (frame-parameter (selected-frame) 'display))) |
| 769 | (when (string-match (car bf) url) | 769 | (if (functionp browse-url-browser-function) |
| 770 | (apply (cdr bf) url args) | 770 | (apply browse-url-browser-function url args) |
| 771 | (throw 'done t))) | 771 | ;; The `function' can be an alist; look down it for first match |
| 772 | (error "No browse-url-browser-function matching URL %s" | 772 | ;; and apply the function (which might be a lambda). |
| 773 | url)))) | 773 | (catch 'done |
| 774 | (dolist (bf browse-url-browser-function) | ||
| 775 | (when (string-match (car bf) url) | ||
| 776 | (apply (cdr bf) url args) | ||
| 777 | (throw 'done t))) | ||
| 778 | (error "No browse-url-browser-function matching URL %s" | ||
| 779 | url))))) | ||
| 774 | 780 | ||
| 775 | ;;;###autoload | 781 | ;;;###autoload |
| 776 | (defun browse-url-at-point (&optional arg) | 782 | (defun browse-url-at-point (&optional arg) |
diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el index c6506fddb93..7aa6279d92d 100644 --- a/lisp/net/eudc-bob.el +++ b/lisp/net/eudc-bob.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; eudc-bob.el --- Binary Objects Support for EUDC | 1 | ;;; eudc-bob.el --- Binary Objects Support for EUDC |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> | 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> |
diff --git a/lisp/net/eudc-export.el b/lisp/net/eudc-export.el index c5f31c6b2f9..706c98df371 100644 --- a/lisp/net/eudc-export.el +++ b/lisp/net/eudc-export.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; eudc-export.el --- functions to export EUDC query results | 1 | ;;; eudc-export.el --- functions to export EUDC query results |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> | 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> |
diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el index 1e43e88dff4..84c4c2549e2 100644 --- a/lisp/net/eudc-hotlist.el +++ b/lisp/net/eudc-hotlist.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; eudc-hotlist.el --- hotlist management for EUDC | 1 | ;;; eudc-hotlist.el --- hotlist management for EUDC |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> | 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> |
diff --git a/lisp/net/eudc-vars.el b/lisp/net/eudc-vars.el index 74e3deddc06..1cf449c6f52 100644 --- a/lisp/net/eudc-vars.el +++ b/lisp/net/eudc-vars.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; eudc-vars.el --- Emacs Unified Directory Client | 1 | ;;; eudc-vars.el --- Emacs Unified Directory Client |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> | 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> |
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el index 2d5d8f6978d..d209fc26e0a 100644 --- a/lisp/net/eudc.el +++ b/lisp/net/eudc.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; eudc.el --- Emacs Unified Directory Client | 1 | ;;; eudc.el --- Emacs Unified Directory Client |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> | 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> |
diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el index 0fee937758e..a4350e7c285 100644 --- a/lisp/net/eudcb-bbdb.el +++ b/lisp/net/eudcb-bbdb.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; eudcb-bbdb.el --- Emacs Unified Directory Client - BBDB Backend | 1 | ;;; eudcb-bbdb.el --- Emacs Unified Directory Client - BBDB Backend |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> | 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> |
diff --git a/lisp/net/eudcb-ldap.el b/lisp/net/eudcb-ldap.el index 9b6a77dd2e1..e48812ec2d9 100644 --- a/lisp/net/eudcb-ldap.el +++ b/lisp/net/eudcb-ldap.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; eudcb-ldap.el --- Emacs Unified Directory Client - LDAP Backend | 1 | ;;; eudcb-ldap.el --- Emacs Unified Directory Client - LDAP Backend |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> | 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> |
diff --git a/lisp/net/eudcb-mab.el b/lisp/net/eudcb-mab.el index a734b90ecaf..77f9e71878f 100644 --- a/lisp/net/eudcb-mab.el +++ b/lisp/net/eudcb-mab.el | |||
| @@ -3,6 +3,7 @@ | |||
| 3 | ;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: John Wiegley <johnw@newartisans.com> | 5 | ;; Author: John Wiegley <johnw@newartisans.com> |
| 6 | ;; Maintainer: FSF | ||
| 6 | ;; Keywords: comm | 7 | ;; Keywords: comm |
| 7 | 8 | ||
| 8 | ;; This file is part of GNU Emacs. | 9 | ;; This file is part of GNU Emacs. |
diff --git a/lisp/net/eudcb-ph.el b/lisp/net/eudcb-ph.el index 9edfc4870e5..44fe521b7b7 100644 --- a/lisp/net/eudcb-ph.el +++ b/lisp/net/eudcb-ph.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; eudcb-ph.el --- Emacs Unified Directory Client - CCSO PH/QI Backend | 1 | ;;; eudcb-ph.el --- Emacs Unified Directory Client - CCSO PH/QI Backend |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> | 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> |
diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el index 18b96a7cce1..7f936ed0bdb 100644 --- a/lisp/net/ldap.el +++ b/lisp/net/ldap.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; ldap.el --- client interface to LDAP for Emacs | 1 | ;;; ldap.el --- client interface to LDAP for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> | 6 | ;; Author: Oscar Figueiredo <oscar@cpe.fr> |
diff --git a/lisp/net/rcompile.el b/lisp/net/rcompile.el index 158069986d2..b8bfdcc0166 100644 --- a/lisp/net/rcompile.el +++ b/lisp/net/rcompile.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; rcompile.el --- run a compilation on a remote machine | 1 | ;;; rcompile.el --- run a compilation on a remote machine |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1994, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Albert <alon@milcse.rtsg.mot.com> | 6 | ;; Author: Albert <alon@milcse.rtsg.mot.com> |
diff --git a/lisp/net/rlogin.el b/lisp/net/rlogin.el index 74b9e034f9a..6e8b073c639 100644 --- a/lisp/net/rlogin.el +++ b/lisp/net/rlogin.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; rlogin.el --- remote login interface | 1 | ;;; rlogin.el --- remote login interface |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 1993, 1994, 1995, 1997, 1998, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1992, 1993, 1994, 1995, 1997, 1998, 2001, 2002, 2003, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Noah Friedman | 6 | ;; Author: Noah Friedman |
| 7 | ;; Maintainer: Noah Friedman <friedman@splode.com> | 7 | ;; Maintainer: Noah Friedman <friedman@splode.com> |
diff --git a/lisp/net/snmp-mode.el b/lisp/net/snmp-mode.el index 62f6bb87b69..08f4659e5d9 100644 --- a/lisp/net/snmp-mode.el +++ b/lisp/net/snmp-mode.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode | 1 | ;;; snmp-mode.el --- SNMP & SNMPv2 MIB major mode |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 1998, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1995, 1998, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Paul D. Smith <psmith@BayNetworks.com> | 6 | ;; Author: Paul D. Smith <psmith@BayNetworks.com> |
diff --git a/lisp/net/telnet.el b/lisp/net/telnet.el index 28bc552551b..1b0c50b4322 100644 --- a/lisp/net/telnet.el +++ b/lisp/net/telnet.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; telnet.el --- run a telnet session from within an Emacs buffer | 1 | ;;; telnet.el --- run a telnet session from within an Emacs buffer |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1988, 1992, 1994, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1985, 1988, 1992, 1994, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: William F. Schelter | 6 | ;; Author: William F. Schelter |
diff --git a/lisp/net/webjump.el b/lisp/net/webjump.el index e24ce702397..cbf298e2f10 100644 --- a/lisp/net/webjump.el +++ b/lisp/net/webjump.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; webjump.el --- programmable Web hotlist | 1 | ;;; webjump.el --- programmable Web hotlist |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 1997, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Neil W. Van Dyke <nwv@acm.org> | 6 | ;; Author: Neil W. Van Dyke <nwv@acm.org> |
diff --git a/lisp/obsolete/awk-mode.el b/lisp/obsolete/awk-mode.el index 95c3a0582b7..7867af0c46c 100644 --- a/lisp/obsolete/awk-mode.el +++ b/lisp/obsolete/awk-mode.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; awk-mode.el --- AWK code editing commands for Emacs | 1 | ;;; awk-mode.el --- AWK code editing commands for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1988, 1994, 1996, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1988, 1994, 1996, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/obsolete/fast-lock.el b/lisp/obsolete/fast-lock.el index de4b494826a..e2d1d16d2a6 100644 --- a/lisp/obsolete/fast-lock.el +++ b/lisp/obsolete/fast-lock.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; fast-lock.el --- automagic text properties caching for fast Font Lock mode | 1 | ;;; fast-lock.el --- automagic text properties caching for fast Font Lock mode |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Simon Marshall <simon@gnu.org> | 6 | ;; Author: Simon Marshall <simon@gnu.org> |
diff --git a/lisp/obsolete/float.el b/lisp/obsolete/float.el index 32f0ef6a412..b065b4fe310 100644 --- a/lisp/obsolete/float.el +++ b/lisp/obsolete/float.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; float.el --- obsolete floating point arithmetic package | 1 | ;;; float.el --- obsolete floating point arithmetic package |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1986, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1986, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Bill Rosenblatt | 6 | ;; Author: Bill Rosenblatt |
diff --git a/lisp/obsolete/hscroll.el b/lisp/obsolete/hscroll.el index 0659c47c199..fdf5a7bfbea 100644 --- a/lisp/obsolete/hscroll.el +++ b/lisp/obsolete/hscroll.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; hscroll.el --- automatically scroll truncated lines horizontally | 1 | ;;; hscroll.el --- automatically scroll truncated lines horizontally |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 1993, 1995, 1996, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1992, 1993, 1995, 1996, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Wayne Mesard <wmesard@esd.sgi.com> | 6 | ;; Author: Wayne Mesard <wmesard@esd.sgi.com> |
diff --git a/lisp/obsolete/iso-insert.el b/lisp/obsolete/iso-insert.el index 831ae3ffc1b..ac7d5d711ea 100644 --- a/lisp/obsolete/iso-insert.el +++ b/lisp/obsolete/iso-insert.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; iso-insert.el --- insert functions for ISO 8859/1 -*- coding: iso-8859-1;-*- | 1 | ;;; iso-insert.el --- insert functions for ISO 8859/1 -*- coding: iso-8859-1;-*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1987, 1994, 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1987, 1994, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Author: Howard Gayle | 6 | ;; Author: Howard Gayle |
| 6 | ;; Maintainer: FSF | 7 | ;; Maintainer: FSF |
diff --git a/lisp/obsolete/iso-swed.el b/lisp/obsolete/iso-swed.el index 510efd32016..326029006cf 100644 --- a/lisp/obsolete/iso-swed.el +++ b/lisp/obsolete/iso-swed.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; iso-swed.el --- set up char tables for ISO 8859/1 for Swedish/Finnish ttys | 1 | ;;; iso-swed.el --- set up char tables for ISO 8859/1 for Swedish/Finnish ttys |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1987, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1987, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Howard Gayle | 6 | ;; Author: Howard Gayle |
diff --git a/lisp/obsolete/keyswap.el b/lisp/obsolete/keyswap.el index 61b5bbeb171..de5bd094b8f 100644 --- a/lisp/obsolete/keyswap.el +++ b/lisp/obsolete/keyswap.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; keyswap.el --- swap BS and DEL keys -*- no-byte-compile: t -*- | 1 | ;;; keyswap.el --- swap BS and DEL keys -*- no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> | 6 | ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> |
diff --git a/lisp/obsolete/mlsupport.el b/lisp/obsolete/mlsupport.el index 68ee625cd8f..ffe89c4632a 100644 --- a/lisp/obsolete/mlsupport.el +++ b/lisp/obsolete/mlsupport.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; mlsupport.el --- run-time support for mocklisp code | 1 | ;;; mlsupport.el --- run-time support for mocklisp code |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/obsolete/ooutline.el b/lisp/obsolete/ooutline.el index 83f6fa69f30..0795031290e 100644 --- a/lisp/obsolete/ooutline.el +++ b/lisp/obsolete/ooutline.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; ooutline.el --- outline mode commands for Emacs | 1 | ;;; ooutline.el --- outline mode commands for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1986, 1993, 1994, 1997, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1986, 1993, 1994, 1997, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/obsolete/options.el b/lisp/obsolete/options.el index 968a0bac5f6..78847e3b277 100644 --- a/lisp/obsolete/options.el +++ b/lisp/obsolete/options.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; options.el --- edit Options command for Emacs | 1 | ;;; options.el --- edit Options command for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/obsolete/profile.el b/lisp/obsolete/profile.el index 80b27063dbc..34170a85bc8 100644 --- a/lisp/obsolete/profile.el +++ b/lisp/obsolete/profile.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; profile.el --- Emacs profiler (OBSOLETE; use elp.el instead) | 1 | ;;; profile.el --- Emacs profiler (OBSOLETE; use elp.el instead) |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 1994, 1998, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1992, 1994, 1998, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Boaz Ben-Zvi <boaz@lcs.mit.edu> | 6 | ;; Author: Boaz Ben-Zvi <boaz@lcs.mit.edu> |
diff --git a/lisp/obsolete/rnews.el b/lisp/obsolete/rnews.el index 89c74dd7993..d414a863884 100644 --- a/lisp/obsolete/rnews.el +++ b/lisp/obsolete/rnews.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; rnews.el --- USENET news reader for GNU Emacs | 1 | ;;; rnews.el --- USENET news reader for GNU Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1986, 1987, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1985, 1986, 1987, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/obsolete/rnewspost.el b/lisp/obsolete/rnewspost.el index f07ce703db8..e570715f529 100644 --- a/lisp/obsolete/rnewspost.el +++ b/lisp/obsolete/rnewspost.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs | 1 | ;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1986, 1987, 1995, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1985, 1986, 1987, 1995, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/obsolete/rsz-mini.el b/lisp/obsolete/rsz-mini.el index a9e4b007dd8..ce9cae3ff30 100644 --- a/lisp/obsolete/rsz-mini.el +++ b/lisp/obsolete/rsz-mini.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; rsz-mini.el --- dynamically resize minibuffer to display entire contents | 1 | ;;; rsz-mini.el --- dynamically resize minibuffer to display entire contents |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1990, 1993, 1994, 1995, 1997, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1990, 1993, 1994, 1995, 1997, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Noah Friedman <friedman@splode.com> | 6 | ;; Author: Noah Friedman <friedman@splode.com> |
diff --git a/lisp/obsolete/scribe.el b/lisp/obsolete/scribe.el index 905e63ea1c5..1573d0ff859 100644 --- a/lisp/obsolete/scribe.el +++ b/lisp/obsolete/scribe.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; scribe.el --- scribe mode, and its idiosyncratic commands | 1 | ;;; scribe.el --- scribe mode, and its idiosyncratic commands |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/obsolete/sun-curs.el b/lisp/obsolete/sun-curs.el index faa55fb8dd5..8d399e852d8 100644 --- a/lisp/obsolete/sun-curs.el +++ b/lisp/obsolete/sun-curs.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; sun-curs.el --- cursor definitions for Sun windows | 1 | ;;; sun-curs.el --- cursor definitions for Sun windows |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1987, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1987, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Jeff Peck <peck@sun.com> | 6 | ;; Author: Jeff Peck <peck@sun.com> |
diff --git a/lisp/obsolete/sun-fns.el b/lisp/obsolete/sun-fns.el index 532d28462c9..eaedf59adc4 100644 --- a/lisp/obsolete/sun-fns.el +++ b/lisp/obsolete/sun-fns.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; sun-fns.el --- subroutines of Mouse handling for Sun windows | 1 | ;;; sun-fns.el --- subroutines of Mouse handling for Sun windows |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1987, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1987, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Jeff Peck <peck@sun.com> | 6 | ;; Author: Jeff Peck <peck@sun.com> |
diff --git a/lisp/obsolete/swedish.el b/lisp/obsolete/swedish.el index a247d565643..b54b27c1843 100644 --- a/lisp/obsolete/swedish.el +++ b/lisp/obsolete/swedish.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; swedish.el --- miscellaneous functions for dealing with Swedish | 1 | ;;; swedish.el --- miscellaneous functions for dealing with Swedish |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1988, 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1988, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Author: Howard Gayle | 6 | ;; Author: Howard Gayle |
| 6 | ;; Maintainer: FSF | 7 | ;; Maintainer: FSF |
diff --git a/lisp/obsolete/x-apollo.el b/lisp/obsolete/x-apollo.el index 869f63481ee..e67a8f09fd4 100644 --- a/lisp/obsolete/x-apollo.el +++ b/lisp/obsolete/x-apollo.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; x-apollo.el --- Apollo support functions | 1 | ;;; x-apollo.el --- Apollo support functions |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; This file is part of GNU Emacs. | 6 | ;; This file is part of GNU Emacs. |
diff --git a/lisp/obsolete/x-menu.el b/lisp/obsolete/x-menu.el index c13c9c1865b..eff1fbffb08 100644 --- a/lisp/obsolete/x-menu.el +++ b/lisp/obsolete/x-menu.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; x-menu.el --- menu support for X | 1 | ;;; x-menu.el --- menu support for X |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1986, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1986, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; This file is part of GNU Emacs. | 6 | ;; This file is part of GNU Emacs. |
diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el index db76fbb7725..c9850c3afab 100644 --- a/lisp/play/5x5.el +++ b/lisp/play/5x5.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; 5x5.el --- simple little puzzle game | 1 | ;;; 5x5.el --- simple little puzzle game |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Dave Pearson <davep@davep.org> | 6 | ;; Author: Dave Pearson <davep@davep.org> |
diff --git a/lisp/play/bruce.el b/lisp/play/bruce.el index 98294884ebd..185cb5ad264 100644 --- a/lisp/play/bruce.el +++ b/lisp/play/bruce.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; bruce.el --- bruce phrase utility for overloading the Communications -*- no-byte-compile: t -*- | 1 | ;;; bruce.el --- bruce phrase utility for overloading the Communications -*- no-byte-compile: t -*- |
| 2 | ;;; Decency Act snoops, if any. | 2 | ;;; Decency Act snoops, if any. |
| 3 | 3 | ||
| 4 | ;; Copyright (C) 1988, 1993, 1997, 2002, 2003, 2004, | 4 | ;; Copyright (C) 1988, 1993, 1997, 2001, 2002, 2003, 2004, |
| 5 | ;; 2005, 2006 Free Software Foundation, Inc. | 5 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 6 | 6 | ||
| 7 | ;; Maintainer: FSF | 7 | ;; Maintainer: FSF |
diff --git a/lisp/play/cookie1.el b/lisp/play/cookie1.el index 7a2e6c602ea..c4c90a83c36 100644 --- a/lisp/play/cookie1.el +++ b/lisp/play/cookie1.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; cookie1.el --- retrieve random phrases from fortune cookie files | 1 | ;;; cookie1.el --- retrieve random phrases from fortune cookie files |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 2002, 2003, 2004, 2005, 2006, | 3 | ;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, 2006, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> | 6 | ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> |
diff --git a/lisp/play/decipher.el b/lisp/play/decipher.el index 88b5f2ace46..a8e4ec4c48b 100644 --- a/lisp/play/decipher.el +++ b/lisp/play/decipher.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; decipher.el --- cryptanalyze monoalphabetic substitution ciphers | 1 | ;;; decipher.el --- cryptanalyze monoalphabetic substitution ciphers |
| 2 | ;; | 2 | ;; |
| 3 | ;; Copyright (C) 1995, 1996, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | ;; | 5 | ;; |
| 6 | ;; Author: Christopher J. Madsen <chris_madsen@geocities.com> | 6 | ;; Author: Christopher J. Madsen <chris_madsen@geocities.com> |
diff --git a/lisp/play/dissociate.el b/lisp/play/dissociate.el index ce1f8b55432..b6333234523 100644 --- a/lisp/play/dissociate.el +++ b/lisp/play/dissociate.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; dissociate.el --- scramble text amusingly for Emacs | 1 | ;;; dissociate.el --- scramble text amusingly for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el index 32dfd6254c3..9a3c45cb3aa 100644 --- a/lisp/play/doctor.el +++ b/lisp/play/doctor.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; doctor.el --- psychological help for frustrated users | 1 | ;;; doctor.el --- psychological help for frustrated users |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1987, 1994, 1996, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1985, 1987, 1994, 1996, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/play/gamegrid.el b/lisp/play/gamegrid.el index 3cc91226fe8..5b41cffbb8a 100644 --- a/lisp/play/gamegrid.el +++ b/lisp/play/gamegrid.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gamegrid.el --- library for implementing grid-based games on Emacs | 1 | ;;; gamegrid.el --- library for implementing grid-based games on Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Glynn Clements <glynn@sensei.co.uk> | 6 | ;; Author: Glynn Clements <glynn@sensei.co.uk> |
diff --git a/lisp/play/gametree.el b/lisp/play/gametree.el index 82eef652f52..cb556bc0b42 100644 --- a/lisp/play/gametree.el +++ b/lisp/play/gametree.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; gametree.el --- manage game analysis trees in Emacs | 1 | ;;; gametree.el --- manage game analysis trees in Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1999, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Ian T Zimmerman <itz@rahul.net> | 6 | ;; Author: Ian T Zimmerman <itz@rahul.net> |
diff --git a/lisp/play/handwrite.el b/lisp/play/handwrite.el index 578f9a8e0b6..a1dc520973e 100644 --- a/lisp/play/handwrite.el +++ b/lisp/play/handwrite.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; handwrite.el --- turns your emacs buffer into a handwritten document -*- coding: iso-latin-1; -*- | 1 | ;;; handwrite.el --- turns your emacs buffer into a handwritten document -*- coding: iso-latin-1; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1996, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Danny Roozendaal (was: <danny@tvs.kun.nl>) | 6 | ;; Author: Danny Roozendaal (was: <danny@tvs.kun.nl>) |
diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el index f947a8caeaa..3df56133135 100644 --- a/lisp/play/landmark.el +++ b/lisp/play/landmark.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; landmark.el --- neural-network robot that learns landmarks | 1 | ;;; landmark.el --- neural-network robot that learns landmarks |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1996, 1997, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Terrence Brannon (was: <brannon@rana.usc.edu>) | 6 | ;; Author: Terrence Brannon (was: <brannon@rana.usc.edu>) |
diff --git a/lisp/play/morse.el b/lisp/play/morse.el index bf5abdfbd4c..8d569ed3845 100644 --- a/lisp/play/morse.el +++ b/lisp/play/morse.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; morse.el --- convert text to morse code and back -*- coding: utf-8 -*- | 1 | ;;; morse.el --- convert text to morse code and back -*- coding: utf-8 -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Rick Farnbach <rick_farnbach@MENTORG.COM> | 6 | ;; Author: Rick Farnbach <rick_farnbach@MENTORG.COM> |
diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el index ebeeb3159f8..6d1cb7a96f6 100644 --- a/lisp/play/mpuz.el +++ b/lisp/play/mpuz.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; mpuz.el --- multiplication puzzle for GNU Emacs | 1 | ;;; mpuz.el --- multiplication puzzle for GNU Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1990, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1990, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Philippe Schnoebelen <phs@lsv.ens-cachan.fr> | 6 | ;; Author: Philippe Schnoebelen <phs@lsv.ens-cachan.fr> |
diff --git a/lisp/play/snake.el b/lisp/play/snake.el index ae942212a18..db15e98c47b 100644 --- a/lisp/play/snake.el +++ b/lisp/play/snake.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; snake.el --- implementation of Snake for Emacs | 1 | ;;; snake.el --- implementation of Snake for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Glynn Clements <glynn@sensei.co.uk> | 6 | ;; Author: Glynn Clements <glynn@sensei.co.uk> |
diff --git a/lisp/play/solitaire.el b/lisp/play/solitaire.el index d6faeb5e5ad..a67021c8764 100644 --- a/lisp/play/solitaire.el +++ b/lisp/play/solitaire.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; solitaire.el --- game of solitaire in Emacs Lisp | 1 | ;;; solitaire.el --- game of solitaire in Emacs Lisp |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1994, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Jan Schormann <Jan.Schormann@rechen-gilde.de> | 6 | ;; Author: Jan Schormann <Jan.Schormann@rechen-gilde.de> |
diff --git a/lisp/play/spook.el b/lisp/play/spook.el index fbad9ab0f13..828b0a594af 100644 --- a/lisp/play/spook.el +++ b/lisp/play/spook.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; spook.el --- spook phrase utility for overloading the NSA line eater | 1 | ;;; spook.el --- spook phrase utility for overloading the NSA line eater |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1988, 1993, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1988, 1993, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el index 531d61e20e6..f9fc3f9f0ab 100644 --- a/lisp/play/tetris.el +++ b/lisp/play/tetris.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; tetris.el --- implementation of Tetris for Emacs | 1 | ;;; tetris.el --- implementation of Tetris for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Glynn Clements <glynn@sensei.co.uk> | 6 | ;; Author: Glynn Clements <glynn@sensei.co.uk> |
diff --git a/lisp/play/yow.el b/lisp/play/yow.el index b86ad9d4c66..cc79c5a87a5 100644 --- a/lisp/play/yow.el +++ b/lisp/play/yow.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; yow.el --- quote random zippyisms | 1 | ;;; yow.el --- quote random zippyisms |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1994, 1995, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/progmodes/autoconf.el b/lisp/progmodes/autoconf.el index fe021d04cea..08a849b16bc 100644 --- a/lisp/progmodes/autoconf.el +++ b/lisp/progmodes/autoconf.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; autoconf.el --- mode for editing Autoconf configure.in files | 1 | ;;; autoconf.el --- mode for editing Autoconf configure.in files |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2000, 2001, 2002 2003, 2004, 2005, 2006 | 3 | ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Dave Love <fx@gnu.org> | 6 | ;; Author: Dave Love <fx@gnu.org> |
diff --git a/lisp/progmodes/cc-fonts.el b/lisp/progmodes/cc-fonts.el index 8473eee90a2..ab31fa877f7 100644 --- a/lisp/progmodes/cc-fonts.el +++ b/lisp/progmodes/cc-fonts.el | |||
| @@ -1179,7 +1179,7 @@ casts and declarations are fontified. Used on level 2 and higher." | |||
| 1179 | ;; The below code attempts to fontify the case constants in | 1179 | ;; The below code attempts to fontify the case constants in |
| 1180 | ;; c-label-face-name, but it cannot catch every case [sic]. | 1180 | ;; c-label-face-name, but it cannot catch every case [sic]. |
| 1181 | ;; And do we want to fontify case constants anyway? | 1181 | ;; And do we want to fontify case constants anyway? |
| 1182 | nil | 1182 | (c-forward-label t match-pos nil) |
| 1183 | ;;; (when (c-forward-label t match-pos nil) | 1183 | ;;; (when (c-forward-label t match-pos nil) |
| 1184 | ;;; ;; Can't use `c-fontify-types-and-refs' here since we | 1184 | ;;; ;; Can't use `c-fontify-types-and-refs' here since we |
| 1185 | ;;; ;; should use the label face. | 1185 | ;;; ;; should use the label face. |
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el index 73ea6de9b05..bd9af00d9c6 100644 --- a/lisp/progmodes/cc-langs.el +++ b/lisp/progmodes/cc-langs.el | |||
| @@ -1331,7 +1331,7 @@ properly." | |||
| 1331 | (c-lang-defconst c-at-vsemi-p-fn | 1331 | (c-lang-defconst c-at-vsemi-p-fn |
| 1332 | "Contains a function \"Is there a virtual semicolon at POS or point?\". | 1332 | "Contains a function \"Is there a virtual semicolon at POS or point?\". |
| 1333 | Such a function takes one optional parameter, a buffer position (defaults to | 1333 | Such a function takes one optional parameter, a buffer position (defaults to |
| 1334 | point), and returns NIL or t. This variable contains NIL for languages which | 1334 | point), and returns nil or t. This variable contains nil for languages which |
| 1335 | don't have EOL terminated statements. " | 1335 | don't have EOL terminated statements. " |
| 1336 | t nil | 1336 | t nil |
| 1337 | awk 'c-awk-at-vsemi-p) | 1337 | awk 'c-awk-at-vsemi-p) |
| @@ -1342,7 +1342,7 @@ don't have EOL terminated statements. " | |||
| 1342 | The (admittedly kludgey) purpose of such a function is to prevent an infinite | 1342 | The (admittedly kludgey) purpose of such a function is to prevent an infinite |
| 1343 | recursion in c-beginning-of-statement-1 when point starts at a `while' token. | 1343 | recursion in c-beginning-of-statement-1 when point starts at a `while' token. |
| 1344 | The function MUST NOT UNDER ANY CIRCUMSTANCES call c-beginning-of-statement-1, | 1344 | The function MUST NOT UNDER ANY CIRCUMSTANCES call c-beginning-of-statement-1, |
| 1345 | even indirectly. This variable contains NIL for languages which don't have | 1345 | even indirectly. This variable contains nil for languages which don't have |
| 1346 | EOL terminated statements." | 1346 | EOL terminated statements." |
| 1347 | t nil | 1347 | t nil |
| 1348 | awk 'c-awk-vsemi-status-unknown-p) | 1348 | awk 'c-awk-vsemi-status-unknown-p) |
diff --git a/lisp/progmodes/glasses.el b/lisp/progmodes/glasses.el index 90e6fbe3df3..50d01e9d2e5 100644 --- a/lisp/progmodes/glasses.el +++ b/lisp/progmodes/glasses.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; glasses.el --- make cantReadThis readable | 1 | ;;; glasses.el --- make cantReadThis readable |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2001, 2005, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | ||
| 4 | 5 | ||
| 5 | ;; Author: Milan Zamazal <pdm@zamazal.org> | 6 | ;; Author: Milan Zamazal <pdm@zamazal.org> |
| 6 | ;; Maintainer: Milan Zamazal <pdm@zamazal.org> | 7 | ;; Maintainer: Milan Zamazal <pdm@zamazal.org> |
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index fc7c303c491..adc6cd5194d 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el | |||
| @@ -486,7 +486,7 @@ required by the caller." | |||
| 486 | (car (nth 1 var-list)))) | 486 | (car (nth 1 var-list)))) |
| 487 | (setq char ?-) | 487 | (setq char ?-) |
| 488 | (setq char ?+)) | 488 | (setq char ?+)) |
| 489 | (if (string-match "\\*$" type) | 489 | (if (string-match "\\*$\\|\\*&$" type) |
| 490 | (speedbar-make-tag-line | 490 | (speedbar-make-tag-line |
| 491 | 'bracket char | 491 | 'bracket char |
| 492 | 'gdb-speedbar-expand-node varnum | 492 | 'gdb-speedbar-expand-node varnum |
diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el index 1d370244523..9b812809352 100644 --- a/lisp/progmodes/idlw-help.el +++ b/lisp/progmodes/idlw-help.el | |||
| @@ -1,7 +1,6 @@ | |||
| 1 | ;;; idlw-help.el --- HTML Help code for IDLWAVE | 1 | ;;; idlw-help.el --- HTML Help code for IDLWAVE |
| 2 | ;; Copyright (c) 2000 Carsten Dominik | 2 | ;; Copyright (c) 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 3 | ;; Copyright (c) 2001, 2002 J.D. Smith | 3 | ;; Free Software Foundation |
| 4 | ;; Copyright (c) 2003,2004,2005,2006 Free Software Foundation | ||
| 5 | ;; | 4 | ;; |
| 6 | ;; Authors: J.D. Smith <jdsmith@as.arizona.edu> | 5 | ;; Authors: J.D. Smith <jdsmith@as.arizona.edu> |
| 7 | ;; Carsten Dominik <dominik@science.uva.nl> | 6 | ;; Carsten Dominik <dominik@science.uva.nl> |
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index f33ae35ed30..25f05b54b74 100644 --- a/lisp/progmodes/idlwave.el +++ b/lisp/progmodes/idlwave.el | |||
| @@ -427,11 +427,11 @@ t means to show all source files." | |||
| 427 | :type 'integer) | 427 | :type 'integer) |
| 428 | 428 | ||
| 429 | (defcustom idlwave-library-path nil | 429 | (defcustom idlwave-library-path nil |
| 430 | "Library path for Windows and MacOS (OS9). Not needed under Unix. | 430 | "Library path for Windows and MacOS (OS9). Not needed under UNIX. |
| 431 | When selecting the directories to scan for IDL user catalog routine | 431 | When selecting the directories to scan for IDL user catalog routine |
| 432 | info, IDLWAVE can, under UNIX, query the shell for the exact search | 432 | info, IDLWAVE can, under UNIX, query the shell for the exact search |
| 433 | path \(the value of !PATH). However, under Windows and MacOS | 433 | path \(the value of !PATH). However, under Windows and MacOS |
| 434 | (pre-OSX), the IDLWAVE shell does not work. In this case, this | 434 | \(pre-OSX), the IDLWAVE shell does not work. In this case, this |
| 435 | variable can be set to specify the paths where IDLWAVE can find PRO | 435 | variable can be set to specify the paths where IDLWAVE can find PRO |
| 436 | files. The shell will only be asked for a list of paths when this | 436 | files. The shell will only be asked for a list of paths when this |
| 437 | variable is nil. The value is a list of directories. A directory | 437 | variable is nil. The value is a list of directories. A directory |
| @@ -1595,7 +1595,7 @@ Capitalize system variables - action only | |||
| 1595 | (define-key idlwave-mode-map "\C-c\C-t" 'idlwave-find-module-this-file) | 1595 | (define-key idlwave-mode-map "\C-c\C-t" 'idlwave-find-module-this-file) |
| 1596 | (define-key idlwave-mode-map "\C-c?" 'idlwave-routine-info) | 1596 | (define-key idlwave-mode-map "\C-c?" 'idlwave-routine-info) |
| 1597 | (define-key idlwave-mode-map "\M-?" 'idlwave-context-help) | 1597 | (define-key idlwave-mode-map "\M-?" 'idlwave-context-help) |
| 1598 | (define-key idlwave-mode-map [(control meta ?\?)] | 1598 | (define-key idlwave-mode-map [(control meta ?\?)] |
| 1599 | 'idlwave-help-assistant-help-with-topic) | 1599 | 'idlwave-help-assistant-help-with-topic) |
| 1600 | ;; Pickup both forms of Esc/Meta binding | 1600 | ;; Pickup both forms of Esc/Meta binding |
| 1601 | (define-key idlwave-mode-map [(meta tab)] 'idlwave-complete) | 1601 | (define-key idlwave-mode-map [(meta tab)] 'idlwave-complete) |
| @@ -1942,7 +1942,7 @@ The main features of this mode are | |||
| 1942 | (set (make-local-variable 'parse-sexp-ignore-comments) t) | 1942 | (set (make-local-variable 'parse-sexp-ignore-comments) t) |
| 1943 | 1943 | ||
| 1944 | ;; ChangeLog | 1944 | ;; ChangeLog |
| 1945 | (set (make-local-variable 'add-log-current-defun-function) | 1945 | (set (make-local-variable 'add-log-current-defun-function) |
| 1946 | 'idlwave-current-routine-fullname) | 1946 | 'idlwave-current-routine-fullname) |
| 1947 | 1947 | ||
| 1948 | ;; Set tag table list to use IDLTAGS as file name. | 1948 | ;; Set tag table list to use IDLTAGS as file name. |
| @@ -9236,7 +9236,7 @@ Assumes that point is at the beginning of the unit as found by | |||
| 9236 | "--" | 9236 | "--" |
| 9237 | ["Info" idlwave-info t] | 9237 | ["Info" idlwave-info t] |
| 9238 | "--" | 9238 | "--" |
| 9239 | ["Help with Topic" idlwave-help-assistant-help-with-topic | 9239 | ["Help with Topic" idlwave-help-assistant-help-with-topic |
| 9240 | idlwave-help-use-assistant] | 9240 | idlwave-help-use-assistant] |
| 9241 | ["Launch IDL Help" idlwave-launch-idlhelp t]))) | 9241 | ["Launch IDL Help" idlwave-launch-idlhelp t]))) |
| 9242 | 9242 | ||
diff --git a/lisp/progmodes/ld-script.el b/lisp/progmodes/ld-script.el index 4f0159c5992..461c8b9bcf1 100644 --- a/lisp/progmodes/ld-script.el +++ b/lisp/progmodes/ld-script.el | |||
| @@ -89,7 +89,7 @@ | |||
| 89 | ;; 3.5.2 PROVIDE | 89 | ;; 3.5.2 PROVIDE |
| 90 | "PROVIDE" | 90 | "PROVIDE" |
| 91 | ;; 3.5.3 PROVIDE_HIDDEN | 91 | ;; 3.5.3 PROVIDE_HIDDEN |
| 92 | "PROVIDE_HIDEN" | 92 | "PROVIDE_HIDDEN" |
| 93 | ;; 3.6 SECTIONS Command | 93 | ;; 3.6 SECTIONS Command |
| 94 | "SECTIONS" | 94 | "SECTIONS" |
| 95 | ;; 3.6.4.2 Input Section Wildcard Patterns | 95 | ;; 3.6.4.2 Input Section Wildcard Patterns |
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 73957cab8e9..de2a00c3ad7 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; sh-script.el --- shell-script editing commands for Emacs | 1 | ;;; sh-script.el --- shell-script editing commands for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2001, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2001, 2002, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Daniel Pfeiffer <occitan@esperanto.org> | 6 | ;; Author: Daniel Pfeiffer <occitan@esperanto.org> |
| 7 | ;; Version: 2.0f | 7 | ;; Version: 2.0f |
diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el index 891549ac2aa..4c689a79fc7 100644 --- a/lisp/progmodes/simula.el +++ b/lisp/progmodes/simula.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; simula.el --- SIMULA 87 code editing commands for Emacs | 1 | ;;; simula.el --- SIMULA 87 code editing commands for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 1994, 1996 2001, 2002, 2003, 2004, 2005, 2006 | 3 | ;; Copyright (C) 1992, 1994, 1996, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Hans Henrik Eriksen <hhe@ifi.uio.no> | 6 | ;; Author: Hans Henrik Eriksen <hhe@ifi.uio.no> |
diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el index 3e18586489b..a19c0f02651 100644 --- a/lisp/ps-bdf.el +++ b/lisp/ps-bdf.el | |||
| @@ -1,10 +1,11 @@ | |||
| 1 | ;;; ps-bdf.el --- BDF font file handler for ps-print | 1 | ;;; ps-bdf.el --- BDF font file handler for ps-print |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 1999, 2001, 2002, 2003, 2006 | 3 | ;; Copyright (C) 1998, 1999, 2001, 2002, 2003, 2004, 2005, 2006 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| 5 | ;; Copyright (C) 1998, 1999, 2001, 2003 | 5 | ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 6 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 7 | ;; Registration Number H14PRO021 | 7 | ;; Registration Number H14PRO021 |
| 8 | |||
| 8 | ;; Copyright (C) 2003 | 9 | ;; Copyright (C) 2003 |
| 9 | ;; National Institute of Advanced Industrial Science and Technology (AIST) | 10 | ;; National Institute of Advanced Industrial Science and Technology (AIST) |
| 10 | ;; Registration Number H13PRO009 | 11 | ;; Registration Number H13PRO009 |
diff --git a/lisp/replace.el b/lisp/replace.el index 4275aef8d87..610fd9d2e9f 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -1341,7 +1341,7 @@ with the `noescape' argument set. | |||
| 1341 | 1341 | ||
| 1342 | (defun replace-match-data (integers reuse &optional new) | 1342 | (defun replace-match-data (integers reuse &optional new) |
| 1343 | "Like `match-data', but markers in REUSE get invalidated. | 1343 | "Like `match-data', but markers in REUSE get invalidated. |
| 1344 | If NEW is non-NIL, it is set and returned instead of fresh data, | 1344 | If NEW is non-nil, it is set and returned instead of fresh data, |
| 1345 | but coerced to the correct value of INTEGERS." | 1345 | but coerced to the correct value of INTEGERS." |
| 1346 | (or (and new | 1346 | (or (and new |
| 1347 | (progn | 1347 | (progn |
| @@ -1357,7 +1357,7 @@ NEWTEXT, FIXEDCASE, LITERAL are just passed on. If NOEDIT is true, no | |||
| 1357 | check for `\\?' is made to save time. MATCH-DATA is used for the | 1357 | check for `\\?' is made to save time. MATCH-DATA is used for the |
| 1358 | replacement. In case editing is done, it is changed to use markers. | 1358 | replacement. In case editing is done, it is changed to use markers. |
| 1359 | 1359 | ||
| 1360 | The return value is non-NIL if there has been no `\\?' or NOEDIT was | 1360 | The return value is non-nil if there has been no `\\?' or NOEDIT was |
| 1361 | passed in. If LITERAL is set, no checking is done, anyway." | 1361 | passed in. If LITERAL is set, no checking is done, anyway." |
| 1362 | (unless (or literal noedit) | 1362 | (unless (or literal noedit) |
| 1363 | (setq noedit t) | 1363 | (setq noedit t) |
| @@ -1486,7 +1486,7 @@ make, or the user didn't cancel the call." | |||
| 1486 | ;; For speed, use only integers and | 1486 | ;; For speed, use only integers and |
| 1487 | ;; reuse the list used last time. | 1487 | ;; reuse the list used last time. |
| 1488 | (replace-match-data t real-match-data))))) | 1488 | (replace-match-data t real-match-data))))) |
| 1489 | 1489 | ||
| 1490 | ;; Record whether the match is nonempty, to avoid an infinite loop | 1490 | ;; Record whether the match is nonempty, to avoid an infinite loop |
| 1491 | ;; repeatedly matching the same empty string. | 1491 | ;; repeatedly matching the same empty string. |
| 1492 | (setq nonempty-match | 1492 | (setq nonempty-match |
diff --git a/lisp/shell.el b/lisp/shell.el index 2b1b6a907e4..27220b54ab0 100644 --- a/lisp/shell.el +++ b/lisp/shell.el | |||
| @@ -520,10 +520,10 @@ If BUFFER exists but shell process is not running, make new shell. | |||
| 520 | If BUFFER exists and shell process is running, just switch to BUFFER. | 520 | If BUFFER exists and shell process is running, just switch to BUFFER. |
| 521 | Program used comes from variable `explicit-shell-file-name', | 521 | Program used comes from variable `explicit-shell-file-name', |
| 522 | or (if that is nil) from the ESHELL environment variable, | 522 | or (if that is nil) from the ESHELL environment variable, |
| 523 | or else from SHELL if there is no ESHELL. | 523 | or (if that is nil) from `shell-file-name'. |
| 524 | If a file `~/.emacs_SHELLNAME' exists, or `~/.emacs.d/init_SHELLNAME.sh', | 524 | If a file `~/.emacs_SHELLNAME' exists, or `~/.emacs.d/init_SHELLNAME.sh', |
| 525 | it is given as initial input (Note that this may lose due to a timing | 525 | it is given as initial input (but this may be lost, due to a timing |
| 526 | error if the shell discards input when it starts up). | 526 | error, if the shell discards input when it starts up). |
| 527 | The buffer is put in Shell mode, giving commands for sending input | 527 | The buffer is put in Shell mode, giving commands for sending input |
| 528 | and controlling the subjobs of the shell. See `shell-mode'. | 528 | and controlling the subjobs of the shell. See `shell-mode'. |
| 529 | See also the variable `shell-prompt-pattern'. | 529 | See also the variable `shell-prompt-pattern'. |
diff --git a/lisp/startup.el b/lisp/startup.el index 74101a2bea3..f086ab7c6d8 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -1455,9 +1455,12 @@ we put it on this frame." | |||
| 1455 | (if (and (display-color-p) | 1455 | (if (and (display-color-p) |
| 1456 | (image-type-available-p 'xpm)) | 1456 | (image-type-available-p 'xpm)) |
| 1457 | "splash.xpm" "splash.pbm")))) | 1457 | "splash.xpm" "splash.pbm")))) |
| 1458 | (image-height (and img (cdr (image-size img)))) | 1458 | (image-height (and img (cdr (image-size img nil frame)))) |
| 1459 | (window-height (1- (window-height (frame-selected-window frame))))) | 1459 | ;; We test frame-height so that, if the frame is split |
| 1460 | (> window-height (+ image-height 19))))))) | 1460 | ;; by displaying a warning, that doesn't cause the normal |
| 1461 | ;; splash screen to be used. | ||
| 1462 | (frame-height (1- (frame-height frame)))) | ||
| 1463 | (> frame-height (+ image-height 19))))))) | ||
| 1461 | 1464 | ||
| 1462 | 1465 | ||
| 1463 | (defun normal-splash-screen (&optional hide-on-input) | 1466 | (defun normal-splash-screen (&optional hide-on-input) |
diff --git a/lisp/subr.el b/lisp/subr.el index 9edb97c2343..1cb5eb7ff30 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -943,7 +943,8 @@ is converted into a string by expressing it in decimal." | |||
| 943 | (make-obsolete-variable 'directory-sep-char "do not use it." "21.1") | 943 | (make-obsolete-variable 'directory-sep-char "do not use it." "21.1") |
| 944 | (make-obsolete-variable 'mode-line-inverse-video "use the appropriate faces instead." "21.1") | 944 | (make-obsolete-variable 'mode-line-inverse-video "use the appropriate faces instead." "21.1") |
| 945 | (make-obsolete-variable 'unread-command-char | 945 | (make-obsolete-variable 'unread-command-char |
| 946 | "use `unread-command-events' instead. That variable is a list of events to reread, so it now uses nil to mean `no event', instead of -1." | 946 | "use `unread-command-events' instead. That variable is a list of events |
| 947 | to reread, so it now uses nil to mean `no event', instead of -1." | ||
| 947 | "before 19.15") | 948 | "before 19.15") |
| 948 | 949 | ||
| 949 | ;; Lisp manual only updated in 22.1. | 950 | ;; Lisp manual only updated in 22.1. |
diff --git a/lisp/term/AT386.el b/lisp/term/AT386.el index 4afc076df0d..84da8f8b64a 100644 --- a/lisp/term/AT386.el +++ b/lisp/term/AT386.el | |||
| @@ -1,11 +1,11 @@ | |||
| 1 | ;;; AT386.el --- terminal support package for IBM AT keyboards -*- no-byte-compile: t -*- | 1 | ;;; AT386.el --- terminal support package for IBM AT keyboards -*- no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, | ||
| 4 | ;; 2006 Free Software Foundation, Inc. | ||
| 5 | |||
| 3 | ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> | 6 | ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> |
| 4 | ;; Keywords: terminals | 7 | ;; Keywords: terminals |
| 5 | 8 | ||
| 6 | ;; Copyright (C) 1992, 2002, 2003, 2004, 2005, | ||
| 7 | ;; 2006 Free Software Foundation, Inc. | ||
| 8 | |||
| 9 | ;; This file is part of GNU Emacs. | 9 | ;; This file is part of GNU Emacs. |
| 10 | 10 | ||
| 11 | ;; GNU Emacs is free software; you can redistribute it and/or modify | 11 | ;; GNU Emacs is free software; you can redistribute it and/or modify |
diff --git a/lisp/term/iris-ansi.el b/lisp/term/iris-ansi.el index 267b11b30f3..174a98c224a 100644 --- a/lisp/term/iris-ansi.el +++ b/lisp/term/iris-ansi.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; iris-ansi.el --- configure Emacs for SGI xwsh and winterm apps -*- no-byte-compile: t -*- | 1 | ;;; iris-ansi.el --- configure Emacs for SGI xwsh and winterm apps -*- no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Dan Nicolaescu <dann@ics.uci.edu> | 6 | ;; Author: Dan Nicolaescu <dann@ics.uci.edu> |
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 6569918603f..c49c8893b21 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; mac-win.el --- parse switches controlling interface with Mac window system -*-coding: utf-8 | 1 | ;;; mac-win.el --- parse switches controlling interface with Mac window system -*-coding: utf-8 |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Andrew Choi <akochoi@mac.com> | 6 | ;; Author: Andrew Choi <akochoi@mac.com> |
| @@ -82,7 +82,6 @@ | |||
| 82 | (defvar mac-service-selection) | 82 | (defvar mac-service-selection) |
| 83 | (defvar mac-system-script-code) | 83 | (defvar mac-system-script-code) |
| 84 | (defvar mac-apple-event-map) | 84 | (defvar mac-apple-event-map) |
| 85 | (defvar mac-atsu-font-table) | ||
| 86 | (defvar mac-font-panel-mode) | 85 | (defvar mac-font-panel-mode) |
| 87 | (defvar mac-ts-active-input-overlay) | 86 | (defvar mac-ts-active-input-overlay) |
| 88 | (defvar x-invocation-args) | 87 | (defvar x-invocation-args) |
| @@ -1841,7 +1840,8 @@ With numeric ARG, display the font panel if and only if ARG is positive." | |||
| 1841 | (let* ((ae (mac-event-ae event)) | 1840 | (let* ((ae (mac-event-ae event)) |
| 1842 | (fm-font-size (mac-ae-number ae "fmsz")) | 1841 | (fm-font-size (mac-ae-number ae "fmsz")) |
| 1843 | (atsu-font-id (mac-ae-number ae "auid")) | 1842 | (atsu-font-id (mac-ae-number ae "auid")) |
| 1844 | (attribute-values (gethash atsu-font-id mac-atsu-font-table))) | 1843 | (attribute-values (and atsu-font-id |
| 1844 | (mac-atsu-font-face-attributes atsu-font-id)))) | ||
| 1845 | (if fm-font-size | 1845 | (if fm-font-size |
| 1846 | (setq attribute-values | 1846 | (setq attribute-values |
| 1847 | `(:height ,(* 10 fm-font-size) ,@attribute-values))) | 1847 | `(:height ,(* 10 fm-font-size) ,@attribute-values))) |
diff --git a/lisp/term/news.el b/lisp/term/news.el index a0082566dd5..7967f7f9176 100644 --- a/lisp/term/news.el +++ b/lisp/term/news.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; news.el --- keypad and function key bindings for the Sony NEWS keyboard -*- no-byte-compile: t -*- | 1 | ;;; news.el --- keypad and function key bindings for the Sony NEWS keyboard -*- no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1989, 1993, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1989, 1993, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: FSF | 6 | ;; Author: FSF |
diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el index 329e88e23e6..76b2ef6d3d9 100644 --- a/lisp/term/sun-mouse.el +++ b/lisp/term/sun-mouse.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; sun-mouse.el --- mouse handling for Sun windows | 1 | ;;; sun-mouse.el --- mouse handling for Sun windows |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1987, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1987, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Jeff Peck | 6 | ;; Author: Jeff Peck |
diff --git a/lisp/term/sup-mouse.el b/lisp/term/sup-mouse.el index ebc406d8206..a038fbd3d9d 100644 --- a/lisp/term/sup-mouse.el +++ b/lisp/term/sup-mouse.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; sup-mouse.el --- supdup mouse support for lisp machines | 1 | ;;; sup-mouse.el --- supdup mouse support for lisp machines |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1986, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1985, 1986, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Wolfgang Rupprecht | 6 | ;; Author: Wolfgang Rupprecht |
diff --git a/lisp/term/tvi970.el b/lisp/term/tvi970.el index ffcce0f209c..f0b7ca65456 100644 --- a/lisp/term/tvi970.el +++ b/lisp/term/tvi970.el | |||
| @@ -1,11 +1,11 @@ | |||
| 1 | ;;; tvi970.el --- terminal support for the Televideo 970 | 1 | ;;; tvi970.el --- terminal support for the Televideo 970 |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005, | ||
| 4 | ;; 2006 Free Software Foundation, Inc. | ||
| 5 | |||
| 3 | ;; Author: Jim Blandy <jimb@occs.cs.oberlin.edu>, January 1992 | 6 | ;; Author: Jim Blandy <jimb@occs.cs.oberlin.edu>, January 1992 |
| 4 | ;; Keywords: terminals | 7 | ;; Keywords: terminals |
| 5 | 8 | ||
| 6 | ;; Copyright (C) 1992, 2002, 2003, 2004, 2005, | ||
| 7 | ;; 2006 Free Software Foundation, Inc. | ||
| 8 | |||
| 9 | ;; This file is part of GNU Emacs. | 9 | ;; This file is part of GNU Emacs. |
| 10 | 10 | ||
| 11 | ;; GNU Emacs is free software; you can redistribute it and/or modify | 11 | ;; GNU Emacs is free software; you can redistribute it and/or modify |
diff --git a/lisp/term/vt100.el b/lisp/term/vt100.el index c5732a2aefe..dfbeb4a0333 100644 --- a/lisp/term/vt100.el +++ b/lisp/term/vt100.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; vt100.el --- define VT100 function key sequences in function-key-map | 1 | ;;; vt100.el --- define VT100 function key sequences in function-key-map |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1989, 1993, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1989, 1993, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: FSF | 6 | ;; Author: FSF |
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index c74c7f86395..ba093bc603f 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; w32-win.el --- parse switches controlling interface with W32 window system | 1 | ;;; w32-win.el --- parse switches controlling interface with W32 window system |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1993, 1994, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Kevin Gallo | 6 | ;; Author: Kevin Gallo |
diff --git a/lisp/term/wyse50.el b/lisp/term/wyse50.el index 40e70c8469a..6f4656bcaad 100644 --- a/lisp/term/wyse50.el +++ b/lisp/term/wyse50.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; wyse50.el --- terminal support code for Wyse 50 -*- no-byte-compile: t -*- | 1 | ;;; wyse50.el --- terminal support code for Wyse 50 -*- no-byte-compile: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1989, 1993, 1994, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1989, 1993, 1994, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Daniel Pfeiffer <occitan@esperanto.org>, | 6 | ;; Author: Daniel Pfeiffer <occitan@esperanto.org>, |
diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index fac25d86699..88b3a9124fb 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; xterm.el --- define function key sequences and standard colors for xterm | 1 | ;;; xterm.el --- define function key sequences and standard colors for xterm |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1995, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: FSF | 6 | ;; Author: FSF |
diff --git a/lisp/textmodes/bib-mode.el b/lisp/textmodes/bib-mode.el index 1c4dacf71d8..856fe735f8e 100644 --- a/lisp/textmodes/bib-mode.el +++ b/lisp/textmodes/bib-mode.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; bib-mode.el --- major mode for editing bib files | 1 | ;;; bib-mode.el --- major mode for editing bib files |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1989, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1989, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index 9597b136d7d..5cc22443219 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; bibtex.el --- BibTeX mode for GNU Emacs | 1 | ;;; bibtex.el --- BibTeX mode for GNU Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 1994, 1995, 1996, 1997, 1998, 1999, 2002, 2003, | 3 | ;; Copyright (C) 1992, 1994, 1995, 1996, 1997, 1998, 1999, 2001, 2002, |
| 4 | ;; 2004, 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Stefan Schoef <schoef@offis.uni-oldenburg.de> | 6 | ;; Author: Stefan Schoef <schoef@offis.uni-oldenburg.de> |
| 7 | ;; Bengt Martensson <bengt@mathematik.uni-Bremen.de> | 7 | ;; Bengt Martensson <bengt@mathematik.uni-Bremen.de> |
diff --git a/lisp/textmodes/enriched.el b/lisp/textmodes/enriched.el index cd1079e0924..841a5bb0830 100644 --- a/lisp/textmodes/enriched.el +++ b/lisp/textmodes/enriched.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; enriched.el --- read and save files in text/enriched format | 1 | ;;; enriched.el --- read and save files in text/enriched format |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 1995, 1996, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1994, 1995, 1996, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Boris Goldowsky <boris@gnu.org> | 6 | ;; Author: Boris Goldowsky <boris@gnu.org> |
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index a3c110b8f19..7badf21d966 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; flyspell.el --- on-the-fly spell checker | 1 | ;;; flyspell.el --- on-the-fly spell checker |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1998, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Manuel Serrano <Manuel.Serrano@sophia.inria.fr> | 6 | ;; Author: Manuel Serrano <Manuel.Serrano@sophia.inria.fr> |
| @@ -541,6 +541,11 @@ in your .emacs file. | |||
| 541 | (member (or ispell-local-dictionary ispell-dictionary) | 541 | (member (or ispell-local-dictionary ispell-dictionary) |
| 542 | flyspell-dictionaries-that-consider-dash-as-word-delimiter))))) | 542 | flyspell-dictionaries-that-consider-dash-as-word-delimiter))))) |
| 543 | 543 | ||
| 544 | (defun flyspell-hack-local-variables-hook () | ||
| 545 | ;; When local variables are loaded, see if the dictionary context | ||
| 546 | ;; has changed. | ||
| 547 | (flyspell-accept-buffer-local-defs 'force)) | ||
| 548 | |||
| 544 | (defun flyspell-kill-ispell-hook () | 549 | (defun flyspell-kill-ispell-hook () |
| 545 | (setq flyspell-last-buffer nil) | 550 | (setq flyspell-last-buffer nil) |
| 546 | (dolist (buf (buffer-list)) | 551 | (dolist (buf (buffer-list)) |
| @@ -579,6 +584,9 @@ in your .emacs file. | |||
| 579 | (add-hook 'pre-command-hook (function flyspell-pre-command-hook) t t) | 584 | (add-hook 'pre-command-hook (function flyspell-pre-command-hook) t t) |
| 580 | ;; we bound flyspell action to after-change hook | 585 | ;; we bound flyspell action to after-change hook |
| 581 | (add-hook 'after-change-functions 'flyspell-after-change-function nil t) | 586 | (add-hook 'after-change-functions 'flyspell-after-change-function nil t) |
| 587 | ;; we bound flyspell action to hack-local-variables-hook | ||
| 588 | (add-hook 'hack-local-variables-hook | ||
| 589 | (function flyspell-hack-local-variables-hook) t t) | ||
| 582 | ;; set flyspell-generic-check-word-predicate based on the major mode | 590 | ;; set flyspell-generic-check-word-predicate based on the major mode |
| 583 | (let ((mode-predicate (get major-mode 'flyspell-mode-predicate))) | 591 | (let ((mode-predicate (get major-mode 'flyspell-mode-predicate))) |
| 584 | (if mode-predicate | 592 | (if mode-predicate |
| @@ -684,6 +692,8 @@ not the very same deplacement command." | |||
| 684 | (remove-hook 'post-command-hook (function flyspell-post-command-hook) t) | 692 | (remove-hook 'post-command-hook (function flyspell-post-command-hook) t) |
| 685 | (remove-hook 'pre-command-hook (function flyspell-pre-command-hook) t) | 693 | (remove-hook 'pre-command-hook (function flyspell-pre-command-hook) t) |
| 686 | (remove-hook 'after-change-functions 'flyspell-after-change-function t) | 694 | (remove-hook 'after-change-functions 'flyspell-after-change-function t) |
| 695 | (remove-hook 'hack-local-variables-hook | ||
| 696 | (function flyspell-hack-local-variables-hook) t) | ||
| 687 | ;; we remove all the flyspell hilightings | 697 | ;; we remove all the flyspell hilightings |
| 688 | (flyspell-delete-all-overlays) | 698 | (flyspell-delete-all-overlays) |
| 689 | ;; we have to erase pre cache variables | 699 | ;; we have to erase pre cache variables |
diff --git a/lisp/textmodes/makeinfo.el b/lisp/textmodes/makeinfo.el index 26a47a65e84..f521cc279d0 100644 --- a/lisp/textmodes/makeinfo.el +++ b/lisp/textmodes/makeinfo.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; makeinfo.el --- run makeinfo conveniently | 1 | ;;; makeinfo.el --- run makeinfo conveniently |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1991, 1993, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1991, 1993, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Robert J. Chassell | 6 | ;; Author: Robert J. Chassell |
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el index 24282872f67..700a4388f57 100644 --- a/lisp/textmodes/page-ext.el +++ b/lisp/textmodes/page-ext.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; page-ext.el --- extended page handling commands | 1 | ;;; page-ext.el --- extended page handling commands |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1990, 1991, 1993, 1994, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1990, 1991, 1993, 1994, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: Robert J. Chassell <bob@gnu.org> | 6 | ;; Maintainer: Robert J. Chassell <bob@gnu.org> |
diff --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el index 20458491808..f3abe36a26e 100644 --- a/lisp/textmodes/page.el +++ b/lisp/textmodes/page.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; page.el --- page motion commands for Emacs | 1 | ;;; page.el --- page motion commands for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index ce1dbf8993b..ab070053e07 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model | 1 | ;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1994, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1985, 1994, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: K. Shane Hartman | 6 | ;; Author: K. Shane Hartman |
diff --git a/lisp/textmodes/refbib.el b/lisp/textmodes/refbib.el index 25613cff8ca..f276fe26458 100644 --- a/lisp/textmodes/refbib.el +++ b/lisp/textmodes/refbib.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; refbib.el --- convert refer-style references to ones usable by Latex bib | 1 | ;;; refbib.el --- convert refer-style references to ones usable by Latex bib |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1989, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1989, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Henry Kautz <kautz@research.att.com> | 6 | ;; Author: Henry Kautz <kautz@research.att.com> |
diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el index ce0f96956df..474b6f7be60 100644 --- a/lisp/textmodes/refer.el +++ b/lisp/textmodes/refer.el | |||
| @@ -79,19 +79,19 @@ | |||
| 79 | :group 'wp) | 79 | :group 'wp) |
| 80 | 80 | ||
| 81 | (defcustom refer-bib-directory nil | 81 | (defcustom refer-bib-directory nil |
| 82 | "Directory, or list of directories, to search for \\.bib files. Can | 82 | "Directory, or list of directories, to search for \\.bib files. |
| 83 | be set to 'bibinputs or 'texinputs, in which case the environment | 83 | Can be set to 'bibinputs or 'texinputs, in which case the environment |
| 84 | variable BIBINPUTS or TEXINPUTS, respectively, is used to obtain a | 84 | variable BIBINPUTS or TEXINPUTS, respectively, is used to obtain a |
| 85 | list of directories. Useful only if refer-bib-files is set to 'dir or | 85 | list of directories. Useful only if `refer-bib-files' is set to 'dir or |
| 86 | a list of file names (without directory). A value of nil indicates the | 86 | a list of file names (without directory). A value of nil indicates the |
| 87 | current working directory. | 87 | current working directory. |
| 88 | 88 | ||
| 89 | If refer-bib-directory is 'bibinputs or 'texinputs, it is setq'd to | 89 | If `refer-bib-directory' is 'bibinputs or 'texinputs, it is setq'd to |
| 90 | the appropriate list of directories when it is first used. | 90 | the appropriate list of directories when it is first used. |
| 91 | 91 | ||
| 92 | Note that an empty directory is interpreted by BibTeX as indicating | 92 | Note that an empty directory is interpreted by BibTeX as indicating |
| 93 | the default search path. Since Refer does not know that default path, | 93 | the default search path. Since Refer does not know that default path, |
| 94 | it cannot search it. Include that path explicitly in your BIBINPUTS | 94 | it cannot search it. Include that path explicitly in your BIBINPUTS |
| 95 | environment if you really want it searched (which is not likely to | 95 | environment if you really want it searched (which is not likely to |
| 96 | happen anyway)." | 96 | happen anyway)." |
| 97 | :type '(choice (repeat directory) (const bibinputs) (const texinputs)) | 97 | :type '(choice (repeat directory) (const bibinputs) (const texinputs)) |
| @@ -102,24 +102,24 @@ happen anyway)." | |||
| 102 | or one of the following special values: | 102 | or one of the following special values: |
| 103 | nil = prompt for \\.bib file (if visiting a \\.bib file, use it as default) | 103 | nil = prompt for \\.bib file (if visiting a \\.bib file, use it as default) |
| 104 | auto = read \\.bib file names from appropriate command in buffer (see | 104 | auto = read \\.bib file names from appropriate command in buffer (see |
| 105 | refer-bib-files-regexp) unless the buffer's mode is bibtex-mode, | 105 | `refer-bib-files-regexp') unless the buffer's mode is `bibtex-mode', |
| 106 | in which case only the buffer is searched | 106 | in which case only the buffer is searched |
| 107 | dir = use all \\.bib files in directories referenced by refer-bib-directory. | 107 | dir = use all \\.bib files in directories referenced by `refer-bib-directory'. |
| 108 | 108 | ||
| 109 | If a specified file doesn't exist and has no extension, a \\.bib extension | 109 | If a specified file doesn't exist and has no extension, a \\.bib extension |
| 110 | is automatically tried. | 110 | is automatically tried. |
| 111 | 111 | ||
| 112 | If refer-bib-files is nil, auto or dir, it is setq'd to the appropriate | 112 | If `refer-bib-files' is nil, auto or dir, it is setq'd to the appropriate |
| 113 | list of files when it is first used if refer-cache-bib-files is t. If | 113 | list of files when it is first used if `refer-cache-bib-files' is t. If |
| 114 | refer-cache-bib-files is nil, the list of \\.bib files to use is re-read | 114 | `refer-cache-bib-files' is nil, the list of \\.bib files to use is re-read |
| 115 | each time it is needed." | 115 | each time it is needed." |
| 116 | :type '(choice (repeat file) (const nil) (const auto) (const dir)) | 116 | :type '(choice (repeat file) (const nil) (const auto) (const dir)) |
| 117 | :group 'refer) | 117 | :group 'refer) |
| 118 | 118 | ||
| 119 | (defcustom refer-cache-bib-files t | 119 | (defcustom refer-cache-bib-files t |
| 120 | "*Variable determining whether the value of refer-bib-files should be cached. | 120 | "*Variable determining whether the value of `refer-bib-files' should be cached. |
| 121 | If t, initialize the value of refer-bib-files the first time it is used. If | 121 | If t, initialize the value of refer-bib-files the first time it is used. If |
| 122 | nil, re-read the list of \\.bib files depending on the value of refer-bib-files | 122 | nil, re-read the list of \\.bib files depending on the value of `refer-bib-files' |
| 123 | each time it is needed." | 123 | each time it is needed." |
| 124 | :type 'boolean | 124 | :type 'boolean |
| 125 | :group 'refer) | 125 | :group 'refer) |
| @@ -128,8 +128,8 @@ each time it is needed." | |||
| 128 | "*Regexp matching a bibliography file declaration. | 128 | "*Regexp matching a bibliography file declaration. |
| 129 | The current buffer is expected to contain a line such as | 129 | The current buffer is expected to contain a line such as |
| 130 | \\bibliography{file1,file2,file3} | 130 | \\bibliography{file1,file2,file3} |
| 131 | which is read to set up refer-bib-files. The regexp must specify the command | 131 | which is read to set up `refer-bib-files'. The regexp must specify the command |
| 132 | (such as \\bibliography) that is used to specify the list of bib files. The | 132 | \(such as \\bibliography) that is used to specify the list of bib files. The |
| 133 | command is expected to specify a file name, or a list of comma-separated file | 133 | command is expected to specify a file name, or a list of comma-separated file |
| 134 | names, within curly braces. | 134 | names, within curly braces. |
| 135 | If a specified file doesn't exist and has no extension, a \\.bib extension | 135 | If a specified file doesn't exist and has no extension, a \\.bib extension |
| @@ -150,8 +150,8 @@ is automatically tried." | |||
| 150 | (defun refer-find-entry (keywords &optional continue) | 150 | (defun refer-find-entry (keywords &optional continue) |
| 151 | "Find entry in refer-bib-files containing KEYWORDS. | 151 | "Find entry in refer-bib-files containing KEYWORDS. |
| 152 | If KEYWORDS is nil, prompt user for blank-separated list of keywords. | 152 | If KEYWORDS is nil, prompt user for blank-separated list of keywords. |
| 153 | If CONTINUE is t, or if called interactively with a prefix arg, look for next | 153 | If CONTINUE is non-nil, or if called interactively with a prefix arg, |
| 154 | entry by continuing search from previous point." | 154 | look for next entry by continuing search from previous point." |
| 155 | (interactive (list nil current-prefix-arg)) | 155 | (interactive (list nil current-prefix-arg)) |
| 156 | (or keywords (setq keywords (if continue | 156 | (or keywords (setq keywords (if continue |
| 157 | refer-previous-keywords | 157 | refer-previous-keywords |
| @@ -160,13 +160,13 @@ entry by continuing search from previous point." | |||
| 160 | (refer-find-entry-internal keywords continue)) | 160 | (refer-find-entry-internal keywords continue)) |
| 161 | 161 | ||
| 162 | (defun refer-find-next-entry () | 162 | (defun refer-find-next-entry () |
| 163 | "Find next occurrence of entry in refer-bib-files. See refer-find-entry." | 163 | "Find next occurrence of entry in `refer-bib-files'. See `refer-find-entry'." |
| 164 | (interactive) | 164 | (interactive) |
| 165 | (refer-find-entry-internal refer-previous-keywords t)) | 165 | (refer-find-entry-internal refer-previous-keywords t)) |
| 166 | 166 | ||
| 167 | (defun refer-yank-key () | 167 | (defun refer-yank-key () |
| 168 | "Inserts at point in current buffer the \"key\" field of the entry | 168 | "Inserts at point in current buffer the \"key\" field of the entry |
| 169 | found on the last refer-find-entry or refer-find-next-entry." | 169 | found on the last `refer-find-entry' or `refer-find-next-entry'." |
| 170 | (interactive) | 170 | (interactive) |
| 171 | (let ((old-point (point))) | 171 | (let ((old-point (point))) |
| 172 | (insert | 172 | (insert |
diff --git a/lisp/textmodes/refill.el b/lisp/textmodes/refill.el index 28ecd3bb4fe..69eb96491d1 100644 --- a/lisp/textmodes/refill.el +++ b/lisp/textmodes/refill.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; refill.el --- `auto-fill' by refilling paragraphs on changes | 1 | ;;; refill.el --- `auto-fill' by refilling paragraphs on changes |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2000, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Dave Love <fx@gnu.org> | 6 | ;; Author: Dave Love <fx@gnu.org> |
diff --git a/lisp/textmodes/reftex-auc.el b/lisp/textmodes/reftex-auc.el index 394a0b52b19..aa46553adbe 100644 --- a/lisp/textmodes/reftex-auc.el +++ b/lisp/textmodes/reftex-auc.el | |||
| @@ -1,5 +1,6 @@ | |||
| 1 | ;;; reftex-auc.el --- RefTeX's interface to AUCTeX | 1 | ;;; reftex-auc.el --- RefTeX's interface to AUCTeX |
| 2 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005, | 2 | |
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, | ||
| 3 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 4 | 5 | ||
| 5 | ;; Author: Carsten Dominik <dominik@science.uva.nl> | 6 | ;; Author: Carsten Dominik <dominik@science.uva.nl> |
diff --git a/lisp/textmodes/reftex-cite.el b/lisp/textmodes/reftex-cite.el index a83c790f076..55d1e2f4614 100644 --- a/lisp/textmodes/reftex-cite.el +++ b/lisp/textmodes/reftex-cite.el | |||
| @@ -1,5 +1,6 @@ | |||
| 1 | ;;; reftex-cite.el --- creating citations with RefTeX | 1 | ;;; reftex-cite.el --- creating citations with RefTeX |
| 2 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005, | 2 | |
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, | ||
| 3 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 4 | 5 | ||
| 5 | ;; Author: Carsten Dominik <dominik@science.uva.nl> | 6 | ;; Author: Carsten Dominik <dominik@science.uva.nl> |
diff --git a/lisp/textmodes/reftex-dcr.el b/lisp/textmodes/reftex-dcr.el index 1e60b8e663e..bc5f7691bb7 100644 --- a/lisp/textmodes/reftex-dcr.el +++ b/lisp/textmodes/reftex-dcr.el | |||
| @@ -1,5 +1,6 @@ | |||
| 1 | ;;; reftex-dcr.el --- viewing cross references and citations with RefTeX | 1 | ;;; reftex-dcr.el --- viewing cross references and citations with RefTeX |
| 2 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005, | 2 | |
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, | ||
| 3 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 4 | 5 | ||
| 5 | ;; Author: Carsten Dominik <dominik@science.uva.nl> | 6 | ;; Author: Carsten Dominik <dominik@science.uva.nl> |
diff --git a/lisp/textmodes/reftex-global.el b/lisp/textmodes/reftex-global.el index b878c288735..b07627c2e95 100644 --- a/lisp/textmodes/reftex-global.el +++ b/lisp/textmodes/reftex-global.el | |||
| @@ -1,5 +1,6 @@ | |||
| 1 | ;;; reftex-global.el --- operations on entire documents with RefTeX | 1 | ;;; reftex-global.el --- operations on entire documents with RefTeX |
| 2 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005, | 2 | |
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, | ||
| 3 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 4 | 5 | ||
| 5 | ;; Author: Carsten Dominik <dominik@science.uva.nl> | 6 | ;; Author: Carsten Dominik <dominik@science.uva.nl> |
diff --git a/lisp/textmodes/reftex-index.el b/lisp/textmodes/reftex-index.el index 5616d4f454c..15f70895ce3 100644 --- a/lisp/textmodes/reftex-index.el +++ b/lisp/textmodes/reftex-index.el | |||
| @@ -1,5 +1,6 @@ | |||
| 1 | ;;; reftex-index.el --- index support with RefTeX | 1 | ;;; reftex-index.el --- index support with RefTeX |
| 2 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005, | 2 | |
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, | ||
| 3 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 4 | 5 | ||
| 5 | ;; Author: Carsten Dominik <dominik@science.uva.nl> | 6 | ;; Author: Carsten Dominik <dominik@science.uva.nl> |
diff --git a/lisp/textmodes/reftex-parse.el b/lisp/textmodes/reftex-parse.el index 76eb7c31df8..89aef5bd971 100644 --- a/lisp/textmodes/reftex-parse.el +++ b/lisp/textmodes/reftex-parse.el | |||
| @@ -1,5 +1,6 @@ | |||
| 1 | ;;; reftex-parse.el --- parser functions for RefTeX | 1 | ;;; reftex-parse.el --- parser functions for RefTeX |
| 2 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005, | 2 | |
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, | ||
| 3 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 4 | 5 | ||
| 5 | ;; Author: Carsten Dominik <dominik@science.uva.nl> | 6 | ;; Author: Carsten Dominik <dominik@science.uva.nl> |
diff --git a/lisp/textmodes/reftex-ref.el b/lisp/textmodes/reftex-ref.el index a850da3042e..3104152dab6 100644 --- a/lisp/textmodes/reftex-ref.el +++ b/lisp/textmodes/reftex-ref.el | |||
| @@ -1,5 +1,6 @@ | |||
| 1 | ;;; reftex-ref.el --- code to create labels and references with RefTeX | 1 | ;;; reftex-ref.el --- code to create labels and references with RefTeX |
| 2 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2004, 2005, | 2 | |
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, | ||
| 3 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 4 | 5 | ||
| 5 | ;; Author: Carsten Dominik <dominik@science.uva.nl> | 6 | ;; Author: Carsten Dominik <dominik@science.uva.nl> |
diff --git a/lisp/textmodes/reftex-sel.el b/lisp/textmodes/reftex-sel.el index f0e8205024c..1660fe70f40 100644 --- a/lisp/textmodes/reftex-sel.el +++ b/lisp/textmodes/reftex-sel.el | |||
| @@ -1,5 +1,6 @@ | |||
| 1 | ;;; reftex-sel.el --- the selection modes for RefTeX | 1 | ;;; reftex-sel.el --- the selection modes for RefTeX |
| 2 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2003, 2440, 2005, | 2 | |
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, | ||
| 3 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 4 | 5 | ||
| 5 | ;; Author: Carsten Dominik <dominik@science.uva.nl> | 6 | ;; Author: Carsten Dominik <dominik@science.uva.nl> |
diff --git a/lisp/textmodes/reftex-vars.el b/lisp/textmodes/reftex-vars.el index 0f8a948e363..852af59df45 100644 --- a/lisp/textmodes/reftex-vars.el +++ b/lisp/textmodes/reftex-vars.el | |||
| @@ -1,5 +1,6 @@ | |||
| 1 | ;;; reftex-vars.el --- configuration variables for RefTeX | 1 | ;;; reftex-vars.el --- configuration variables for RefTeX |
| 2 | ;; Copyright (C) 1997, 1998, 1999, 2003, 2004, 2005, | 2 | |
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2001, 2002, 2003, 2004, 2005, | ||
| 3 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 4 | 5 | ||
| 5 | ;; Author: Carsten Dominik <dominik@science.uva.nl> | 6 | ;; Author: Carsten Dominik <dominik@science.uva.nl> |
diff --git a/lisp/textmodes/spell.el b/lisp/textmodes/spell.el index ddc6788123d..f68cc6b6010 100644 --- a/lisp/textmodes/spell.el +++ b/lisp/textmodes/spell.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; spell.el --- spelling correction interface for Emacs | 1 | ;;; spell.el --- spelling correction interface for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 9e78f4b6015..511721d7f67 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands -*- coding: utf-8 -*- | 1 | ;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands -*- coding: utf-8 -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1986, 1989, 1992, 1994, 1995, 1996, 1997, 1998, 1999, | 3 | ;; Copyright (C) 1985, 1986, 1989, 1992, 1994, 1995, 1996, 1997, 1998, 1999, |
| 4 | ;; 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
| 7 | ;; Keywords: tex | 7 | ;; Keywords: tex |
diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el index 9263c48f18b..873635a3893 100644 --- a/lisp/textmodes/text-mode.el +++ b/lisp/textmodes/text-mode.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; text-mode.el --- text mode, and its idiosyncratic commands | 1 | ;;; text-mode.el --- text mode, and its idiosyncratic commands |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 1992, 1994, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1985, 1992, 1994, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/textmodes/tildify.el b/lisp/textmodes/tildify.el index bf6edac230c..74b2db3ad34 100644 --- a/lisp/textmodes/tildify.el +++ b/lisp/textmodes/tildify.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; tildify.el --- adding hard spaces into texts | 1 | ;;; tildify.el --- adding hard spaces into texts |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Milan Zamazal <pdm@zamazal.org> | 6 | ;; Author: Milan Zamazal <pdm@zamazal.org> |
diff --git a/lisp/textmodes/two-column.el b/lisp/textmodes/two-column.el index 958ef179b26..9de1a078d13 100644 --- a/lisp/textmodes/two-column.el +++ b/lisp/textmodes/two-column.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; two-column.el --- minor mode for editing of two-column text | 1 | ;;; two-column.el --- minor mode for editing of two-column text |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 1993, 1994, 1995, 2002, 2003, 2004, | 3 | ;; Copyright (C) 1992, 1993, 1994, 1995, 2001, 2002, 2003, 2004, |
| 4 | ;; 2005, 2006 Free Software Foundation, Inc. | 4 | ;; 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Daniel Pfeiffer <occitan@esperanto.org> | 6 | ;; Author: Daniel Pfeiffer <occitan@esperanto.org> |
diff --git a/lisp/textmodes/underline.el b/lisp/textmodes/underline.el index 8e8ef3b399e..4cea84c5a40 100644 --- a/lisp/textmodes/underline.el +++ b/lisp/textmodes/underline.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs | 1 | ;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1985, 2002, 2003, 2004, 2005, | 3 | ;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005, |
| 4 | ;; 2006 Free Software Foundation, Inc. | 4 | ;; 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index c50dcf52897..6259cf974f1 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2006-12-10 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * url-gw.el (url-gateway-nslookup-program): Doc fix. | ||
| 4 | |||
| 1 | 2006-11-26 Magnus Henoch <mange@freemail.hu> | 5 | 2006-11-26 Magnus Henoch <mange@freemail.hu> |
| 2 | 6 | ||
| 3 | * url-http.el (url-http-wait-for-headers-change-function): Use | 7 | * url-http.el (url-http-wait-for-headers-change-function): Use |
diff --git a/lisp/url/url-gw.el b/lisp/url/url-gw.el index 5197d894aa2..eaf654e2b4f 100644 --- a/lisp/url/url-gw.el +++ b/lisp/url/url-gw.el | |||
| @@ -104,7 +104,7 @@ linked Emacs under SunOS 4.x" | |||
| 104 | :group 'url-gateway) | 104 | :group 'url-gateway) |
| 105 | 105 | ||
| 106 | (defcustom url-gateway-nslookup-program "nslookup" | 106 | (defcustom url-gateway-nslookup-program "nslookup" |
| 107 | "*If non-NIL then a string naming nslookup program." | 107 | "*If non-nil then a string naming nslookup program." |
| 108 | :type '(choice (const :tag "None" :value nil) string) | 108 | :type '(choice (const :tag "None" :value nil) string) |
| 109 | :group 'url-gateway) | 109 | :group 'url-gateway) |
| 110 | 110 | ||
| @@ -253,7 +253,7 @@ Might do a non-blocking connection; use `process-status' to check." | |||
| 253 | ;; Use non-blocking socket if we can. | 253 | ;; Use non-blocking socket if we can. |
| 254 | (make-network-process :name name :buffer buffer | 254 | (make-network-process :name name :buffer buffer |
| 255 | :host host :service service | 255 | :host host :service service |
| 256 | :nowait | 256 | :nowait |
| 257 | (featurep 'make-network-process '(:nowait t)))) | 257 | (featurep 'make-network-process '(:nowait t)))) |
| 258 | (socks | 258 | (socks |
| 259 | (socks-open-network-stream name buffer host service)) | 259 | (socks-open-network-stream name buffer host service)) |
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index ad556c30a07..309be690408 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el | |||
| @@ -149,31 +149,32 @@ request.") | |||
| 149 | (concat " (" (or url-system-type url-os-type) ")")) | 149 | (concat " (" (or url-system-type url-os-type) ")")) |
| 150 | (t ""))))) | 150 | (t ""))))) |
| 151 | 151 | ||
| 152 | (defun url-http-create-request (url &optional ref-url) | 152 | (defun url-http-create-request (&optional ref-url) |
| 153 | "Create an HTTP request for URL, referred to by REF-URL." | 153 | "Create an HTTP request for `url-http-target-url', referred to by REF-URL." |
| 154 | (declare (special proxy-object proxy-info | 154 | (declare (special proxy-info |
| 155 | url-http-method url-http-data | 155 | url-http-method url-http-data |
| 156 | url-http-extra-headers)) | 156 | url-http-extra-headers)) |
| 157 | (url-http-debug "url-proxy-object is %s\n" url-proxy-object) | ||
| 157 | (let* ((extra-headers) | 158 | (let* ((extra-headers) |
| 158 | (request nil) | 159 | (request nil) |
| 159 | (no-cache (cdr-safe (assoc "Pragma" url-http-extra-headers))) | 160 | (no-cache (cdr-safe (assoc "Pragma" url-http-extra-headers))) |
| 160 | (proxy-obj (and (boundp 'proxy-object) proxy-object)) | 161 | (using-proxy (not (eq url-current-object url-http-target-url))) |
| 161 | (proxy-auth (if (or (cdr-safe (assoc "Proxy-Authorization" | 162 | (proxy-auth (if (or (cdr-safe (assoc "Proxy-Authorization" |
| 162 | url-http-extra-headers)) | 163 | url-http-extra-headers)) |
| 163 | (not proxy-obj)) | 164 | (not using-proxy)) |
| 164 | nil | 165 | nil |
| 165 | (let ((url-basic-auth-storage | 166 | (let ((url-basic-auth-storage |
| 166 | 'url-http-proxy-basic-auth-storage)) | 167 | 'url-http-proxy-basic-auth-storage)) |
| 167 | (url-get-authentication url nil 'any nil)))) | 168 | (url-get-authentication url-http-target-url nil 'any nil)))) |
| 168 | (real-fname (concat (url-filename (or proxy-obj url)) | 169 | (real-fname (concat (url-filename url-http-target-url) |
| 169 | (url-recreate-url-attributes (or proxy-obj url)))) | 170 | (url-recreate-url-attributes url-http-target-url))) |
| 170 | (host (url-host (or proxy-obj url))) | 171 | (host (url-host url-http-target-url)) |
| 171 | (auth (if (cdr-safe (assoc "Authorization" url-http-extra-headers)) | 172 | (auth (if (cdr-safe (assoc "Authorization" url-http-extra-headers)) |
| 172 | nil | 173 | nil |
| 173 | (url-get-authentication (or | 174 | (url-get-authentication (or |
| 174 | (and (boundp 'proxy-info) | 175 | (and (boundp 'proxy-info) |
| 175 | proxy-info) | 176 | proxy-info) |
| 176 | url) nil 'any nil)))) | 177 | url-http-target-url) nil 'any nil)))) |
| 177 | (if (equal "" real-fname) | 178 | (if (equal "" real-fname) |
| 178 | (setq real-fname "/")) | 179 | (setq real-fname "/")) |
| 179 | (setq no-cache (and no-cache (string-match "no-cache" no-cache))) | 180 | (setq no-cache (and no-cache (string-match "no-cache" no-cache))) |
| @@ -222,12 +223,12 @@ request.") | |||
| 222 | (list | 223 | (list |
| 223 | ;; The request | 224 | ;; The request |
| 224 | (or url-http-method "GET") " " | 225 | (or url-http-method "GET") " " |
| 225 | (if proxy-obj (url-recreate-url proxy-obj) real-fname) | 226 | (if using-proxy (url-recreate-url url-http-target-url) real-fname) |
| 226 | " HTTP/" url-http-version "\r\n" | 227 | " HTTP/" url-http-version "\r\n" |
| 227 | ;; Version of MIME we speak | 228 | ;; Version of MIME we speak |
| 228 | "MIME-Version: 1.0\r\n" | 229 | "MIME-Version: 1.0\r\n" |
| 229 | ;; (maybe) Try to keep the connection open | 230 | ;; (maybe) Try to keep the connection open |
| 230 | "Connection: " (if (or proxy-obj | 231 | "Connection: " (if (or using-proxy |
| 231 | (not url-http-attempt-keepalives)) | 232 | (not url-http-attempt-keepalives)) |
| 232 | "close" "keep-alive") "\r\n" | 233 | "close" "keep-alive") "\r\n" |
| 233 | ;; HTTP extensions we support | 234 | ;; HTTP extensions we support |
| @@ -235,11 +236,11 @@ request.") | |||
| 235 | (format | 236 | (format |
| 236 | "Extension: %s\r\n" url-extensions-header)) | 237 | "Extension: %s\r\n" url-extensions-header)) |
| 237 | ;; Who we want to talk to | 238 | ;; Who we want to talk to |
| 238 | (if (/= (url-port (or proxy-obj url)) | 239 | (if (/= (url-port url-http-target-url) |
| 239 | (url-scheme-get-property | 240 | (url-scheme-get-property |
| 240 | (url-type (or proxy-obj url)) 'default-port)) | 241 | (url-type url-http-target-url) 'default-port)) |
| 241 | (format | 242 | (format |
| 242 | "Host: %s:%d\r\n" host (url-port (or proxy-obj url))) | 243 | "Host: %s:%d\r\n" host (url-port url-http-target-url)) |
| 243 | (format "Host: %s\r\n" host)) | 244 | (format "Host: %s\r\n" host)) |
| 244 | ;; Who its from | 245 | ;; Who its from |
| 245 | (if url-personal-mail-address | 246 | (if url-personal-mail-address |
| @@ -266,11 +267,11 @@ request.") | |||
| 266 | auth | 267 | auth |
| 267 | ;; Cookies | 268 | ;; Cookies |
| 268 | (url-cookie-generate-header-lines host real-fname | 269 | (url-cookie-generate-header-lines host real-fname |
| 269 | (equal "https" (url-type url))) | 270 | (equal "https" (url-type url-http-target-url))) |
| 270 | ;; If-modified-since | 271 | ;; If-modified-since |
| 271 | (if (and (not no-cache) | 272 | (if (and (not no-cache) |
| 272 | (member url-http-method '("GET" nil))) | 273 | (member url-http-method '("GET" nil))) |
| 273 | (let ((tm (url-is-cached (or proxy-obj url)))) | 274 | (let ((tm (url-is-cached url-http-target-url))) |
| 274 | (if tm | 275 | (if tm |
| 275 | (concat "If-modified-since: " | 276 | (concat "If-modified-since: " |
| 276 | (url-get-normalized-date tm) "\r\n")))) | 277 | (url-get-normalized-date tm) "\r\n")))) |
| @@ -1085,8 +1086,7 @@ CBARGS as the arguments." | |||
| 1085 | url-http-chunked-length | 1086 | url-http-chunked-length |
| 1086 | url-http-chunked-start | 1087 | url-http-chunked-start |
| 1087 | url-http-chunked-counter | 1088 | url-http-chunked-counter |
| 1088 | url-http-process | 1089 | url-http-process)) |
| 1089 | proxy-object)) | ||
| 1090 | (let ((connection (url-http-find-free-connection (url-host url) | 1090 | (let ((connection (url-http-find-free-connection (url-host url) |
| 1091 | (url-port url))) | 1091 | (url-port url))) |
| 1092 | (buffer (generate-new-buffer (format " *http %s:%d*" | 1092 | (buffer (generate-new-buffer (format " *http %s:%d*" |
| @@ -1122,7 +1122,6 @@ CBARGS as the arguments." | |||
| 1122 | url-http-data | 1122 | url-http-data |
| 1123 | url-http-target-url)) | 1123 | url-http-target-url)) |
| 1124 | (set (make-local-variable var) nil)) | 1124 | (set (make-local-variable var) nil)) |
| 1125 | (make-local-variable 'proxy-object) | ||
| 1126 | 1125 | ||
| 1127 | (setq url-http-method (or url-request-method "GET") | 1126 | (setq url-http-method (or url-request-method "GET") |
| 1128 | url-http-extra-headers url-request-extra-headers | 1127 | url-http-extra-headers url-request-extra-headers |
| @@ -1134,9 +1133,8 @@ CBARGS as the arguments." | |||
| 1134 | url-callback-function callback | 1133 | url-callback-function callback |
| 1135 | url-callback-arguments cbargs | 1134 | url-callback-arguments cbargs |
| 1136 | url-http-after-change-function 'url-http-wait-for-headers-change-function | 1135 | url-http-after-change-function 'url-http-wait-for-headers-change-function |
| 1137 | url-http-target-url (if (boundp 'proxy-object) | 1136 | url-http-target-url (or url-proxy-object |
| 1138 | proxy-object | 1137 | url-current-object)) |
| 1139 | url-current-object)) | ||
| 1140 | 1138 | ||
| 1141 | (set-process-buffer connection buffer) | 1139 | (set-process-buffer connection buffer) |
| 1142 | (set-process-filter connection 'url-http-generic-filter) | 1140 | (set-process-filter connection 'url-http-generic-filter) |
| @@ -1151,7 +1149,7 @@ CBARGS as the arguments." | |||
| 1151 | (url-port url))) | 1149 | (url-port url))) |
| 1152 | (t | 1150 | (t |
| 1153 | (set-process-sentinel connection 'url-http-end-of-document-sentinel) | 1151 | (set-process-sentinel connection 'url-http-end-of-document-sentinel) |
| 1154 | (process-send-string connection (url-http-create-request url))))))) | 1152 | (process-send-string connection (url-http-create-request))))))) |
| 1155 | buffer)) | 1153 | buffer)) |
| 1156 | 1154 | ||
| 1157 | (defun url-http-async-sentinel (proc why) | 1155 | (defun url-http-async-sentinel (proc why) |
| @@ -1162,7 +1160,7 @@ CBARGS as the arguments." | |||
| 1162 | (cond | 1160 | (cond |
| 1163 | ((string= (substring why 0 4) "open") | 1161 | ((string= (substring why 0 4) "open") |
| 1164 | (set-process-sentinel proc 'url-http-end-of-document-sentinel) | 1162 | (set-process-sentinel proc 'url-http-end-of-document-sentinel) |
| 1165 | (process-send-string proc (url-http-create-request url-http-target-url))) | 1163 | (process-send-string proc (url-http-create-request))) |
| 1166 | (t | 1164 | (t |
| 1167 | (setf (car url-callback-arguments) | 1165 | (setf (car url-callback-arguments) |
| 1168 | (nconc (list :error (list 'error 'connection-failed why | 1166 | (nconc (list :error (list 'error 'connection-failed why |
diff --git a/lisp/url/url-proxy.el b/lisp/url/url-proxy.el index c3bfb1e0c4b..5374030587b 100644 --- a/lisp/url/url-proxy.el +++ b/lisp/url/url-proxy.el | |||
| @@ -65,12 +65,18 @@ | |||
| 65 | (url-warn 'url (format "Unknown proxy directive: %s" proxy) 'critical) | 65 | (url-warn 'url (format "Unknown proxy directive: %s" proxy) 'critical) |
| 66 | nil)))) | 66 | nil)))) |
| 67 | 67 | ||
| 68 | (defvar url-proxy-object nil | ||
| 69 | "The URL to access through a proxy. | ||
| 70 | This variable is bound by `url-proxy'. If this is non-nil, the | ||
| 71 | scheme-specific loader should use its argument as the proxy, and | ||
| 72 | the value of this variable as the object to retrieve.") | ||
| 73 | |||
| 68 | (defun url-proxy (url callback &optional cbargs) | 74 | (defun url-proxy (url callback &optional cbargs) |
| 69 | ;; Retrieve URL from a proxy. | 75 | ;; Retrieve URL from a proxy. |
| 70 | ;; Expects `url-using-proxy' to be bound to the specific proxy to use." | 76 | ;; Expects `url-using-proxy' to be bound to the specific proxy to use." |
| 71 | (setq url-using-proxy (url-generic-parse-url url-using-proxy)) | 77 | (setq url-using-proxy (url-generic-parse-url url-using-proxy)) |
| 72 | (let ((proxy-object (copy-sequence url))) | 78 | (let ((url-proxy-object (copy-sequence url))) |
| 73 | (url-set-target proxy-object nil) | 79 | (url-set-target url-proxy-object nil) |
| 74 | (url-http url-using-proxy callback cbargs))) | 80 | (url-http url-using-proxy callback cbargs))) |
| 75 | 81 | ||
| 76 | (provide 'url-proxy) | 82 | (provide 'url-proxy) |
diff --git a/lisp/url/url.el b/lisp/url/url.el index a95c7e39c02..4ba604203dc 100644 --- a/lisp/url/url.el +++ b/lisp/url/url.el | |||
| @@ -172,6 +172,7 @@ the list of events, as described in the docstring of `url-retrieve'." | |||
| 172 | (unless (url-type url) | 172 | (unless (url-type url) |
| 173 | (error "Bad url: %s" (url-recreate-url url))) | 173 | (error "Bad url: %s" (url-recreate-url url))) |
| 174 | (let ((loader (url-scheme-get-property (url-type url) 'loader)) | 174 | (let ((loader (url-scheme-get-property (url-type url) 'loader)) |
| 175 | (url-proxy-object nil) | ||
| 175 | (url-using-proxy (if (url-host url) | 176 | (url-using-proxy (if (url-host url) |
| 176 | (url-find-proxy-for-url url (url-host url)))) | 177 | (url-find-proxy-for-url url (url-host url)))) |
| 177 | (buffer nil) | 178 | (buffer nil) |
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index 7ee88d9ba22..11c2dcd78f4 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el | |||
| @@ -479,5 +479,19 @@ that Emacs is unable to cope with." | |||
| 479 | (expand-file-name (pop command-line-args-left)))) | 479 | (expand-file-name (pop command-line-args-left)))) |
| 480 | (batch-update-autoloads))) | 480 | (batch-update-autoloads))) |
| 481 | 481 | ||
| 482 | (defun w32-append-code-lines (orig extra) | ||
| 483 | "Append non-empty non-comment lines in the file EXTRA to the file ORIG. | ||
| 484 | |||
| 485 | This function saves all buffers and kills the Emacs session, without asking | ||
| 486 | for any permissions. | ||
| 487 | |||
| 488 | This is required because the Windows build environment is not required | ||
| 489 | to include Sed, which is used by leim/Makefile.in to do the job." | ||
| 490 | (find-file orig) | ||
| 491 | (goto-char (point-max)) | ||
| 492 | (insert-file-contents extra) | ||
| 493 | (delete-matching-lines "^$\\|^;") | ||
| 494 | (save-buffers-kill-emacs t)) | ||
| 495 | |||
| 482 | ;;; arch-tag: c49b48cc-0f4f-454f-a274-c2dc34815e14 | 496 | ;;; arch-tag: c49b48cc-0f4f-454f-a274-c2dc34815e14 |
| 483 | ;;; w32-fns.el ends here | 497 | ;;; w32-fns.el ends here |
diff --git a/lisp/wdired.el b/lisp/wdired.el index bc70e0ddcfd..5a925e5d031 100644 --- a/lisp/wdired.el +++ b/lisp/wdired.el | |||
| @@ -283,10 +283,13 @@ or \\[wdired-abort-changes] to abort changes"))) | |||
| 283 | (when (and filename | 283 | (when (and filename |
| 284 | (not (member (file-name-nondirectory filename) '("." "..")))) | 284 | (not (member (file-name-nondirectory filename) '("." "..")))) |
| 285 | (dired-move-to-filename) | 285 | (dired-move-to-filename) |
| 286 | (put-text-property (- (point) 2) (1- (point)) 'old-name filename) | 286 | ;; The rear-nonsticky property below shall ensure that text preceding |
| 287 | (put-text-property b-protection (1- (point)) 'read-only t) | 287 | ;; the filename can't be modified. |
| 288 | (setq b-protection (dired-move-to-end-of-filename t))) | 288 | (add-text-properties |
| 289 | (put-text-property (point) (1+ (point)) 'end-name t) | 289 | (1- (point)) (point) `(old-name ,filename rear-nonsticky (read-only))) |
| 290 | (put-text-property b-protection (point) 'read-only t) | ||
| 291 | (setq b-protection (dired-move-to-end-of-filename t)) | ||
| 292 | (put-text-property (point) (1+ (point)) 'end-name t)) | ||
| 290 | (forward-line)) | 293 | (forward-line)) |
| 291 | (put-text-property b-protection (point-max) 'read-only t)))) | 294 | (put-text-property b-protection (point-max) 'read-only t)))) |
| 292 | 295 | ||
| @@ -312,20 +315,21 @@ relies on WDired buffer's properties. Optional arg NO-DIR with value | |||
| 312 | non-nil means don't include directory. Optional arg OLD with value | 315 | non-nil means don't include directory. Optional arg OLD with value |
| 313 | non-nil means return old filename." | 316 | non-nil means return old filename." |
| 314 | ;; FIXME: Use dired-get-filename's new properties. | 317 | ;; FIXME: Use dired-get-filename's new properties. |
| 315 | (let* ((end (line-end-position)) | 318 | (let (beg end file) |
| 316 | (beg (next-single-property-change | 319 | (save-excursion |
| 317 | (line-beginning-position) 'old-name nil end))) | 320 | (setq end (line-end-position)) |
| 318 | (unless (eq beg end) | 321 | (beginning-of-line) |
| 319 | (let ((file | 322 | (setq beg (next-single-property-change (point) 'old-name nil end)) |
| 320 | (if old | 323 | (unless (eq beg end) |
| 321 | (get-text-property beg 'old-name) | 324 | (if old |
| 322 | (wdired-normalize-filename | 325 | (setq file (get-text-property beg 'old-name)) |
| 323 | (buffer-substring-no-properties | 326 | (setq end (next-single-property-change (1+ beg) 'end-name)) |
| 324 | (+ 2 beg) (next-single-property-change (1+ beg) 'end-name)))))) | 327 | (setq file (buffer-substring-no-properties (1+ beg) end))) |
| 325 | (if (or no-dir old) | 328 | (and file (setq file (wdired-normalize-filename file)))) |
| 326 | file | 329 | (if (or no-dir old) |
| 327 | (and file (> (length file) 0) | 330 | file |
| 328 | (concat (dired-current-directory) file))))))) | 331 | (and file (> (length file) 0) |
| 332 | (concat (dired-current-directory) file)))))) | ||
| 329 | 333 | ||
| 330 | 334 | ||
| 331 | (defun wdired-change-to-dired-mode () | 335 | (defun wdired-change-to-dired-mode () |
| @@ -333,9 +337,9 @@ non-nil means return old filename." | |||
| 333 | (or (eq major-mode 'wdired-mode) | 337 | (or (eq major-mode 'wdired-mode) |
| 334 | (error "Not a Wdired buffer")) | 338 | (error "Not a Wdired buffer")) |
| 335 | (let ((inhibit-read-only t)) | 339 | (let ((inhibit-read-only t)) |
| 336 | (remove-text-properties (point-min) (point-max) | 340 | (remove-text-properties |
| 337 | '(read-only nil local-map nil))) | 341 | (point-min) (point-max) |
| 338 | (put-text-property 1 2 'front-sticky nil) | 342 | '(front-sticky nil rear-nonsticky nil read-only nil keymap nil))) |
| 339 | (use-local-map dired-mode-map) | 343 | (use-local-map dired-mode-map) |
| 340 | (force-mode-line-update) | 344 | (force-mode-line-update) |
| 341 | (setq buffer-read-only t) | 345 | (setq buffer-read-only t) |
| @@ -368,46 +372,42 @@ non-nil means return old filename." | |||
| 368 | (errors 0) | 372 | (errors 0) |
| 369 | file-ori file-new tmp-value) | 373 | file-ori file-new tmp-value) |
| 370 | (save-excursion | 374 | (save-excursion |
| 371 | (if (and wdired-allow-to-redirect-links | 375 | (when (and wdired-allow-to-redirect-links |
| 372 | (fboundp 'make-symbolic-link)) | 376 | (fboundp 'make-symbolic-link)) |
| 373 | (progn | 377 | (setq tmp-value (wdired-do-symlink-changes)) |
| 374 | (setq tmp-value (wdired-do-symlink-changes)) | 378 | (setq errors (cdr tmp-value)) |
| 375 | (setq errors (cdr tmp-value)) | 379 | (setq changes (car tmp-value))) |
| 376 | (setq changes (car tmp-value)))) | 380 | (when (and wdired-allow-to-change-permissions |
| 377 | (if (and wdired-allow-to-change-permissions | 381 | (boundp 'wdired-col-perm)) ; could have been changed |
| 378 | (boundp 'wdired-col-perm)) ; could have been changed | 382 | (setq tmp-value (wdired-do-perm-changes)) |
| 379 | (progn | 383 | (setq errors (+ errors (cdr tmp-value))) |
| 380 | (setq tmp-value (wdired-do-perm-changes)) | 384 | (setq changes (or changes (car tmp-value)))) |
| 381 | (setq errors (+ errors (cdr tmp-value))) | ||
| 382 | (setq changes (or changes (car tmp-value))))) | ||
| 383 | (goto-char (point-max)) | 385 | (goto-char (point-max)) |
| 384 | (while (not (bobp)) | 386 | (while (not (bobp)) |
| 385 | (setq file-ori (wdired-get-filename nil t)) | 387 | (setq file-ori (wdired-get-filename nil t)) |
| 386 | (if file-ori | 388 | (when file-ori |
| 387 | (setq file-new (wdired-get-filename))) | 389 | (setq file-new (wdired-get-filename))) |
| 388 | (if (and file-ori (not (equal file-new file-ori))) | 390 | (when (and file-ori (not (equal file-new file-ori))) |
| 389 | (progn | 391 | (setq changes t) |
| 390 | (setq changes t) | 392 | (if (not file-new) ;empty filename! |
| 391 | (if (not file-new) ;empty filename! | 393 | (setq files-deleted (cons file-ori files-deleted)) |
| 392 | (setq files-deleted (cons file-ori files-deleted)) | 394 | (setq file-new (substitute-in-file-name file-new)) |
| 393 | (progn | 395 | (if wdired-use-interactive-rename |
| 394 | (setq file-new (substitute-in-file-name file-new)) | 396 | (wdired-search-and-rename file-ori file-new) |
| 395 | (if wdired-use-interactive-rename | 397 | ;; If dired-rename-file autoloads dired-aux while |
| 396 | (wdired-search-and-rename file-ori file-new) | 398 | ;; dired-backup-overwrite is locally bound, |
| 397 | ;; If dired-rename-file autoloads dired-aux while | 399 | ;; dired-backup-overwrite won't be initialized. |
| 398 | ;; dired-backup-overwrite is locally bound, | 400 | ;; So we must ensure dired-aux is loaded. |
| 399 | ;; dired-backup-overwrite won't be initialized. | 401 | (require 'dired-aux) |
| 400 | ;; So we must ensure dired-aux is loaded. | 402 | (condition-case err |
| 401 | (require 'dired-aux) | 403 | (let ((dired-backup-overwrite nil)) |
| 402 | (condition-case err | 404 | (dired-rename-file file-ori file-new |
| 403 | (let ((dired-backup-overwrite nil)) | 405 | overwrite)) |
| 404 | (dired-rename-file file-ori file-new | 406 | (error |
| 405 | overwrite)) | 407 | (setq errors (1+ errors)) |
| 406 | (error | 408 | (dired-log (concat "Rename `" file-ori "' to `" |
| 407 | (setq errors (1+ errors)) | 409 | file-new "' failed:\n%s\n") |
| 408 | (dired-log (concat "Rename `" file-ori "' to `" | 410 | err)))))) |
| 409 | file-new "' failed:\n%s\n") | ||
| 410 | err)))))))) | ||
| 411 | (forward-line -1))) | 411 | (forward-line -1))) |
| 412 | (if changes | 412 | (if changes |
| 413 | (revert-buffer) ;The "revert" is necessary to re-sort the buffer | 413 | (revert-buffer) ;The "revert" is necessary to re-sort the buffer |
| @@ -417,10 +417,10 @@ non-nil means return old filename." | |||
| 417 | end-link nil end-perm nil | 417 | end-link nil end-perm nil |
| 418 | old-perm nil perm-changed nil)) | 418 | old-perm nil perm-changed nil)) |
| 419 | (message "(No changes to be performed)"))) | 419 | (message "(No changes to be performed)"))) |
| 420 | (if files-deleted | 420 | (when files-deleted |
| 421 | (wdired-flag-for-deletion files-deleted)) | 421 | (wdired-flag-for-deletion files-deleted)) |
| 422 | (if (> errors 0) | 422 | (when (> errors 0) |
| 423 | (dired-log-summary (format "%d rename actions failed" errors) nil))) | 423 | (dired-log-summary (format "%d rename actions failed" errors) nil))) |
| 424 | (set-buffer-modified-p nil) | 424 | (set-buffer-modified-p nil) |
| 425 | (setq buffer-undo-list nil)) | 425 | (setq buffer-undo-list nil)) |
| 426 | 426 | ||
| @@ -446,10 +446,9 @@ non-nil means return old filename." | |||
| 446 | (dired-do-create-files-regexp | 446 | (dired-do-create-files-regexp |
| 447 | (function dired-rename-file) | 447 | (function dired-rename-file) |
| 448 | "Move" 1 ".*" filename-new nil t)) | 448 | "Move" 1 ".*" filename-new nil t)) |
| 449 | (progn | 449 | (forward-line -1) |
| 450 | (forward-line -1) | 450 | (beginning-of-line) |
| 451 | (beginning-of-line) | 451 | (setq exit-while (bobp))))))) |
| 452 | (setq exit-while (= 1 (point))))))))) | ||
| 453 | 452 | ||
| 454 | ;; marks a list of files for deletion | 453 | ;; marks a list of files for deletion |
| 455 | (defun wdired-flag-for-deletion (filenames-ori) | 454 | (defun wdired-flag-for-deletion (filenames-ori) |
| @@ -518,7 +517,10 @@ says how many lines to move; default is one line." | |||
| 518 | (1- (match-beginning 1)) 'old-link | 517 | (1- (match-beginning 1)) 'old-link |
| 519 | (match-string-no-properties 1)) | 518 | (match-string-no-properties 1)) |
| 520 | (put-text-property (match-end 1) (1+ (match-end 1)) 'end-link t) | 519 | (put-text-property (match-end 1) (1+ (match-end 1)) 'end-link t) |
| 521 | (put-text-property (1- (match-beginning 1)) | 520 | (put-text-property (1- (match-beginning 1)) |
| 521 | (match-beginning 1) | ||
| 522 | 'rear-nonsticky '(read-only)) | ||
| 523 | (put-text-property (match-beginning 1) | ||
| 522 | (match-end 1) 'read-only nil))) | 524 | (match-end 1) 'read-only nil))) |
| 523 | (forward-line) | 525 | (forward-line) |
| 524 | (beginning-of-line))))) | 526 | (beginning-of-line))))) |
| @@ -527,15 +529,17 @@ says how many lines to move; default is one line." | |||
| 527 | (defun wdired-get-previous-link (&optional old move) | 529 | (defun wdired-get-previous-link (&optional old move) |
| 528 | "Return the next symlink target. | 530 | "Return the next symlink target. |
| 529 | If OLD, return the old target. If MOVE, move point before it." | 531 | If OLD, return the old target. If MOVE, move point before it." |
| 530 | (let ((beg (previous-single-property-change (point) 'old-link nil))) | 532 | (let (beg end target) |
| 531 | (when beg | 533 | (setq beg (previous-single-property-change (point) 'old-link nil)) |
| 532 | (let ((target | 534 | (if beg |
| 533 | (if old | 535 | (progn |
| 534 | (get-text-property (1- beg) 'old-link) | 536 | (if old |
| 535 | (buffer-substring-no-properties | 537 | (setq target (get-text-property (1- beg) 'old-link)) |
| 536 | (1+ beg) (next-single-property-change beg 'end-link))))) | 538 | (setq end (next-single-property-change beg 'end-link)) |
| 537 | (if move (goto-char (1- beg))) | 539 | (setq target (buffer-substring-no-properties (1+ beg) end))) |
| 538 | (and target (wdired-normalize-filename target)))))) | 540 | (if move (goto-char (1- beg))))) |
| 541 | (and target (wdired-normalize-filename target)))) | ||
| 542 | |||
| 539 | 543 | ||
| 540 | ;; Perform the changes in the target of the changed links. | 544 | ;; Perform the changes in the target of the changed links. |
| 541 | (defun wdired-do-symlink-changes () | 545 | (defun wdired-do-symlink-changes () |
| @@ -613,29 +617,34 @@ Like original function but it skips read-only words." | |||
| 613 | (define-key map [down-mouse-1] 'wdired-mouse-toggle-bit) | 617 | (define-key map [down-mouse-1] 'wdired-mouse-toggle-bit) |
| 614 | map)) | 618 | map)) |
| 615 | 619 | ||
| 616 | ;; Put a local-map to the permission bits of the files, and store the | 620 | ;; Put a keymap property to the permission bits of the files, and store the |
| 617 | ;; original name and permissions as a property | 621 | ;; original name and permissions as a property |
| 618 | (defun wdired-preprocess-perms () | 622 | (defun wdired-preprocess-perms () |
| 619 | (let ((inhibit-read-only t) | 623 | (let ((inhibit-read-only t)) |
| 620 | filename) | ||
| 621 | (set (make-local-variable 'wdired-col-perm) nil) | 624 | (set (make-local-variable 'wdired-col-perm) nil) |
| 622 | (save-excursion | 625 | (save-excursion |
| 623 | (goto-char (point-min)) | 626 | (goto-char (point-min)) |
| 624 | (while (not (eobp)) | 627 | (while (not (eobp)) |
| 625 | (if (and (not (looking-at dired-re-sym)) | 628 | (when (and (not (looking-at dired-re-sym)) |
| 626 | (setq filename (wdired-get-filename))) | 629 | (wdired-get-filename) |
| 627 | (progn | 630 | (re-search-forward dired-re-perms (line-end-position) 'eol)) |
| 628 | (re-search-forward dired-re-perms) | 631 | (let ((begin (match-beginning 0)) |
| 629 | (or wdired-col-perm | 632 | (end (match-end 0))) |
| 630 | (setq wdired-col-perm (- (current-column) 9))) | 633 | (unless wdired-col-perm |
| 631 | (if (eq wdired-allow-to-change-permissions 'advanced) | 634 | (setq wdired-col-perm (- (current-column) 9))) |
| 632 | (put-text-property (match-beginning 0) (match-end 0) | 635 | (if (eq wdired-allow-to-change-permissions 'advanced) |
| 633 | 'read-only nil) | 636 | (progn |
| 634 | (put-text-property (1+ (match-beginning 0)) (match-end 0) | 637 | (put-text-property begin end 'read-only nil) |
| 635 | 'keymap wdired-perm-mode-map)) | 638 | ;; make first permission bit writable |
| 636 | (put-text-property (match-end 0) (1+ (match-end 0)) 'end-perm t) | 639 | (put-text-property |
| 637 | (put-text-property (match-beginning 0) (1+ (match-beginning 0)) | 640 | (1- begin) begin 'rear-nonsticky '(read-only))) |
| 638 | 'old-perm (match-string-no-properties 0)))) | 641 | ;; avoid that keymap applies to text following permissions |
| 642 | (add-text-properties | ||
| 643 | (1+ begin) end | ||
| 644 | `(keymap ,wdired-perm-mode-map rear-nonsticky (keymap)))) | ||
| 645 | (put-text-property end (1+ end) 'end-perm t) | ||
| 646 | (put-text-property | ||
| 647 | begin (1+ begin) 'old-perm (match-string-no-properties 0)))) | ||
| 639 | (forward-line) | 648 | (forward-line) |
| 640 | (beginning-of-line))))) | 649 | (beginning-of-line))))) |
| 641 | 650 | ||
| @@ -661,24 +670,27 @@ Like original function but it skips read-only words." | |||
| 661 | (put-text-property 0 1 'read-only t new-bit) | 670 | (put-text-property 0 1 'read-only t new-bit) |
| 662 | (insert new-bit) | 671 | (insert new-bit) |
| 663 | (delete-char 1) | 672 | (delete-char 1) |
| 664 | (put-text-property pos-prop (1- pos-prop) 'perm-changed t)) | 673 | (put-text-property (1- pos-prop) pos-prop 'perm-changed t) |
| 674 | (put-text-property (1- (point)) (point) 'rear-nonsticky '(keymap))) | ||
| 665 | (forward-char 1))) | 675 | (forward-char 1))) |
| 666 | 676 | ||
| 667 | (defun wdired-toggle-bit () | 677 | (defun wdired-toggle-bit () |
| 668 | "Toggle the permission bit at point." | 678 | "Toggle the permission bit at point." |
| 669 | (interactive) | 679 | (interactive) |
| 670 | (let ((inhibit-read-only t) | 680 | (let ((inhibit-read-only t) |
| 671 | (new-bit (cond | 681 | (new-bit "-") |
| 672 | ((not (eq (char-after (point)) ?-)) "-") | ||
| 673 | ((= (% (- (current-column) wdired-col-perm) 3) 0) "r") | ||
| 674 | ((= (% (- (current-column) wdired-col-perm) 3) 1) "w") | ||
| 675 | (t "x"))) | ||
| 676 | (pos-prop (- (point) (- (current-column) wdired-col-perm)))) | 682 | (pos-prop (- (point) (- (current-column) wdired-col-perm)))) |
| 683 | (if (eq (char-after (point)) ?-) | ||
| 684 | (setq new-bit | ||
| 685 | (if (= (% (- (current-column) wdired-col-perm) 3) 0) "r" | ||
| 686 | (if (= (% (- (current-column) wdired-col-perm) 3) 1) "w" | ||
| 687 | "x")))) | ||
| 677 | (put-text-property 0 1 'keymap wdired-perm-mode-map new-bit) | 688 | (put-text-property 0 1 'keymap wdired-perm-mode-map new-bit) |
| 678 | (put-text-property 0 1 'read-only t new-bit) | 689 | (put-text-property 0 1 'read-only t new-bit) |
| 679 | (insert new-bit) | 690 | (insert new-bit) |
| 680 | (delete-char 1) | 691 | (delete-char 1) |
| 681 | (put-text-property pos-prop (1- pos-prop) 'perm-changed t))) | 692 | (put-text-property (1- pos-prop) pos-prop 'perm-changed t) |
| 693 | (put-text-property (1- (point)) (point) 'rear-nonsticky '(keymap)))) | ||
| 682 | 694 | ||
| 683 | (defun wdired-mouse-toggle-bit (event) | 695 | (defun wdired-mouse-toggle-bit (event) |
| 684 | "Toggle the permission bit that was left clicked." | 696 | "Toggle the permission bit that was left clicked." |
| @@ -690,28 +702,23 @@ Like original function but it skips read-only words." | |||
| 690 | ;; Allowed chars for 2000 bit are Ssl in position 6 | 702 | ;; Allowed chars for 2000 bit are Ssl in position 6 |
| 691 | ;; Allowed chars for 1000 bit are Tt in position 9 | 703 | ;; Allowed chars for 1000 bit are Tt in position 9 |
| 692 | (defun wdired-perms-to-number (perms) | 704 | (defun wdired-perms-to-number (perms) |
| 693 | (+ | 705 | (let ((nperm 0777)) |
| 694 | (if (= (elt perms 1) ?-) 0 400) | 706 | (if (= (elt perms 1) ?-) (setq nperm (- nperm 400))) |
| 695 | (if (= (elt perms 2) ?-) 0 200) | 707 | (if (= (elt perms 2) ?-) (setq nperm (- nperm 200))) |
| 696 | (case (elt perms 3) | 708 | (let ((p-bit (elt perms 3))) |
| 697 | (?- 0) | 709 | (if (memq p-bit '(?- ?S)) (setq nperm (- nperm 100))) |
| 698 | (?S 4000) | 710 | (if (memq p-bit '(?s ?S)) (setq nperm (+ nperm 4000)))) |
| 699 | (?s 4100) | 711 | (if (= (elt perms 4) ?-) (setq nperm (- nperm 40))) |
| 700 | (t 100)) | 712 | (if (= (elt perms 5) ?-) (setq nperm (- nperm 20))) |
| 701 | (if (= (elt perms 4) ?-) 0 40) | 713 | (let ((p-bit (elt perms 6))) |
| 702 | (if (= (elt perms 5) ?-) 0 20) | 714 | (if (memq p-bit '(?- ?S ?l)) (setq nperm (- nperm 10))) |
| 703 | (case (elt perms 6) | 715 | (if (memq p-bit '(?s ?S ?l)) (setq nperm (+ nperm 2000)))) |
| 704 | (?- 0) | 716 | (if (= (elt perms 7) ?-) (setq nperm (- nperm 4))) |
| 705 | (?S 2000) | 717 | (if (= (elt perms 8) ?-) (setq nperm (- nperm 2))) |
| 706 | (?s 2010) | 718 | (let ((p-bit (elt perms 9))) |
| 707 | (t 10)) | 719 | (if (memq p-bit '(?- ?T)) (setq nperm (- nperm 1))) |
| 708 | (if (= (elt perms 7) ?-) 0 4) | 720 | (if (memq p-bit '(?t ?T)) (setq nperm (+ nperm 1000)))) |
| 709 | (if (= (elt perms 8) ?-) 0 2) | 721 | nperm)) |
| 710 | (case (elt perms 9) | ||
| 711 | (?- 0) | ||
| 712 | (?T 1000) | ||
| 713 | (?t 1001) | ||
| 714 | (t 1)))) | ||
| 715 | 722 | ||
| 716 | ;; Perform the changes in the permissions of the files that have | 723 | ;; Perform the changes in the permissions of the files that have |
| 717 | ;; changed. | 724 | ;; changed. |
diff --git a/lispref/ChangeLog b/lispref/ChangeLog index 88aeae85b25..69098b20e64 100644 --- a/lispref/ChangeLog +++ b/lispref/ChangeLog | |||
| @@ -1,3 +1,33 @@ | |||
| 1 | 2006-12-11 Richard Stallman <rms@gnu.org> | ||
| 2 | |||
| 3 | * modes.texi (Font Lock Basics): Explain how nil for font-lock-defaults | ||
| 4 | affects face menu. Explain how to make it non-nil without enabling | ||
| 5 | any fontification. | ||
| 6 | |||
| 7 | 2006-12-10 Chong Yidong <cyd@stupidchicken.com> | ||
| 8 | |||
| 9 | * modes.texi (Font Lock Basics): Document nil value of | ||
| 10 | font-lock-defaults. | ||
| 11 | |||
| 12 | 2006-12-10 Glenn Morris <rgm@gnu.org> | ||
| 13 | |||
| 14 | * abbrevs.texi (Defining Abbrevs): Mention `define-abbrev' 'force | ||
| 15 | value for system-flag argument. Abbrev tables may not be empty | ||
| 16 | when major modes are loaded. | ||
| 17 | |||
| 18 | 2006-12-08 Juanma Barranquero <lekktu@gmail.com> | ||
| 19 | |||
| 20 | * makefile.w32-in (maintainer-clean): Partially revert last | ||
| 21 | change; delete "elisp-?" and "elisp-??" instead of "elisp-*" | ||
| 22 | to protect elisp-covers.texi. | ||
| 23 | |||
| 24 | 2006-12-07 Juanma Barranquero <lekktu@gmail.com> | ||
| 25 | |||
| 26 | * makefile.w32-in (maintainer-clean): Depend on `distclean'. | ||
| 27 | Don't remove elisp* info files; they are already deleted by the | ||
| 28 | `clean' and `distclean' targets, and they are in the $(infodir) | ||
| 29 | directory, not the current one. | ||
| 30 | |||
| 1 | 2006-12-04 Kim F. Storm <storm@cua.dk> | 31 | 2006-12-04 Kim F. Storm <storm@cua.dk> |
| 2 | 32 | ||
| 3 | * commands.texi (Misc Events): Update signal events. | 33 | * commands.texi (Misc Events): Update signal events. |
diff --git a/lispref/abbrevs.texi b/lispref/abbrevs.texi index 52b3dfe1ad6..6facbf1e3b8 100644 --- a/lispref/abbrevs.texi +++ b/lispref/abbrevs.texi | |||
| @@ -131,9 +131,12 @@ to add these to @var{name} separately.) | |||
| 131 | @comment node-name, next, previous, up | 131 | @comment node-name, next, previous, up |
| 132 | @section Defining Abbrevs | 132 | @section Defining Abbrevs |
| 133 | @code{define-abbrev} is the low-level basic function for defining an | 133 | @code{define-abbrev} is the low-level basic function for defining an |
| 134 | abbrev in a specified abbrev table. When major modes predefine | 134 | abbrev in a specified abbrev table. When major modes predefine standard |
| 135 | standard abbrevs, they should call @code{define-abbrev} and specify | 135 | abbrevs, they should call @code{define-abbrev} and specify @code{t} for |
| 136 | @code{t} for @var{system-flag}. | 136 | @var{system-flag}. Be aware that any saved non-``system'' abbrevs are |
| 137 | restored at startup, i.e. before some major modes are loaded. Major modes | ||
| 138 | should therefore not assume that when they are first loaded their abbrev | ||
| 139 | tables are empty. | ||
| 137 | 140 | ||
| 138 | @defun define-abbrev table name expansion &optional hook count system-flag | 141 | @defun define-abbrev table name expansion &optional hook count system-flag |
| 139 | This function defines an abbrev named @var{name}, in @var{table}, to | 142 | This function defines an abbrev named @var{name}, in @var{table}, to |
| @@ -165,7 +168,10 @@ returns @code{nil}, @code{expand-abbrev} also returns @code{nil}, as | |||
| 165 | if expansion had not really occurred. | 168 | if expansion had not really occurred. |
| 166 | 169 | ||
| 167 | If @var{system-flag} is non-@code{nil}, that marks the abbrev as a | 170 | If @var{system-flag} is non-@code{nil}, that marks the abbrev as a |
| 168 | ``system'' abbrev with the @code{system-type} property. | 171 | ``system'' abbrev with the @code{system-type} property. Unless |
| 172 | @var{system-flag} has the value @code{force}, a ``system'' abbrev will | ||
| 173 | not overwrite an existing definition for a non-``system'' abbrev of the | ||
| 174 | same name. | ||
| 169 | 175 | ||
| 170 | Normally the function @code{define-abbrev} sets the variable | 176 | Normally the function @code{define-abbrev} sets the variable |
| 171 | @code{abbrevs-changed} to @code{t}, if it actually changes the abbrev. | 177 | @code{abbrevs-changed} to @code{t}, if it actually changes the abbrev. |
diff --git a/lispref/makefile.w32-in b/lispref/makefile.w32-in index 7da88058bd5..23ea3f05df5 100644 --- a/lispref/makefile.w32-in +++ b/lispref/makefile.w32-in | |||
| @@ -119,5 +119,5 @@ clean: | |||
| 119 | 119 | ||
| 120 | distclean: clean | 120 | distclean: clean |
| 121 | 121 | ||
| 122 | maintainer-clean: clean | 122 | maintainer-clean: distclean |
| 123 | - $(DEL) elisp elisp-* elisp.dvi elisp.oaux | 123 | - $(DEL) elisp elisp-? elisp-?? elisp.dvi elisp.oaux |
diff --git a/lispref/modes.texi b/lispref/modes.texi index 4f68bb5064b..29c316d625d 100644 --- a/lispref/modes.texi +++ b/lispref/modes.texi | |||
| @@ -2358,7 +2358,12 @@ Lock mode is enabled, to set all the other variables. | |||
| 2358 | @defvar font-lock-defaults | 2358 | @defvar font-lock-defaults |
| 2359 | This variable is set by major modes, as a buffer-local variable, to | 2359 | This variable is set by major modes, as a buffer-local variable, to |
| 2360 | specify how to fontify text in that mode. It automatically becomes | 2360 | specify how to fontify text in that mode. It automatically becomes |
| 2361 | buffer-local when you set it. The value should look like this: | 2361 | buffer-local when you set it. If its value is @code{nil}, Font-Lock |
| 2362 | mode does no highlighting, and you can use the @samp{Faces} menu | ||
| 2363 | (under @samp{Edit} and then @samp{Text Properties} in the menu bar) to | ||
| 2364 | assign faces explicitly to text in the buffer. | ||
| 2365 | |||
| 2366 | If non-@code{nil}, the value should look like this: | ||
| 2362 | 2367 | ||
| 2363 | @example | 2368 | @example |
| 2364 | (@var{keywords} [@var{keywords-only} [@var{case-fold} | 2369 | (@var{keywords} [@var{keywords-only} [@var{case-fold} |
| @@ -2374,9 +2379,10 @@ The first symbol specifies how to do level 1 fontification, the second | |||
| 2374 | symbol how to do level 2, and so on. @xref{Levels of Font Lock}. | 2379 | symbol how to do level 2, and so on. @xref{Levels of Font Lock}. |
| 2375 | 2380 | ||
| 2376 | The second element, @var{keywords-only}, specifies the value of the | 2381 | The second element, @var{keywords-only}, specifies the value of the |
| 2377 | variable @code{font-lock-keywords-only}. If this is non-@code{nil}, | 2382 | variable @code{font-lock-keywords-only}. If this is omitted or |
| 2378 | syntactic fontification (of strings and comments) is not performed. | 2383 | @code{nil}, syntactic fontification (of strings and comments) is also |
| 2379 | @xref{Syntactic Font Lock}. | 2384 | performed. If this is non-@code{nil}, such fontification is not |
| 2385 | performed. @xref{Syntactic Font Lock}. | ||
| 2380 | 2386 | ||
| 2381 | The third element, @var{case-fold}, specifies the value of | 2387 | The third element, @var{case-fold}, specifies the value of |
| 2382 | @code{font-lock-keywords-case-fold-search}. If it is non-@code{nil}, | 2388 | @code{font-lock-keywords-case-fold-search}. If it is non-@code{nil}, |
| @@ -2403,6 +2409,13 @@ fontification, aside from those you can control with the first five | |||
| 2403 | elements. @xref{Other Font Lock Variables}. | 2409 | elements. @xref{Other Font Lock Variables}. |
| 2404 | @end defvar | 2410 | @end defvar |
| 2405 | 2411 | ||
| 2412 | If your mode fontifies text explicitly by adding | ||
| 2413 | @code{font-lock-face} properties, it can specify @code{(nil t)} for | ||
| 2414 | @code{font-lock-defaults} to turn off all automatic fontification. | ||
| 2415 | However, this is not required; it is possible to fontify some things | ||
| 2416 | using @code{font-lock-face} properties and set up automatic | ||
| 2417 | fontification for other parts of the text. | ||
| 2418 | |||
| 2406 | @node Search-based Fontification | 2419 | @node Search-based Fontification |
| 2407 | @subsection Search-based Fontification | 2420 | @subsection Search-based Fontification |
| 2408 | 2421 | ||
diff --git a/man/ChangeLog b/man/ChangeLog index 212da90ae1b..09eb469c53f 100644 --- a/man/ChangeLog +++ b/man/ChangeLog | |||
| @@ -1,3 +1,39 @@ | |||
| 1 | 2006-12-15 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * text.texi (HTML Mode): Fix "C-c TAB". | ||
| 4 | |||
| 5 | 2006-12-13 Reiner Steib <Reiner.Steib@gmx.de> | ||
| 6 | |||
| 7 | * gnus.texi (Hiding Headers): Document that `long-to' and `many-to' | ||
| 8 | also applies to Cc. | ||
| 9 | |||
| 10 | 2006-12-12 Reiner Steib <Reiner.Steib@gmx.de> | ||
| 11 | |||
| 12 | * gnus.texi (X-Face): Clarify. Say which programs are required on | ||
| 13 | Windows. | ||
| 14 | |||
| 15 | 2006-12-09 Richard Stallman <rms@gnu.org> | ||
| 16 | |||
| 17 | * misc.texi (Invoking emacsclient): Simplify TCP file text. | ||
| 18 | |||
| 19 | 2006-12-08 Kevin Rodgers <ihs_4664@yahoo.com> | ||
| 20 | |||
| 21 | * files.texi (Misc File Ops): Document insert-file-literally. | ||
| 22 | |||
| 23 | 2006-12-08 Eli Zaretskii <eliz@gnu.org> | ||
| 24 | |||
| 25 | * cmdargs.texi (Colors): Note that --color is intended for overriding | ||
| 26 | the terminal defaults, not for normal invocation. | ||
| 27 | |||
| 28 | * misc.texi (Emacs Server): Improve wording. Don't mention the | ||
| 29 | ``server program''. Add a cross-reference to "Init File" node. | ||
| 30 | (Invoking emacsclient): Add index entries. Document both short and | ||
| 31 | long versions of command-line options. Document the -f option. | ||
| 32 | |||
| 33 | 2006-12-08 Michael Olson <mwolson@gnu.org> | ||
| 34 | |||
| 35 | * erc.texi (Modules): Remove documentation for list module. | ||
| 36 | |||
| 1 | 2006-12-06 Richard Stallman <rms@gnu.org> | 37 | 2006-12-06 Richard Stallman <rms@gnu.org> |
| 2 | 38 | ||
| 3 | * text.texi (Outline Format): Say to set outline-regexp | 39 | * text.texi (Outline Format): Say to set outline-regexp |
diff --git a/man/cmdargs.texi b/man/cmdargs.texi index fc17d7ec695..f664c3144ce 100644 --- a/man/cmdargs.texi +++ b/man/cmdargs.texi | |||
| @@ -951,8 +951,12 @@ Reverse video---swap the foreground and background colors. | |||
| 951 | @item --color=@var{mode} | 951 | @item --color=@var{mode} |
| 952 | @opindex --color | 952 | @opindex --color |
| 953 | @cindex standard colors on a character terminal | 953 | @cindex standard colors on a character terminal |
| 954 | For a character terminal only, specify the mode of color support. The | 954 | @cindex override character terminal color support |
| 955 | parameter @var{mode} can be one of the following: | 955 | For a character terminal only, specify the mode of color support. |
| 956 | This option is intended for overriding the number of supported colors | ||
| 957 | that the character terminal advertises in its @code{termcap} or | ||
| 958 | @code{terminfo} database. The parameter @var{mode} can be one of the | ||
| 959 | following: | ||
| 956 | @table @samp | 960 | @table @samp |
| 957 | @item never | 961 | @item never |
| 958 | @itemx no | 962 | @itemx no |
diff --git a/man/erc.texi b/man/erc.texi index 0d535eae875..d8ae4157a47 100644 --- a/man/erc.texi +++ b/man/erc.texi | |||
| @@ -422,10 +422,6 @@ Launch an identd server on port 8113 | |||
| 422 | @item irccontrols | 422 | @item irccontrols |
| 423 | Highlight or remove IRC control characters | 423 | Highlight or remove IRC control characters |
| 424 | 424 | ||
| 425 | @cindex modules, list | ||
| 426 | @item list | ||
| 427 | List channels nicely in a separate buffer | ||
| 428 | |||
| 429 | @cindex modules, log | 425 | @cindex modules, log |
| 430 | @item log | 426 | @item log |
| 431 | Save buffers in logs | 427 | Save buffers in logs |
diff --git a/man/files.texi b/man/files.texi index ccf619442d6..86e3282e542 100644 --- a/man/files.texi +++ b/man/files.texi | |||
| @@ -2433,6 +2433,13 @@ in Emacs. @xref{Misc Buffer}. | |||
| 2433 | contents of the specified file into the current buffer at point, | 2433 | contents of the specified file into the current buffer at point, |
| 2434 | leaving point unchanged before the contents and the mark after them. | 2434 | leaving point unchanged before the contents and the mark after them. |
| 2435 | 2435 | ||
| 2436 | @findex insert-file-literally | ||
| 2437 | @kbd{M-x insert-file-literally} is like @kbd{C-x i}, except it | ||
| 2438 | inserts the specified file with no conversion of the contents: no | ||
| 2439 | format conversion (@pxref{Formatted Text}), no character code | ||
| 2440 | conversion (@pxref{Coding Systems}), and no automatic uncompression | ||
| 2441 | (@pxref{Compressed Files}). | ||
| 2442 | |||
| 2436 | @findex write-region | 2443 | @findex write-region |
| 2437 | @kbd{M-x write-region} is the inverse of @kbd{M-x insert-file}; it | 2444 | @kbd{M-x write-region} is the inverse of @kbd{M-x insert-file}; it |
| 2438 | copies the contents of the region into the specified file. @kbd{M-x | 2445 | copies the contents of the region into the specified file. @kbd{M-x |
diff --git a/man/gnus.texi b/man/gnus.texi index a929bb2b208..7a83ea66a97 100644 --- a/man/gnus.texi +++ b/man/gnus.texi | |||
| @@ -10975,15 +10975,15 @@ the current group's @code{to-address} parameter. | |||
| 10975 | Remove the @code{To} header if it only contains the address identical to | 10975 | Remove the @code{To} header if it only contains the address identical to |
| 10976 | the current group's @code{to-list} parameter. | 10976 | the current group's @code{to-list} parameter. |
| 10977 | @item cc-list | 10977 | @item cc-list |
| 10978 | Remove the @code{CC} header if it only contains the address identical to | 10978 | Remove the @code{Cc} header if it only contains the address identical to |
| 10979 | the current group's @code{to-list} parameter. | 10979 | the current group's @code{to-list} parameter. |
| 10980 | @item date | 10980 | @item date |
| 10981 | Remove the @code{Date} header if the article is less than three days | 10981 | Remove the @code{Date} header if the article is less than three days |
| 10982 | old. | 10982 | old. |
| 10983 | @item long-to | 10983 | @item long-to |
| 10984 | Remove the @code{To} header if it is very long. | 10984 | Remove the @code{To} and/or @code{Cc} header if it is very long. |
| 10985 | @item many-to | 10985 | @item many-to |
| 10986 | Remove all @code{To} headers if there are more than one. | 10986 | Remove all @code{To} and/or @code{Cc} headers if there are more than one. |
| 10987 | @end table | 10987 | @end table |
| 10988 | 10988 | ||
| 10989 | To include these three elements, you could say something like: | 10989 | To include these three elements, you could say something like: |
| @@ -22175,21 +22175,26 @@ have suitable conversion or display programs installed. If your Emacs | |||
| 22175 | has image support the default action is to display the face before the | 22175 | has image support the default action is to display the face before the |
| 22176 | @code{From} header. If there's no native @code{X-Face} support, Gnus | 22176 | @code{From} header. If there's no native @code{X-Face} support, Gnus |
| 22177 | will try to convert the @code{X-Face} header using external programs | 22177 | will try to convert the @code{X-Face} header using external programs |
| 22178 | from the @code{pbmplus} package and friends. For XEmacs it's faster if | 22178 | from the @code{pbmplus} package and friends, see below. For XEmacs it's |
| 22179 | XEmacs has been compiled with @code{X-Face} support. The default action | 22179 | faster if XEmacs has been compiled with @code{X-Face} support. The |
| 22180 | under Emacs without image support is to fork off the @code{display} | 22180 | default action under Emacs without image support is to fork off the |
| 22181 | program. | 22181 | @code{display} program. |
| 22182 | 22182 | ||
| 22183 | On a GNU/Linux system, the @code{display} program is from the | 22183 | On a GNU/Linux system, the @code{display} program is included in the |
| 22184 | ImageMagick package. For external conversion programs look for packages | 22184 | ImageMagick package. For external conversion programs look for packages |
| 22185 | with names like @code{netpbm}, @code{libgr-progs} and @code{compface}. | 22185 | with names like @code{netpbm}, @code{libgr-progs} and @code{compface}. |
| 22186 | 22186 | On Windows, you may use the packages @code{netpbm} and @code{compface} | |
| 22187 | The variable that controls this is the | 22187 | from @url{http://gnuwin32.sourceforge.net}. You need to add the |
| 22188 | @code{gnus-article-x-face-command} variable. If this variable is a | 22188 | @code{bin} directory to your @code{PATH} environment variable. |
| 22189 | @c In fact only the following DLLs and binaries seem to be required: | ||
| 22190 | @c compface1.dll uncompface.exe libnetpbm10.dll icontopbm.exe | ||
| 22191 | |||
| 22192 | The variable @code{gnus-article-x-face-command} controls which programs | ||
| 22193 | are used to display the @code{X-Face} header. If this variable is a | ||
| 22189 | string, this string will be executed in a sub-shell. If it is a | 22194 | string, this string will be executed in a sub-shell. If it is a |
| 22190 | function, this function will be called with the face as the argument. | 22195 | function, this function will be called with the face as the argument. |
| 22191 | If @code{gnus-article-x-face-too-ugly} (which is a regexp) matches | 22196 | If @code{gnus-article-x-face-too-ugly} (which is a regexp) matches the |
| 22192 | the @code{From} header, the face will not be shown. | 22197 | @code{From} header, the face will not be shown. |
| 22193 | 22198 | ||
| 22194 | (Note: @code{x-face} is used in the variable/function names, not | 22199 | (Note: @code{x-face} is used in the variable/function names, not |
| 22195 | @code{xface}). | 22200 | @code{xface}). |
diff --git a/man/misc.texi b/man/misc.texi index da8c3179b91..72ddd96534a 100644 --- a/man/misc.texi +++ b/man/misc.texi | |||
| @@ -1244,28 +1244,36 @@ variable @env{EDITOR} to specify which editor to run. If you set | |||
| 1244 | @env{EDITOR} to @samp{emacs}, they invoke Emacs---but in an | 1244 | @env{EDITOR} to @samp{emacs}, they invoke Emacs---but in an |
| 1245 | inconvenient fashion, by starting a new, separate Emacs process. This | 1245 | inconvenient fashion, by starting a new, separate Emacs process. This |
| 1246 | is inconvenient because it takes time and because the new Emacs process | 1246 | is inconvenient because it takes time and because the new Emacs process |
| 1247 | doesn't share the buffers in any existing Emacs process. | 1247 | doesn't share the buffers with any existing Emacs process. |
| 1248 | 1248 | ||
| 1249 | You can arrange to use your existing Emacs process as the editor for | 1249 | You can arrange to use your existing Emacs process as the editor for |
| 1250 | programs like @code{mail} by using the Emacs client and Emacs server | 1250 | programs like @code{mail} by using the Emacs client program and the |
| 1251 | programs. Here is how. | 1251 | server that is part of Emacs. Here is how. |
| 1252 | 1252 | ||
| 1253 | @cindex @env{TEXEDIT} environment variable | 1253 | @cindex @env{TEXEDIT} environment variable |
| 1254 | First, the preparation. Within Emacs, call the function | 1254 | @findex server-start |
| 1255 | @code{server-start}. (Your @file{.emacs} file can do this automatically | 1255 | First, the preparations. Within Emacs, call the function |
| 1256 | if you add the expression @code{(server-start)} to it.) Then, outside | 1256 | @code{server-start}. (Your @file{.emacs} init file can do this |
| 1257 | Emacs, set the @env{EDITOR} environment variable to @samp{emacsclient}. | 1257 | automatically if you add the expression @code{(server-start)} to it, |
| 1258 | (Note that some programs use a different environment variable; for | 1258 | see @ref{Init File}.) Then, outside Emacs, set the @env{EDITOR} |
| 1259 | example, to make @TeX{} use @samp{emacsclient}, you should set the | 1259 | environment variable to @samp{emacsclient}. (Note that some programs |
| 1260 | @env{TEXEDIT} environment variable to @samp{emacsclient +%d %s}.) | 1260 | use a different environment variable; for example, to make @TeX{} use |
| 1261 | @samp{emacsclient}, you should set the @env{TEXEDIT} environment | ||
| 1262 | variable to @samp{emacsclient +%d %s}.) | ||
| 1263 | |||
| 1264 | @pindex emacs.bash | ||
| 1265 | @cindex Bash command to use Emacs server | ||
| 1266 | As an alternative to using @code{emacsclient}, the file | ||
| 1267 | @file{etc/emacs.bash} defines a Bash command @code{edit} which will | ||
| 1268 | communicate with a running Emacs session, or start one if none exist. | ||
| 1261 | 1269 | ||
| 1262 | @kindex C-x # | 1270 | @kindex C-x # |
| 1263 | @findex server-edit | 1271 | @findex server-edit |
| 1264 | Then, whenever any program invokes your specified @env{EDITOR} | 1272 | Now, whenever any program invokes your specified @env{EDITOR} |
| 1265 | program, the effect is to send a message to your principal Emacs telling | 1273 | program, the effect is to send a message to your principal Emacs telling |
| 1266 | it to visit a file. (That's what the program @code{emacsclient} does.) | 1274 | it to visit a file. (That's what the program @code{emacsclient} does.) |
| 1267 | Emacs displays the buffer immediately and you can immediately begin | 1275 | Emacs displays the buffer immediately and you can immediately begin |
| 1268 | editing it. | 1276 | editing it in the already running Emacs session. |
| 1269 | 1277 | ||
| 1270 | When you've finished editing that buffer, type @kbd{C-x #} | 1278 | When you've finished editing that buffer, type @kbd{C-x #} |
| 1271 | (@code{server-edit}). This saves the file and sends a message back to | 1279 | (@code{server-edit}). This saves the file and sends a message back to |
| @@ -1297,8 +1305,8 @@ kills it if the file name matches the regular expression | |||
| 1297 | each one a unique ``server name'', using the variable | 1305 | each one a unique ``server name'', using the variable |
| 1298 | @code{server-name}. For example, @kbd{M-x set-variable @key{RET} | 1306 | @code{server-name}. For example, @kbd{M-x set-variable @key{RET} |
| 1299 | server-name @key{RET} foo @key{RET}} sets the server name to | 1307 | server-name @key{RET} foo @key{RET}} sets the server name to |
| 1300 | @samp{foo}. The @code{emacsclient} program can visit a server by name | 1308 | @samp{foo}. The @code{emacsclient} program can specify a server by |
| 1301 | using the @samp{-s} option. @xref{Invoking emacsclient}. | 1309 | name using the @samp{-s} option. @xref{Invoking emacsclient}. |
| 1302 | 1310 | ||
| 1303 | While @code{mail} or another application is waiting for | 1311 | While @code{mail} or another application is waiting for |
| 1304 | @code{emacsclient} to finish, @code{emacsclient} does not read terminal | 1312 | @code{emacsclient} to finish, @code{emacsclient} does not read terminal |
| @@ -1335,6 +1343,7 @@ automatically when you finish with them. | |||
| 1335 | 1343 | ||
| 1336 | @node Invoking emacsclient,, Emacs Server, Emacs Server | 1344 | @node Invoking emacsclient,, Emacs Server, Emacs Server |
| 1337 | @subsection Invoking @code{emacsclient} | 1345 | @subsection Invoking @code{emacsclient} |
| 1346 | @cindex @code{emacsclient} invocation and options | ||
| 1338 | 1347 | ||
| 1339 | To run the @code{emacsclient} program, specify file names as arguments, | 1348 | To run the @code{emacsclient} program, specify file names as arguments, |
| 1340 | and optionally line numbers as well, like this: | 1349 | and optionally line numbers as well, like this: |
| @@ -1363,37 +1372,52 @@ a client buffer, the next client buffer is automatically selected. | |||
| 1363 | @code{emacsclient}, then it returns immediately. (You can take as | 1372 | @code{emacsclient}, then it returns immediately. (You can take as |
| 1364 | long as you like to edit the files in Emacs.) | 1373 | long as you like to edit the files in Emacs.) |
| 1365 | 1374 | ||
| 1366 | The option @samp{--alternate-editor=@var{command}} specifies a | 1375 | The option @samp{-a @var{command}} or |
| 1367 | command to run if @code{emacsclient} fails to contact Emacs. This is | 1376 | @samp{--alternate-editor=@var{command}} specifies a command to run if |
| 1368 | useful when running @code{emacsclient} in a script. For example, the | 1377 | @code{emacsclient} fails to contact Emacs. This is useful when |
| 1369 | following setting for the @env{EDITOR} environment variable will | 1378 | running @code{emacsclient} in a script. For example, the following |
| 1370 | always give you an editor, even if no Emacs server is running: | 1379 | setting for the @env{EDITOR} environment variable will always give you |
| 1380 | an editor, even if no Emacs server is running: | ||
| 1371 | 1381 | ||
| 1372 | @example | 1382 | @example |
| 1373 | EDITOR="emacsclient --alternate-editor emacs +%d %s" | 1383 | EDITOR="emacsclient --alternate-editor emacs +%d %s" |
| 1374 | @end example | 1384 | @end example |
| 1375 | 1385 | ||
| 1376 | @noindent | 1386 | @noindent |
| 1387 | @cindex @env{ALTERNATE_EDITOR} environment variable | ||
| 1377 | The environment variable @env{ALTERNATE_EDITOR} has the same effect, with | 1388 | The environment variable @env{ALTERNATE_EDITOR} has the same effect, with |
| 1378 | the value of the @samp{--alternate-editor} option taking precedence. | 1389 | the value of the @samp{--alternate-editor} option taking precedence. |
| 1379 | 1390 | ||
| 1380 | @pindex emacs.bash | ||
| 1381 | Alternatively, the file @file{etc/emacs.bash} defines a bash | ||
| 1382 | function which will communicate with a running Emacs server, or start | ||
| 1383 | one if none exists. | ||
| 1384 | |||
| 1385 | If you use several displays, you can tell Emacs on which display to | 1391 | If you use several displays, you can tell Emacs on which display to |
| 1386 | open the given files with the option @samp{--display=@var{DISPLAY}}. | 1392 | open the given files with the @samp{-d @var{display}} or |
| 1387 | This can be used typically when connecting from home to an Emacs | 1393 | @samp{--display=@var{display}} option to @code{emacsclient}. This is |
| 1388 | server running on your machine at your workplace. | 1394 | handy when connecting from home to an Emacs session running on your |
| 1395 | machine at your workplace. | ||
| 1389 | 1396 | ||
| 1390 | If there is more than one Emacs server running, you can specify a | 1397 | If there is more than one Emacs server running, you can specify a |
| 1391 | server name with the option @samp{-s @var{name}}. | 1398 | server name with the @samp{-s @var{name}} or |
| 1399 | @samp{--socket-name=@var{name}} option to @code{emacsclient}. (This | ||
| 1400 | option is not supported on MS-Windows.) | ||
| 1392 | 1401 | ||
| 1393 | You can also use @code{emacsclient} to execute any piece of Emacs Lisp | 1402 | You can also use @code{emacsclient} to execute any piece of Emacs Lisp |
| 1394 | code, using the option @samp{--eval}. When this option is given, the | 1403 | code, using the @samp{-e} or @samp{--eval} option. When this option |
| 1395 | rest of the arguments is not taken as a list of files to visit but as | 1404 | is given, the rest of the arguments is interpreted as a list of |
| 1396 | a list of expressions to evaluate. | 1405 | expressions to evaluate, not a list of files to visit. |
| 1406 | |||
| 1407 | @cindex @env{EMACS_SERVER_FILE} environment variable | ||
| 1408 | When you start the Emacs server (by calling @code{server-start}), | ||
| 1409 | Emacs creates a file with information about TCP connection to the | ||
| 1410 | server: the host where Emacs is running, the port where it is | ||
| 1411 | listening, and an authentication string. @code{emacsclient} uses this | ||
| 1412 | information if it needs to connect to the server via TCP. By default, | ||
| 1413 | the file goes in the @file{~/.emacs.d/server/} directory@footnote{On | ||
| 1414 | MS-Windows, if @env{HOME} is not set or the TCP configuration file | ||
| 1415 | cannot be found there, Emacs also looks for the file in the | ||
| 1416 | @file{.emacs.d/server/} subdirectory of the directory pointed to by | ||
| 1417 | the @env{APPDATA} environment variable.}. You can specify the file | ||
| 1418 | name to use with the @samp{-f @var{file}} or | ||
| 1419 | @samp{--server-file=@var{file}} options, or by setting | ||
| 1420 | @env{EMACS_SERVER_FILE} environment variable to the file name. | ||
| 1397 | 1421 | ||
| 1398 | @node Printing, Sorting, Emacs Server, Top | 1422 | @node Printing, Sorting, Emacs Server, Top |
| 1399 | @section Printing Hard Copies | 1423 | @section Printing Hard Copies |
diff --git a/man/text.texi b/man/text.texi index e27be49248f..4cdc78934e0 100644 --- a/man/text.texi +++ b/man/text.texi | |||
| @@ -1844,7 +1844,7 @@ characters themselves (@code{sgml-name-8bit-mode}). | |||
| 1844 | Run a shell command (which you must specify) to validate the current | 1844 | Run a shell command (which you must specify) to validate the current |
| 1845 | buffer as SGML (@code{sgml-validate}). | 1845 | buffer as SGML (@code{sgml-validate}). |
| 1846 | 1846 | ||
| 1847 | @item C-x TAB | 1847 | @item C-c TAB |
| 1848 | @kindex C-c TAB @r{(SGML mode)} | 1848 | @kindex C-c TAB @r{(SGML mode)} |
| 1849 | @findex sgml-tags-invisible | 1849 | @findex sgml-tags-invisible |
| 1850 | Toggle the visibility of existing tags in the buffer. This can be | 1850 | Toggle the visibility of existing tags in the buffer. This can be |
diff --git a/oldXMenu/Activate.c b/oldXMenu/Activate.c index 6809607c3dc..ad29bd6e8c5 100644 --- a/oldXMenu/Activate.c +++ b/oldXMenu/Activate.c | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | /* Copyright Massachusetts Institute of Technology 1985 */ | 1 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 2 | /* Copyright (C) 2002, 2003, 2004, 2005, | 2 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 3 | 2006 Free Software Foundation, Inc. */ | 3 | 2006 Free Software Foundation, Inc. */ |
| 4 | 4 | ||
| 5 | #include "copyright.h" | 5 | #include "copyright.h" |
diff --git a/oldXMenu/AddPane.c b/oldXMenu/AddPane.c index 2e122ea0ae3..35d85a863b7 100644 --- a/oldXMenu/AddPane.c +++ b/oldXMenu/AddPane.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/AddSel.c b/oldXMenu/AddSel.c index 6ddec57a525..dca0e4be88b 100644 --- a/oldXMenu/AddSel.c +++ b/oldXMenu/AddSel.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/ChgPane.c b/oldXMenu/ChgPane.c index 20b0a949d9a..ce9b8b8b3e8 100644 --- a/oldXMenu/ChgPane.c +++ b/oldXMenu/ChgPane.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/ChgSel.c b/oldXMenu/ChgSel.c index b34a22574f2..9e80240cd51 100644 --- a/oldXMenu/ChgSel.c +++ b/oldXMenu/ChgSel.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/Create.c b/oldXMenu/Create.c index 77115b20835..679f5b84183 100644 --- a/oldXMenu/Create.c +++ b/oldXMenu/Create.c | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | /* Copyright Massachusetts Institute of Technology 1985 */ | 1 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 2 | /* Copyright (C) 2002, 2003, 2004, 2005, | 2 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 3 | 2006 Free Software Foundation, Inc. */ | 3 | 2006 Free Software Foundation, Inc. */ |
| 4 | 4 | ||
| 5 | #include "copyright.h" | 5 | #include "copyright.h" |
diff --git a/oldXMenu/DelPane.c b/oldXMenu/DelPane.c index e824b539cf1..7680cb65de7 100644 --- a/oldXMenu/DelPane.c +++ b/oldXMenu/DelPane.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/DelSel.c b/oldXMenu/DelSel.c index c8b39eb03a1..bae42c21572 100644 --- a/oldXMenu/DelSel.c +++ b/oldXMenu/DelSel.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/Destroy.c b/oldXMenu/Destroy.c index 52ab5028546..082de8872a4 100644 --- a/oldXMenu/Destroy.c +++ b/oldXMenu/Destroy.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/Error.c b/oldXMenu/Error.c index 51d5b8fa6cb..d05cabc2d56 100644 --- a/oldXMenu/Error.c +++ b/oldXMenu/Error.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/EvHand.c b/oldXMenu/EvHand.c index 457609f4c2a..84836c92e1c 100644 --- a/oldXMenu/EvHand.c +++ b/oldXMenu/EvHand.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/FindPane.c b/oldXMenu/FindPane.c index 6c0be73f0fb..4f354562d6c 100644 --- a/oldXMenu/FindPane.c +++ b/oldXMenu/FindPane.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/FindSel.c b/oldXMenu/FindSel.c index 777770a4706..cf14656aad1 100644 --- a/oldXMenu/FindSel.c +++ b/oldXMenu/FindSel.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/InsPane.c b/oldXMenu/InsPane.c index 5f8f334f184..063b811a7da 100644 --- a/oldXMenu/InsPane.c +++ b/oldXMenu/InsPane.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/InsSel.c b/oldXMenu/InsSel.c index 30e0756d8e4..540787f7b21 100644 --- a/oldXMenu/InsSel.c +++ b/oldXMenu/InsSel.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/Internal.c b/oldXMenu/Internal.c index ec11cc7d156..8a656ebcfe9 100644 --- a/oldXMenu/Internal.c +++ b/oldXMenu/Internal.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/Locate.c b/oldXMenu/Locate.c index 59916eee979..156d75762b1 100644 --- a/oldXMenu/Locate.c +++ b/oldXMenu/Locate.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/Post.c b/oldXMenu/Post.c index ca6bb5752ab..b4a2a0966ac 100644 --- a/oldXMenu/Post.c +++ b/oldXMenu/Post.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/Recomp.c b/oldXMenu/Recomp.c index e955323c825..ad20508fbf3 100644 --- a/oldXMenu/Recomp.c +++ b/oldXMenu/Recomp.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/SetAEQ.c b/oldXMenu/SetAEQ.c index 437f5e2d721..0b431ec712b 100644 --- a/oldXMenu/SetAEQ.c +++ b/oldXMenu/SetAEQ.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/SetFrz.c b/oldXMenu/SetFrz.c index 7a75dddfd59..a9a0ca6a712 100644 --- a/oldXMenu/SetFrz.c +++ b/oldXMenu/SetFrz.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/SetPane.c b/oldXMenu/SetPane.c index e76b75902c3..98a028e32c2 100644 --- a/oldXMenu/SetPane.c +++ b/oldXMenu/SetPane.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/SetSel.c b/oldXMenu/SetSel.c index 5910354b966..2aaf354b598 100644 --- a/oldXMenu/SetSel.c +++ b/oldXMenu/SetSel.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/X10.h b/oldXMenu/X10.h index 4d7d84e8c03..e6ac3433620 100644 --- a/oldXMenu/X10.h +++ b/oldXMenu/X10.h | |||
| @@ -15,7 +15,7 @@ | |||
| 15 | * | 15 | * |
| 16 | */ | 16 | */ |
| 17 | 17 | ||
| 18 | /* Copyright (C) 2002, 2003, 2004, 2005, | 18 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 19 | 2006 Free Software Foundation, Inc. */ | 19 | 2006 Free Software Foundation, Inc. */ |
| 20 | 20 | ||
| 21 | /* | 21 | /* |
diff --git a/oldXMenu/XCrAssoc.c b/oldXMenu/XCrAssoc.c index 0596b9fcee1..7e022ce566b 100644 --- a/oldXMenu/XCrAssoc.c +++ b/oldXMenu/XCrAssoc.c | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | /* Copyright Massachusetts Institute of Technology 1985 */ | 1 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 2 | /* Copyright (C) 2002, 2003, 2004, 2005, | 2 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 3 | 2006 Free Software Foundation, Inc. */ | 3 | 2006 Free Software Foundation, Inc. */ |
| 4 | 4 | ||
| 5 | /* | 5 | /* |
diff --git a/oldXMenu/XDelAssoc.c b/oldXMenu/XDelAssoc.c index 772e9fa1b40..3e111dceacd 100644 --- a/oldXMenu/XDelAssoc.c +++ b/oldXMenu/XDelAssoc.c | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | /* Copyright Massachusetts Institute of Technology 1985 */ | 1 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 2 | /* Copyright (C) 2002, 2003, 2004, 2005, | 2 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 3 | 2006 Free Software Foundation, Inc. */ | 3 | 2006 Free Software Foundation, Inc. */ |
| 4 | 4 | ||
| 5 | /* | 5 | /* |
diff --git a/oldXMenu/XDestAssoc.c b/oldXMenu/XDestAssoc.c index 1772321ad27..8cb1faa2d69 100644 --- a/oldXMenu/XDestAssoc.c +++ b/oldXMenu/XDestAssoc.c | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | /* Copyright Massachusetts Institute of Technology 1985 */ | 1 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 2 | /* Copyright (C) 2002, 2003, 2004, 2005, | 2 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 3 | 2006 Free Software Foundation, Inc. */ | 3 | 2006 Free Software Foundation, Inc. */ |
| 4 | 4 | ||
| 5 | /* | 5 | /* |
diff --git a/oldXMenu/XLookAssoc.c b/oldXMenu/XLookAssoc.c index 7e72570e2ba..4f3892800d5 100644 --- a/oldXMenu/XLookAssoc.c +++ b/oldXMenu/XLookAssoc.c | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | /* Copyright Massachusetts Institute of Technology 1985 */ | 1 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 2 | /* Copyright (C) 2002, 2003, 2004, 2005, | 2 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 3 | 2006 Free Software Foundation, Inc. */ | 3 | 2006 Free Software Foundation, Inc. */ |
| 4 | 4 | ||
| 5 | /* | 5 | /* |
diff --git a/oldXMenu/XMakeAssoc.c b/oldXMenu/XMakeAssoc.c index db020c4884b..443c1f447e6 100644 --- a/oldXMenu/XMakeAssoc.c +++ b/oldXMenu/XMakeAssoc.c | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | /* Copyright Massachusetts Institute of Technology 1985 */ | 1 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 2 | /* Copyright (C) 2002, 2003, 2004, 2005, | 2 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 3 | 2006 Free Software Foundation, Inc. */ | 3 | 2006 Free Software Foundation, Inc. */ |
| 4 | 4 | ||
| 5 | /* | 5 | /* |
diff --git a/oldXMenu/XMenu.h b/oldXMenu/XMenu.h index 858e4a64f7b..b3933211199 100644 --- a/oldXMenu/XMenu.h +++ b/oldXMenu/XMenu.h | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | #include "copyright.h" | 1 | #include "copyright.h" |
| 2 | 2 | ||
| 3 | /* Copyright Massachusetts Institute of Technology 1985 */ | 3 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 4 | /* Copyright (C) 2002, 2003, 2004, 2005, | 4 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 5 | 2006 Free Software Foundation, Inc. */ | 5 | 2006 Free Software Foundation, Inc. */ |
| 6 | 6 | ||
| 7 | /* | 7 | /* |
diff --git a/oldXMenu/XMenuInt.h b/oldXMenu/XMenuInt.h index a2e6f56e89b..683ed14e778 100644 --- a/oldXMenu/XMenuInt.h +++ b/oldXMenu/XMenuInt.h | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | /* Copyright Massachusetts Institute of Technology 1985 */ | 1 | /* Copyright Massachusetts Institute of Technology 1985 */ |
| 2 | /* Copyright (C) 2002, 2003, 2004, 2005, | 2 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 3 | 2006 Free Software Foundation, Inc. */ | 3 | 2006 Free Software Foundation, Inc. */ |
| 4 | 4 | ||
| 5 | /* | 5 | /* |
diff --git a/oldXMenu/copyright.h b/oldXMenu/copyright.h index 05062d856df..7f4208bce85 100644 --- a/oldXMenu/copyright.h +++ b/oldXMenu/copyright.h | |||
| @@ -16,7 +16,7 @@ without express or implied warranty. | |||
| 16 | 16 | ||
| 17 | */ | 17 | */ |
| 18 | 18 | ||
| 19 | /* Copyright (C) 2002, 2003, 2004, 2005, | 19 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 20 | 2006 Free Software Foundation, Inc. */ | 20 | 2006 Free Software Foundation, Inc. */ |
| 21 | 21 | ||
| 22 | /* arch-tag: c689b1bc-a3ba-41a1-baa0-a3622b5445b2 | 22 | /* arch-tag: c689b1bc-a3ba-41a1-baa0-a3622b5445b2 |
diff --git a/oldXMenu/insque.c b/oldXMenu/insque.c index fef750484a3..a9d5c5b456d 100644 --- a/oldXMenu/insque.c +++ b/oldXMenu/insque.c | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | /* Copyright (C) 2002, 2003, 2004, 2005, | 1 | /* Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 2 | 2006 Free Software Foundation, Inc. */ | 2 | 2006 Free Software Foundation, Inc. */ |
| 3 | 3 | ||
| 4 | /* This file implements the emacs_insque and emacs_remque functions, | 4 | /* This file implements the emacs_insque and emacs_remque functions, |
diff --git a/src/ChangeLog b/src/ChangeLog index de7417da7ab..27411da33cb 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,3 +1,144 @@ | |||
| 1 | 2006-12-15 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * emacs.c (USAGE3): Clarify documentation of --color. | ||
| 4 | |||
| 5 | 2006-12-15 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | ||
| 6 | |||
| 7 | * mac.c (wakeup_from_rne_enabled_p) [TARGET_API_MAC_CARBON]: New | ||
| 8 | variable. | ||
| 9 | (ENABLE_WAKEUP_FROM_RNE, DISABLE_WAKEUP_FROM_RNE): New macros. | ||
| 10 | [!MAC_OSX] (select): Use them. | ||
| 11 | [MAC_OSX] (select_and_poll_event, sys_select): Likewise. | ||
| 12 | (mac_wakeup_from_rne) [TARGET_API_MAC_CARBON]: New function. | ||
| 13 | |||
| 14 | * macfns.c (mac_atsu_font_face_attributes) [USE_ATSUI]: Add extern. | ||
| 15 | (Fmac_atsu_font_face_attributes) [USE_ATSUI]: New function. | ||
| 16 | (syms_of_macfns) [USE_ATSUI]: Defsubr it. | ||
| 17 | |||
| 18 | * macselect.c [TARGET_API_MAC_CARBON] (mac_do_receive_drag): Use | ||
| 19 | mac_wakeup_from_rne instead of mac_post_mouse_moved_event. | ||
| 20 | |||
| 21 | * macterm.c (mac_query_char_extents) [USE_ATSUI]: Don't call | ||
| 22 | ATSUGetGlyphBounds if not necessary. | ||
| 23 | (Vmac_atsu_font_table) [USE_ATSUI]: Remove Variable. | ||
| 24 | (syms_of_macterm) [USE_ATSUI]: Don't defvar it. | ||
| 25 | (fm_get_style_from_font, atsu_find_font_from_family_name) | ||
| 26 | (atsu_find_font_family_name, mac_atsu_font_face_attributes) | ||
| 27 | [USE_ATSUI]: New functions. | ||
| 28 | (init_font_name_table) [USE_ATSUI]: Use atsu_find_font_family_name. | ||
| 29 | (mac_load_query_font) [USE_ATSUI]: Use atsu_find_font_from_family_name. | ||
| 30 | Don't get metrics for Latin-1 right half characters. | ||
| 31 | (mac_load_query_font): Don't load font if space width is not positive. | ||
| 32 | [TARGET_API_MAC_CARBON] (mac_store_event_ref_as_apple_event): Use | ||
| 33 | mac_wakeup_from_rne instead of mac_post_mouse_moved_event. | ||
| 34 | (XTread_socket): Call SelectWindow when unfocused frame is clicked. | ||
| 35 | |||
| 36 | * macterm.h (mac_wakeup_from_rne) [TARGET_API_MAC_CARBON]: Add extern. | ||
| 37 | |||
| 38 | 2006-12-15 Kim F. Storm <storm@cua.dk> | ||
| 39 | |||
| 40 | * keyboard.c (ignore_mouse_drag_p): New global var. | ||
| 41 | (some_mouse_moved): Return 0 if it is non-zero. | ||
| 42 | (make_lispy_event): Generate click event on mouse up if | ||
| 43 | ignore_mouse_drag_p is non-zero, even if mouse moved. | ||
| 44 | Clear ignore_mouse_drag_p on mouse down/up. | ||
| 45 | |||
| 46 | * xdisp.c (redisplay_window): Set ignore_mouse_drag_p if tool-bar | ||
| 47 | is resized to avoid generating a mouse drag event. | ||
| 48 | |||
| 49 | 2006-12-14 Juanma Barranquero <lekktu@gmail.com> | ||
| 50 | |||
| 51 | * w32fns.c (w32_wnd_proc): Force non-tooltip frames to respect the | ||
| 52 | minimum tracking size. Remove non-working old hack to do the same. | ||
| 53 | |||
| 54 | 2006-12-14 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | ||
| 55 | |||
| 56 | * emacs.c (handle_user_signal): Move function to keyboard.c. | ||
| 57 | (main): Use add_user_signal for SIGUSR1 and SIGUSR2. | ||
| 58 | |||
| 59 | * keyboard.c (make_lispy_event): Use find_user_signal_name. | ||
| 60 | (read_avail_input): Store pending user signal events. | ||
| 61 | (struct user_signal_info): New struct. | ||
| 62 | (user_signals): New variable. | ||
| 63 | (add_user_signal, store_user_signal_events) | ||
| 64 | (find_user_signal_name): New functions. | ||
| 65 | (handle_user_signal): Move function from emacs.c. Don't store | ||
| 66 | USER_SIGNAL_EVENT here, but increment number of pending signals. | ||
| 67 | |||
| 68 | * keyboard.h (add_user_signals): Add extern. | ||
| 69 | |||
| 70 | 2006-12-11 Juanma Barranquero <lekktu@gmail.com> | ||
| 71 | |||
| 72 | * buffer.c (syms_of_buffer) <cursor-in-non-selected-windows>: | ||
| 73 | <default-scroll-up-aggressively, default-scroll-down-aggressively>: | ||
| 74 | <line-spacing, left-margin>: Doc fixes. | ||
| 75 | |||
| 76 | * xdisp.c (syms_of_xdisp) <mode-line-inverse-video>: Doc fix. | ||
| 77 | |||
| 78 | 2006-12-10 Kim F. Storm <storm@cua.dk> | ||
| 79 | |||
| 80 | * xdisp.c (show_mouse_face): Never use text cursor in tool-bar. | ||
| 81 | |||
| 82 | 2006-12-10 Juanma Barranquero <lekktu@gmail.com> | ||
| 83 | |||
| 84 | * abbrev.c (syms_of_abbrev) <last-abbrev-text>: | ||
| 85 | * buffer.c (syms_of_buffer) <default-major-mode>: | ||
| 86 | * keymap.c (Flookup_key): | ||
| 87 | * lread.c (Feval_buffer, Feval_region): | ||
| 88 | * macterm.c (syms_of_macterm) <x-use-underline-position-properties>: | ||
| 89 | <x-underline-at-descent-line, mac-emulate-three-button-mouse>: | ||
| 90 | * marker.c (Fmarker_insertion_type): | ||
| 91 | * minibuf.c (syms_of_minibuf) <minibuffer-completion-table>: | ||
| 92 | * msdos.c (syms_of_msdos) <delete-exited-processes>: | ||
| 93 | * w32term.c (syms_of_w32term) <x-use-underline-position-properties>: | ||
| 94 | <x-underline-at-descent-line>: | ||
| 95 | * xdisp.c (format-mode-line): | ||
| 96 | * xterm.c (syms_of_xterm) <x-use-underline-position-properties>: | ||
| 97 | <x-underline-at-descent-line>: Doc fixes. | ||
| 98 | |||
| 99 | 2006-12-10 Andreas Schwab <schwab@suse.de> | ||
| 100 | |||
| 101 | * systime.h (EMACS_GET_TIME): Remove check for | ||
| 102 | HAVE_STRUCT_TIMEZONE which is never defined. | ||
| 103 | |||
| 104 | 2006-12-10 Alan Mackenzie <acm@muc.de> | ||
| 105 | |||
| 106 | * syntax.c (Fpartial_parse_sexp): Correct Docco: Elt 8 of the | ||
| 107 | result is now neither the last elt nor optional for OLDSTATE. | ||
| 108 | |||
| 109 | 2006-12-09 Eli Zaretskii <eliz@gnu.org> | ||
| 110 | |||
| 111 | * process.c (Fsignal_process): Doc fix. Use XFLOAT_DATA to | ||
| 112 | extract the process ID from a Lisp float. | ||
| 113 | |||
| 114 | 2006-12-09 Chong Yidong <cyd@stupidchicken.com> | ||
| 115 | |||
| 116 | * xterm.c (XTframe_raise_lower): Comment out _NET_ACTIVE_WINDOW code. | ||
| 117 | |||
| 118 | 2006-12-08 Eli Zaretskii <eliz@gnu.org> | ||
| 119 | |||
| 120 | * frame.h (PIX_TYPE): Redefine as `unsigned long', for 64-bit | ||
| 121 | platforms where long is 64-bit. | ||
| 122 | |||
| 123 | * msdos.h (PIX_TYPE): Redefine as `unsigned long'. | ||
| 124 | |||
| 125 | 2006-12-08 NAKAJI Hiroyuki <nakaji@jp.freebsd.org> (tiny change) | ||
| 126 | |||
| 127 | * m/amdx86-64.h: Add support for Solaris 10 on x86-64. | ||
| 128 | |||
| 129 | 2006-12-08 Kenichi Handa <handa@m17n.org> | ||
| 130 | |||
| 131 | * xterm.c (x_query_font): Use xstricmp instead off strcasecmp. | ||
| 132 | |||
| 133 | 2006-12-08 Juanma Barranquero <lekktu@gmail.com> | ||
| 134 | |||
| 135 | * emacs.c (syms_of_emacs) <system-type>: Doc fix. | ||
| 136 | |||
| 137 | 2006-12-07 Kim F. Storm <storm@cua.dk> | ||
| 138 | |||
| 139 | * process.c (parse_signal): Use xstricmp instead of strcasecmp. | ||
| 140 | (Fsignal_process): Don't use strncasecmp. | ||
| 141 | |||
| 1 | 2006-12-05 Glenn Morris <rgm@gnu.org> | 142 | 2006-12-05 Glenn Morris <rgm@gnu.org> |
| 2 | 143 | ||
| 3 | * abbrev.c (Qforce): New Lisp_Object. | 144 | * abbrev.c (Qforce): New Lisp_Object. |
diff --git a/src/abbrev.c b/src/abbrev.c index 5e8c8c98862..2d95b881bc5 100644 --- a/src/abbrev.c +++ b/src/abbrev.c | |||
| @@ -685,7 +685,7 @@ for any particular abbrev defined in both. */); | |||
| 685 | 685 | ||
| 686 | DEFVAR_LISP ("last-abbrev-text", &Vlast_abbrev_text, | 686 | DEFVAR_LISP ("last-abbrev-text", &Vlast_abbrev_text, |
| 687 | doc: /* The exact text of the last abbrev expanded. | 687 | doc: /* The exact text of the last abbrev expanded. |
| 688 | nil if the abbrev has already been unexpanded. */); | 688 | A value of nil means the abbrev has already been unexpanded. */); |
| 689 | 689 | ||
| 690 | DEFVAR_INT ("last-abbrev-location", &last_abbrev_point, | 690 | DEFVAR_INT ("last-abbrev-location", &last_abbrev_point, |
| 691 | doc: /* The location of the start of the last abbrev expanded. */); | 691 | doc: /* The location of the start of the last abbrev expanded. */); |
diff --git a/src/buffer.c b/src/buffer.c index 95f900aaf46..e9c3c47a959 100644 --- a/src/buffer.c +++ b/src/buffer.c | |||
| @@ -5447,13 +5447,13 @@ This is the same as (default-value 'fringe-cursor-alist'). */); | |||
| 5447 | &buffer_defaults.scroll_up_aggressively, | 5447 | &buffer_defaults.scroll_up_aggressively, |
| 5448 | doc: /* Default value of `scroll-up-aggressively'. | 5448 | doc: /* Default value of `scroll-up-aggressively'. |
| 5449 | This value applies in buffers that don't have their own local values. | 5449 | This value applies in buffers that don't have their own local values. |
| 5450 | This variable is an alias for (default-value 'scroll-up-aggressively). */); | 5450 | This is the same as (default-value 'scroll-up-aggressively). */); |
| 5451 | 5451 | ||
| 5452 | DEFVAR_LISP_NOPRO ("default-scroll-down-aggressively", | 5452 | DEFVAR_LISP_NOPRO ("default-scroll-down-aggressively", |
| 5453 | &buffer_defaults.scroll_down_aggressively, | 5453 | &buffer_defaults.scroll_down_aggressively, |
| 5454 | doc: /* Default value of `scroll-down-aggressively'. | 5454 | doc: /* Default value of `scroll-down-aggressively'. |
| 5455 | This value applies in buffers that don't have their own local values. | 5455 | This value applies in buffers that don't have their own local values. |
| 5456 | This variable is an alias for (default-value 'scroll-down-aggressively). */); | 5456 | This is the same as (default-value 'scroll-down-aggressively). */); |
| 5457 | 5457 | ||
| 5458 | DEFVAR_PER_BUFFER ("header-line-format", | 5458 | DEFVAR_PER_BUFFER ("header-line-format", |
| 5459 | ¤t_buffer->header_line_format, | 5459 | ¤t_buffer->header_line_format, |
| @@ -5516,8 +5516,8 @@ Decimal digits after the % specify field width to which to pad. */); | |||
| 5516 | 5516 | ||
| 5517 | DEFVAR_LISP_NOPRO ("default-major-mode", &buffer_defaults.major_mode, | 5517 | DEFVAR_LISP_NOPRO ("default-major-mode", &buffer_defaults.major_mode, |
| 5518 | doc: /* *Major mode for new buffers. Defaults to `fundamental-mode'. | 5518 | doc: /* *Major mode for new buffers. Defaults to `fundamental-mode'. |
| 5519 | nil here means use current buffer's major mode, provided it is not | 5519 | A value of nil means use current buffer's major mode, |
| 5520 | marked as "special". | 5520 | provided it is not marked as "special". |
| 5521 | 5521 | ||
| 5522 | When a mode is used by default, `find-file' switches to it | 5522 | When a mode is used by default, `find-file' switches to it |
| 5523 | before it reads the contents into the buffer and before | 5523 | before it reads the contents into the buffer and before |
| @@ -5547,7 +5547,7 @@ Interactively, you can set the buffer local value using \\[set-fill-column]. */ | |||
| 5547 | 5547 | ||
| 5548 | DEFVAR_PER_BUFFER ("left-margin", ¤t_buffer->left_margin, | 5548 | DEFVAR_PER_BUFFER ("left-margin", ¤t_buffer->left_margin, |
| 5549 | make_number (Lisp_Int), | 5549 | make_number (Lisp_Int), |
| 5550 | doc: /* *Column for the default indent-line-function to indent to. | 5550 | doc: /* *Column for the default `indent-line-function' to indent to. |
| 5551 | Linefeed indents to this column in Fundamental mode. */); | 5551 | Linefeed indents to this column in Fundamental mode. */); |
| 5552 | 5552 | ||
| 5553 | DEFVAR_PER_BUFFER ("tab-width", ¤t_buffer->tab_width, | 5553 | DEFVAR_PER_BUFFER ("tab-width", ¤t_buffer->tab_width, |
| @@ -6052,12 +6052,12 @@ this variable has no effect; the cursor appears as a hollow box. */); | |||
| 6052 | doc: /* Additional space to put between lines when displaying a buffer. | 6052 | doc: /* Additional space to put between lines when displaying a buffer. |
| 6053 | The space is measured in pixels, and put below lines on window systems. | 6053 | The space is measured in pixels, and put below lines on window systems. |
| 6054 | If value is a floating point number, it specifies the spacing relative | 6054 | If value is a floating point number, it specifies the spacing relative |
| 6055 | to the default frame line height. nil means add no extra space. */); | 6055 | to the default frame line height. A value of nil means add no extra space. */); |
| 6056 | 6056 | ||
| 6057 | DEFVAR_PER_BUFFER ("cursor-in-non-selected-windows", | 6057 | DEFVAR_PER_BUFFER ("cursor-in-non-selected-windows", |
| 6058 | ¤t_buffer->cursor_in_non_selected_windows, Qnil, | 6058 | ¤t_buffer->cursor_in_non_selected_windows, Qnil, |
| 6059 | doc: /* *Cursor type to display in non-selected windows. | 6059 | doc: /* *Cursor type to display in non-selected windows. |
| 6060 | t means to use hollow box cursor. See `cursor-type' for other values. */); | 6060 | The value t means to use hollow box cursor. See `cursor-type' for other values. */); |
| 6061 | 6061 | ||
| 6062 | DEFVAR_LISP ("kill-buffer-query-functions", &Vkill_buffer_query_functions, | 6062 | DEFVAR_LISP ("kill-buffer-query-functions", &Vkill_buffer_query_functions, |
| 6063 | doc: /* List of functions called with no args to query before killing a buffer. */); | 6063 | doc: /* List of functions called with no args to query before killing a buffer. */); |
diff --git a/src/category.c b/src/category.c index cb6385fdb25..4d19d4a6ccd 100644 --- a/src/category.c +++ b/src/category.c | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | /* GNU Emacs routines to deal with category tables. | 1 | /* GNU Emacs routines to deal with category tables. |
| 2 | Copyright (C) 1998, 2001, 2004, 2005, 2006 Free Software Foundation, Inc. | 2 | Copyright (C) 1998, 2001, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 3 | Copyright (C) 1995, 1997, 1998, 1999 | 3 | Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | 2005, 2006 | ||
| 4 | National Institute of Advanced Industrial Science and Technology (AIST) | 5 | National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | Registration Number H14PRO021 | 6 | Registration Number H14PRO021 |
| 6 | Copyright (C) 2003 | 7 | Copyright (C) 2003 |
diff --git a/src/category.h b/src/category.h index 4799b7a5e3d..86257635226 100644 --- a/src/category.h +++ b/src/category.h | |||
| @@ -1,5 +1,6 @@ | |||
| 1 | /* Declarations having to do with Emacs category tables. | 1 | /* Declarations having to do with Emacs category tables. |
| 2 | Copyright (C) 1995, 1998, 1999 | 2 | Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 3 | 2005, 2006 | ||
| 3 | National Institute of Advanced Industrial Science and Technology (AIST) | 4 | National Institute of Advanced Industrial Science and Technology (AIST) |
| 4 | Registration Number H14PRO021 | 5 | Registration Number H14PRO021 |
| 5 | Copyright (C) 2003 | 6 | Copyright (C) 2003 |
| @@ -1,7 +1,8 @@ | |||
| 1 | /* CCL (Code Conversion Language) interpreter. | 1 | /* CCL (Code Conversion Language) interpreter. |
| 2 | Copyright (C) 2001, 2002, 2003, 2004, 2005, | 2 | Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 3 | 2006 Free Software Foundation, Inc. | 3 | 2006 Free Software Foundation, Inc. |
| 4 | Copyright (C) 1995, 1997, 1998, 2003, 2004, 2005 | 4 | Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 5 | 2005, 2006 | ||
| 5 | National Institute of Advanced Industrial Science and Technology (AIST) | 6 | National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | Registration Number H14PRO021 | 7 | Registration Number H14PRO021 |
| 7 | Copyright (C) 2003 | 8 | Copyright (C) 2003 |
| @@ -1,5 +1,6 @@ | |||
| 1 | /* Header for CCL (Code Conversion Language) interpreter. | 1 | /* Header for CCL (Code Conversion Language) interpreter. |
| 2 | Copyright (C) 1995, 1998, 2000 | 2 | Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 3 | 2005, 2006 | ||
| 3 | National Institute of Advanced Industrial Science and Technology (AIST) | 4 | National Institute of Advanced Industrial Science and Technology (AIST) |
| 4 | Registration Number H14PRO021 | 5 | Registration Number H14PRO021 |
| 5 | Copyright (C) 2003 | 6 | Copyright (C) 2003 |
diff --git a/src/charset.c b/src/charset.c index 2228a24f698..9fb7f641705 100644 --- a/src/charset.c +++ b/src/charset.c | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | /* Basic character set support. | 1 | /* Basic character set support. |
| 2 | Copyright (C) 2001, 2002, 2003, 2004, 2005, | 2 | Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 3 | 2006 Free Software Foundation, Inc. | 3 | 2006 Free Software Foundation, Inc. |
| 4 | Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001 | 4 | Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 5 | 2005, 2006 | ||
| 5 | National Institute of Advanced Industrial Science and Technology (AIST) | 6 | National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | Registration Number H14PRO021 | 7 | Registration Number H14PRO021 |
| 7 | Copyright (C) 2003, 2004 | 8 | Copyright (C) 2003, 2004 |
diff --git a/src/charset.h b/src/charset.h index 25ccaf9d324..e7aaf9d6194 100644 --- a/src/charset.h +++ b/src/charset.h | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | /* Header for charset handler. | 1 | /* Header for charset handler. |
| 2 | Copyright (C) 2001, 2002, 2003, 2004, 2005, | 2 | Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 3 | 2006 Free Software Foundation, Inc. | 3 | 2006 Free Software Foundation, Inc. |
| 4 | Copyright (C) 1995, 1997, 1998, 2003 | 4 | Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 5 | 2005, 2006 | ||
| 5 | National Institute of Advanced Industrial Science and Technology (AIST) | 6 | National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | Registration Number H14PRO021 | 7 | Registration Number H14PRO021 |
| 7 | Copyright (C) 2003 | 8 | Copyright (C) 2003 |
diff --git a/src/coding.c b/src/coding.c index 28ab86c43fc..50c63b4beb8 100644 --- a/src/coding.c +++ b/src/coding.c | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | /* Coding system handler (conversion, detection, etc). | 1 | /* Coding system handler (conversion, detection, etc). |
| 2 | Copyright (C) 2001, 2002, 2003, 2004, 2005, | 2 | Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 3 | 2006 Free Software Foundation, Inc. | 3 | 2006 Free Software Foundation, Inc. |
| 4 | Copyright (C) 1995, 1997, 1998, 2002, 2003, 2004, 2005 | 4 | Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 5 | 2005, 2006 | ||
| 5 | National Institute of Advanced Industrial Science and Technology (AIST) | 6 | National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | Registration Number H14PRO021 | 7 | Registration Number H14PRO021 |
| 7 | Copyright (C) 2003 | 8 | Copyright (C) 2003 |
diff --git a/src/coding.h b/src/coding.h index 93375d2c2eb..0f8d2b0ed7b 100644 --- a/src/coding.h +++ b/src/coding.h | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | /* Header for coding system handler. | 1 | /* Header for coding system handler. |
| 2 | Copyright (C) 2002, 2003, 2004, 2005, | 2 | Copyright (C) 2002, 2003, 2004, 2005, |
| 3 | 2006 Free Software Foundation, Inc. | 3 | 2006 Free Software Foundation, Inc. |
| 4 | Copyright (C) 1995, 1997, 1998, 2000 | 4 | Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 5 | 2005, 2006 | ||
| 5 | National Institute of Advanced Industrial Science and Technology (AIST) | 6 | National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | Registration Number H14PRO021 | 7 | Registration Number H14PRO021 |
| 7 | Copyright (C) 2003 | 8 | Copyright (C) 2003 |
diff --git a/src/composite.c b/src/composite.c index ea6b3708f12..1ccd3af2515 100644 --- a/src/composite.c +++ b/src/composite.c | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | /* Composite sequence support. | 1 | /* Composite sequence support. |
| 2 | Copyright (C) 2001, 2002, 2003, 2004, 2005, | 2 | Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 3 | 2006 Free Software Foundation, Inc. | 3 | 2006 Free Software Foundation, Inc. |
| 4 | Copyright (C) 1999 | 4 | Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | National Institute of Advanced Industrial Science and Technology (AIST) | 5 | National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | Registration Number H14PRO021 | 6 | Registration Number H14PRO021 |
| 7 | Copyright (C) 2003, 2006 | 7 | Copyright (C) 2003, 2006 |
diff --git a/src/composite.h b/src/composite.h index 08463afd899..6e600e7a29b 100644 --- a/src/composite.h +++ b/src/composite.h | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | /* Header for composite sequence handler. | 1 | /* Header for composite sequence handler. |
| 2 | Copyright (C) 2001, 2002, 2003, 2004, 2005, | 2 | Copyright (C) 2001, 2002, 2003, 2004, 2005, |
| 3 | 2006 Free Software Foundation, Inc. | 3 | 2006 Free Software Foundation, Inc. |
| 4 | Copyright (C) 1997 | 4 | Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 |
| 5 | National Institute of Advanced Industrial Science and Technology (AIST) | 5 | National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | Registration Number H14PRO021 | 6 | Registration Number H14PRO021 |
| 7 | Copyright (C) 2003, 2006 | 7 | Copyright (C) 2003, 2006 |
diff --git a/src/emacs.c b/src/emacs.c index 935a12463dc..6601336edd5 100644 --- a/src/emacs.c +++ b/src/emacs.c | |||
| @@ -303,7 +303,7 @@ Display options:\n\ | |||
| 303 | used for debugging Emacs\n\ | 303 | used for debugging Emacs\n\ |
| 304 | --border-color, -bd COLOR main border color\n\ | 304 | --border-color, -bd COLOR main border color\n\ |
| 305 | --border-width, -bw WIDTH width of main border\n\ | 305 | --border-width, -bw WIDTH width of main border\n\ |
| 306 | --color, --color=MODE color mode for character terminals;\n\ | 306 | --color, --color=MODE override color mode for character terminals;\n\ |
| 307 | MODE defaults to `auto', and can also\n\ | 307 | MODE defaults to `auto', and can also\n\ |
| 308 | be `never', `auto', `always',\n\ | 308 | be `never', `auto', `always',\n\ |
| 309 | or a mode name like `ansi8'\n\ | 309 | or a mode name like `ansi8'\n\ |
| @@ -361,24 +361,6 @@ pthread_t main_thread; | |||
| 361 | #endif | 361 | #endif |
| 362 | 362 | ||
| 363 | 363 | ||
| 364 | #if defined (SIGUSR1) || defined (SIGUSR2) | ||
| 365 | SIGTYPE | ||
| 366 | handle_user_signal (sig) | ||
| 367 | int sig; | ||
| 368 | { | ||
| 369 | struct input_event buf; | ||
| 370 | |||
| 371 | SIGNAL_THREAD_CHECK (sig); | ||
| 372 | bzero (&buf, sizeof buf); | ||
| 373 | buf.kind = USER_SIGNAL_EVENT; | ||
| 374 | buf.frame_or_window = selected_frame; | ||
| 375 | |||
| 376 | kbd_buffer_store_event (&buf); | ||
| 377 | buf.code = sig; | ||
| 378 | kbd_buffer_store_event (&buf); | ||
| 379 | } | ||
| 380 | #endif | ||
| 381 | |||
| 382 | /* Handle bus errors, invalid instruction, etc. */ | 364 | /* Handle bus errors, invalid instruction, etc. */ |
| 383 | SIGTYPE | 365 | SIGTYPE |
| 384 | fatal_error_signal (sig) | 366 | fatal_error_signal (sig) |
| @@ -1214,10 +1196,10 @@ main (argc, argv | |||
| 1214 | signal (SIGILL, fatal_error_signal); | 1196 | signal (SIGILL, fatal_error_signal); |
| 1215 | signal (SIGTRAP, fatal_error_signal); | 1197 | signal (SIGTRAP, fatal_error_signal); |
| 1216 | #ifdef SIGUSR1 | 1198 | #ifdef SIGUSR1 |
| 1217 | signal (SIGUSR1, handle_user_signal); | 1199 | add_user_signal (SIGUSR1, "usr1"); |
| 1218 | #endif | 1200 | #endif |
| 1219 | #ifdef SIGUSR2 | 1201 | #ifdef SIGUSR2 |
| 1220 | signal (SIGUSR2, handle_user_signal); | 1202 | add_user_signal (SIGUSR2, "usr2"); |
| 1221 | #endif | 1203 | #endif |
| 1222 | #ifdef SIGABRT | 1204 | #ifdef SIGABRT |
| 1223 | signal (SIGABRT, fatal_error_signal); | 1205 | signal (SIGABRT, fatal_error_signal); |
| @@ -2478,7 +2460,8 @@ Special values: | |||
| 2478 | `ms-dos' compiled as an MS-DOS application. | 2460 | `ms-dos' compiled as an MS-DOS application. |
| 2479 | `windows-nt' compiled as a native W32 application. | 2461 | `windows-nt' compiled as a native W32 application. |
| 2480 | `cygwin' compiled using the Cygwin library. | 2462 | `cygwin' compiled using the Cygwin library. |
| 2481 | `vax-vms' or `axp-vms': compiled for a (Open)VMS system. | 2463 | `vax-vms' or |
| 2464 | `axp-vms' compiled for a (Open)VMS system. | ||
| 2482 | Anything else indicates some sort of Unix system. */); | 2465 | Anything else indicates some sort of Unix system. */); |
| 2483 | Vsystem_type = intern (SYSTEM_TYPE); | 2466 | Vsystem_type = intern (SYSTEM_TYPE); |
| 2484 | 2467 | ||
diff --git a/src/fontset.c b/src/fontset.c index a52082e2ff4..5a50012fef4 100644 --- a/src/fontset.c +++ b/src/fontset.c | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | /* Fontset handler. | 1 | /* Fontset handler. |
| 2 | Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. | 2 | Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 3 | Copyright (C) 1995, 1997, 1998, 2000, 2003, 2004, 2005 | 3 | Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 4 | 2005, 2006 | ||
| 4 | National Institute of Advanced Industrial Science and Technology (AIST) | 5 | National Institute of Advanced Industrial Science and Technology (AIST) |
| 5 | Registration Number H14PRO021 | 6 | Registration Number H14PRO021 |
| 6 | Copyright (C) 2003, 2006 | 7 | Copyright (C) 2003, 2006 |
diff --git a/src/fontset.h b/src/fontset.h index cf09dde73f2..b86c26784c7 100644 --- a/src/fontset.h +++ b/src/fontset.h | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | /* Header for fontset handler. | 1 | /* Header for fontset handler. |
| 2 | Copyright (C) 1998, 2002, 2003, 2004, 2005, | 2 | Copyright (C) 1998, 2002, 2003, 2004, 2005, |
| 3 | 2006 Free Software Foundation, Inc. | 3 | 2006 Free Software Foundation, Inc. |
| 4 | Copyright (C) 1995, 1997, 2000 | 4 | Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
| 5 | 2005, 2006 | ||
| 5 | National Institute of Advanced Industrial Science and Technology (AIST) | 6 | National Institute of Advanced Industrial Science and Technology (AIST) |
| 6 | Registration Number H14PRO021 | 7 | Registration Number H14PRO021 |
| 7 | Copyright (C) 2003, 2006 | 8 | Copyright (C) 2003, 2006 |
diff --git a/src/frame.h b/src/frame.h index 75770eb4c36..3148e583e89 100644 --- a/src/frame.h +++ b/src/frame.h | |||
| @@ -72,7 +72,7 @@ enum text_cursor_kinds | |||
| 72 | 72 | ||
| 73 | #if !defined(HAVE_X_WINDOWS) | 73 | #if !defined(HAVE_X_WINDOWS) |
| 74 | 74 | ||
| 75 | #define PIX_TYPE int | 75 | #define PIX_TYPE unsigned long |
| 76 | 76 | ||
| 77 | /* A (mostly empty) x_output structure definition for building Emacs | 77 | /* A (mostly empty) x_output structure definition for building Emacs |
| 78 | on Unix and GNU/Linux without X support. */ | 78 | on Unix and GNU/Linux without X support. */ |
diff --git a/src/keyboard.c b/src/keyboard.c index 3a9f6f415db..ef8107b2ce3 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -699,6 +699,9 @@ static SIGTYPE interrupt_signal P_ ((int signalnum)); | |||
| 699 | static void timer_start_idle P_ ((void)); | 699 | static void timer_start_idle P_ ((void)); |
| 700 | static void timer_stop_idle P_ ((void)); | 700 | static void timer_stop_idle P_ ((void)); |
| 701 | static void timer_resume_idle P_ ((void)); | 701 | static void timer_resume_idle P_ ((void)); |
| 702 | static SIGTYPE handle_user_signal P_ ((int)); | ||
| 703 | static char *find_user_signal_name P_ ((int)); | ||
| 704 | static int store_user_signal_events P_ ((void)); | ||
| 702 | 705 | ||
| 703 | /* Nonzero means don't try to suspend even if the operating system seems | 706 | /* Nonzero means don't try to suspend even if the operating system seems |
| 704 | to support it. */ | 707 | to support it. */ |
| @@ -1435,13 +1438,25 @@ usage: (track-mouse BODY ...) */) | |||
| 1435 | } | 1438 | } |
| 1436 | 1439 | ||
| 1437 | /* If mouse has moved on some frame, return one of those frames. | 1440 | /* If mouse has moved on some frame, return one of those frames. |
| 1438 | Return 0 otherwise. */ | 1441 | |
| 1442 | Return 0 otherwise. | ||
| 1443 | |||
| 1444 | If ignore_mouse_drag_p is non-zero, ignore (implicit) mouse movement | ||
| 1445 | after resizing the tool-bar window. */ | ||
| 1446 | |||
| 1447 | int ignore_mouse_drag_p; | ||
| 1439 | 1448 | ||
| 1440 | static FRAME_PTR | 1449 | static FRAME_PTR |
| 1441 | some_mouse_moved () | 1450 | some_mouse_moved () |
| 1442 | { | 1451 | { |
| 1443 | Lisp_Object tail, frame; | 1452 | Lisp_Object tail, frame; |
| 1444 | 1453 | ||
| 1454 | if (ignore_mouse_drag_p) | ||
| 1455 | { | ||
| 1456 | //ignore_mouse_drag_p = 0; | ||
| 1457 | return 0; | ||
| 1458 | } | ||
| 1459 | |||
| 1445 | FOR_EACH_FRAME (tail, frame) | 1460 | FOR_EACH_FRAME (tail, frame) |
| 1446 | { | 1461 | { |
| 1447 | if (XFRAME (frame)->mouse_moved) | 1462 | if (XFRAME (frame)->mouse_moved) |
| @@ -5589,6 +5604,7 @@ make_lispy_event (event) | |||
| 5589 | double_click_count = 1; | 5604 | double_click_count = 1; |
| 5590 | button_down_time = event->timestamp; | 5605 | button_down_time = event->timestamp; |
| 5591 | *start_pos_ptr = Fcopy_alist (position); | 5606 | *start_pos_ptr = Fcopy_alist (position); |
| 5607 | ignore_mouse_drag_p = 0; | ||
| 5592 | } | 5608 | } |
| 5593 | 5609 | ||
| 5594 | /* Now we're releasing a button - check the co-ordinates to | 5610 | /* Now we're releasing a button - check the co-ordinates to |
| @@ -5624,8 +5640,13 @@ make_lispy_event (event) | |||
| 5624 | ydiff = XINT (event->y) - XINT (XCDR (down)); | 5640 | ydiff = XINT (event->y) - XINT (XCDR (down)); |
| 5625 | } | 5641 | } |
| 5626 | 5642 | ||
| 5627 | if (xdiff < double_click_fuzz && xdiff > - double_click_fuzz | 5643 | if (ignore_mouse_drag_p) |
| 5628 | && ydiff < double_click_fuzz && ydiff > - double_click_fuzz | 5644 | { |
| 5645 | event->modifiers |= click_modifier; | ||
| 5646 | ignore_mouse_drag_p = 0; | ||
| 5647 | } | ||
| 5648 | else if (xdiff < double_click_fuzz && xdiff > - double_click_fuzz | ||
| 5649 | && ydiff < double_click_fuzz && ydiff > - double_click_fuzz | ||
| 5629 | /* Maybe the mouse has moved a lot, caused scrolling, and | 5650 | /* Maybe the mouse has moved a lot, caused scrolling, and |
| 5630 | eventually ended up at the same screen position (but | 5651 | eventually ended up at the same screen position (but |
| 5631 | not buffer position) in which case it is a drag, not | 5652 | not buffer position) in which case it is a drag, not |
| @@ -5948,20 +5969,16 @@ make_lispy_event (event) | |||
| 5948 | 5969 | ||
| 5949 | case USER_SIGNAL_EVENT: | 5970 | case USER_SIGNAL_EVENT: |
| 5950 | /* A user signal. */ | 5971 | /* A user signal. */ |
| 5951 | switch (event->code) | 5972 | if (event->code == 0) |
| 5973 | return Qsignal; | ||
| 5974 | else | ||
| 5952 | { | 5975 | { |
| 5953 | case 0: | 5976 | char *name = find_user_signal_name (event->code); |
| 5954 | return Qsignal; | 5977 | |
| 5955 | #ifdef SIGUSR1 | 5978 | if (name) |
| 5956 | case SIGUSR1: | 5979 | return intern (name); |
| 5957 | return intern ("usr1"); | 5980 | else |
| 5958 | #endif | 5981 | return make_number (event->code); |
| 5959 | #ifdef SIGUSR2 | ||
| 5960 | case SIGUSR2: | ||
| 5961 | return intern ("usr2"); | ||
| 5962 | #endif | ||
| 5963 | default: | ||
| 5964 | return make_number (event->code); | ||
| 5965 | } | 5982 | } |
| 5966 | 5983 | ||
| 5967 | case SAVE_SESSION_EVENT: | 5984 | case SAVE_SESSION_EVENT: |
| @@ -6799,6 +6816,10 @@ read_avail_input (expected) | |||
| 6799 | register int i; | 6816 | register int i; |
| 6800 | int nread = 0; | 6817 | int nread = 0; |
| 6801 | 6818 | ||
| 6819 | /* Store pending user signal events, if any. */ | ||
| 6820 | if (store_user_signal_events ()) | ||
| 6821 | expected = 0; | ||
| 6822 | |||
| 6802 | if (read_socket_hook) | 6823 | if (read_socket_hook) |
| 6803 | { | 6824 | { |
| 6804 | int nr; | 6825 | int nr; |
| @@ -7022,6 +7043,133 @@ reinvoke_input_signal () | |||
| 7022 | 7043 | ||
| 7023 | 7044 | ||
| 7024 | 7045 | ||
| 7046 | /* User signal events. */ | ||
| 7047 | |||
| 7048 | struct user_signal_info | ||
| 7049 | { | ||
| 7050 | /* Signal number. */ | ||
| 7051 | int sig; | ||
| 7052 | |||
| 7053 | /* Name of the signal. */ | ||
| 7054 | char *name; | ||
| 7055 | |||
| 7056 | /* Number of pending signals. */ | ||
| 7057 | int npending; | ||
| 7058 | |||
| 7059 | struct user_signal_info *next; | ||
| 7060 | }; | ||
| 7061 | |||
| 7062 | /* List of user signals. */ | ||
| 7063 | static struct user_signal_info *user_signals = NULL; | ||
| 7064 | |||
| 7065 | void | ||
| 7066 | add_user_signal (sig, name) | ||
| 7067 | int sig; | ||
| 7068 | const char *name; | ||
| 7069 | { | ||
| 7070 | struct user_signal_info *p; | ||
| 7071 | |||
| 7072 | for (p = user_signals; p; p = p->next) | ||
| 7073 | if (p->sig == sig) | ||
| 7074 | /* Already added. */ | ||
| 7075 | return; | ||
| 7076 | |||
| 7077 | p = xmalloc (sizeof (struct user_signal_info)); | ||
| 7078 | p->sig = sig; | ||
| 7079 | p->name = xstrdup (name); | ||
| 7080 | p->npending = 0; | ||
| 7081 | p->next = user_signals; | ||
| 7082 | user_signals = p; | ||
| 7083 | |||
| 7084 | signal (sig, handle_user_signal); | ||
| 7085 | } | ||
| 7086 | |||
| 7087 | static SIGTYPE | ||
| 7088 | handle_user_signal (sig) | ||
| 7089 | int sig; | ||
| 7090 | { | ||
| 7091 | int old_errno = errno; | ||
| 7092 | struct user_signal_info *p; | ||
| 7093 | |||
| 7094 | #if defined (USG) && !defined (POSIX_SIGNALS) | ||
| 7095 | /* USG systems forget handlers when they are used; | ||
| 7096 | must reestablish each time */ | ||
| 7097 | signal (sig, handle_user_signal); | ||
| 7098 | #endif | ||
| 7099 | |||
| 7100 | SIGNAL_THREAD_CHECK (sig); | ||
| 7101 | |||
| 7102 | for (p = user_signals; p; p = p->next) | ||
| 7103 | if (p->sig == sig) | ||
| 7104 | { | ||
| 7105 | p->npending++; | ||
| 7106 | #ifdef SIGIO | ||
| 7107 | if (interrupt_input) | ||
| 7108 | kill (getpid (), SIGIO); | ||
| 7109 | else | ||
| 7110 | #endif | ||
| 7111 | { | ||
| 7112 | /* Tell wait_reading_process_output that it needs to wake | ||
| 7113 | up and look around. */ | ||
| 7114 | if (input_available_clear_time) | ||
| 7115 | EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0); | ||
| 7116 | } | ||
| 7117 | break; | ||
| 7118 | } | ||
| 7119 | |||
| 7120 | errno = old_errno; | ||
| 7121 | } | ||
| 7122 | |||
| 7123 | static char * | ||
| 7124 | find_user_signal_name (sig) | ||
| 7125 | int sig; | ||
| 7126 | { | ||
| 7127 | struct user_signal_info *p; | ||
| 7128 | |||
| 7129 | for (p = user_signals; p; p = p->next) | ||
| 7130 | if (p->sig == sig) | ||
| 7131 | return p->name; | ||
| 7132 | |||
| 7133 | return NULL; | ||
| 7134 | } | ||
| 7135 | |||
| 7136 | static int | ||
| 7137 | store_user_signal_events () | ||
| 7138 | { | ||
| 7139 | struct user_signal_info *p; | ||
| 7140 | struct input_event buf; | ||
| 7141 | int nstored = 0; | ||
| 7142 | |||
| 7143 | for (p = user_signals; p; p = p->next) | ||
| 7144 | if (p->npending > 0) | ||
| 7145 | { | ||
| 7146 | SIGMASKTYPE mask; | ||
| 7147 | |||
| 7148 | if (nstored == 0) | ||
| 7149 | { | ||
| 7150 | bzero (&buf, sizeof buf); | ||
| 7151 | buf.kind = USER_SIGNAL_EVENT; | ||
| 7152 | buf.frame_or_window = selected_frame; | ||
| 7153 | } | ||
| 7154 | nstored += p->npending; | ||
| 7155 | |||
| 7156 | mask = sigblock (sigmask (p->sig)); | ||
| 7157 | do | ||
| 7158 | { | ||
| 7159 | buf.code = 0; | ||
| 7160 | kbd_buffer_store_event (&buf); | ||
| 7161 | buf.code = p->sig; | ||
| 7162 | kbd_buffer_store_event (&buf); | ||
| 7163 | p->npending--; | ||
| 7164 | } | ||
| 7165 | while (p->npending > 0); | ||
| 7166 | sigsetmask (mask); | ||
| 7167 | } | ||
| 7168 | |||
| 7169 | return nstored; | ||
| 7170 | } | ||
| 7171 | |||
| 7172 | |||
| 7025 | static void menu_bar_item P_ ((Lisp_Object, Lisp_Object, Lisp_Object, void*)); | 7173 | static void menu_bar_item P_ ((Lisp_Object, Lisp_Object, Lisp_Object, void*)); |
| 7026 | static Lisp_Object menu_bar_one_keymap_changed_items; | 7174 | static Lisp_Object menu_bar_one_keymap_changed_items; |
| 7027 | 7175 | ||
diff --git a/src/keyboard.h b/src/keyboard.h index 96ac7d2e856..984ecccc0a4 100644 --- a/src/keyboard.h +++ b/src/keyboard.h | |||
| @@ -344,6 +344,7 @@ extern void gen_help_event P_ ((Lisp_Object, Lisp_Object, Lisp_Object, | |||
| 344 | extern void kbd_buffer_store_help_event P_ ((Lisp_Object, Lisp_Object)); | 344 | extern void kbd_buffer_store_help_event P_ ((Lisp_Object, Lisp_Object)); |
| 345 | extern Lisp_Object menu_item_eval_property P_ ((Lisp_Object)); | 345 | extern Lisp_Object menu_item_eval_property P_ ((Lisp_Object)); |
| 346 | extern int kbd_buffer_events_waiting P_ ((int)); | 346 | extern int kbd_buffer_events_waiting P_ ((int)); |
| 347 | extern void add_user_signals P_ ((int, const char *)); | ||
| 347 | 348 | ||
| 348 | /* arch-tag: 769cbade-1ba9-4950-b886-db265b061aa3 | 349 | /* arch-tag: 769cbade-1ba9-4950-b886-db265b061aa3 |
| 349 | (do not change this comment) */ | 350 | (do not change this comment) */ |
diff --git a/src/keymap.c b/src/keymap.c index f67cc109e87..176b6760e36 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -1280,7 +1280,8 @@ buffer position instead of point are used. */) | |||
| 1280 | 1280 | ||
| 1281 | DEFUN ("lookup-key", Flookup_key, Slookup_key, 2, 3, 0, | 1281 | DEFUN ("lookup-key", Flookup_key, Slookup_key, 2, 3, 0, |
| 1282 | doc: /* In keymap KEYMAP, look up key sequence KEY. Return the definition. | 1282 | doc: /* In keymap KEYMAP, look up key sequence KEY. Return the definition. |
| 1283 | nil means undefined. See doc of `define-key' for kinds of definitions. | 1283 | A value of nil means undefined. See doc of `define-key' |
| 1284 | for kinds of definitions. | ||
| 1284 | 1285 | ||
| 1285 | A number as value means KEY is "too long"; | 1286 | A number as value means KEY is "too long"; |
| 1286 | that is, characters or symbols in it except for the last one | 1287 | that is, characters or symbols in it except for the last one |
| @@ -1655,13 +1656,13 @@ specified buffer position instead of point are used. | |||
| 1655 | are read using the keymaps of the buffer clicked on, not | 1656 | are read using the keymaps of the buffer clicked on, not |
| 1656 | the current buffer. So we may have to switch the buffer | 1657 | the current buffer. So we may have to switch the buffer |
| 1657 | here. */ | 1658 | here. */ |
| 1658 | 1659 | ||
| 1659 | if (CONSP (position)) | 1660 | if (CONSP (position)) |
| 1660 | { | 1661 | { |
| 1661 | Lisp_Object window; | 1662 | Lisp_Object window; |
| 1662 | 1663 | ||
| 1663 | window = POSN_WINDOW (position); | 1664 | window = POSN_WINDOW (position); |
| 1664 | 1665 | ||
| 1665 | if (WINDOWP (window) | 1666 | if (WINDOWP (window) |
| 1666 | && BUFFERP (XWINDOW (window)->buffer) | 1667 | && BUFFERP (XWINDOW (window)->buffer) |
| 1667 | && XBUFFER (XWINDOW (window)->buffer) != current_buffer) | 1668 | && XBUFFER (XWINDOW (window)->buffer) != current_buffer) |
| @@ -1673,13 +1674,13 @@ specified buffer position instead of point are used. | |||
| 1673 | would not be a problem here, but it is easier to keep | 1674 | would not be a problem here, but it is easier to keep |
| 1674 | things the same. | 1675 | things the same. |
| 1675 | */ | 1676 | */ |
| 1676 | 1677 | ||
| 1677 | record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); | 1678 | record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); |
| 1678 | 1679 | ||
| 1679 | set_buffer_internal (XBUFFER (XWINDOW (window)->buffer)); | 1680 | set_buffer_internal (XBUFFER (XWINDOW (window)->buffer)); |
| 1680 | } | 1681 | } |
| 1681 | } | 1682 | } |
| 1682 | 1683 | ||
| 1683 | if (! NILP (current_kboard->Voverriding_terminal_local_map)) | 1684 | if (! NILP (current_kboard->Voverriding_terminal_local_map)) |
| 1684 | { | 1685 | { |
| 1685 | value = Flookup_key (current_kboard->Voverriding_terminal_local_map, | 1686 | value = Flookup_key (current_kboard->Voverriding_terminal_local_map, |
| @@ -1702,8 +1703,8 @@ specified buffer position instead of point are used. | |||
| 1702 | : MARKERP (position) ? marker_position (position) | 1703 | : MARKERP (position) ? marker_position (position) |
| 1703 | : PT; | 1704 | : PT; |
| 1704 | 1705 | ||
| 1705 | local_map = get_local_map (pt, current_buffer, Qlocal_map); | 1706 | local_map = get_local_map (pt, current_buffer, Qlocal_map); |
| 1706 | keymap = get_local_map (pt, current_buffer, Qkeymap); | 1707 | keymap = get_local_map (pt, current_buffer, Qkeymap); |
| 1707 | 1708 | ||
| 1708 | if (CONSP (position)) | 1709 | if (CONSP (position)) |
| 1709 | { | 1710 | { |
| @@ -1711,7 +1712,7 @@ specified buffer position instead of point are used. | |||
| 1711 | 1712 | ||
| 1712 | /* For a mouse click, get the local text-property keymap | 1713 | /* For a mouse click, get the local text-property keymap |
| 1713 | of the place clicked on, rather than point. */ | 1714 | of the place clicked on, rather than point. */ |
| 1714 | 1715 | ||
| 1715 | if (POSN_INBUFFER_P (position)) | 1716 | if (POSN_INBUFFER_P (position)) |
| 1716 | { | 1717 | { |
| 1717 | Lisp_Object pos; | 1718 | Lisp_Object pos; |
| @@ -1722,7 +1723,7 @@ specified buffer position instead of point are used. | |||
| 1722 | { | 1723 | { |
| 1723 | local_map = get_local_map (XINT (pos), | 1724 | local_map = get_local_map (XINT (pos), |
| 1724 | current_buffer, Qlocal_map); | 1725 | current_buffer, Qlocal_map); |
| 1725 | 1726 | ||
| 1726 | keymap = get_local_map (XINT (pos), | 1727 | keymap = get_local_map (XINT (pos), |
| 1727 | current_buffer, Qkeymap); | 1728 | current_buffer, Qkeymap); |
| 1728 | } | 1729 | } |
| @@ -1733,12 +1734,12 @@ specified buffer position instead of point are used. | |||
| 1733 | string displayed via the `display' property, | 1734 | string displayed via the `display' property, |
| 1734 | consider `local-map' and `keymap' properties of | 1735 | consider `local-map' and `keymap' properties of |
| 1735 | that string. */ | 1736 | that string. */ |
| 1736 | 1737 | ||
| 1737 | if (string = POSN_STRING (position), | 1738 | if (string = POSN_STRING (position), |
| 1738 | (CONSP (string) && STRINGP (XCAR (string)))) | 1739 | (CONSP (string) && STRINGP (XCAR (string)))) |
| 1739 | { | 1740 | { |
| 1740 | Lisp_Object pos, map; | 1741 | Lisp_Object pos, map; |
| 1741 | 1742 | ||
| 1742 | pos = XCDR (string); | 1743 | pos = XCDR (string); |
| 1743 | string = XCAR (string); | 1744 | string = XCAR (string); |
| 1744 | if (INTEGERP (pos) | 1745 | if (INTEGERP (pos) |
| @@ -1754,7 +1755,7 @@ specified buffer position instead of point are used. | |||
| 1754 | keymap = map; | 1755 | keymap = map; |
| 1755 | } | 1756 | } |
| 1756 | } | 1757 | } |
| 1757 | 1758 | ||
| 1758 | } | 1759 | } |
| 1759 | 1760 | ||
| 1760 | if (! NILP (keymap)) | 1761 | if (! NILP (keymap)) |
diff --git a/src/lread.c b/src/lread.c index 79ccc8bd152..d6fab4ffc8c 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -656,7 +656,7 @@ read_filtered_event (no_switch_frame, ascii_required, error_nonascii, | |||
| 656 | { | 656 | { |
| 657 | EMACS_TIME wait_time; | 657 | EMACS_TIME wait_time; |
| 658 | int sec, usec; | 658 | int sec, usec; |
| 659 | double duration = extract_float (seconds); | 659 | double duration = extract_float (seconds); |
| 660 | 660 | ||
| 661 | sec = (int) duration; | 661 | sec = (int) duration; |
| 662 | usec = (duration - sec) * 1000000; | 662 | usec = (duration - sec) * 1000000; |
| @@ -1743,7 +1743,7 @@ DEFUN ("eval-buffer", Feval_buffer, Seval_buffer, 0, 5, "", | |||
| 1743 | Programs can pass two arguments, BUFFER and PRINTFLAG. | 1743 | Programs can pass two arguments, BUFFER and PRINTFLAG. |
| 1744 | BUFFER is the buffer to evaluate (nil means use current buffer). | 1744 | BUFFER is the buffer to evaluate (nil means use current buffer). |
| 1745 | PRINTFLAG controls printing of output: | 1745 | PRINTFLAG controls printing of output: |
| 1746 | nil means discard it; anything else is stream for print. | 1746 | A value of nil means discard it; anything else is stream for print. |
| 1747 | 1747 | ||
| 1748 | If the optional third argument FILENAME is non-nil, | 1748 | If the optional third argument FILENAME is non-nil, |
| 1749 | it specifies the file name to use for `load-history'. | 1749 | it specifies the file name to use for `load-history'. |
| @@ -1792,7 +1792,7 @@ When called from programs, expects two arguments, | |||
| 1792 | giving starting and ending indices in the current buffer | 1792 | giving starting and ending indices in the current buffer |
| 1793 | of the text to be executed. | 1793 | of the text to be executed. |
| 1794 | Programs can pass third argument PRINTFLAG which controls output: | 1794 | Programs can pass third argument PRINTFLAG which controls output: |
| 1795 | nil means discard it; anything else is stream for printing it. | 1795 | A value of nil means discard it; anything else is stream for printing it. |
| 1796 | Also the fourth argument READ-FUNCTION, if non-nil, is used | 1796 | Also the fourth argument READ-FUNCTION, if non-nil, is used |
| 1797 | instead of `read' to read each expression. It gets one argument | 1797 | instead of `read' to read each expression. It gets one argument |
| 1798 | which is the input stream for reading characters. | 1798 | which is the input stream for reading characters. |
diff --git a/src/m/amdx86-64.h b/src/m/amdx86-64.h index 940ff70dbda..670360336a8 100644 --- a/src/m/amdx86-64.h +++ b/src/m/amdx86-64.h | |||
| @@ -125,7 +125,12 @@ Boston, MA 02110-1301, USA. */ | |||
| 125 | #undef LIB_STANDARD | 125 | #undef LIB_STANDARD |
| 126 | #define LIB_STANDARD -lgcc -lc -lgcc /usr/lib/crtend.o | 126 | #define LIB_STANDARD -lgcc -lc -lgcc /usr/lib/crtend.o |
| 127 | 127 | ||
| 128 | #else /* !__OpenBSD__ && !__FreeBSD__ */ | 128 | #elif defined(sun) |
| 129 | |||
| 130 | #undef START_FILES | ||
| 131 | #undef LIB_STANDARD | ||
| 132 | |||
| 133 | #else /* !__OpenBSD__ && !__FreeBSD__ && !sun */ | ||
| 129 | 134 | ||
| 130 | #undef START_FILES | 135 | #undef START_FILES |
| 131 | #ifdef HAVE_X86_64_LIB64_DIR | 136 | #ifdef HAVE_X86_64_LIB64_DIR |
| @@ -79,6 +79,15 @@ static ComponentInstance as_scripting_component; | |||
| 79 | /* The single script context used for all script executions. */ | 79 | /* The single script context used for all script executions. */ |
| 80 | static OSAID as_script_context; | 80 | static OSAID as_script_context; |
| 81 | 81 | ||
| 82 | #if TARGET_API_MAC_CARBON | ||
| 83 | static int wakeup_from_rne_enabled_p = 0; | ||
| 84 | #define ENABLE_WAKEUP_FROM_RNE (wakeup_from_rne_enabled_p = 1) | ||
| 85 | #define DISABLE_WAKEUP_FROM_RNE (wakeup_from_rne_enabled_p = 0) | ||
| 86 | #else | ||
| 87 | #define ENABLE_WAKEUP_FROM_RNE 0 | ||
| 88 | #define DISABLE_WAKEUP_FROM_RNE 0 | ||
| 89 | #endif | ||
| 90 | |||
| 82 | #ifndef MAC_OSX | 91 | #ifndef MAC_OSX |
| 83 | static OSErr posix_pathname_to_fsspec P_ ((const char *, FSSpec *)); | 92 | static OSErr posix_pathname_to_fsspec P_ ((const char *, FSSpec *)); |
| 84 | static OSErr fsspec_to_posix_pathname P_ ((const FSSpec *, char *, int)); | 93 | static OSErr fsspec_to_posix_pathname P_ ((const FSSpec *, char *, int)); |
| @@ -2431,6 +2440,7 @@ select (nfds, rfds, wfds, efds, timeout) | |||
| 2431 | BLOCK_INPUT block, in case that some input has already been read | 2440 | BLOCK_INPUT block, in case that some input has already been read |
| 2432 | asynchronously. */ | 2441 | asynchronously. */ |
| 2433 | BLOCK_INPUT; | 2442 | BLOCK_INPUT; |
| 2443 | ENABLE_WAKEUP_FROM_RNE; | ||
| 2434 | if (!detect_input_pending ()) | 2444 | if (!detect_input_pending ()) |
| 2435 | { | 2445 | { |
| 2436 | #if TARGET_API_MAC_CARBON | 2446 | #if TARGET_API_MAC_CARBON |
| @@ -2461,6 +2471,7 @@ select (nfds, rfds, wfds, efds, timeout) | |||
| 2461 | } | 2471 | } |
| 2462 | #endif /* not TARGET_API_MAC_CARBON */ | 2472 | #endif /* not TARGET_API_MAC_CARBON */ |
| 2463 | } | 2473 | } |
| 2474 | DISABLE_WAKEUP_FROM_RNE; | ||
| 2464 | UNBLOCK_INPUT; | 2475 | UNBLOCK_INPUT; |
| 2465 | 2476 | ||
| 2466 | if (err == noErr) | 2477 | if (err == noErr) |
| @@ -5023,6 +5034,7 @@ select_and_poll_event (nfds, rfds, wfds, efds, timeout) | |||
| 5023 | BLOCK_INPUT block, in case that some input has already been read | 5034 | BLOCK_INPUT block, in case that some input has already been read |
| 5024 | asynchronously. */ | 5035 | asynchronously. */ |
| 5025 | BLOCK_INPUT; | 5036 | BLOCK_INPUT; |
| 5037 | ENABLE_WAKEUP_FROM_RNE; | ||
| 5026 | if (!detect_input_pending ()) | 5038 | if (!detect_input_pending ()) |
| 5027 | { | 5039 | { |
| 5028 | EMACS_TIME select_timeout; | 5040 | EMACS_TIME select_timeout; |
| @@ -5045,6 +5057,7 @@ select_and_poll_event (nfds, rfds, wfds, efds, timeout) | |||
| 5045 | kEventLeaveInQueue, NULL); | 5057 | kEventLeaveInQueue, NULL); |
| 5046 | } | 5058 | } |
| 5047 | } | 5059 | } |
| 5060 | DISABLE_WAKEUP_FROM_RNE; | ||
| 5048 | UNBLOCK_INPUT; | 5061 | UNBLOCK_INPUT; |
| 5049 | 5062 | ||
| 5050 | if (r != 0) | 5063 | if (r != 0) |
| @@ -5124,6 +5137,7 @@ sys_select (nfds, rfds, wfds, efds, timeout) | |||
| 5124 | BLOCK_INPUT block, in case that some input has already been | 5137 | BLOCK_INPUT block, in case that some input has already been |
| 5125 | read asynchronously. */ | 5138 | read asynchronously. */ |
| 5126 | BLOCK_INPUT; | 5139 | BLOCK_INPUT; |
| 5140 | ENABLE_WAKEUP_FROM_RNE; | ||
| 5127 | if (!detect_input_pending ()) | 5141 | if (!detect_input_pending ()) |
| 5128 | { | 5142 | { |
| 5129 | int minfd, fd; | 5143 | int minfd, fd; |
| @@ -5184,6 +5198,7 @@ sys_select (nfds, rfds, wfds, efds, timeout) | |||
| 5184 | CFRunLoopRemoveSource (runloop, source, kCFRunLoopDefaultMode); | 5198 | CFRunLoopRemoveSource (runloop, source, kCFRunLoopDefaultMode); |
| 5185 | } | 5199 | } |
| 5186 | } | 5200 | } |
| 5201 | DISABLE_WAKEUP_FROM_RNE; | ||
| 5187 | UNBLOCK_INPUT; | 5202 | UNBLOCK_INPUT; |
| 5188 | 5203 | ||
| 5189 | if (err == noErr || err == eventLoopQuitErr) | 5204 | if (err == noErr || err == eventLoopQuitErr) |
| @@ -5385,6 +5400,16 @@ init_mac_osx_environment () | |||
| 5385 | } | 5400 | } |
| 5386 | #endif /* MAC_OSX */ | 5401 | #endif /* MAC_OSX */ |
| 5387 | 5402 | ||
| 5403 | #if TARGET_API_MAC_CARBON | ||
| 5404 | void | ||
| 5405 | mac_wakeup_from_rne () | ||
| 5406 | { | ||
| 5407 | if (wakeup_from_rne_enabled_p) | ||
| 5408 | /* Post a harmless event so as to wake up from | ||
| 5409 | ReceiveNextEvent. */ | ||
| 5410 | mac_post_mouse_moved_event (); | ||
| 5411 | } | ||
| 5412 | #endif | ||
| 5388 | 5413 | ||
| 5389 | void | 5414 | void |
| 5390 | syms_of_mac () | 5415 | syms_of_mac () |
diff --git a/src/macfns.c b/src/macfns.c index 2148ec3e1ad..a5de3edeec6 100644 --- a/src/macfns.c +++ b/src/macfns.c | |||
| @@ -4597,6 +4597,30 @@ This is for internal use only. Use `mac-font-panel-mode' instead. */) | |||
| 4597 | return Qnil; | 4597 | return Qnil; |
| 4598 | } | 4598 | } |
| 4599 | #endif | 4599 | #endif |
| 4600 | |||
| 4601 | #if USE_ATSUI | ||
| 4602 | extern Lisp_Object mac_atsu_font_face_attributes P_ ((ATSUFontID)); | ||
| 4603 | |||
| 4604 | DEFUN ("mac-atsu-font-face-attributes", Fmac_atsu_font_face_attributes, | ||
| 4605 | Smac_atsu_font_face_attributes, 1, 1, 0, | ||
| 4606 | doc: /* Return plist of face attributes and values for ATSU font ID. | ||
| 4607 | ID is specified by either an integer or a float. */) | ||
| 4608 | (id) | ||
| 4609 | Lisp_Object id; | ||
| 4610 | { | ||
| 4611 | ATSUFontID font_id; | ||
| 4612 | Lisp_Object result; | ||
| 4613 | |||
| 4614 | check_mac (); | ||
| 4615 | CHECK_NUMBER_OR_FLOAT(id); | ||
| 4616 | font_id = NUMBERP (id) ? XINT (id) : (ATSUFontID) XFLOAT (id); | ||
| 4617 | BLOCK_INPUT; | ||
| 4618 | result = mac_atsu_font_face_attributes (font_id); | ||
| 4619 | UNBLOCK_INPUT; | ||
| 4620 | return result; | ||
| 4621 | } | ||
| 4622 | #endif | ||
| 4623 | |||
| 4600 | 4624 | ||
| 4601 | /*********************************************************************** | 4625 | /*********************************************************************** |
| 4602 | Initialization | 4626 | Initialization |
| @@ -4829,6 +4853,9 @@ Chinese, Japanese, and Korean. */); | |||
| 4829 | #if USE_MAC_FONT_PANEL | 4853 | #if USE_MAC_FONT_PANEL |
| 4830 | defsubr (&Smac_set_font_panel_visibility); | 4854 | defsubr (&Smac_set_font_panel_visibility); |
| 4831 | #endif | 4855 | #endif |
| 4856 | #if USE_ATSUI | ||
| 4857 | defsubr (&Smac_atsu_font_face_attributes); | ||
| 4858 | #endif | ||
| 4832 | } | 4859 | } |
| 4833 | 4860 | ||
| 4834 | /* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc | 4861 | /* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc |
diff --git a/src/macselect.c b/src/macselect.c index 7a952f88367..8d15db24144 100644 --- a/src/macselect.c +++ b/src/macselect.c | |||
| @@ -1567,8 +1567,7 @@ mac_do_receive_drag (window, refcon, drag) | |||
| 1567 | { | 1567 | { |
| 1568 | mac_store_drag_event (window, mouse_pos, modifiers, &apple_event); | 1568 | mac_store_drag_event (window, mouse_pos, modifiers, &apple_event); |
| 1569 | AEDisposeDesc (&apple_event); | 1569 | AEDisposeDesc (&apple_event); |
| 1570 | /* Post a harmless event so as to wake up from ReceiveNextEvent. */ | 1570 | mac_wakeup_from_rne (); |
| 1571 | mac_post_mouse_moved_event (); | ||
| 1572 | return noErr; | 1571 | return noErr; |
| 1573 | } | 1572 | } |
| 1574 | else | 1573 | else |
diff --git a/src/macterm.c b/src/macterm.c index ff36e9501c6..cb0e024b8eb 100644 --- a/src/macterm.c +++ b/src/macterm.c | |||
| @@ -1156,7 +1156,8 @@ mac_query_char_extents (style, c, | |||
| 1156 | UniChar ch = c; | 1156 | UniChar ch = c; |
| 1157 | 1157 | ||
| 1158 | err = atsu_get_text_layout_with_text_ptr (&ch, 1, style, &text_layout); | 1158 | err = atsu_get_text_layout_with_text_ptr (&ch, 1, style, &text_layout); |
| 1159 | if (err == noErr) | 1159 | if (err == noErr |
| 1160 | && (font_ascent_return || font_descent_return || overall_return)) | ||
| 1160 | { | 1161 | { |
| 1161 | ATSTrapezoid glyph_bounds; | 1162 | ATSTrapezoid glyph_bounds; |
| 1162 | 1163 | ||
| @@ -7006,7 +7007,6 @@ static Lisp_Object fm_font_family_alist; | |||
| 7006 | static Lisp_Object atsu_font_id_hash; | 7007 | static Lisp_Object atsu_font_id_hash; |
| 7007 | /* Alist linking Font Manager style to face attributes. */ | 7008 | /* Alist linking Font Manager style to face attributes. */ |
| 7008 | static Lisp_Object fm_style_face_attributes_alist; | 7009 | static Lisp_Object fm_style_face_attributes_alist; |
| 7009 | static Lisp_Object Vmac_atsu_font_table; | ||
| 7010 | extern Lisp_Object QCfamily, QCweight, QCslant, Qnormal, Qbold, Qitalic; | 7010 | extern Lisp_Object QCfamily, QCweight, QCslant, Qnormal, Qbold, Qitalic; |
| 7011 | #endif | 7011 | #endif |
| 7012 | 7012 | ||
| @@ -7243,6 +7243,73 @@ add_mac_font_name (name, size, style, charset) | |||
| 7243 | } | 7243 | } |
| 7244 | 7244 | ||
| 7245 | #if USE_ATSUI | 7245 | #if USE_ATSUI |
| 7246 | static FMFontStyle | ||
| 7247 | fm_get_style_from_font (font) | ||
| 7248 | FMFont font; | ||
| 7249 | { | ||
| 7250 | OSStatus err; | ||
| 7251 | FMFontStyle style = normal; | ||
| 7252 | ByteCount len; | ||
| 7253 | UInt16 mac_style; | ||
| 7254 | FMFontFamily font_family; | ||
| 7255 | #define FONT_HEADER_MAC_STYLE_OFFSET (4*4 + 2*2 + 8*2 + 2*4) | ||
| 7256 | |||
| 7257 | /* FMGetFontFamilyInstanceFromFont returns `normal' as the style of | ||
| 7258 | some font (e.g., Optima) even if it is `bold'. */ | ||
| 7259 | err = FMGetFontTable (font, 'head', FONT_HEADER_MAC_STYLE_OFFSET, | ||
| 7260 | sizeof (mac_style), &mac_style, &len); | ||
| 7261 | if (err == noErr | ||
| 7262 | && len >= FONT_HEADER_MAC_STYLE_OFFSET + sizeof (mac_style)) | ||
| 7263 | style = EndianU16_BtoN (mac_style); | ||
| 7264 | else | ||
| 7265 | FMGetFontFamilyInstanceFromFont (font, &font_family, &style); | ||
| 7266 | |||
| 7267 | return style; | ||
| 7268 | } | ||
| 7269 | |||
| 7270 | static ATSUFontID | ||
| 7271 | atsu_find_font_from_family_name (family) | ||
| 7272 | const char *family; | ||
| 7273 | { | ||
| 7274 | struct Lisp_Hash_Table *h = XHASH_TABLE (atsu_font_id_hash); | ||
| 7275 | unsigned hash_code; | ||
| 7276 | int i; | ||
| 7277 | Lisp_Object rest, best; | ||
| 7278 | FMFontStyle min_style, style; | ||
| 7279 | |||
| 7280 | i = hash_lookup (h, make_unibyte_string (family, strlen (family)), | ||
| 7281 | &hash_code); | ||
| 7282 | if (i < 0) | ||
| 7283 | return kATSUInvalidFontID; | ||
| 7284 | |||
| 7285 | rest = HASH_VALUE (h, i); | ||
| 7286 | if (INTEGERP (rest) || (CONSP (rest) && INTEGERP (XCDR (rest)))) | ||
| 7287 | return cons_to_long (rest); | ||
| 7288 | |||
| 7289 | rest = Fnreverse (rest); | ||
| 7290 | best = XCAR (rest); | ||
| 7291 | rest = XCDR (rest); | ||
| 7292 | if (!NILP (rest) | ||
| 7293 | && (min_style = fm_get_style_from_font (cons_to_long (best))) != normal) | ||
| 7294 | do | ||
| 7295 | { | ||
| 7296 | style = fm_get_style_from_font (cons_to_long (XCAR (rest))); | ||
| 7297 | if (style < min_style) | ||
| 7298 | { | ||
| 7299 | best = XCAR (rest); | ||
| 7300 | if (style == normal) | ||
| 7301 | break; | ||
| 7302 | else | ||
| 7303 | min_style = style; | ||
| 7304 | } | ||
| 7305 | rest = XCDR (rest); | ||
| 7306 | } | ||
| 7307 | while (!NILP (rest)); | ||
| 7308 | |||
| 7309 | HASH_VALUE (h, i) = best; | ||
| 7310 | return cons_to_long (best); | ||
| 7311 | } | ||
| 7312 | |||
| 7246 | static Lisp_Object | 7313 | static Lisp_Object |
| 7247 | fm_style_to_face_attributes (fm_style) | 7314 | fm_style_to_face_attributes (fm_style) |
| 7248 | FMFontStyle fm_style; | 7315 | FMFontStyle fm_style; |
| @@ -7263,6 +7330,44 @@ fm_style_to_face_attributes (fm_style) | |||
| 7263 | 7330 | ||
| 7264 | return tem; | 7331 | return tem; |
| 7265 | } | 7332 | } |
| 7333 | |||
| 7334 | static Lisp_Object | ||
| 7335 | atsu_find_font_family_name (font_id) | ||
| 7336 | ATSUFontID font_id; | ||
| 7337 | { | ||
| 7338 | OSStatus err; | ||
| 7339 | ByteCount len; | ||
| 7340 | Lisp_Object family = Qnil; | ||
| 7341 | |||
| 7342 | err = ATSUFindFontName (font_id, kFontFamilyName, | ||
| 7343 | kFontMacintoshPlatform, kFontNoScript, | ||
| 7344 | kFontNoLanguage, 0, NULL, &len, NULL); | ||
| 7345 | if (err == noErr) | ||
| 7346 | { | ||
| 7347 | family = make_uninit_string (len); | ||
| 7348 | err = ATSUFindFontName (font_id, kFontFamilyName, | ||
| 7349 | kFontMacintoshPlatform, kFontNoScript, | ||
| 7350 | kFontNoLanguage, len, SDATA (family), | ||
| 7351 | NULL, NULL); | ||
| 7352 | } | ||
| 7353 | if (err == noErr) | ||
| 7354 | decode_mac_font_name (SDATA (family), len + 1, Qnil); | ||
| 7355 | |||
| 7356 | return family; | ||
| 7357 | } | ||
| 7358 | |||
| 7359 | Lisp_Object | ||
| 7360 | mac_atsu_font_face_attributes (font_id) | ||
| 7361 | ATSUFontID font_id; | ||
| 7362 | { | ||
| 7363 | Lisp_Object family, style_attrs; | ||
| 7364 | |||
| 7365 | family = atsu_find_font_family_name (font_id); | ||
| 7366 | if (NILP (family)) | ||
| 7367 | return Qnil; | ||
| 7368 | style_attrs = fm_style_to_face_attributes (fm_get_style_from_font (font_id)); | ||
| 7369 | return Fcons (QCfamily, Fcons (family, style_attrs)); | ||
| 7370 | } | ||
| 7266 | #endif | 7371 | #endif |
| 7267 | 7372 | ||
| 7268 | /* Sets up the table font_name_table to contain the list of all fonts | 7373 | /* Sets up the table font_name_table to contain the list of all fonts |
| @@ -7294,9 +7399,8 @@ init_font_name_table () | |||
| 7294 | unsigned hash_code; | 7399 | unsigned hash_code; |
| 7295 | ItemCount nfonts, i; | 7400 | ItemCount nfonts, i; |
| 7296 | ATSUFontID *font_ids = NULL; | 7401 | ATSUFontID *font_ids = NULL; |
| 7297 | Ptr name; | 7402 | Lisp_Object prev_family = Qnil; |
| 7298 | ByteCount name_len; | 7403 | int j; |
| 7299 | Lisp_Object family; | ||
| 7300 | 7404 | ||
| 7301 | atsu_font_id_hash = | 7405 | atsu_font_id_hash = |
| 7302 | make_hash_table (Qequal, make_number (DEFAULT_HASH_SIZE), | 7406 | make_hash_table (Qequal, make_number (DEFAULT_HASH_SIZE), |
| @@ -7314,41 +7418,25 @@ init_font_name_table () | |||
| 7314 | if (err == noErr) | 7418 | if (err == noErr) |
| 7315 | for (i = 0; i < nfonts; i++) | 7419 | for (i = 0; i < nfonts; i++) |
| 7316 | { | 7420 | { |
| 7317 | err = ATSUFindFontName (font_ids[i], kFontFamilyName, | 7421 | Lisp_Object family; |
| 7318 | kFontMacintoshPlatform, kFontNoScript, | 7422 | |
| 7319 | kFontNoLanguage, 0, NULL, &name_len, NULL); | 7423 | family = atsu_find_font_family_name (font_ids[i]); |
| 7320 | if (err != noErr) | 7424 | if (NILP (family) || SREF (family, 0) == '.') |
| 7321 | continue; | 7425 | continue; |
| 7322 | name = xmalloc (name_len + 1); | 7426 | if (!NILP (Fequal (prev_family, family))) |
| 7323 | name[name_len] = '\0'; | 7427 | family = prev_family; |
| 7324 | err = ATSUFindFontName (font_ids[i], kFontFamilyName, | 7428 | else |
| 7325 | kFontMacintoshPlatform, kFontNoScript, | 7429 | j = hash_lookup (h, family, &hash_code); |
| 7326 | kFontNoLanguage, name_len, name, | 7430 | if (j < 0) |
| 7327 | NULL, NULL); | ||
| 7328 | if (err == noErr) | ||
| 7329 | { | 7431 | { |
| 7330 | FMFontFamily ff; | 7432 | add_mac_font_name (SDATA (family), 0, normal, "iso10646-1"); |
| 7331 | FMFontStyle style = normal; | 7433 | j = hash_put (h, family, Fcons (long_to_cons (font_ids[i]), |
| 7332 | 7434 | Qnil), hash_code); | |
| 7333 | decode_mac_font_name (name, name_len + 1, Qnil); | ||
| 7334 | family = make_unibyte_string (name, name_len); | ||
| 7335 | FMGetFontFamilyInstanceFromFont (font_ids[i], &ff, &style); | ||
| 7336 | Fputhash ((font_ids[i] > MOST_POSITIVE_FIXNUM | ||
| 7337 | ? make_float (font_ids[i]) | ||
| 7338 | : make_number (font_ids[i])), | ||
| 7339 | Fcons (QCfamily, | ||
| 7340 | Fcons (family, | ||
| 7341 | fm_style_to_face_attributes (style))), | ||
| 7342 | Vmac_atsu_font_table); | ||
| 7343 | if (*name != '.' | ||
| 7344 | && hash_lookup (h, family, &hash_code) < 0) | ||
| 7345 | { | ||
| 7346 | add_mac_font_name (name, 0, normal, "iso10646-1"); | ||
| 7347 | hash_put (h, family, long_to_cons (font_ids[i]), | ||
| 7348 | hash_code); | ||
| 7349 | } | ||
| 7350 | } | 7435 | } |
| 7351 | xfree (name); | 7436 | else if (EQ (prev_family, family)) |
| 7437 | HASH_VALUE (h, j) = Fcons (long_to_cons (font_ids[i]), | ||
| 7438 | HASH_VALUE (h, j)); | ||
| 7439 | prev_family = family; | ||
| 7352 | } | 7440 | } |
| 7353 | if (font_ids) | 7441 | if (font_ids) |
| 7354 | xfree (font_ids); | 7442 | xfree (font_ids); |
| @@ -7892,14 +7980,11 @@ mac_load_query_font (f, fontname) | |||
| 7892 | {kAllTypographicFeaturesType, kDiacriticsType}; | 7980 | {kAllTypographicFeaturesType, kDiacriticsType}; |
| 7893 | static const ATSUFontFeatureSelector selectors[] = | 7981 | static const ATSUFontFeatureSelector selectors[] = |
| 7894 | {kAllTypeFeaturesOffSelector, kDecomposeDiacriticsSelector}; | 7982 | {kAllTypeFeaturesOffSelector, kDecomposeDiacriticsSelector}; |
| 7895 | Lisp_Object font_id_cons; | ||
| 7896 | FMFontStyle style; | 7983 | FMFontStyle style; |
| 7897 | 7984 | ||
| 7898 | font_id_cons = Fgethash (make_unibyte_string (family, strlen (family)), | 7985 | font_id = atsu_find_font_from_family_name (family); |
| 7899 | atsu_font_id_hash, Qnil); | 7986 | if (font_id == kATSUInvalidFontID) |
| 7900 | if (NILP (font_id_cons)) | 7987 | return; |
| 7901 | return NULL; | ||
| 7902 | font_id = cons_to_long (font_id_cons); | ||
| 7903 | size_fixed = Long2Fix (size); | 7988 | size_fixed = Long2Fix (size); |
| 7904 | bold_p = (fontface & bold) != 0; | 7989 | bold_p = (fontface & bold) != 0; |
| 7905 | italic_p = (fontface & italic) != 0; | 7990 | italic_p = (fontface & italic) != 0; |
| @@ -8023,11 +8108,19 @@ mac_load_query_font (f, fontname) | |||
| 8023 | continue; | 8108 | continue; |
| 8024 | else if (c == 0x7f) | 8109 | else if (c == 0x7f) |
| 8025 | { | 8110 | { |
| 8026 | c = 0x9f; | 8111 | #if USE_CG_TEXT_DRAWING |
| 8027 | continue; | 8112 | if (font->cg_glyphs) |
| 8113 | { | ||
| 8114 | c = 0x9f; | ||
| 8115 | pcm = NULL; | ||
| 8116 | continue; | ||
| 8117 | } | ||
| 8118 | #endif | ||
| 8119 | break; | ||
| 8028 | } | 8120 | } |
| 8029 | 8121 | ||
| 8030 | mac_query_char_extents (font->mac_style, c, NULL, NULL, pcm + c, | 8122 | mac_query_char_extents (font->mac_style, c, NULL, NULL, |
| 8123 | pcm ? pcm + c : NULL, | ||
| 8031 | #if USE_CG_TEXT_DRAWING | 8124 | #if USE_CG_TEXT_DRAWING |
| 8032 | (font->cg_glyphs ? font->cg_glyphs + c | 8125 | (font->cg_glyphs ? font->cg_glyphs + c |
| 8033 | : NULL) | 8126 | : NULL) |
| @@ -8045,6 +8138,8 @@ mac_load_query_font (f, fontname) | |||
| 8045 | font->cg_font = NULL; | 8138 | font->cg_font = NULL; |
| 8046 | xfree (font->cg_glyphs); | 8139 | xfree (font->cg_glyphs); |
| 8047 | font->cg_glyphs = NULL; | 8140 | font->cg_glyphs = NULL; |
| 8141 | if (pcm == NULL) | ||
| 8142 | break; | ||
| 8048 | } | 8143 | } |
| 8049 | #endif | 8144 | #endif |
| 8050 | } | 8145 | } |
| @@ -8052,6 +8147,7 @@ mac_load_query_font (f, fontname) | |||
| 8052 | else | 8147 | else |
| 8053 | #endif | 8148 | #endif |
| 8054 | { | 8149 | { |
| 8150 | OSStatus err; | ||
| 8055 | FontInfo the_fontinfo; | 8151 | FontInfo the_fontinfo; |
| 8056 | int is_two_byte_font; | 8152 | int is_two_byte_font; |
| 8057 | 8153 | ||
| @@ -8134,8 +8230,13 @@ mac_load_query_font (f, fontname) | |||
| 8134 | sizeof (XCharStruct) * (0xff - 0x20 + 1)); | 8230 | sizeof (XCharStruct) * (0xff - 0x20 + 1)); |
| 8135 | 8231 | ||
| 8136 | space_bounds = font->bounds.per_char; | 8232 | space_bounds = font->bounds.per_char; |
| 8137 | mac_query_char_extents (NULL, 0x20, &font->ascent, &font->descent, | 8233 | err = mac_query_char_extents (NULL, 0x20, &font->ascent, |
| 8138 | space_bounds, NULL); | 8234 | &font->descent, space_bounds, NULL); |
| 8235 | if (err != noErr || space_bounds->width <= 0) | ||
| 8236 | { | ||
| 8237 | mac_unload_font (&one_mac_display_info, font); | ||
| 8238 | return NULL; | ||
| 8239 | } | ||
| 8139 | 8240 | ||
| 8140 | for (c = 0x21, pcm = space_bounds + 1; c <= 0xff; c++, pcm++) | 8241 | for (c = 0x21, pcm = space_bounds + 1; c <= 0xff; c++, pcm++) |
| 8141 | mac_query_char_extents (NULL, c, NULL, NULL, pcm, NULL); | 8242 | mac_query_char_extents (NULL, c, NULL, NULL, pcm, NULL); |
| @@ -9386,9 +9487,7 @@ mac_store_event_ref_as_apple_event (class, id, class_key, id_key, | |||
| 9386 | { | 9487 | { |
| 9387 | mac_store_apple_event (class_key, id_key, &apple_event); | 9488 | mac_store_apple_event (class_key, id_key, &apple_event); |
| 9388 | AEDisposeDesc (&apple_event); | 9489 | AEDisposeDesc (&apple_event); |
| 9389 | /* Post a harmless event so as to wake up from | 9490 | mac_wakeup_from_rne (); |
| 9390 | ReceiveNextEvent. */ | ||
| 9391 | mac_post_mouse_moved_event (); | ||
| 9392 | } | 9491 | } |
| 9393 | } | 9492 | } |
| 9394 | } | 9493 | } |
| @@ -10401,7 +10500,9 @@ XTread_socket (sd, expected, hold_quit) | |||
| 10401 | #else | 10500 | #else |
| 10402 | FrontWindow () | 10501 | FrontWindow () |
| 10403 | #endif | 10502 | #endif |
| 10404 | != window_ptr) | 10503 | != window_ptr |
| 10504 | || (mac_window_to_frame (window_ptr) | ||
| 10505 | != dpyinfo->x_focus_frame)) | ||
| 10405 | SelectWindow (window_ptr); | 10506 | SelectWindow (window_ptr); |
| 10406 | else | 10507 | else |
| 10407 | { | 10508 | { |
| @@ -11673,7 +11774,7 @@ syms_of_macterm () | |||
| 11673 | DEFVAR_BOOL ("x-use-underline-position-properties", | 11774 | DEFVAR_BOOL ("x-use-underline-position-properties", |
| 11674 | &x_use_underline_position_properties, | 11775 | &x_use_underline_position_properties, |
| 11675 | doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties. | 11776 | doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties. |
| 11676 | nil means ignore them. If you encounter fonts with bogus | 11777 | A value of nil means ignore them. If you encounter fonts with bogus |
| 11677 | UNDERLINE_POSITION font properties, for example 7x13 on XFree prior | 11778 | UNDERLINE_POSITION font properties, for example 7x13 on XFree prior |
| 11678 | to 4.1, set this to nil. | 11779 | to 4.1, set this to nil. |
| 11679 | 11780 | ||
| @@ -11683,9 +11784,9 @@ NOTE: Not supported on Mac yet. */); | |||
| 11683 | DEFVAR_BOOL ("x-underline-at-descent-line", | 11784 | DEFVAR_BOOL ("x-underline-at-descent-line", |
| 11684 | &x_underline_at_descent_line, | 11785 | &x_underline_at_descent_line, |
| 11685 | doc: /* *Non-nil means to draw the underline at the same place as the descent line. | 11786 | doc: /* *Non-nil means to draw the underline at the same place as the descent line. |
| 11686 | nil means to draw the underline according to the value of the variable | 11787 | A value of nil means to draw the underline according to the value of the |
| 11687 | `x-use-underline-position-properties', which is usually at the baseline | 11788 | variable `x-use-underline-position-properties', which is usually at the |
| 11688 | level. The default value is nil. */); | 11789 | baseline level. The default value is nil. */); |
| 11689 | x_underline_at_descent_line = 0; | 11790 | x_underline_at_descent_line = 0; |
| 11690 | 11791 | ||
| 11691 | DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars, | 11792 | DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars, |
| @@ -11732,8 +11833,8 @@ unexpected results for some keys on non-US/GB keyboards. */); | |||
| 11732 | &Vmac_emulate_three_button_mouse, | 11833 | &Vmac_emulate_three_button_mouse, |
| 11733 | doc: /* *Specify a way of three button mouse emulation. | 11834 | doc: /* *Specify a way of three button mouse emulation. |
| 11734 | The value can be nil, t, or the symbol `reverse'. | 11835 | The value can be nil, t, or the symbol `reverse'. |
| 11735 | nil means that no emulation should be done and the modifiers should be | 11836 | A value of nil means that no emulation should be done and the modifiers |
| 11736 | placed on the mouse-1 event. | 11837 | should be placed on the mouse-1 event. |
| 11737 | t means that when the option-key is held down while pressing the mouse | 11838 | t means that when the option-key is held down while pressing the mouse |
| 11738 | button, the click will register as mouse-2 and while the command-key | 11839 | button, the click will register as mouse-2 and while the command-key |
| 11739 | is held down, the click will register as mouse-3. | 11840 | is held down, the click will register as mouse-3. |
| @@ -11784,15 +11885,6 @@ CODING_SYSTEM is a coding system corresponding to TEXT-ENCODING. */); | |||
| 11784 | Fcons (list3 (build_string ("mac-roman"), | 11885 | Fcons (list3 (build_string ("mac-roman"), |
| 11785 | make_number (smRoman), Qnil), Qnil); | 11886 | make_number (smRoman), Qnil), Qnil); |
| 11786 | 11887 | ||
| 11787 | #if USE_ATSUI | ||
| 11788 | DEFVAR_LISP ("mac-atsu-font-table", &Vmac_atsu_font_table, | ||
| 11789 | doc: /* Hash table of ATSU font IDs vs plist of attributes and values. */); | ||
| 11790 | Vmac_atsu_font_table = | ||
| 11791 | make_hash_table (Qeql, make_number (DEFAULT_HASH_SIZE), | ||
| 11792 | make_float (DEFAULT_REHASH_SIZE), | ||
| 11793 | make_float (DEFAULT_REHASH_THRESHOLD), | ||
| 11794 | Qnil, Qnil, Qnil); | ||
| 11795 | #endif | ||
| 11796 | #if USE_MAC_TSM | 11888 | #if USE_MAC_TSM |
| 11797 | DEFVAR_LISP ("mac-ts-active-input-overlay", &Vmac_ts_active_input_overlay, | 11889 | DEFVAR_LISP ("mac-ts-active-input-overlay", &Vmac_ts_active_input_overlay, |
| 11798 | doc: /* Overlay used to display Mac TSM active input area. */); | 11890 | doc: /* Overlay used to display Mac TSM active input area. */); |
diff --git a/src/macterm.h b/src/macterm.h index cac90f1fa80..856d349f6f7 100644 --- a/src/macterm.h +++ b/src/macterm.h | |||
| @@ -685,6 +685,7 @@ extern Lisp_Object cfdate_to_lisp P_ ((CFDateRef)); | |||
| 685 | extern Lisp_Object cfboolean_to_lisp P_ ((CFBooleanRef)); | 685 | extern Lisp_Object cfboolean_to_lisp P_ ((CFBooleanRef)); |
| 686 | extern Lisp_Object cfobject_desc_to_lisp P_ ((CFTypeRef)); | 686 | extern Lisp_Object cfobject_desc_to_lisp P_ ((CFTypeRef)); |
| 687 | extern Lisp_Object cfproperty_list_to_lisp P_ ((CFPropertyListRef, int, int)); | 687 | extern Lisp_Object cfproperty_list_to_lisp P_ ((CFPropertyListRef, int, int)); |
| 688 | extern void mac_wakeup_from_rne P_ ((void)); | ||
| 688 | #endif | 689 | #endif |
| 689 | extern void xrm_merge_string_database P_ ((XrmDatabase, const char *)); | 690 | extern void xrm_merge_string_database P_ ((XrmDatabase, const char *)); |
| 690 | extern Lisp_Object xrm_get_resource P_ ((XrmDatabase, const char *, | 691 | extern Lisp_Object xrm_get_resource P_ ((XrmDatabase, const char *, |
diff --git a/src/marker.c b/src/marker.c index 9f2aa4826b4..bac8e46fc3f 100644 --- a/src/marker.c +++ b/src/marker.c | |||
| @@ -848,7 +848,7 @@ see `marker-insertion-type'. */) | |||
| 848 | DEFUN ("marker-insertion-type", Fmarker_insertion_type, | 848 | DEFUN ("marker-insertion-type", Fmarker_insertion_type, |
| 849 | Smarker_insertion_type, 1, 1, 0, | 849 | Smarker_insertion_type, 1, 1, 0, |
| 850 | doc: /* Return insertion type of MARKER: t if it stays after inserted text. | 850 | doc: /* Return insertion type of MARKER: t if it stays after inserted text. |
| 851 | nil means the marker stays before text inserted there. */) | 851 | The value nil means the marker stays before text inserted there. */) |
| 852 | (marker) | 852 | (marker) |
| 853 | register Lisp_Object marker; | 853 | register Lisp_Object marker; |
| 854 | { | 854 | { |
diff --git a/src/minibuf.c b/src/minibuf.c index 316f487e0ff..2397ea4b085 100644 --- a/src/minibuf.c +++ b/src/minibuf.c | |||
| @@ -2868,10 +2868,10 @@ The value may alternatively be a function, which is given three arguments: | |||
| 2868 | STRING, the current buffer contents; | 2868 | STRING, the current buffer contents; |
| 2869 | PREDICATE, the predicate for filtering possible matches; | 2869 | PREDICATE, the predicate for filtering possible matches; |
| 2870 | CODE, which says what kind of things to do. | 2870 | CODE, which says what kind of things to do. |
| 2871 | CODE can be nil, t or `lambda'. | 2871 | CODE can be nil, t or `lambda': |
| 2872 | nil means to return the best completion of STRING, or nil if there is none. | 2872 | nil -- return the best completion of STRING, or nil if there is none. |
| 2873 | t means to return a list of all possible completions of STRING. | 2873 | t -- return a list of all possible completions of STRING. |
| 2874 | `lambda' means to return t if STRING is a valid completion as it stands. */); | 2874 | lambda -- return t if STRING is a valid completion as it stands. */); |
| 2875 | Vminibuffer_completion_table = Qnil; | 2875 | Vminibuffer_completion_table = Qnil; |
| 2876 | 2876 | ||
| 2877 | DEFVAR_LISP ("minibuffer-completion-predicate", &Vminibuffer_completion_predicate, | 2877 | DEFVAR_LISP ("minibuffer-completion-predicate", &Vminibuffer_completion_predicate, |
diff --git a/src/msdos.c b/src/msdos.c index 4a39ce75ae1..4e989402a80 100644 --- a/src/msdos.c +++ b/src/msdos.c | |||
| @@ -5300,7 +5300,7 @@ This variable is used only by MSDOS terminals. */); | |||
| 5300 | #ifndef subprocesses | 5300 | #ifndef subprocesses |
| 5301 | DEFVAR_BOOL ("delete-exited-processes", &delete_exited_processes, | 5301 | DEFVAR_BOOL ("delete-exited-processes", &delete_exited_processes, |
| 5302 | doc: /* *Non-nil means delete processes immediately when they exit. | 5302 | doc: /* *Non-nil means delete processes immediately when they exit. |
| 5303 | nil means don't delete them until `list-processes' is run. */); | 5303 | A value of nil means don't delete them until `list-processes' is run. */); |
| 5304 | delete_exited_processes = 0; | 5304 | delete_exited_processes = 0; |
| 5305 | #endif | 5305 | #endif |
| 5306 | 5306 | ||
diff --git a/src/msdos.h b/src/msdos.h index 8bfbcf2d10c..cbe65818867 100644 --- a/src/msdos.h +++ b/src/msdos.h | |||
| @@ -53,7 +53,7 @@ typedef int Pixmap; | |||
| 53 | typedef int Display; | 53 | typedef int Display; |
| 54 | typedef int Window; | 54 | typedef int Window; |
| 55 | typedef int XRectangle; | 55 | typedef int XRectangle; |
| 56 | #define PIX_TYPE int | 56 | #define PIX_TYPE unsigned long |
| 57 | #define XDISPLAY | 57 | #define XDISPLAY |
| 58 | 58 | ||
| 59 | /* A stripped version of struct x_display_info in xterm.h, which see. */ | 59 | /* A stripped version of struct x_display_info in xterm.h, which see. */ |
diff --git a/src/process.c b/src/process.c index db7fcb8b201..663170e685e 100644 --- a/src/process.c +++ b/src/process.c | |||
| @@ -6083,7 +6083,7 @@ If PROCESS is a network process, resume handling of incoming traffic. */) | |||
| 6083 | DEFUN ("signal-process", Fsignal_process, Ssignal_process, | 6083 | DEFUN ("signal-process", Fsignal_process, Ssignal_process, |
| 6084 | 2, 2, "sProcess (name or number): \nnSignal code: ", | 6084 | 2, 2, "sProcess (name or number): \nnSignal code: ", |
| 6085 | doc: /* Send PROCESS the signal with code SIGCODE. | 6085 | doc: /* Send PROCESS the signal with code SIGCODE. |
| 6086 | PROCESS may also be an integer specifying the process id of the | 6086 | PROCESS may also be a number specifying the process id of the |
| 6087 | process to signal; in this case, the process need not be a child of | 6087 | process to signal; in this case, the process need not be a child of |
| 6088 | this Emacs. | 6088 | this Emacs. |
| 6089 | SIGCODE may be an integer, or a symbol whose name is a signal name. */) | 6089 | SIGCODE may be an integer, or a symbol whose name is a signal name. */) |
| @@ -6100,7 +6100,7 @@ SIGCODE may be an integer, or a symbol whose name is a signal name. */) | |||
| 6100 | 6100 | ||
| 6101 | if (FLOATP (process)) | 6101 | if (FLOATP (process)) |
| 6102 | { | 6102 | { |
| 6103 | pid = (pid_t) XFLOAT (process); | 6103 | pid = (pid_t) XFLOAT_DATA (process); |
| 6104 | goto got_it; | 6104 | goto got_it; |
| 6105 | } | 6105 | } |
| 6106 | 6106 | ||
| @@ -6129,7 +6129,7 @@ SIGCODE may be an integer, or a symbol whose name is a signal name. */) | |||
| 6129 | got_it: | 6129 | got_it: |
| 6130 | 6130 | ||
| 6131 | #define parse_signal(NAME, VALUE) \ | 6131 | #define parse_signal(NAME, VALUE) \ |
| 6132 | else if (!strcasecmp (name, NAME)) \ | 6132 | else if (!xstricmp (name, NAME)) \ |
| 6133 | XSETINT (sigcode, VALUE) | 6133 | XSETINT (sigcode, VALUE) |
| 6134 | 6134 | ||
| 6135 | if (INTEGERP (sigcode)) | 6135 | if (INTEGERP (sigcode)) |
| @@ -6141,7 +6141,7 @@ SIGCODE may be an integer, or a symbol whose name is a signal name. */) | |||
| 6141 | CHECK_SYMBOL (sigcode); | 6141 | CHECK_SYMBOL (sigcode); |
| 6142 | name = SDATA (SYMBOL_NAME (sigcode)); | 6142 | name = SDATA (SYMBOL_NAME (sigcode)); |
| 6143 | 6143 | ||
| 6144 | if (!strncasecmp(name, "sig", 3)) | 6144 | if (!strncmp(name, "SIG", 3) || !strncmp(name, "sig", 3)) |
| 6145 | name += 3; | 6145 | name += 3; |
| 6146 | 6146 | ||
| 6147 | if (0) | 6147 | if (0) |
diff --git a/src/syntax.c b/src/syntax.c index a85746be362..d1ae3f6bd8c 100644 --- a/src/syntax.c +++ b/src/syntax.c | |||
| @@ -893,7 +893,7 @@ DEFUN ("string-to-syntax", Fstring_to_syntax, Sstring_to_syntax, 1, 1, 0, | |||
| 893 | doc: /* Convert a syntax specification STRING into syntax cell form. | 893 | doc: /* Convert a syntax specification STRING into syntax cell form. |
| 894 | STRING should be a string as it is allowed as argument of | 894 | STRING should be a string as it is allowed as argument of |
| 895 | `modify-syntax-entry'. Value is the equivalent cons cell | 895 | `modify-syntax-entry'. Value is the equivalent cons cell |
| 896 | (CODE . MATCHING-CHAR) that can be used as value of a `syntax-table' | 896 | \(CODE . MATCHING-CHAR) that can be used as value of a `syntax-table' |
| 897 | text property. */) | 897 | text property. */) |
| 898 | (string) | 898 | (string) |
| 899 | Lisp_Object string; | 899 | Lisp_Object string; |
| @@ -3270,7 +3270,7 @@ Fourth arg STOPBEFORE non-nil means stop when come to | |||
| 3270 | any character that starts a sexp. | 3270 | any character that starts a sexp. |
| 3271 | Fifth arg OLDSTATE is a list like what this function returns. | 3271 | Fifth arg OLDSTATE is a list like what this function returns. |
| 3272 | It is used to initialize the state of the parse. Elements number 1, 2, 6 | 3272 | It is used to initialize the state of the parse. Elements number 1, 2, 6 |
| 3273 | and 8 are ignored; you can leave off element 8 (the last) entirely. | 3273 | and 8 are ignored. |
| 3274 | Sixth arg COMMENTSTOP non-nil means stop at the start of a comment. | 3274 | Sixth arg COMMENTSTOP non-nil means stop at the start of a comment. |
| 3275 | If it is symbol `syntax-table', stop after the start of a comment or a | 3275 | If it is symbol `syntax-table', stop after the start of a comment or a |
| 3276 | string, or after end of a comment or a string. */) | 3276 | string, or after end of a comment or a string. */) |
diff --git a/src/systime.h b/src/systime.h index 00373b257b3..e7ff2b2a3b7 100644 --- a/src/systime.h +++ b/src/systime.h | |||
| @@ -101,16 +101,8 @@ extern time_t timezone; | |||
| 101 | #ifdef GETTIMEOFDAY_ONE_ARGUMENT | 101 | #ifdef GETTIMEOFDAY_ONE_ARGUMENT |
| 102 | #define EMACS_GET_TIME(time) gettimeofday (&(time)) | 102 | #define EMACS_GET_TIME(time) gettimeofday (&(time)) |
| 103 | #else /* not GETTIMEOFDAY_ONE_ARGUMENT */ | 103 | #else /* not GETTIMEOFDAY_ONE_ARGUMENT */ |
| 104 | #ifdef HAVE_STRUCT_TIMEZONE | ||
| 105 | #define EMACS_GET_TIME(time) \ | ||
| 106 | do { \ | ||
| 107 | struct timezone dummy; \ | ||
| 108 | gettimeofday (&(time), &dummy); \ | ||
| 109 | } while (0) | ||
| 110 | #else | ||
| 111 | /* Presumably the second arg is ignored. */ | 104 | /* Presumably the second arg is ignored. */ |
| 112 | #define EMACS_GET_TIME(time) gettimeofday (&(time), NULL) | 105 | #define EMACS_GET_TIME(time) gettimeofday (&(time), NULL) |
| 113 | #endif /* HAVE_STRUCT_TIMEZONE */ | ||
| 114 | #endif /* not GETTIMEOFDAY_ONE_ARGUMENT */ | 106 | #endif /* not GETTIMEOFDAY_ONE_ARGUMENT */ |
| 115 | 107 | ||
| 116 | #define EMACS_ADD_TIME(dest, src1, src2) \ | 108 | #define EMACS_ADD_TIME(dest, src1, src2) \ |
diff --git a/src/w32fns.c b/src/w32fns.c index 1ab44486852..65362099bf9 100644 --- a/src/w32fns.c +++ b/src/w32fns.c | |||
| @@ -3707,8 +3707,11 @@ w32_wnd_proc (hwnd, msg, wParam, lParam) | |||
| 3707 | However for top/left sizing we will need to fix the X | 3707 | However for top/left sizing we will need to fix the X |
| 3708 | and Y positions as well. */ | 3708 | and Y positions as well. */ |
| 3709 | 3709 | ||
| 3710 | lppos->cx -= wdiff; | 3710 | int cx_mintrack = GetSystemMetrics (SM_CXMINTRACK); |
| 3711 | lppos->cy -= hdiff; | 3711 | int cy_mintrack = GetSystemMetrics (SM_CYMINTRACK); |
| 3712 | |||
| 3713 | lppos->cx = max (lppos->cx - wdiff, cx_mintrack); | ||
| 3714 | lppos->cy = max (lppos->cy - hdiff, cy_mintrack); | ||
| 3712 | 3715 | ||
| 3713 | if (wp.showCmd != SW_SHOWMAXIMIZED | 3716 | if (wp.showCmd != SW_SHOWMAXIMIZED |
| 3714 | && (lppos->flags & SWP_NOMOVE) == 0) | 3717 | && (lppos->flags & SWP_NOMOVE) == 0) |
| @@ -3732,9 +3735,6 @@ w32_wnd_proc (hwnd, msg, wParam, lParam) | |||
| 3732 | goto dflt; | 3735 | goto dflt; |
| 3733 | 3736 | ||
| 3734 | case WM_GETMINMAXINFO: | 3737 | case WM_GETMINMAXINFO: |
| 3735 | /* Hack to correct bug that allows Emacs frames to be resized | ||
| 3736 | below the Minimum Tracking Size. */ | ||
| 3737 | ((LPMINMAXINFO) lParam)->ptMinTrackSize.y++; | ||
| 3738 | /* Hack to allow resizing the Emacs frame above the screen size. | 3738 | /* Hack to allow resizing the Emacs frame above the screen size. |
| 3739 | Note that Windows 9x limits coordinates to 16-bits. */ | 3739 | Note that Windows 9x limits coordinates to 16-bits. */ |
| 3740 | ((LPMINMAXINFO) lParam)->ptMaxTrackSize.x = 32767; | 3740 | ((LPMINMAXINFO) lParam)->ptMaxTrackSize.x = 32767; |
diff --git a/src/w32term.c b/src/w32term.c index 89be876b920..992bbc76aad 100644 --- a/src/w32term.c +++ b/src/w32term.c | |||
| @@ -6693,7 +6693,7 @@ the cursor have no effect. */); | |||
| 6693 | DEFVAR_BOOL ("x-use-underline-position-properties", | 6693 | DEFVAR_BOOL ("x-use-underline-position-properties", |
| 6694 | &x_use_underline_position_properties, | 6694 | &x_use_underline_position_properties, |
| 6695 | doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties. | 6695 | doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties. |
| 6696 | nil means ignore them. If you encounter fonts with bogus | 6696 | A value of nil means ignore them. If you encounter fonts with bogus |
| 6697 | UNDERLINE_POSITION font properties, for example 7x13 on XFree prior | 6697 | UNDERLINE_POSITION font properties, for example 7x13 on XFree prior |
| 6698 | to 4.1, set this to nil. | 6698 | to 4.1, set this to nil. |
| 6699 | 6699 | ||
| @@ -6703,9 +6703,9 @@ NOTE: Not supported on MS-Windows yet. */); | |||
| 6703 | DEFVAR_BOOL ("x-underline-at-descent-line", | 6703 | DEFVAR_BOOL ("x-underline-at-descent-line", |
| 6704 | &x_underline_at_descent_line, | 6704 | &x_underline_at_descent_line, |
| 6705 | doc: /* *Non-nil means to draw the underline at the same place as the descent line. | 6705 | doc: /* *Non-nil means to draw the underline at the same place as the descent line. |
| 6706 | nil means to draw the underline according to the value of the variable | 6706 | A value of nil means to draw the underline according to the value of the |
| 6707 | `x-use-underline-position-properties', which is usually at the baseline | 6707 | variable `x-use-underline-position-properties', which is usually at the |
| 6708 | level. The default value is nil. */); | 6708 | baseline level. The default value is nil. */); |
| 6709 | x_underline_at_descent_line = 0; | 6709 | x_underline_at_descent_line = 0; |
| 6710 | 6710 | ||
| 6711 | DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars, | 6711 | DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars, |
diff --git a/src/xdisp.c b/src/xdisp.c index 957340674f6..63998ddf8f7 100644 --- a/src/xdisp.c +++ b/src/xdisp.c | |||
| @@ -13600,8 +13600,11 @@ redisplay_window (window, just_this_one_p) | |||
| 13600 | 13600 | ||
| 13601 | #endif | 13601 | #endif |
| 13602 | 13602 | ||
| 13603 | if (redisplay_tool_bar_p) | 13603 | if (redisplay_tool_bar_p && redisplay_tool_bar (f)) |
| 13604 | redisplay_tool_bar (f); | 13604 | { |
| 13605 | extern int ignore_mouse_drag_p; | ||
| 13606 | ignore_mouse_drag_p = 1; | ||
| 13607 | } | ||
| 13605 | #endif | 13608 | #endif |
| 13606 | } | 13609 | } |
| 13607 | 13610 | ||
| @@ -17407,9 +17410,9 @@ for details) to use. | |||
| 17407 | 17410 | ||
| 17408 | Optional second arg FACE specifies the face property to put | 17411 | Optional second arg FACE specifies the face property to put |
| 17409 | on all characters for which no face is specified. | 17412 | on all characters for which no face is specified. |
| 17410 | t means whatever face the window's mode line currently uses | 17413 | The value t means whatever face the window's mode line currently uses |
| 17411 | \(either `mode-line' or `mode-line-inactive', depending). | 17414 | \(either `mode-line' or `mode-line-inactive', depending). |
| 17412 | nil means the default is no face property. | 17415 | A value of nil means the default is no face property. |
| 17413 | If FACE is an integer, the value string has no text properties. | 17416 | If FACE is an integer, the value string has no text properties. |
| 17414 | 17417 | ||
| 17415 | Optional third and fourth args WINDOW and BUFFER specify the window | 17418 | Optional third and fourth args WINDOW and BUFFER specify the window |
| @@ -22155,7 +22158,7 @@ show_mouse_face (dpyinfo, draw) | |||
| 22155 | } | 22158 | } |
| 22156 | 22159 | ||
| 22157 | /* Change the mouse cursor. */ | 22160 | /* Change the mouse cursor. */ |
| 22158 | if (draw == DRAW_NORMAL_TEXT) | 22161 | if (draw == DRAW_NORMAL_TEXT && !EQ (dpyinfo->mouse_face_window, f->tool_bar_window)) |
| 22159 | rif->define_frame_cursor (f, FRAME_X_OUTPUT (f)->text_cursor); | 22162 | rif->define_frame_cursor (f, FRAME_X_OUTPUT (f)->text_cursor); |
| 22160 | else if (draw == DRAW_MOUSE_FACE) | 22163 | else if (draw == DRAW_MOUSE_FACE) |
| 22161 | rif->define_frame_cursor (f, FRAME_X_OUTPUT (f)->hand_cursor); | 22164 | rif->define_frame_cursor (f, FRAME_X_OUTPUT (f)->hand_cursor); |
| @@ -24276,7 +24279,7 @@ Value is a number or a cons (WIDTH-DPI . HEIGHT-DPI). */); | |||
| 24276 | truncate_partial_width_windows = 1; | 24279 | truncate_partial_width_windows = 1; |
| 24277 | 24280 | ||
| 24278 | DEFVAR_BOOL ("mode-line-inverse-video", &mode_line_inverse_video, | 24281 | DEFVAR_BOOL ("mode-line-inverse-video", &mode_line_inverse_video, |
| 24279 | doc: /* nil means display the mode-line/header-line/menu-bar in the default face. | 24282 | doc: /* When nil, display the mode-line/header-line/menu-bar in the default face. |
| 24280 | Any other value means to use the appropriate face, `mode-line', | 24283 | Any other value means to use the appropriate face, `mode-line', |
| 24281 | `header-line', or `menu' respectively. */); | 24284 | `header-line', or `menu' respectively. */); |
| 24282 | mode_line_inverse_video = 1; | 24285 | mode_line_inverse_video = 1; |
diff --git a/src/xterm.c b/src/xterm.c index 277f0431a3b..977325f0b75 100644 --- a/src/xterm.c +++ b/src/xterm.c | |||
| @@ -8608,15 +8608,15 @@ do_ewmh_fullscreen (f) | |||
| 8608 | Atom *atoms = XListProperties (FRAME_X_DISPLAY (f), | 8608 | Atom *atoms = XListProperties (FRAME_X_DISPLAY (f), |
| 8609 | FRAME_X_DISPLAY_INFO (f)->root_window, | 8609 | FRAME_X_DISPLAY_INFO (f)->root_window, |
| 8610 | &num); | 8610 | &num); |
| 8611 | if (atoms && num > 0) | 8611 | if (atoms && num > 0) |
| 8612 | { | 8612 | { |
| 8613 | char **names = (char **) xmalloc (num * sizeof(*names)); | 8613 | char **names = (char **) xmalloc (num * sizeof(*names)); |
| 8614 | if (XGetAtomNames (FRAME_X_DISPLAY (f), atoms, num, names)) | 8614 | if (XGetAtomNames (FRAME_X_DISPLAY (f), atoms, num, names)) |
| 8615 | { | 8615 | { |
| 8616 | int i; | 8616 | int i; |
| 8617 | for (i = 0; i < num; ++i) | 8617 | for (i = 0; i < num; ++i) |
| 8618 | { | 8618 | { |
| 8619 | if (!have_net_atom) | 8619 | if (!have_net_atom) |
| 8620 | have_net_atom = strncmp (names[i], "_NET_", 5) == 0; | 8620 | have_net_atom = strncmp (names[i], "_NET_", 5) == 0; |
| 8621 | XFree (names[i]); | 8621 | XFree (names[i]); |
| 8622 | } | 8622 | } |
| @@ -8629,7 +8629,7 @@ do_ewmh_fullscreen (f) | |||
| 8629 | FRAME_X_DISPLAY_INFO (f)->have_net_atoms = have_net_atom; | 8629 | FRAME_X_DISPLAY_INFO (f)->have_net_atoms = have_net_atom; |
| 8630 | } | 8630 | } |
| 8631 | 8631 | ||
| 8632 | if (have_net_atom) | 8632 | if (have_net_atom) |
| 8633 | { | 8633 | { |
| 8634 | Lisp_Object frame; | 8634 | Lisp_Object frame; |
| 8635 | const char *atom = "_NET_WM_STATE"; | 8635 | const char *atom = "_NET_WM_STATE"; |
| @@ -8642,7 +8642,7 @@ do_ewmh_fullscreen (f) | |||
| 8642 | 8642 | ||
| 8643 | /* If there are _NET_ atoms we assume we have extended window manager | 8643 | /* If there are _NET_ atoms we assume we have extended window manager |
| 8644 | hints. */ | 8644 | hints. */ |
| 8645 | switch (f->want_fullscreen) | 8645 | switch (f->want_fullscreen) |
| 8646 | { | 8646 | { |
| 8647 | case FULLSCREEN_BOTH: | 8647 | case FULLSCREEN_BOTH: |
| 8648 | what = fs; | 8648 | what = fs; |
| @@ -8698,7 +8698,7 @@ static void | |||
| 8698 | XTfullscreen_hook (f) | 8698 | XTfullscreen_hook (f) |
| 8699 | FRAME_PTR f; | 8699 | FRAME_PTR f; |
| 8700 | { | 8700 | { |
| 8701 | if (f->async_visible) | 8701 | if (f->async_visible) |
| 8702 | { | 8702 | { |
| 8703 | BLOCK_INPUT; | 8703 | BLOCK_INPUT; |
| 8704 | do_ewmh_fullscreen (f); | 8704 | do_ewmh_fullscreen (f); |
| @@ -8718,7 +8718,7 @@ x_check_fullscreen (f) | |||
| 8718 | { | 8718 | { |
| 8719 | int width, height, ign; | 8719 | int width, height, ign; |
| 8720 | 8720 | ||
| 8721 | if (do_ewmh_fullscreen (f)) | 8721 | if (do_ewmh_fullscreen (f)) |
| 8722 | return; | 8722 | return; |
| 8723 | 8723 | ||
| 8724 | x_real_positions (f, &f->left_pos, &f->top_pos); | 8724 | x_real_positions (f, &f->left_pos, &f->top_pos); |
| @@ -9052,20 +9052,26 @@ XTframe_raise_lower (f, raise_flag) | |||
| 9052 | { | 9052 | { |
| 9053 | if (raise_flag) | 9053 | if (raise_flag) |
| 9054 | { | 9054 | { |
| 9055 | Lisp_Object frame; | 9055 | /* The following code is needed for `raise-frame' to work on |
| 9056 | const char *atom = "_NET_ACTIVE_WINDOW"; | 9056 | some versions of metacity; see Window Manager |
| 9057 | Specification/Extended Window Manager Hints at | ||
| 9058 | http://freedesktop.org/wiki/Standards_2fwm_2dspec | ||
| 9059 | |||
| 9060 | However, on other versions (metacity 2.17.2-1.fc7), it | ||
| 9061 | reportedly causes hangs when resizing frames. */ | ||
| 9062 | |||
| 9063 | /* Lisp_Object frame; | ||
| 9064 | const char *atom = "_NET_ACTIVE_WINDOW"; */ | ||
| 9057 | 9065 | ||
| 9058 | x_raise_frame (f); | 9066 | x_raise_frame (f); |
| 9059 | /* See Window Manager Specification/Extended Window Manager Hints at | ||
| 9060 | http://freedesktop.org/wiki/Standards_2fwm_2dspec */ | ||
| 9061 | 9067 | ||
| 9062 | XSETFRAME (frame, f); | 9068 | /* XSETFRAME (frame, f); |
| 9063 | Fx_send_client_event (frame, make_number (0), frame, | 9069 | Fx_send_client_event (frame, make_number (0), frame, |
| 9064 | make_unibyte_string (atom, strlen (atom)), | 9070 | make_unibyte_string (atom, strlen (atom)), |
| 9065 | make_number (32), | 9071 | make_number (32), |
| 9066 | Fcons (make_number (1), | 9072 | Fcons (make_number (1), |
| 9067 | Fcons (make_number (time (NULL) * 1000), | 9073 | Fcons (make_number (time (NULL) * 1000), |
| 9068 | Qnil))); | 9074 | Qnil))); */ |
| 9069 | } | 9075 | } |
| 9070 | else | 9076 | else |
| 9071 | x_lower_frame (f); | 9077 | x_lower_frame (f); |
| @@ -10512,8 +10518,8 @@ x_query_font (f, fontname) | |||
| 10512 | 10518 | ||
| 10513 | for (i = 0; i < dpyinfo->n_fonts; i++) | 10519 | for (i = 0; i < dpyinfo->n_fonts; i++) |
| 10514 | if (dpyinfo->font_table[i].name | 10520 | if (dpyinfo->font_table[i].name |
| 10515 | && (!strcasecmp (dpyinfo->font_table[i].name, fontname) | 10521 | && (!xstricmp (dpyinfo->font_table[i].name, fontname) |
| 10516 | || !strcasecmp (dpyinfo->font_table[i].full_name, fontname))) | 10522 | || !xstricmp (dpyinfo->font_table[i].full_name, fontname))) |
| 10517 | return (dpyinfo->font_table + i); | 10523 | return (dpyinfo->font_table + i); |
| 10518 | return NULL; | 10524 | return NULL; |
| 10519 | } | 10525 | } |
| @@ -11601,7 +11607,7 @@ syms_of_xterm () | |||
| 11601 | DEFVAR_BOOL ("x-use-underline-position-properties", | 11607 | DEFVAR_BOOL ("x-use-underline-position-properties", |
| 11602 | &x_use_underline_position_properties, | 11608 | &x_use_underline_position_properties, |
| 11603 | doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties. | 11609 | doc: /* *Non-nil means make use of UNDERLINE_POSITION font properties. |
| 11604 | nil means ignore them. If you encounter fonts with bogus | 11610 | A value of nil means ignore them. If you encounter fonts with bogus |
| 11605 | UNDERLINE_POSITION font properties, for example 7x13 on XFree prior | 11611 | UNDERLINE_POSITION font properties, for example 7x13 on XFree prior |
| 11606 | to 4.1, set this to nil. */); | 11612 | to 4.1, set this to nil. */); |
| 11607 | x_use_underline_position_properties = 1; | 11613 | x_use_underline_position_properties = 1; |
| @@ -11609,9 +11615,9 @@ to 4.1, set this to nil. */); | |||
| 11609 | DEFVAR_BOOL ("x-underline-at-descent-line", | 11615 | DEFVAR_BOOL ("x-underline-at-descent-line", |
| 11610 | &x_underline_at_descent_line, | 11616 | &x_underline_at_descent_line, |
| 11611 | doc: /* *Non-nil means to draw the underline at the same place as the descent line. | 11617 | doc: /* *Non-nil means to draw the underline at the same place as the descent line. |
| 11612 | nil means to draw the underline according to the value of the variable | 11618 | A value of nil means to draw the underline according to the value of the |
| 11613 | `x-use-underline-position-properties', which is usually at the baseline | 11619 | variable `x-use-underline-position-properties', which is usually at the |
| 11614 | level. The default value is nil. */); | 11620 | baseline level. The default value is nil. */); |
| 11615 | x_underline_at_descent_line = 0; | 11621 | x_underline_at_descent_line = 0; |
| 11616 | 11622 | ||
| 11617 | DEFVAR_BOOL ("x-mouse-click-focus-ignore-position", | 11623 | DEFVAR_BOOL ("x-mouse-click-focus-ignore-position", |
diff --git a/vms/make-mms-derivative.el b/vms/make-mms-derivative.el index f2c64df289d..d74a6582ca4 100644 --- a/vms/make-mms-derivative.el +++ b/vms/make-mms-derivative.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; make-mms-derivative.el --- framework to do horrible things for VMS support | 1 | ;;; make-mms-derivative.el --- framework to do horrible things for VMS support |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2005, 2006 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Thien-Thi Nguyen <ttn@gnu.org> | 5 | ;; Author: Thien-Thi Nguyen <ttn@gnu.org> |
| 6 | ;; Keywords: maint build vms mms makefile levitte autoconf war-is-a-lose | 6 | ;; Keywords: maint build vms mms makefile levitte autoconf war-is-a-lose |