diff options
1232 files changed, 9938 insertions, 6012 deletions
diff --git a/admin/FOR-RELEASE b/admin/FOR-RELEASE index 47fd2c4b00b..d38cd815fb0 100644 --- a/admin/FOR-RELEASE +++ b/admin/FOR-RELEASE @@ -38,6 +38,8 @@ To be done by Andre Spiegel <spiegel@gnu.org>. ** Debug custom themes. +** Get rid of the defadvice calls in org.el. + * FATAL ERRORS ** Investigate reported crashes in compact_small_strings. @@ -45,10 +47,47 @@ To be done by Andre Spiegel <spiegel@gnu.org>. ** Investigate reported crashes related to using an invalid pointer from string_free_list. +** Emacs on Windows crashes reading JPEG images from files. + +The problem is caused by the Emacs executable and the image library +having multiple, incompatible copies of the run-time code, which can +happen when mixing a MSVC build of Emacs with a MinGW build of the +jpeg library (or the other way around). The fix is straightforward +and has already been posted on the developers' list, but it is on the +back burner waiting for a legal comment or an alternate implementation +(around 30 lines of code). + * BUGS +** The header-line buttons in the buffer list buffer +should respond to Mouse-1. + ** Fix those modes that still use compile-internal, to not use it. +** Fix recognition of shell's `dirs' command. + +Is his change right? + +Date: Wed, 29 Jun 2005 18:21:28 -0500 (CDT) +From: kevin.gal@verizon.net + +When I use tcsh (which echoes command input) in a shell buffer, +entering "M-x dirs" fails because it mistakens the echoed "dirs" +string as the directory string to use as input when changing the +buffers default directory. The attached gziped patch file contains a +fix. The patch also binds the "dirs" command to "\e\C-m" in +shell-mode-map (previously unbound) to make it easy to invoke. +Finally, a test has been added to see if "shell-dirstack-query" is +non-nil. If so, it is not overwritten. + +To enable the fix, the user must set comint-process-echoes to t. + +** TCP server processes do not work on Windows. + +TCP/IP server processes created with `make-network-process' consume +excesive CPU on some Windows environments. Usages of 50% and 100% +CPU time have been observed on different Window XP configurations. + ** Bug in ebrowse Date: Fri, 27 May 2005 17:35:48 +0200 @@ -95,20 +134,39 @@ you're going to handle. DIRECTORY STATUS IN CHARGE --------- ------ --------- +etc (and subdirs) done Thien-Thi Nguyen (ttn(@gnu.org)) leim working Kenichi Handa -lisp/calc done Thien-Thi Nguyen +lib-src done ttn +lisp done ttn +lisp/calc done ttn lisp/calendar working Glenn Morris -lisp/emulation done Thien-Thi Nguyen -lisp/eshell done Thien-Thi Nguyen +lisp/emacs-lisp done ttn +lisp/emulation done ttn +lisp/eshell done ttn +lisp/gnus done ttn lisp/international done Kenichi Handa -lisp/languages done Kenichi Handa +lisp/language done Kenichi Handa +lisp/mail done ttn lisp/mh-e working Bill Wohler -lisp/net done Thien-Thi Nguyen -lisp/play done Thien-Thi Nguyen +lisp/net done ttn +lisp/obsolete done ttn +lisp/play done ttn lisp/progmodes done Nick Roberts -lisp/term done Thien-Thi Nguyen -lisp/toolbar done Thien-Thi Nguyen -lisp/url working Thien-Thi Nguyen +lisp/term done ttn +lisp/textmodes done ttn +lisp/toolbar done ttn +lisp/url done ttn +lispintro done ttn +lispref done ttn +lwlib done ttn +m4 done ttn +mac (and subdirs) done ttn +man done ttn +msdos done ttn +nt (and subdirs) done ttn +oldXMenu done ttn +src (and subdirs) done ttn +vms done ttn ** Check the Emacs manual. @@ -208,7 +266,7 @@ lispref/numbers.texi "Luc Teirlinck" Chong Yidong lispref/objects.texi "Luc Teirlinck" Chong Yidong lispref/os.texi "Luc Teirlinck" Chong Yidong lispref/positions.texi "Luc Teirlinck" Chong Yidong -lispref/processes.texi Chong Yidong Thien-Thi Nguyen +lispref/processes.texi Chong Yidong ttn lispref/searching.texi "Luc Teirlinck" Chong Yidong lispref/sequences.texi "Luc Teirlinck" Chong Yidong lispref/streams.texi "Luc Teirlinck" Chong Yidong @@ -238,8 +296,8 @@ etc/TUTORIAL.cn etc/TUTORIAL.cs Pavel Janík <Pavel@Janik.cz> etc/TUTORIAL.de Werner LEMBERG <wl@gnu.org> etc/TUTORIAL.es Marcelo Toledo -etc/TUTORIAL.fr Thien-Thi Nguyen -etc/TUTORIAL.it Thien-Thi Nguyen +etc/TUTORIAL.fr ttn +etc/TUTORIAL.it ttn etc/TUTORIAL.ja Kenichi Handa <handa@m17n.org> etc/TUTORIAL.ko etc/TUTORIAL.nl Lute Kamstra diff --git a/etc/ChangeLog b/etc/ChangeLog index cddc109c39b..07c05935fed 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog @@ -1,3 +1,7 @@ +2005-08-20 Chong Yidong <cyd@stupidchicken.com> + + * MORE.STUFF: Update links and URLs. + 2005-08-05 Kenichi Handa <handa@m17n.org> * NEWS: Fix the entry describing code-pages. @@ -2175,7 +2179,7 @@ ;; End: Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001 - Free Software Foundation, Inc. + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted provided the copyright notice and this notice are preserved. diff --git a/etc/DEBUG b/etc/DEBUG index a29e5fd3e6c..27f563a7405 100644 --- a/etc/DEBUG +++ b/etc/DEBUG @@ -1,5 +1,6 @@ Debugging GNU Emacs -Copyright (c) 1985, 2000, 2001, 2005 Free Software Foundation, Inc. +Copyright (C) 1985, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document as received, in any medium, provided that the diff --git a/etc/DISTRIB b/etc/DISTRIB index bc0ea8cc60d..f5c380bfe37 100644 --- a/etc/DISTRIB +++ b/etc/DISTRIB @@ -3,8 +3,9 @@ For an order form for all Emacs and FSF distributions deliverable from the USA, see http://www.gnu.org/order/order.html. GNU Emacs availability information, October 2000 -Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1995, 1998, 2000 - Free Software Foundation, Inc. + +Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1995, 1998, + 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document provided that the @@ -1,4 +1,5 @@ -Copyright (C) 1985, 1993, 2003, 2005 Free Software Foundation, Inc. +Copyright (C) 1985, 1993, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document, in any medium, provided that the copyright notice and diff --git a/etc/GNUS-NEWS b/etc/GNUS-NEWS index 6e36a985973..0c9e0f4ef1f 100644 --- a/etc/GNUS-NEWS +++ b/etc/GNUS-NEWS @@ -1,5 +1,6 @@ GNUS NEWS -- history of user-visible changes. -Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. +Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. See the end for copying conditions. Please send Gnus bug reports to bugs@gnus.org. @@ -62,7 +63,7 @@ picons, install the picons database from and point `gnus-picon-databases' to that location. -** If the new option `gnus-treat-body-boundary' is `head', a boundary +** If the new option `gnus-treat-body-boundary' is `head', a boundary line is drawn at the end of the headers. ** Retrieval of charters and control messages @@ -77,7 +78,7 @@ for sending yourself reminders. Setup with (gnus-delay-initialize). ** If `auto-compression-mode' is enabled, attachments are automatically decompressed when activated. -** If the new option `nnml-use-compressed-files' is non-nil, +** If the new option `nnml-use-compressed-files' is non-nil, the nnml back end allows compressed message files. ** Signed article headers (X-PGP-Sig) can be verified with `W p'. @@ -91,24 +92,24 @@ Do you often find yourself replying to news by email by mistake? Then the new option `gnus-confirm-mail-reply-to-news' is just the thing for you. -** If the new option `gnus-summary-display-while-building' is non-nil, +** If the new option `gnus-summary-display-while-building' is non-nil, the summary buffer is shown and updated as it's being built. ** The new `recent' mark "." indicates newly arrived messages (as opposed to old but unread messages). -** The new option `gnus-gcc-mark-as-read' automatically marks +** The new option `gnus-gcc-mark-as-read' automatically marks Gcc articles as read. ** The nndoc back end now supports mailman digests and exim bounces. -** Gnus supports RFC 2369 mailing list headers, and adds a number of +** Gnus supports RFC 2369 mailing list headers, and adds a number of related commands in mailing list groups. ** The Date header can be displayed in a format that can be read aloud in English, see `gnus-treat-date-english'. -** The envelope sender address can be customized when using Sendmail, see +** The envelope sender address can be customized when using Sendmail, see `message-sendmail-envelope-from'. ** diffs are automatically highlighted in groups matching @@ -488,7 +489,7 @@ If you used procmail like in (setq nnmail-procmail-directory "~/mail/incoming/") (setq nnmail-procmail-suffix "\\.in") -this now has changed to +this now has changed to (setq mail-sources '((directory :path "~/mail/incoming/" @@ -527,7 +528,8 @@ ever-changing layouts. ---------------------------------------------------------------------- Copyright information: -Copyright (C) 1999, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. +Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document as received, in any medium, provided that the diff --git a/etc/MORE.STUFF b/etc/MORE.STUFF index e7a8f8e61d8..0a81c1817a4 100644 --- a/etc/MORE.STUFF +++ b/etc/MORE.STUFF @@ -16,7 +16,7 @@ Please submit a bug report if you find that any of the addresses listed here fail. * The `Emacs Lisp List' at - <URL:http://www.anc.ed.ac.uk/%7Estephen/emacs/ell.html> has pointers + <URL:http://www.damtp.cam.ac.uk/user/eglen/emacs/ell.html> has pointers to sources of a large number of packages. * gnu.emacs.sources @@ -47,19 +47,17 @@ You might find bug-fixes or enhancements in these places. * CC mode: <URL:http://cc-mode.sourceforge.net/> - * CPerl: <URL:ftp://ftp.math.ohio-state.edu/pub/users/ilya> + * CPerl: <URL:http://www.cpan.org/modules/by-module/CPAN/ILYAZ/cperl-mode/> * Ediff and Viper: <URL:http://www.cs.sunysb.edu/~kifer/emacs.html> * Eldoc and Rlogin: - <URL:ftp://ftp.splode.com/pub/users/friedman/packages/> + <URL:http://www.splode.com/~friedman/software/emacs-lisp/> - * EShell: <URL:http://www.gci-net.com/users/j/johnw/emacs.html> + * EShell: <URL:http://www.newartisans.com/johnw/emacs.html> * Etags: <URL:ftp://pot.potorti.it/pub/software/unix/etags.tar.gz> - * EUDC: <URL:http://lspwww.epfl.ch/%7Efigueire/Software/eudc/> - * Expand: <URL:http://w3.teaser.fr/%7Eflepied/expand.el.gz> * Fortune: <URL:http://www.coling.uni-freiburg.de/%7Eschauer/emacs.html> @@ -73,24 +71,20 @@ You might find bug-fixes or enhancements in these places. * Ispell: <URL:http://www.kdstevens.com/%7Estevens/ispell-page.html> - * Iswitchb: <URL:http://www.anc.ed.ac.uk/%7Estephen/emacs/iswitchb.el> - * PC Selection: <URL:ftp://ftp.thp.uni-duisburg.de/pub/source/elisp/> * PS mode: <URL:http://odur.let.rug.nl/%7Ekleiweg/postscript/> - * PS-print: <URL:ftp://ftp.cpqd.com.br/pub/users/vinicius/> + * PS-print: <URL:http://www.cpqd.com.br/~vinicius/emacs/> - * QuickURL: <URL:http://www.acemake.com/hagbard/archives/quickurl.el> + * QuickURL: <URL:http://www.davep.org/emacs/> - * RefTeX: <URL:http://zon.astro.uva.nl/~dominik/Tools/> + * RefTeX: <URL:http://staff.science.uva.nl/~dominik/Tools/reftex/> * Speedbar, Checkdoc etc: <URL:http://cedet.sourceforge.net/> * SQL: <URL:http://www.geocities.com/TimesSquare/6120/emacs.html> - * Sregex: <URL:http://www.zanshin.com/%7Ebobg/sregex.html> - * Tramp: Remote file access via rsh/ssh <URL:http://savannah.gnu.org/projects/tramp/> @@ -139,7 +133,7 @@ Several are for Debian GNU/Linux in particular. mirrors of the `CTAN' TeX archives. * Dismal: spreadsheet: - <URL:http://acs.ist.psu.edu/dismal/dismal.html> + <URL:http://www.gnu.org/software/dismal/dismal.html> * ECB: Emacs Code Browser: <URL:http://ecb.sourceforge.net/> @@ -159,7 +153,7 @@ Several are for Debian GNU/Linux in particular. * EMacro: <URL:http://emacro.sourceforge.net/> EMacro is a portable configuration file that configures itself. - * Emacs statistical system (ESS): statistical programming within Emacs + * Emacs speaks statistics (ESS): statistical programming within Emacs <URL:http://ess.r-project.org> * Emacspeak -- A Speech Output Subsystem For Emacs: @@ -176,26 +170,18 @@ Several are for Debian GNU/Linux in particular. <URL:http://www.emacswiki.org/cgi-bin/wiki?EmacsIRCClient> * Gnuserv: - <URL:ftp://ftp.splode.com/pub/users/friedman/packages/fgnuserv-1.0.tar.gz> - Enhanced emacsclient/emacsserver. See also - <URL:http://www.splode.com/users/friedman/software/emacs-lisp/> for - other Friedman Emacs hacks. - - The latest versions of gnuserv are maintained by Martin Schwenke, - and are available from <URL:http://meltin.net/hacks/emacs/>. Also - available from this Web page: eiffel-mode.el. + <URL:http://meltin.net/hacks/emacs/> + Enhanced emacsclient/emacsserver. Also available from this Web + page: eiffel-mode.el. * hm--html-menus: <URL:ftp://ftp.tnt.uni-hannover.de/pub/editors/xemacs/contrib> HTML-specific editing. Can work with PSGML. - * Hyperbole: `Hyperbole is an open, efficient, programmable - information management and hypertext system.' - From GNU distribution mirrors. - - * ILISP: <URL:http://ilisp.cons.org/> - Provides an interactive environment for manipulating an inferior - process running some form of Lisp. + * Hyperbole: + <URL:http://ftp.gnu.org/pub/gnu/hyperbole/hyperbole-4.01.tar.gz> + Hyperbole is an open, efficient, programmable information + management and hypertext system. * JDEE: <URL:http://jdee.sunsite.dk/> Provides a Java development environment for Emacs. @@ -220,9 +206,6 @@ Several are for Debian GNU/Linux in particular. * Planner Mode: <URL:http://sacha.free.net.ph/notebook/wiki/PlannerMode.php> - * Pointers to MIME packages: - <URL:http://bmrc.berkeley.edu/%7Etrey/emacs/mime.html> - * Preview LaTeX: embed preview LaTeX images in source buffer. <URL:http://preview-latex.sourceforge.net/> @@ -888,6 +888,9 @@ black or white default foreground color. This generic shadow face allows customization of the appearance of shadowed text in one place, so package-specific faces can inherit from it. ++++ +*** `vertical-border' face is used for the vertical divider between windows. + ** Font-Lock changes: +++ @@ -957,8 +960,7 @@ This menu allows you to turn various display features on and off (such as the fringes, the tool bar, the speedbar, and the menu bar itself). You can also move the vertical scroll bar to either side here or turn it off completely. There is also a menu-item to toggle displaying of -current date and time, current line and column number in the -mode-line. +current date and time, current line and column number in the mode-line. --- *** Speedbar has moved from the "Tools" top level menu to "Show/Hide". @@ -996,12 +998,10 @@ the new dialog. ** Mouse changes: +++ -*** New display feature: focus follows the mouse from one Emacs window -to another, even within a frame. If you set the variable -mouse-autoselect-window to non-nil value, moving the mouse to a -different Emacs window will select that window (minibuffer window can -be selected only when it is active). The default is nil, so that this -feature is not enabled. +*** If you set the new variable `mouse-autoselect-window' to a non-nil +value, windows are automatically selected as you move the mouse from +one Emacs window to another, even within a frame. A minibuffer window +can be selected only when it is active. +++ *** On X, when the window manager requires that you click on a frame to @@ -1069,7 +1069,7 @@ mouse-wheel-inhibit-click-time variables. +++ *** Under X, mouse-wheel-mode is turned on by default. -** Mule changes: +** Multilingual Environment (Mule) changes: --- *** Language environment and various default coding systems are setup @@ -1374,6 +1374,10 @@ compilation processes without affecting the environment that all subprocesses inherit. +++ +*** New user option `compilation-disable-input'. +If this is non-nil, send end-of-file as compilation process input. + ++++ *** New options `next-error-highlight' and `next-error-highlight-no-select' specify the method of highlighting of the corresponding source line in new face `next-error'. @@ -1705,7 +1709,7 @@ before calling it, if used while defining a macro. In addition, when ending or calling a macro with C-x e, the macro can be repeated immediately by typing just the `e'. You can customize -this behavior via the variable kmacro-call-repeat-key and +this behavior via the variables kmacro-call-repeat-key and kmacro-call-repeat-with-arg. Keyboard macros can now be debugged and edited interactively. @@ -1822,10 +1826,32 @@ recognized. --- ** The TCL package tcl-mode.el was replaced by tcl.el. This was actually done in Emacs-21.1, and was not documented. + +** The new package scroll-lock.el provides the Scroll Lock minor mode +for pager-like scrolling. Keys which normally move point by line or +paragraph will scroll the buffer by the respective amount of lines +instead and point will be kept vertically fixed relative to window +boundaries during scrolling. * Changes in Specialized Modes and Packages in Emacs 22.1: --- +** Changes to cmuscheme + +*** Emacs now offers to start Scheme if the user tries to +evaluate a Scheme expression but no Scheme subprocess is running. + +*** If a file `.emacs_NAME' (where NAME is the name of the Scheme interpreter) +exists in the user's home directory or in ~/.emacs.d, its +contents are sent to the Scheme subprocess upon startup. + +*** There are new commands to instruct the Scheme interpreter to trace +procedure calls (`scheme-trace-procedure') and to expand syntactic forms +(`scheme-expand-current-form'). The commands actually sent to the Scheme +subprocess are controlled by the user options `scheme-trace-command', +`scheme-untrace-command' and `scheme-expand-current-form'. + +--- ** Makefile mode has submodes for automake, gmake, makepp and BSD make. The former two couldn't be differentiated before, and the latter two @@ -1887,7 +1913,7 @@ when Emacs visits them. *** A numeric prefix argument of `info' selects an Info buffer with the number appended to the `*info*' buffer name (e.g. "*info*<2>"). ---- ++++ *** isearch in Info uses Info-search and searches through multiple nodes. Before leaving the initial Info node isearch fails once with the error @@ -1898,31 +1924,38 @@ aroung the whole manual to the top/final node. The user option or the default isearch search function that wraps around the current Info node. +--- *** New search commands: `Info-search-case-sensitively' (bound to S), `Info-search-backward', and `Info-search-next' which repeats the last search without prompting for a new search string. ++++ *** New command `Info-history-forward' (bound to r and new toolbar icon) moves forward in history to the node you returned from after using `Info-history-back' (renamed from `Info-last'). +--- *** New command `Info-history' (bound to L) displays a menu of visited nodes. +--- *** New command `Info-toc' (bound to T) creates a node with table of contents from the tree structure of menus of the current Info file. ++++ *** New command `info-apropos' searches the indices of the known Info files on your system for a string, and builds a menu of the possible matches. +--- *** New command `Info-copy-current-node-name' (bound to w) copies the current Info node name into the kill ring. With a zero prefix arg, puts the node name inside the `info' function call. ---- ++++ *** New face `info-xref-visited' distinguishes visited nodes from unvisited and a new option `Info-fontify-visited-nodes' to control this. +--- *** http and ftp links in Info are now operational: they look like cross references and following them calls `browse-url'. @@ -2827,6 +2860,10 @@ See the documentation of the user option --- *** Rmail now displays 5-digit message ids in its summary buffer. +*** The new commands rmail-end-of-message and rmail-summary end-of-message, +by default bound to `/', go to the end of the current mail message in +Rmail and Rmail summary buffers. + +++ *** Support for `movemail' from GNU mailutils was added to Rmail. @@ -2858,6 +2895,10 @@ version 5.0.2; see MH-E-NEWS for details. ** Calendar changes: +++ +*** You can now use < and >, instead of C-x < and C-x >, to scroll +the calendar left or right. (The old key bindings still work too.) + ++++ *** There is a new calendar package, icalendar.el, that can be used to convert Emacs diary entries to/from the iCalendar format. @@ -3251,6 +3292,10 @@ the command `undefined'. (In earlier Emacs versions, it used ** General Lisp changes: +*** The function `expt' handles negative exponents differently. +The value for `(expt A B)', if both A and B are integers and B is +negative, is now a float. For example: (expt 2 -2) => 0.25. + +++ *** The function `eql' is now available without requiring the CL package. @@ -3673,6 +3718,25 @@ binding of VARIABLE (a symbol) in buffer BUFFER. If VARIABLE does not have a buffer-local binding in buffer BUFFER, it returns the default value of VARIABLE instead. +*** The function `frame-or-buffer-changed-p' now lets you maintain +various status records in parallel. + +It take a variable (a symbol) as argument. If the variable is non-nil, +then its value should be a vector installed previously by +`frame-or-buffer-changed-p'. If the frame names, buffer names, buffer +order, or their read-only or modified flags have changed, since the +time the vector's contents were recorded by a previous call to +`frame-or-buffer-changed-p', then the function returns t. Otherwise +it returns nil. + +On the first call to `frame-or-buffer-changed-p', the variable's +value should be nil. `frame-or-buffer-changed-p' stores a suitable +vector into the variable and returns t. + +If the variable is itself nil, then `frame-or-buffer-changed-p' uses, +for compatibility, an internal variable which exists only for this +purpose. + ** Local variables lists: +++ @@ -3940,7 +4004,8 @@ using the text properties (esp. the face) of the prompt string. *** (while-no-input BODY...) runs BODY, but only so long as no input arrives. If the user types or clicks anything, BODY stops as if a quit had occurred. `while-no-input' returns the value of BODY, if BODY -finishes. It returns nil if BODY was aborted. +finishes. It returns nil if BODY was aborted by a quit, and t if +BODY was aborted by arrival of input. ** Minibuffer changes: @@ -4736,6 +4801,13 @@ so that :inherit face lists operate identically to face lists in text `face' properties. --- +*** On terminals, faces with the :inverse-video attribute are displayed +with swapped foreground and background colors even when one of them is +not specified. In previous releases of Emacs, if either foreground +or background color was unspecified, colors were not swapped. This +was inconsistent with the face behavior under X. + +--- *** `set-fontset-font', `fontset-info', `fontset-font' now operate on the default fontset if the argument NAME is nil.. @@ -14513,7 +14585,8 @@ select one of those items. ---------------------------------------------------------------------- Copyright information: -Copyright (C) 1999, 2000, 2001, 2002, 2003, 2005 Free Software Foundation, Inc. +Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document as received, in any medium, provided that the diff --git a/etc/PROBLEMS b/etc/PROBLEMS index c39142a9299..472611b7130 100644 --- a/etc/PROBLEMS +++ b/etc/PROBLEMS @@ -3565,8 +3565,8 @@ This problem will not happen if the m-...h file for your type of machine defines NO_UNION_TYPE. -Copyright 1987,88,89,93,94,95,96,97,98,1999,2001,2002,2004 - Free Software Foundation, Inc. +Copyright 1987, 1988, 1989, 1993, 1994, 1995, 1996, 1997, 1998, 1999, + 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Copying and redistribution of this file with or without modification are permitted without royalty provided this notice is preserved. @@ -273,6 +273,9 @@ to the FSF. ** Provide portable undumping using mmap (per gerd design). +** Make byte-compile avoid binding an expanded defsubst's args +when the body only calls primitives. + ** Use the XIE X extension, if available, for image display. ** Make monochrome images display using the foreground and background diff --git a/etc/TUTORIAL b/etc/TUTORIAL index 48fa02f93d9..0df9a6f2711 100644 --- a/etc/TUTORIAL +++ b/etc/TUTORIAL @@ -1,5 +1,4 @@ Emacs tutorial. See end for copying conditions. -Copyright (c) 1985, 1996, 1998, 2001, 2002, 2005 Free Software Foundation. Emacs commands generally involve the CONTROL key (sometimes labeled CTRL or CTL) or the META key (sometimes labeled EDIT or ALT). Rather than @@ -1104,7 +1103,8 @@ starting with the one written by Stuart Cracraft for the original Emacs. This version of the tutorial, like GNU Emacs, is copyrighted, and comes with permission to distribute copies on certain conditions: -Copyright (c) 1985, 1996, 1998, 2001, 2002, 2005 Free Software Foundation +Copyright (C) 1985, 1996, 1998, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document as received, in any medium, provided that the diff --git a/etc/TUTORIAL.bg b/etc/TUTORIAL.bg index 239d3d58c19..8f51458381f 100644 --- a/etc/TUTORIAL.bg +++ b/etc/TUTORIAL.bg @@ -1,5 +1,4 @@ Âúâåäåíèå â Emacs. Óñëîâèÿòà çà êîïèðàíå ñà â êðàÿ íà òåêñòà. -Copyright (c) 1985,1996,1998,2001,2002,2003,2005 Free Software Foundation. Êîìàíäèòå íà Emacs íàé-÷åñòî âêëþ÷âàò êëàâèøèòå CONTROL (ïîíÿêîãà îòáåëÿçâàí ñ CTRL èëè CTL) è META (ïîíÿêîãà îòáåëÿçâàí ñ EDIT èëè @@ -1170,7 +1169,8 @@ Dired âè ïîçâîëÿâà äà ãëåäàòå ñïèñúêà îò ôàéëîâå â äèðåêòîðèÿ (è êàòî This version of the tutorial, like GNU Emacs, is copyrighted, and comes with permission to distribute copies on certain conditions: -Copyright (c) 1985, 1996, 1998, 2001, 2002, 2005 Free Software Foundation +Copyright (C) 1985, 1996, 1998, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document as received, in any medium, provided that the diff --git a/etc/TUTORIAL.cn b/etc/TUTORIAL.cn index 1b30b6e909a..f35c53be663 100644 --- a/etc/TUTORIAL.cn +++ b/etc/TUTORIAL.cn @@ -1,5 +1,4 @@ Emacs ¿ìËÙÖ¸ÄÏ. -Copyright (c) 1985, 1996, 1998, 2001, 2002 Free Software Foundation. Emacs Ö¸Áîͨ³£°üº¬ÓÐ CONTROL ¼ü£¨ÓÐʱºòÒÔ CTRL »ò CTL À´±êʾ£©»òÊÇ META ¼ü£¨ÓÐʱºòÒÔ EDIT »ò ALT À´±êʾ£©¡£ÎªÁ˱ÜÃâÿһ´Î¶¼ÒªÐ´³öÆäÈ«Ãû£¬ @@ -1050,7 +1049,8 @@ issue here>¡¹¡£ Õâ¸ö°æ±¾µÄ¿ìËÙÖ¸ÄÏºÍ GNU Emacs Ò»Ñù¶¼ÊÇ°æȨ»¯µÄ£¬²¢ÇÒÔÊÐíÔÚijЩÌõ¼þÏ ɢ²¼Æ俽±´£º -Copyright (c) 1985, 1996, 1998, 2001, 2002 Free Software Foundation +Copyright (C) 1985, 1996, 1998, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Chinese Translation by Chao-Hong Liu (2002, 2003) Permission is granted to anyone to make or distribute verbatim copies diff --git a/etc/TUTORIAL.cs b/etc/TUTORIAL.cs index 9a244a5e750..57e77de9a4b 100644 --- a/etc/TUTORIAL.cs +++ b/etc/TUTORIAL.cs @@ -1,5 +1,4 @@ Tutoriál k Emacsu. Podmínky viz na konci. -Copyright (c) 1985, 1996, 1998, 2001, 2002, 2005 Free Software Foundation. Do èe¹tiny pøelo¾il Milan Zamazal <pdm@zamazal.org>. Máte pøed sebou tutoriál k Emacsu. @@ -1023,7 +1022,8 @@ tutoriálem napsaným Stuartem Cracraftem pro pùvodní Emacs. Tato verze tutoriálu je, podobnì jako GNU Emacs, chránìna copyrightem a je ¹íøena se svolením distribuovat kopie za jistých podmínek: -Copyright (c) 1985, 1996 Free Software Foundation +Copyright (C) 1985, 1996, 1998, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Ka¾dému je zaruèeno právo vytváøet a distribuovat pøesné kopie tohoto dokumentu tak, jak jej obdr¾el, na jakémkoliv médiu, s tím, ¾e bude diff --git a/etc/TUTORIAL.de b/etc/TUTORIAL.de index 9c556c83b90..17019ad66dc 100644 --- a/etc/TUTORIAL.de +++ b/etc/TUTORIAL.de @@ -1,5 +1,4 @@ Einführung in Emacs. Siehe Dateiende für Vervielfältigungsbedingungen. -(c) 2002, 2003, 2005 Free Software Foundation, Inc. Emacs-Befehle beinhalten im allgemeinen die CONTROL-Taste (manchmal auch als CTRL, CTL oder STRG beschriftet) sowie die META-Taste (auch @@ -1461,7 +1460,8 @@ geschrieben. Übersetzer ins Deutsche ist Werner Lemberg (wl@gnu.org). Beachten Sie bitte, daß im Zweifelsfalle das englische Original dieser Urheberrechtsnotiz gültig ist (zu finden in der Datei TUTORIAL). -Copyright (c) 1985, 1996, 1997 Free Software Foundation +Copyright (C) 1985, 1996, 1997, 2002, 2003, 2004, + 2005 Free Software Foundation Hiermit wird für jedermann die Erlaubnis erteilt, wörtliche, unveränderte Kopien dieses Dokumentes für jegliches Medium zu diff --git a/etc/TUTORIAL.es b/etc/TUTORIAL.es index ed55cc5ca41..cb5e92a2df3 100644 --- a/etc/TUTORIAL.es +++ b/etc/TUTORIAL.es @@ -1,5 +1,4 @@ Tutorial de Emacs. Vea al final las condiciones de copiado. -Copyright (c) 1985, 1996, 1998, 2001, 2002 Free Software Foundation. Generalmente los comandos de Emacs involucran la tecla CONTROL (algunas veces llamada CTRL O CTL) o la tecla meta (algunas veces @@ -1188,7 +1187,8 @@ Por favor, en caso de duda, sólo es válido el original en inglés de la siguiente nota de derechos de reproducción (que puede encontrar en el archivo TUTORIAL). -Copyright (c) 1985, 1996, 1998, 2001, 2002 Free Software Foundation +Copyright (C) 1985, 1996, 1998, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Se permite a cualquiera hacer o distribuir copias literales de este documento como se recibe, en cualquier medio, siempre que la nota diff --git a/etc/TUTORIAL.fr b/etc/TUTORIAL.fr index e3e940abd4e..30a6f05fe23 100644 --- a/etc/TUTORIAL.fr +++ b/etc/TUTORIAL.fr @@ -1,5 +1,4 @@ Didacticiel d'Emacs. Voir la fin de ce document pour les conditions. -Copyright (c) 1985, 2001, 2002 Free Software Foundation, Inc. Les commandes Emacs utilisent généralement la touche CONTROLE (souvent désignée par CTRL ou CTL) ou la touche META (souvent désignée par EDIT @@ -1171,7 +1170,8 @@ Cette version du didacticiel, comme GNU Emacs, est placée sous copyright, et vous pouvez en distribuer des copies sous certaines conditions : -Copyright (c) 1985, 1996, 2001, 2002 Free Software Foundation +Copyright (C) 1985, 1996, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Chacun peut créer ou distribuer des copies de ce document tel qu'il l'a reçu, sur n'importe quel support, pourvu que la note de diff --git a/etc/TUTORIAL.it b/etc/TUTORIAL.it index 55608250c2b..d310a16eae4 100644 --- a/etc/TUTORIAL.it +++ b/etc/TUTORIAL.it @@ -1,5 +1,4 @@ Esercitazione di Emacs. Condizioni d'uso alla fine del file. -Copyright (c) 2003 Free Software Foundation, Inc. I comandi di Emacs comportano generalmente l'uso del tasto CONTROL (a volte indicato con CTRL o CTL) o del tasto META (a volte indicato con EDIT @@ -1094,7 +1093,7 @@ distribuito con il permesso di farne copie a determinate condizioni: indicativo, restando comunque inteso il fatto che è quella originale a fare fede. - Copyright (c) 2003 Free Software Foundation +Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. È permesso a chiunque copiare e distribuire attraverso ogni mezzo copie fedeli di questo documento così come viene ricevuto, a condizione che diff --git a/etc/TUTORIAL.ja b/etc/TUTORIAL.ja index ccb454bf3f6..dec03f35d20 100644 --- a/etc/TUTORIAL.ja +++ b/etc/TUTORIAL.ja @@ -1,5 +1,4 @@ Emacs $BF~Lg%,%$%I(B. $BK\%U%!%$%k$NCx:n8"$K$D$$$F$O:G8e$r8fMw2<$5$$!#(B -Copyright (c) 1985, 1996, 1998, 2001, 2002, 2005 Free Software Foundation. Emacs $B$N%3%^%s%I$rF~NO$9$k$K$O!"0lHL$K%3%s%H%m!<%k%-!<!J%-!<%H%C%W$K(B CONTROL $B$H$+(B CTRL $B$H$+(B CTL $B$H=q$$$F$"$k!K$d%a%?%-!<!J%-!<%H%C%W$K(B META @@ -1048,7 +1047,8 @@ starting with the one written by Stuart Cracraft for the original Emacs. This version of the tutorial, like GNU Emacs, is copyrighted, and comes with permission to distribute copies on certain conditions: -Copyright (c) 1985, 1996, 1998, 2001, 2002, 2005 Free Software Foundation +Copyright (C) 1985, 1996, 1998, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document as received, in any medium, provided that the diff --git a/etc/TUTORIAL.ko b/etc/TUTORIAL.ko index 8e94db3c658..c8875dc31be 100644 --- a/etc/TUTORIAL.ko +++ b/etc/TUTORIAL.ko @@ -1,5 +1,5 @@ $(C@L8F=:(B(Emacs) $(CAvD'<-@T4O4Y(B. -$(C@z@[1G(B (c) 1985, 2001 Free Software Foundation, Inc; $(C3!?!4B(B $(C:9;g(B $(CA60G@L(B +$(C3!?!4B(B $(C:9;g(B $(CA60G@L(B $(C@V=@4O4Y(B. $(CAv1](B $(C@P0m(B $(C@V4B(B $(C@L(B $(C1[@:(B $(C@L8F=:(B(Emacs) $(CAvD'<-@T4O4Y(B. $(C@L8F=:(B $(C8m7I5i@:(B $(C4k03(B $(CA&>n<h(B (CTRL$(C@L3*(B CTL$(C@L6s0m55(B $(CG%=C(B) $(CH$@:(B @@ -989,7 +989,8 @@ C-x C-s$(C?M(B (META$(C<h3*(B EDIT$(C<h(B $(CH$@:(B $(C13C<<h0!(B $(C GNU $(C@L8F=:?M(B $(C00@L(B $(C@L(B $(CAvD'<-(B $(CFG@:(B $(C@z@[1G@L(B $(C@V@88g(B $(CF/A$GQ(B $(CA60G@;(B $(C88A7GR(B $(C6'?!(B $(C:9;g:;@;(B $(C9hFwGR(B $(C<v(B $(C@V4B(B $(CGc0!8&(B $(C0.0m(B $(C3*?B(B $(C0M@L4Y(B: -$(C@z@[1G(B (c) 1985, 1996 Free Software Foundation +Copyright (C) 1985, 1996, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. $(C@L(B $(C9.<-4B(B $(C@L(B $(C@z@[1G(B $(C0x0m?M(B $(CGc?k(B $(C0x0m0!(B $(C1W4k7N(B $(C@/Av5G0m(B, $(C9hFw@Z0!(B $(C<vCk@Z?!0T(B $(C@L(B $(C0x0m?!(B $(C5{6s(B $(CGc?k5G4B(B $(C0MC373(B $(C6G(B $(C@g:P9hGO4B(B $(C0M@;(B diff --git a/etc/TUTORIAL.nl b/etc/TUTORIAL.nl index 6b6a20a1bba..6438869369f 100644 --- a/etc/TUTORIAL.nl +++ b/etc/TUTORIAL.nl @@ -1,5 +1,4 @@ Emacs-inleiding. De kopieervoorwaarden staan onderaan. -Copyright (c) 1985, 1996, 1997, 2003, 2004, 2005 Free Software Foundation De meeste Emacs-commando's gebruiken de CONTROL-toets (soms CTRL of CTL genaamd) en/of de META-toets (soms genaamd EDIT of ALT). In plaats van @@ -1205,7 +1204,8 @@ het Engelse origineel.) Deze versie van de inleiding valt onder copyright, net als GNU Emacs. Je mag deze inleiding verspreiden onder bepaalde voorwaarden: -Copyright (c) 1985, 1996, 1997, 2003, 2004, 2005 Free Software Foundation +Copyright (C) 1985, 1996, 1997, 2003, 2004, + 2005 Free Software Foundation, Inc. Iedereen mag letterlijke kopieën van dit document, zowel ontvangen als verspreiden, op elk medium, vooropgesteld dat de @@ -1229,7 +1229,8 @@ software te gebruiken, te schrijven en te delen! This version of the tutorial, like GNU Emacs, is copyrighted, and comes with permission to distribute copies on certain conditions: -Copyright (c) 1985, 1996, 1997, 2003, 2004, 2005 Free Software Foundation +Copyright (C) 1985, 1996, 1997, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document as received, in any medium, provided that diff --git a/etc/TUTORIAL.pl b/etc/TUTORIAL.pl index 076a33bbd84..cff0b9dd40c 100644 --- a/etc/TUTORIAL.pl +++ b/etc/TUTORIAL.pl @@ -1,5 +1,4 @@ Krótki samouczek Emacsa. Warunki kopiowania znajduj± sie na koñcu pliku. -Copyright (c) 1985, 1996, 1998, 2001, 2002, 2005 Free Software Foundation. Polecenia Emacsa wymagaj± na ogó³ wci¶niêcia klawisza CONTROL (oznaczanego czasami Ctrl lub CTL) lub klawisza META (oznaczanego czasami EDIT @@ -1218,7 +1217,8 @@ z pomoc± Ryszarda Kubiaka i Janusza S. Bienia <jsbien@mail.uw.edu.pl>. Ta wersja samouczka, podobnie jak GNU Emacs, jest chroniona prawem autorskim, ale wolno j± kopiowaæ pod nastêpuj±cymi warunkami: -Copyright (c) 1985, 1994, 2001 Free Software Foundation +Copyright (C) 1985, 1994, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Zezwala siê na wykonywanie lub rozpowszechnianie wiernych kopii tego dokumentu w otrzymanej formie, na dowolnym diff --git a/etc/TUTORIAL.pt_BR b/etc/TUTORIAL.pt_BR index 56f431ecdd7..bd7cf84d6c1 100644 --- a/etc/TUTORIAL.pt_BR +++ b/etc/TUTORIAL.pt_BR @@ -1,5 +1,4 @@ Tutorial do Emacs. Veja no fim as condições para cópia. -Copyright (c) 2004, 2005 Free Software Foundation. Os comandos do Emacs geralmente envolvem a tecla CONTROL (algumas vezes nomeada CTRL ou CTL) ou a tecla META (algumas vezes nomeada EDIT ou @@ -1064,7 +1063,7 @@ Essa versão do tutorial foi originalmente traduzida por Marcelo Toledo <marcelo@gnu.org> e como o GNU Emacs, tem um copyright, e vem com uma permissão de distribuição de cópias nas seguintes condições: -Copyright (c) 1985, 1996 Free Software Foundation +Copyright (C) 2004, 2005 Free Software Foundation, Inc. Permissão é garantida a qualquer um para fazer ou distribuir copias integrais deste documento como recebido, em qualquer meio, deixando diff --git a/etc/TUTORIAL.ro b/etc/TUTORIAL.ro index 71b2466eca9..85e8e30892f 100644 --- a/etc/TUTORIAL.ro +++ b/etc/TUTORIAL.ro @@ -1,5 +1,4 @@ Tutorialului de Emacs. A se citi sfârºitul pentru condiþii. -Copyright (c) 1998 Free Software Foundation Traducere din englezã de Tudor Hulubei <tudor@gnu.org>. Mulþumiri Aidei Hulubei <aida@chang.pub.ro> pentru corecturi ºi sugestii. @@ -1092,7 +1091,7 @@ continuare noþita de copyright originalã în limba englezã. This version of the tutorial, like GNU Emacs, is copyrighted, and comes with permission to distribute copies on certain conditions: -Copyright (c) 1985, 1996 Free Software Foundation +Copyright (C) 1998, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document as received, in any medium, provided that the diff --git a/etc/TUTORIAL.ru b/etc/TUTORIAL.ru index 1be3a1e28a8..cd84911db2d 100644 --- a/etc/TUTORIAL.ru +++ b/etc/TUTORIAL.ru @@ -1,5 +1,4 @@ õÞÅÂÎÉË Emacs. õÓÌÏ×ÉÑ ÒÁÓÐÒÏÓÔÒÁÎÅÎÉÑ ÐÒÉ×ÅÄÅÎÙ × ËÏÎÃÅ ÆÁÊÌÁ -Copyright (c) 1985, 1996, 1998, 2001, 2002, 2005 Free Software Foundation, Inc. äÌÑ ÕÐÒÁ×ÌÅÎÉÑ Emacs ÏÂÙÞÎÏ ÉÓÐÏÌØÚÕÅÔÓÑ ËÌÀÞ (key -- ÓÏÞÅÔÁÎÉÅ ËÌÁ×ÉÛ ËÌÁ×ÉÁÔÕÒÙ É/ÉÌÉ ËÎÏÐÏË ÍÙÛÉ), ×ËÌÀÞÁÀÝÉÊ × ÓÅÂÑ ËÌÁ×ÉÛÕ CONTROL (ÉÎÏÇÄÁ @@ -669,7 +668,7 @@ meta- ÓÉÍ×ÏÌÙ. Emacs ÏÂÈÏÄÉÔ ÜÔÏ, ÉÓÐÏÌØÚÕÑ X-ËÏÍÁÎÄÕ (eXtend). åÓÔØ Ä×Å C-x òÁÓÛÉÒÅÎÉÅ Ó ÐÏÍÏÝØÀ ××ÏÄÁ ÐÒÅÆÉËÓÁ. úÁ ÎÉÍ ÓÌÅÄÕÅÍ ÏÄÉÎ ÓÉÍ×ÏÌ. M-x òÁÓÛÉÒÅÎÉÅ ÎÁÂÏÒÁ ËÏÍÁÎÄ Ó ÐÏÍÏÝØÀ ÉÈ ÎÁÉÍÅÎÏ×ÁÎÉÑ. úÁ ÎÉÍ ÓÌÅÄÕÅÔ ÉÍÑ - ËÏÍÁÎÄÙ. + ËÏÍÁÎÄÙ. üÔÏ ÐÏÌÅÚÎÙÅ ËÏÍÁÎÄÙ, ÎÏ ÏÎÉ ÉÓÐÏÌØÚÕÀÔÓÑ ÍÅÎÅÅ ÞÁÓÔÏ, ÞÅÍ ÔÅ ËÏÍÁÎÄÙ, ËÏÔÏÒÙÅ ÍÙ ÉÚÕÞÉÌÉ. ÷Ù ÕÖÅ ×ÉÄÅÌÉ ÎÅËÏÔÏÒÙÅ ÉÚ ÎÉÈ: ËÏÍÁÎÄÙ ÒÁÂÏÔÙ Ó ÆÁÊÌÁÍÉ @@ -1132,7 +1131,8 @@ Dired ÐÏÚ×ÏÌÑÅÔ ×ÁÍ ÏÔÏÂÒÁÖÁÔØ ÓÐÉÓÏË ÆÁÊÌÏ× × ËÁÔÁÌÏÇÅ (Á ÔÁËÖÅ (copyrighted), É ÐÒÉÈÏÄÉÔ Ó ÏÇÒÁÎÉÞÅÎÉÑÍÉ ÒÁÓÐÒÏÓÔÒÁÎÅÎÉÑ ËÏÐÉÊ ÓÏ ÓÌÅÄÕÀÝÉÍÉ ÓÏÇÌÁÛÅÎÉÑÍÉ: -Copyright (c) 1985, 1996, 1998, 2001, 2002, 2005 Free Software Foundation +Copyright (C) 1985, 1996, 1998, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document as received, in any medium, provided that the @@ -1151,7 +1151,7 @@ Copyright (c) 1985, 1996, 1998, 2001, 2002, 2005 Free Software Foundation ÏÂÅÓÐÅÞÅÎÉÑ ("×ÌÁÄÅÎÉÅ"), ÉÓÐÏÌØÚÕÑ, ÓÏÚÄÁ×ÁÑ É ÒÁÓÐÒÏÓÔÒÁÎÑÑ Ó×ÏÂÏÄÎÏÅ ÐÒÏÇÒÁÍÍÎÏÅ ÏÂÅÓÐÅÞÅÎÉÅ! -// ÚÁÍÅÞÁÎÉÑ, ÉÓÐÒÁ×ÌÅÎÉÑ ÏÛÉÂÏË Ó ÖÄÕ ÐÏ ÁÄÒÅÓÕ alexott@gmail.com. +// ÚÁÍÅÞÁÎÉÑ, ÉÓÐÒÁ×ÌÅÎÉÑ ÏÛÉÂÏË Ó ÖÄÕ ÐÏ ÁÄÒÅÓÕ alexott@gmail.com. // Alex Ott. ;;; Local Variables: diff --git a/etc/TUTORIAL.sk b/etc/TUTORIAL.sk index 67e20f1497c..26e3f834748 100644 --- a/etc/TUTORIAL.sk +++ b/etc/TUTORIAL.sk @@ -1,5 +1,4 @@ Tútorial k Emacsu. Podmienky pozri na konci. -Copyright (c) 1985, 1996, 1998, 2001, 2002, 2005 Free Software Foundation. Do èe¹tiny prelo¾il Milan Zamazal <pdm@zamazal.org>, do slovenèiny Miroslav Va¹ko <zemiak@zoznam.sk>. @@ -1082,7 +1081,8 @@ tútorialom napísaným Stuartom Cracraftom pre pôvodný Emacs. Táto verzia tútorialu je, podobne ako GNU Emacs, chránená copyrightom a je ¹írená s povolením distribuova» kópie za istých podmienok: -Copyright (c) 1985, 1996 Free Software Foundation +Copyright (C) 1985, 1996, 1998, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Ka¾dému je zaruèené právo vytvára» a distribuova» presné kópie tohto dokumentu tak, ako ho dostal, na akomkoµvek médiu, s tým, ¾e bude diff --git a/etc/TUTORIAL.sl b/etc/TUTORIAL.sl index 263019643db..37ebb2fbf11 100644 --- a/etc/TUTORIAL.sl +++ b/etc/TUTORIAL.sl @@ -1,5 +1,4 @@ Prvo berilo za Emacs. Pogoji uporabe in raz¹irjanja so navedeni na koncu. -Copyright (c) 1985, 1996, 1997, 2001, 2002 Free Software Foundation, Inc. Ukazi v Emacsu v splo¹nem vkljuèujejo tipki CONTROL (vèasih oznaèeni CTRL ali CTL) in META (vèasih oznaèena EDIT ali ALT). Namesto, da bi ju @@ -1115,7 +1114,8 @@ Emacs. V sloven¹èino ga je prevedel Primo¾ Peterlin. To besedilo, kot sam GNU Emacs, je avtorsko delo, in njegovo razmno¾evanje in raz¹irjanje je dovoljeno pod naslednjimi pogoji: -Copyright (c) 1985, 1996, 1998, 2001, 2002 Free Software Foundation +Copyright (C) 1985, 1996, 1998, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Dovoljeno je izdelovati in raz¹irjati neokrnjene kopije tega spisa v kakr¹nikoli obliki pod pogojem, da je ohranjena navedba o diff --git a/etc/TUTORIAL.sv b/etc/TUTORIAL.sv index e4a86cabada..65dff742ec2 100644 --- a/etc/TUTORIAL.sv +++ b/etc/TUTORIAL.sv @@ -1,6 +1,4 @@ -Emacs användarhandledning. I slutet finns kopieringsvillkoren. -Copyright (c) 1985, 1996, 1998, 2001, 2002, 2005 Free Software -Foundation, Inc. +Emacs användarhandledning. I slutet finns kopieringsvillkoren. Emacs-kommandon innebär ofta användning av kontrolltangenten (vanligen märkt CTRL eller CTL) eller META-tangenten (på vissa tangentbord märkt @@ -310,9 +308,9 @@ texten. Tecken som du kan se, så som A, 7, *, etc. tolkas som text och sätts in direkt. Skriv <Return> (retur-tangenten) för att sätta in en radbrytning. -Du kan radera det sista tecknet du skrev genom att trycka <Delback>. +Du kan radera det sista tecknet du skrev genom att trycka <Delback>. <Delback> är en tangent på tangentbordet -- samma som du normalt -använder utanför Emacs för att ta bort det senaste tecknet du skrivit. +använder utanför Emacs för att ta bort det senaste tecknet du skrivit. Det är vanligen en stor tangent några rader ovanför retur-tangenten, och den är vanligtvis märkt "Delete, "Del" eller "Backspace". @@ -325,7 +323,7 @@ markörspositionen. >> Gör detta nu: Skriv in några tecken och ta bort dem genom att använda <Delback>. Var inte rädd för att skriva i den här filen, - du kommer inte att kunna förändra originalet till vägledningen. + du kommer inte att kunna förändra originalet till vägledningen. Detta är bara en lokal kopia. När en rad blir för lång för att rymmas på en skärmbredd så fortsätter @@ -408,7 +406,7 @@ raderar så många rader OCH innehållet i dem. Detta är alltså inte bara en repetition av kommandot. C-u 2 C-k raderar två rader samt de tomma raderna, medan C-k två gånger inte kommer att göra det. -Att sätta in borttagen text kallas att "återhämta" den (yanking). +Att sätta in borttagen text kallas att "återhämta" den (yanking). (Tänk på det som att du rycker, eller drar, tillbaka någon text som tagits bort.) Du kan antingen hämta tillbaka borttagen text till samma plats som där den blev borttagen, eller så kan du sätta in den på en @@ -593,7 +591,7 @@ Emacs-fönster så tillhör den alltid en buffert. >> Skriv C-x 1 för att bli kvitt buffertlistan. -När du har flera buffertar så är bara en av dem "gällande" åt gången. +När du har flera buffertar så är bara en av dem "gällande" åt gången. Det är den buffert du redigerar. Om du vill redigera en annan buffert så måste du byta till den. Om du vill byta till en buffert som motsvarar en fil kan du göra det genom att besöka den igen med C-x @@ -615,7 +613,7 @@ skapades med C-x C-b. Bufferten "*Messages*" motsvarar inte heller någon fil. Den innehåller de meddelanden som visas på den nedersta raden i Emacs sessionen. ->> Skriv C-x b *Messages* <Return> för att se meddelandebufferten. +>> Skriv C-x b *Messages* <Return> för att se meddelandebufferten. Skriv sedan C-x b TUTORIAL.sv <Return> för att återgå till den här handledningen. @@ -979,7 +977,7 @@ Ibland kan du hamna i något som kallas "rekursiv redigering" huvudläget i lägesraden. Till exempel kan det stå [(Fundamental)] istället för (Fundamental). -För att komma ur rekursiv redigering trycker du <ESC> <ESC> <ESC>. +För att komma ur rekursiv redigering trycker du <ESC> <ESC> <ESC>. Detta är ett generellt brytkommando. Du kan också använda det för att bli kvitt extra fönster och för att komma ut ur minibufferten. @@ -1099,7 +1097,7 @@ ett mail och klaga! ---------------- Du kan lära dig mer om Emacs genom att läsa dess manual, antingen i -bokform eller on-line i Info (använd Hjälp-menyn eller skriv F10 h r). +bokform eller on-line i Info (använd Hjälp-menyn eller skriv F10 h r). Två finesser som du kan komma att gilla speciellt är komplettering (completion), som spar tangenttryckningar, och dired, som förenklar filhantering. @@ -1128,7 +1126,8 @@ Lidell översatte den till Svenska. This version of the tutorial, like GNU Emacs, is copyrighted, and comes with permission to distribute copies on certain conditions: -Copyright (c) 1985, 1996, 1998, 2001, 2002, 2005 Free Software Foundation +Copyright (C) 1985, 1996, 1998, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document as received, in any medium, provided that the diff --git a/etc/TUTORIAL.th b/etc/TUTORIAL.th index 86c03d31f3b..5db33b3d470 100644 --- a/etc/TUTORIAL.th +++ b/etc/TUTORIAL.th @@ -970,7 +970,8 @@ starting with the one written by Stuart Cracraft for the original Emacs. This version of the tutorial, like GNU Emacs, is copyrighted, and comes with permission to distribute copies on certain conditions: -Copyright (c) 1985, 1996 Free Software Foundation +Copyright (C) 1985, 1996, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document as received, in any medium, provided that the diff --git a/etc/TUTORIAL.zh b/etc/TUTORIAL.zh index 8411bf878f5..1a1020a425b 100644 --- a/etc/TUTORIAL.zh +++ b/etc/TUTORIAL.zh @@ -1,7 +1,6 @@ Emacs §Ö³t«ü«n¡]. -Copyright (c) 1985, 1996, 1998, 2001, 2002 Free Software Foundation. -Emacs «ü¥O³q±`¥]§t¦³ CONTROL Áä¡]¦³®ÉÔ¥H CTRL ©Î CTL ¨Ó¼Ð¥Ü¡^©Î¬O +Emacs «ü¥O³q±`¥]§t¦³ CONTROL Áä¡]¦³®ÉÔ¥H CTRL ©Î CTL ¨Ó¼Ð¥Ü¡^©Î¬O META Áä¡]¦³®ÉÔ¥H EDIT ©Î ALT ¨Ó¼Ð¥Ü¡^¡C¬°¤FÁקK¨C¤@¦¸³£n¼g¥X¨ä¥þ¦W¡A §Ú̱N·|¨Ï¥Î¤UzªºÁY¼g¡G @@ -15,7 +14,7 @@ META Áä¡]¦³®ÉÔ¥H EDIT ©Î ALT ¨Ó¼Ð¥Ü¡^¡C¬°¤FÁקK¨C¤@¦¸³£n¼g¥X¨ä¥þ¦W¡A «n³Æ§Ñ¿ý¡GnÂ÷¶} Emacs §@·~¶¥¬q¡] session ¡^¡AÁä¤J C-x C-c ¡]¨âÓ¦r ¤¸¡^¡C¦ì¦b¥ª°¼Ãä¬Éªº¡u>>¡v¦r¤¸¬OÅý±z¥i¥H¸ÕµÛ¨Ï¥Îªº«ü¥Oªº´£¥Ü¡CÁ|¨Ò¨Ó»¡¡G <<Blank lines inserted around following line by help-with-tutorial>> -[Middle of page left blank for didactic purposes. Text continues below] +[Middle of page left blank for didactic purposes. Text continues below] >> ²{¦bÁä¤J C-v ¡] View next screen ¡^¥H²¾¨ì¤Uӿùõ¡C ¡]¸Õ¸Õ¬Ý¡AÁä¤J¦r¤¸ v ®É¡A«ö¦í CONTROL Áä¡^ ±q²{¦b¶}©l¡A±zÀ³¸Ó¦b¨C¦¸¾\Ū§¹¥Ø«eªº¿Ã¹õ®É°µ¤@¦¸³oӰʧ@¡C @@ -24,7 +23,7 @@ META Áä¡]¦³®ÉÔ¥H EDIT ©Î ALT ¨Ó¼Ð¥Ü¡^¡C¬°¤FÁקK¨C¤@¦¸³£n¼g¥X¨ä¥þ¦W¡A ´£¨Ñ¤@¨Ç³sÄò©Ê¡AÅý±z¥i¥H±µÄò¦a¾\Ū¤å¦r¡C ±z»Ýnª¾¹Dªº²Ä¤@¥ó¨Æ¬O¦p¦ó¦b¤å¦r¤¤²¾°Ê¡C±z¤w¸gª¾¹D¤F¥i¥H C-v ¨Ó¦V«e²¾ -°Ê¤@ӿùõ¡Cn¦V«á²¾°Ê¤@ӿùõ¡A«hÁä¤J M-v ¡]«ö¦í META Áä¡AµM«áÁä¤J v +°Ê¤@ӿùõ¡Cn¦V«á²¾°Ê¤@ӿùõ¡A«hÁä¤J M-v ¡]«ö¦í META Áä¡AµM«áÁä¤J v ¡A©Î¬O¦pªG±z¨S¦³ META ¡B EDIT ©Î ALT Áä®ÉÁä¤J <ESC>v ¡^¡C >> ¸ÕµÛÁä¤J M-v µM«á C-v ¡A³sÄòÓ´X¦¸¡C @@ -74,7 +73,7 @@ META Áä¡]¦³®ÉÔ¥H EDIT ©Î ALT ¨Ó¼Ð¥Ü¡^¡C¬°¤FÁקK¨C¤@¦¸³£n¼g¥X¨ä¥þ¦W¡A >> ¥H C-n ©Î C-p ±N´å¼Ð²¾¨ì¹Ï§Îªº¤¤¥¡¡C Áä¤J C-l ·|¬Ý¨ì¾ãӹϧÎÅã¥Ü¦b¿Ã¹õªº¤¤¥¡¡C -±z·|µo²{¥Î¦r¥À©Ò¥Nªíªº·N¸q¨Ó°O¾Ð¥¦Ì«Ü®e©ö¡GP ªí¥Ü previous ¡B N ªí¥Ü +±z·|µo²{¥Î¦r¥À©Ò¥Nªíªº·N¸q¨Ó°O¾Ð¥¦Ì«Ü®e©ö¡GP ªí¥Ü previous ¡B N ªí¥Ü next ¡B B ªí¥Ü backward ¡B¦Ó F «hªí¥Ü forward ¡C±z±N¡uÁ`¬O¡v¥Î¨ì³o¨Ç´å ¼Ð²¾°Ê«ü¥O¡C @@ -172,9 +171,9 @@ META ¦r¤¸¬O¥Î¨Ó§@¬°»P¡u¥H»y¨¥©w¸q¥Xªº³æ¦ì¡]¦r¡B¥y¤l¡B¬q¸¨¡^¡v¦³Ãöªº¾Þ µM«á¦A«½Æ¦a¨Ï¥Î M-v ¦^¨ì³o¸Ì¡C ¦pªG±zªº²×ºÝ¾÷¦³¤è¦VÁ䪺¸Ü¡A±z¤]¥i¥H¥Î¤è¦VÁä²¾°Ê´å¼Ð¡C§Ú̦³¤TÓ²z¥Ñ«Ø -ij±z¾Ç²ß C-b ¡B C-f ¡B C-n ¡B ©M C-p ¡G(1) ¥ô¦óªº²×ºÝ¾÷³£¯à¨Ï¥Î¡C(2) +ij±z¾Ç²ß C-b ¡B C-f ¡B C-n ¡B ©M C-p ¡G(1) ¥ô¦óªº²×ºÝ¾÷³£¯à¨Ï¥Î¡C(2) ¤@¥¹±z¨Ï¥Î Emacs ¬Û·í¼ô½m¤F¡A±z·|µo²{Áä¤J³o¨Ç CONTROL ¦r¤¸¡A¤ñ°_¨Ï¥Î¤è -¦VÁä§Ö¦h¤F¡]¦]¬°±z¤£»Ýn±N¤â²¾¶}¥´¦r°Ï¡^¡C(3) ¤@¥¹±z¨Ï¥Î³o¨Ç CONTROL +¦VÁä§Ö¦h¤F¡]¦]¬°±z¤£»Ýn±N¤â²¾¶}¥´¦r°Ï¡^¡C(3) ¤@¥¹±z¨Ï¥Î³o¨Ç CONTROL ¦r¤¸«ü¥O¦¨¬°²ßºD¡A±z¤]¥i¥H«Ü®e©ö¦a¾Ç·|¨ä¥L¶i¶¥ªº´å¼Ð°Ê§@«ü¥O¡C ¤j³¡¥÷ªº Emacs «ü¥O±µ¨ü¼Æ¦r°Ñ¼Æ¡F¹ï¤j³¡¥÷ªº«ü¥O¦Ó¨¥¡A¥¦ªº§@¥Î¬O«ü©w« @@ -194,7 +193,7 @@ META ¦r¤¸¬O¥Î¨Ó§@¬°»P¡u¥H»y¨¥©w¸q¥Xªº³æ¦ì¡]¦r¡B¥y¤l¡B¬q¸¨¡^¡v¦³Ãöªº¾Þ ¥X²{¡A¦Ó¤£ºÞ¨äȬ°¦ó¡A¥¦ÌÅý³o«ü¥O°µ¨Ç¤£¤@¼Ëªº¨Æ¡C C-v ©M M-v «h¬O¥t¤@Ãþªº¨Ò¥~¡C·íµ¹©w¤@ӰѼƮɡA¥¦Ì±²°Ê¡u©Ò«ü©wªº¼Æ¶q -ªº¦æ¡]¥H¦æ¬°³æ¦ì¡^¡v¡A¦Ó¤£¬O¥H¡u¿Ã¹õ¡v¬°³æ¦ì±²°Ê¡CÁ|¨Ò¨Ó»¡¡AC-u 8 C-v +ªº¦æ¡]¥H¦æ¬°³æ¦ì¡^¡v¡A¦Ó¤£¬O¥H¡u¿Ã¹õ¡v¬°³æ¦ì±²°Ê¡CÁ|¨Ò¨Ó»¡¡AC-u 8 C-v ±NÅã¥Ü¿Ã¹õ±²°Ê 8 ¦æ¡C >> ²{¦b¸ÕµÛÁä¤J C-u 8 C-v¡C @@ -261,25 +260,25 @@ Emacs ¥i¥H¦³¼ÆÓµ¡®æ¡A¨C¤@ÓÅã¥Ü¥¦¦Û¤vªº¤å¦r¡C§Ú̦bµy«á·|¸ÑÄÀ¦p¦ó¨Ï¥Î >> Áä¤J C-x 1 ¥H¨Ï¤å¥ó¦Cªíµ¡®æ®ø¥¢¡C -³oÓ«ü¥O¨Ã¤£¹³±z¥ý«e©Ò¾Ç¹Lªº«ü¥O¨º¯ë¡A¥¦¥]¬A¤F¨âÓ¦r¤¸¡C¥¦¬O¥H¦r¤¸ +³oÓ«ü¥O¨Ã¤£¹³±z¥ý«e©Ò¾Ç¹Lªº«ü¥O¨º¯ë¡A¥¦¥]¬A¤F¨âÓ¦r¤¸¡C¥¦¬O¥H¦r¤¸ CONTROL-x §@¬°¶}©l¡C¦³¤@¾ãÓ¨t¦Cªº«ü¥O¬O¥H CONTROL-x §@¬°¶}©l¡F¥¦Ì¤§ -¤¤¦³³\¦h¬O»P¡uµ¡®æ¡BÀɮסB¼È¦s°Ï¥H¤Î¬ÛÃö¨Æª«¡v¦³Ãöªº¡C³o¨Ç«ü¥O¦³ 2 ¡B +¤¤¦³³\¦h¬O»P¡uµ¡®æ¡BÀɮסB¼È¦s°Ï¥H¤Î¬ÛÃö¨Æª«¡v¦³Ãöªº¡C³o¨Ç«ü¥O¦³ 2 ¡B 3 ©Î 4 Ó¦r¤¸ªø¡C * ´¡¤J»P§R°£¡] INSERTING AND DELETING ¡^ ---------------------------------------- -¦pªG±z·Qn´¡¤J¤å¦r¡A§â¥¦Áä¤J´N¬O¤F¡C±z¥i¥H¬Ý¨ìªº¦r¤¸¡A¹³¬O A ¡B 7 ¡B * -µ¥¡A³Q Emacs µø¬°¤å¦r¨Ã¥B¥i¥Hª½±µ´¡¤J¡CÁä¤J <Return> +¦pªG±z·Qn´¡¤J¤å¦r¡A§â¥¦Áä¤J´N¬O¤F¡C±z¥i¥H¬Ý¨ìªº¦r¤¸¡A¹³¬O A ¡B 7 ¡B * +µ¥¡A³Q Emacs µø¬°¤å¦r¨Ã¥B¥i¥Hª½±µ´¡¤J¡CÁä¤J <Return> ¡] carriage-return Áä¡^¥H´¡¤J¤@Ó Newline ¦r¤¸¡C -±z¥i¥HÁä¤J <Delback> ¥H§R°£±z³Ì«áÁä¤Jªº¦r¤¸¡C<Delback> ¬O¤@ÓªºÁä½LÁä +±z¥i¥HÁä¤J <Delback> ¥H§R°£±z³Ì«áÁä¤Jªº¦r¤¸¡C<Delback> ¬O¤@ÓªºÁä½LÁä -- ´N¬O±z³q±`¦b Emacs ¥~¡A¨Ï¥Î¨Ó¡u§R°£±z³Ì«áÁä¤J¦r¤¸¡vªº¦P¤@Ó¡C¤@¯ë¨Ó »¡¬OÓ¦b <Return> ¤W¤è¼Æ¦æªº¤jÁä¡A³q±`¼Ð¥Ü¬°¡yDelete¡z¡B¡yDel¡z©Î ¡yBackspace¡z¡C -¦pªG¦b¨º¸Ì¦³Ó¼Ð¥Ü¬°¡yBackspace¡zªº¤jÁä¡A¨º»ò¨º¤@Ó´N¬O±z¨Ï¥Î¨Ó§@¬° +¦pªG¦b¨º¸Ì¦³Ó¼Ð¥Ü¬°¡yBackspace¡zªº¤jÁä¡A¨º»ò¨º¤@Ó´N¬O±z¨Ï¥Î¨Ó§@¬° <Delback> ªºÁä¤F¡C¬YÓ¦a¤è¥i¯à¤]·|¦³¥t¤@ӼХܬ°¡yDelete¡zªºÁä¡A¦ý¨ºÓ ¨Ã¤£¬O <Delback> ¡C @@ -325,13 +324,13 @@ CONTROL-x §@¬°¶}©l¡C¦³¤@¾ãÓ¨t¦Cªº«ü¥O¬O¥H CONTROL-x §@¬°¶}©l¡F¥¦Ì¤§ C-k §R°£±q´å¼Ð©Ò¦b¨ì¡u¦æ§À¡v¶¡ªº¦r¤¸ M-k §R°£±q´å¼Ð©Ò¦b¨ì¡u¥y§À¡v¶¡ªº¦r¤¸ -ª`·N¡u<Delback> ©M C-d¡vÁÙ¦³¡uM-<Delback> ©M M-d¡v¬O¥¦æ¦a¦Û C-f ©M +ª`·N¡u<Delback> ©M C-d¡vÁÙ¦³¡uM-<Delback> ©M M-d¡v¬O¥¦æ¦a¦Û C-f ©M M-f ÂX¥R¥X¨Óªº¡]¶â¡A<Delback> ¨Ã¤£¬O±±¨î¦r¤¸¡A¦ý¬O¨S¤°»ò¦n¾á¤ßªº¡^¡C C-k ©M M-k ¦b¬YºØµ{«×¤W»P C-e ©M M-e ¤@¼Ë¡A¦pªG§â¡u¤@¦æ¡v©M¡u¤@¥y¡v§@ ¬°Ãþ¤ñªº¸Ü¡C ±z¤]¥i¥H¥u¥H¤@ºØ¤èªk¨Ó§R°£½w½Ä°Ï¤ºªº¥ô¦ó³¡¥÷¡A¥ý²¾°Ê¨ì±z·Qn§R°£ªº³¡¥÷ -ªº¤@ºÝ¡AµM«áÁä¤J C-@ ©Î C-SPC ¡]¥ô¤@Ó§Y¥i¡^¡C¡] SPC «üªº¬O Space Bar +ªº¤@ºÝ¡AµM«áÁä¤J C-@ ©Î C-SPC ¡]¥ô¤@Ó§Y¥i¡^¡C¡] SPC «üªº¬O Space Bar ¡^¦A²¾¨ì¨º³¡¥÷ªº¥t¤@ºÝ¡A±µµÛÁä¤J C-w ¡C³o¼Ë´N·|§â¤¶©ó³o¨âÓ¦ì¸m¶¡ªº©Ò ¦³¤å¦r§R°£¡C @@ -368,7 +367,7 @@ C-k ©M M-k ¦b¬YºØµ{«×¤W»P C-e ©M M-e ¤@¼Ë¡A¦pªG§â¡u¤@¦æ¡v©M¡u¤@¥y¡v§@ >> ¸Õ¸Õ¬Ý¡FÁä¤J C-y ±N¤å¦r©Ô¦^¡C -¦pªG±z³sÄò¦a°µ¤F¼Æ¦¸ C-k¡A©Ò¦³³Q±þ±¼ªº¤å¦r³£·|³QÀx¦s¦b¤@°_¡A¦]¦¹°µ¤@¦¸ +¦pªG±z³sÄò¦a°µ¤F¼Æ¦¸ C-k¡A©Ò¦³³Q±þ±¼ªº¤å¦r³£·|³QÀx¦s¦b¤@°_¡A¦]¦¹°µ¤@¦¸ C-y ´N·|§â©Ò¦³³o¨Ç¦æ³£©Ô¦^¨Ó¡C >> ²{¦b°µ¤@¤U¡AÁä¤J C-k ¼Æ¦¸¡C @@ -401,7 +400,7 @@ C-y ·|§â³Ìªñ±þ±¼ªº©Ô¦^¨Ó¡A¦ý¬O¥ý«eªº¤å¦r¨Ã¨S¦³®ø¥¢¡A±z¥i¥H¥Î M-y ¨Ó¦^ ¦pªG±z¹ï¤å¦r°µ¤F¤@¨Ç§ïÅÜ¡A«á¨Óı±o¥¦¬OÓ¿ù»~¡A±z¥i¥H Undo «ü¥O¨ú®ø³o¤@ Ó§ïÅÜ¡AC-x u¡C -³q±` C-x u ·|§â¤@Ó«ü¥O©Ò³y¦¨ªº§ïÅܨú®ø±¼¡F¦pªG±z¦b¤@¦æ¤¤«½Æ¤F³\¦h¦¸ +³q±` C-x u ·|§â¤@Ó«ü¥O©Ò³y¦¨ªº§ïÅܨú®ø±¼¡F¦pªG±z¦b¤@¦æ¤¤«½Æ¤F³\¦h¦¸ C-x u¡A¨C¤@Ó«½Æ³£·|¨ú®øÃB¥~ªº«ü¥O¡C ¦ý¬O¦³¨âÓ¨Ò¥~¡G @@ -422,12 +421,12 @@ C-_ ¬O¥t¤@Ó¨ú®ø«ü¥O¡F¥¦ªº§@¥Î´N©M C-x u ¤@¼Ë¡A¦ý¬O¦b¤@¦æ¤¤¥¦¤ñ¸û®e©ö * Àɮס] FILE ¡^ ---------------- -¬°¤F¨Ï±z½s¿èªº¤å¦r¥Ã¤[«O¦s¡A±z¥²¶·§â¥¦©ñ¨ì¤@ÓÀɮפ¤¡C¤£µM¡A·í±zÂ÷¶} +¬°¤F¨Ï±z½s¿èªº¤å¦r¥Ã¤[«O¦s¡A±z¥²¶·§â¥¦©ñ¨ì¤@ÓÀɮפ¤¡C¤£µM¡A·í±zÂ÷¶} Emacs «á¡A¥¦´N·|ÀH¤§®ø¥¢¡C¬°¤F§â±zªº¤å¦r©ñ¦bÀɮפ¤¡A±z¥²¶·¦b±zÁä¤J³o¨Ç ¤å¦r«e¡u§ä¡] find ¡^¡vÀɮסC¡]³o¤]ºÙ¤§¬°¡u«ô³X¡] visiting ¡^¡vÀɮס^ §ä¤@ÓÀɮתí¥Ü±z¥i¥H¦b Emacs ¤¤¬Ý¨ìÀɮתº¤º®e¡C±q³\¦h¤è±¨Ó¬Ý¡A¥¦´N¹³ -¬O±zª½±µ½s¿è¨ºÓÀɮפ@¼Ë¡CµM¦Ó¡Aª½¨ì±z¡uÀx¦s¡v³oÓÀɮפ§«e¡A±z¨Ï¥Î +¬O±zª½±µ½s¿è¨ºÓÀɮפ@¼Ë¡CµM¦Ó¡Aª½¨ì±z¡uÀx¦s¡v³oÓÀɮפ§«e¡A±z¨Ï¥Î Emacs ½s¿è©Ò°µ¥Xªº§ïÅܨ䣷|«O¦s¤U¨Ó¡C³o´N¬O¬°¤°»ò·í±z¤£·Qn®É¡A±z¥i¥H ÁקK¯d¤Uקï¨ì¤@¥bªºÀɮצb¨t²Î¤¤¡C§Y¨Ï·í±zÀx¦s¤F¡AEmacs ¤]·|§â쥻ªºÀÉ ®×¥H¤@Ó¤£¦Pªº¦WºÙ«O¯d¤U¨Ó¡AY±zµy«áı±o±zªº§ïÅܬO¤@Ó¿ù»~ªº¸Ü¡A´N¥i¥H @@ -446,7 +445,7 @@ TUTORIAL.zh¡v©Î¨ä¥LÃþ¦üªºªF¦è§@¬°¶}©l¡C³o¬O¿Ã¹õªº¤@³¡¤À¡A³q±`¥Î¨Óªí¥Ü C-x C-f §ä¤@ÓÀÉ®× Emacs ·|n±zÁä¤JÀɦW¡C±z©ÒÁä¤JªºÀɦW·|¥X²{¦b¿Ã¹õªº©³¦æ¡C¦b³Q¥Î¨Ó§@¬°³o -ºØ§Î¦¡ªº¿é¤J®É¡A©³¦æ³QºÙ¬°¤p½w½Ä°Ï¡] minibuffer ¡^¡C±z¥i¥H¨Ï¥Î¥¿±`ªº +ºØ§Î¦¡ªº¿é¤J®É¡A©³¦æ³QºÙ¬°¤p½w½Ä°Ï¡] minibuffer ¡^¡C±z¥i¥H¨Ï¥Î¥¿±`ªº Emacs ½s¿è«ü¥O¨Ó½s¿è³oÓÀɦW¡C ·í±z¥¿¦bÁä¤JÀɦW®É¡]©Î¬O¥ô¦óªº¤p½w½Ä°Ï¿é¤J®É¡^¡A±z¥i¥H¥Î C-g ³oÓ«ü¥O @@ -477,7 +476,7 @@ Emacs ½s¿è«ü¥O¨Ó½s¿è³oÓÀɦW¡C ª`·N¡G¦b¬Y¨Ç¨t²Î¤¤¡AÁä¤J C-x C-s ±N·|§â¿Ã¹õáµ²¡A±z±N¬Ý¤£¨ì±q Emacs ¨Ó ªº¥ô¦ó¿é¥X¡C³oªí¥Ü§@·~¨t²Î¤@ÓºÙ¬°¡u¬yµ{±±¨î¡vªº¡u¥\¯à¡v±N C-s «ü¥OÄd -ºI¦í¡A¨Ã¥B¤£Åý¥¦¶Ç¨ì Emacs¡Cn¨ú®ø¿Ã¹õªºáµ²¡A½ÐÁä¤J C-q¡CµM«á¨ì Emacs +ºI¦í¡A¨Ã¥B¤£Åý¥¦¶Ç¨ì Emacs¡Cn¨ú®ø¿Ã¹õªºáµ²¡A½ÐÁä¤J C-q¡CµM«á¨ì Emacs ¨Ï¥Î¤â¥U¤¤¬Ý¬Ý¹ï©ó¡uº¥¶i¦¡·j´Mªº¦P®É¶i¤J¡] Spontaneous Entry to Incremental Search ¡^¡v³oÓ¥DÃD¡A¥H¨ú±o³B²z³oÓ¡u¥\¯à¡vªº«Øij¡C @@ -528,7 +527,7 @@ Emacs Àx¦s¨CÓÀɮתº¤å¦r¦b¤@ÓºÙ¬°¡u½w½Ä°Ï¡] buffer ¡^¡vªºª«¥ó¤¤¡C§ä¤@ ±z¦b¤@Ó Emacs µ¡®æ¤¤©Ò¨£¨ìªº¡u¥ô¦ó¡v¤å¦rÁ`¬O¬YÓ½w½Ä°Ïªº¤@³¡¥÷¡C¦³¤@ ¨Ç½w½Ä°Ï¨Ã¨S¦³³s±µ¨ìÀɮסCÁ|¨Ò¨Ó»¡¡A©R¦W¬°¡u*Buffer List*¡vªº½w½Ä°Ï¨Ã ¨S¦³¥ô¦óÀɮסC¥¦¬O¥]§t¦³±z¥H C-x C-b «ü¥O©Ò»s§@¥X¨Óªº½w½Ä°Ï¦Cªíªº½w½Ä -°Ï¡C©R¦W¬°¡u*Messages*¡vªº½w½Ä°Ï¤]¨S¦³³s±µ¨ì¥ô¦óÀɮסF¥¦¦b±zªº Emacs +°Ï¡C©R¦W¬°¡u*Messages*¡vªº½w½Ä°Ï¤]¨S¦³³s±µ¨ì¥ô¦óÀɮסF¥¦¦b±zªº Emacs §@·~¶¥¬q¤¤¥]§t¥X²{¦b©³¦æªº°T®§¡C >> Áä¤J C-x b *Messages* <Return> ¨Ó¬Ý¬Ý°T®§ªº½w½Ä°Ï¡C @@ -593,10 +592,10 @@ C-z ¬O *¼È®É* Â÷¶} Emacs ªº«ü¥O -- ¦]¦¹±zµy«á¥i¥H¦^¨ì¦P¼Ëªº Emacs ¶¥¬q¡C ¥HÂX¥R¨Ó©R¦Wªº«ü¥O³q±`¬O¤£¤Ó±`¨Ï¥Îªº«ü¥O¡A©Î¬O¥u¦b¯S©wªº¼Ò¦¡¤U¤~·|¨Ï¥Î ªº«ü¥O¡C¤@Ó¨Ò¤l¬O¨ú¥N¦r¦ê«ü¥O¡A¥¦·|¥þ°ì¦a±N¤@Ó¦r¦ê¥H¥t¤@Ó¨Ó¨ú¥N¡C·í ±zÁä¤J M-x ®É¡AEmacs ·|¦b¿Ã¹õªº©³ºÝ¸ß°Ý±z¡AµM«á±z¤]À³¸ÓÁä¤J³oÓ«ü¥Oªº -¦WºÙ¡C¦b³oÓ¨Ò¤l¤¤¬O¡yreplace-string¡z¥unÁä¤J¡yrepl s<TAB>¡z¡AµM«á +¦WºÙ¡C¦b³oÓ¨Ò¤l¤¤¬O¡yreplace-string¡z¥unÁä¤J¡yrepl s<TAB>¡z¡AµM«á Emacs ±N·|¸É»ô³oÓ¦WºÙ¡C¥H <Return> ¨Óµ²§ô³oÓ«ü¥O¦WºÙ¡C -¨ú¥N¦r¦ê«ü¥O»Ýn¨âÓ°Ñ¼Æ -- ³Q¨ú¥Nªº¦r¦ê¥H¤Î¥Î¨Ó¨ú¥N¥¦ªº¦r¦ê¡C±z¥²¶·¥H +¨ú¥N¦r¦ê«ü¥O»Ýn¨âÓ°Ñ¼Æ -- ³Q¨ú¥Nªº¦r¦ê¥H¤Î¥Î¨Ó¨ú¥N¥¦ªº¦r¦ê¡C±z¥²¶·¥H Newline ¦r¤¸¨Óµ²§ô¨C¤@ӰѼơC >> ±N´å¼Ð²¾¨ì¥»¦æªº¤U¨â¦æªÅ¥Õ¡AµM«áÁä¤J @@ -605,7 +604,7 @@ Newline ¦r¤¸¨Óµ²§ô¨C¤@ӰѼơC ¡i¬°¤F»¡©úªº¥Øªº¡A©ó¤U«O¯d¤@¦æì¤å¡C Notice how this line has changed: you've replaced... ¡j -½Ðª`·N³o¤@¦æ¬O«ç»ò§ïÅܪº¡G¦b´å¼Ðªº°_©l¦ì¸m¤§«á¡A±z¤w¸g±N c-h-a-n-g-e-d +½Ðª`·N³o¤@¦æ¬O«ç»ò§ïÅܪº¡G¦b´å¼Ðªº°_©l¦ì¸m¤§«á¡A±z¤w¸g±N c-h-a-n-g-e-d ³oÓ¦r -- ¤£ºÞ¥¦¦bþ¸Ì¥X²{ -- ¥H¡ualtered¡v³oÓ¦r¨Ó¨ú¥N¤F¡C @@ -665,7 +664,7 @@ Emacs ¦³³\¦h¤£¦Pªº¥D¼Ò¦¡¡C¥¦Ì¤§¤¤¦³¤@¨Ç¬O¥Î¨Ó½s¿è¤£¦Pªº»y¨¥¥H¤Î¡þ©Î¤£ ¤@Ó¥D¼Ò¦¡¬O¤@Ó©µ¦ù«ü¥Oªº¦WºÙ¡A¨Ï±o±z¥i¥H¥Î¨Ó¤Á´«¦Ü¨ºÓ¼Ò¦¡¡CÁ|¨Ò¨Ó»¡¡A M-x fundamental-mode ´N¬O¤Á´«¨ì Fundamental ¼Ò¦¡ªº¤@Ó«ü¥O¡C -¦pªG±z·Qn½s¿è¤HÃþ»y¨¥ªº¤å¦rÀÉ®× -- ¹³¬O²{¦bªº³o¤@Ó¡A±zÀ³¸Ó¨Ï¥Î Text +¦pªG±z·Qn½s¿è¤HÃþ»y¨¥ªº¤å¦rÀÉ®× -- ¹³¬O²{¦bªº³o¤@Ó¡A±zÀ³¸Ó¨Ï¥Î Text ¼Ò¦¡¡C >> Áä¤J M-x text mode<Return>¡C @@ -679,7 +678,7 @@ M-x fundamental-mode ´N¬O¤Á´«¨ì Fundamental ¼Ò¦¡ªº¤@Ó«ü¥O¡C ¤l¡A±µÄò¤W±©Ò¶}ªºÀY¡A¥Hµ{¦¡»y¨¥ªºµù¸Ñ¨Ó»¡¡C¦P¼Ë¤@Ó´¡¤Jµù¸Ñªº°Ê§@¡A¦] ¬°±z¨Ï¥Îªºµ{¦¡»y¨¥¡þ¥D¼Ò¦¡ªº¤£¦P¦Ó¤£¦P¡CY±z¨Ï¥Î C »y¨¥¡AEmacs ´¡¤J ¡y/* ¤¶©ó¤¤¶¡ªº¬°µù¸Ñ°Ï¶ô */¡z¡FY±z¨Ï¥Îªº¬O Fortran »y¨¥¡AEmacs ´¡¤J -¡yc ¥H¦r¤¸ c ¬°ºªº¬°µù¸Ñ¦æ¡z¡FY±z¨Ï¥Îªº¬O Basic »y¨¥¡AEmacs «h´¡¤J¡y' +¡yc ¥H¦r¤¸ c ¬°ºªº¬°µù¸Ñ¦æ¡z¡FY±z¨Ï¥Îªº¬O Basic »y¨¥¡AEmacs «h´¡¤J¡y' ºJ¸¹¥H«áªº¬°µù¸Ñ¤å¦r¡z¡C½s¿è¾¹ªº¼u©Ê¦p¦¹¡A¹ê¦b¨S¦³¥²n¬°¤F¤£¦Pªº»y¨¥¡B ¥Øªº©Î¥~Æ[¡A³]p¯S®í¤Æªº½s¿è¾¹¡C¡u¨D¤j¦P¡A¦s¤p²§¡v¦b³o¸Ì¤]¬O¦¨¥ßªº¡C¡j @@ -714,7 +713,7 @@ mode ¡^¡C¦¸nªº¼Ò¦¡¨Ã¤£¬O¥D¼Ò¦¡ªº¨ä¥L¿ï¾Ü¡A¦Ó¥u¬O¦¸nªº§ó§ï¡C¨C¤@Ó¦¸ µM«áÁä¤J¤@¨Ç¤å¦r¡A¬Ý¬Ý Emacs ¥H 20 Ó¦r¤¸¡A ¦b¦æ»P¦æ¤§¶¡¶i¦æ fill °Ê§@¡CµM«á¦A¥Î¤@¦¸ C-x f ±NÃä¬É³]¦^ 70¡C -¦pªG±z¦b¤@Ó¬q¸¨ªº¤¤¶¡°µ¥X§ïÅÜ¡AAuto Fill ¼Ò¦¡¨Ã¤£·|¬°±z«·s¶i¦æ fill +¦pªG±z¦b¤@Ó¬q¸¨ªº¤¤¶¡°µ¥X§ïÅÜ¡AAuto Fill ¼Ò¦¡¨Ã¤£·|¬°±z«·s¶i¦æ fill ªº°Ê§@¡] re-fill ¡^¡Cn re-fill ³oÓ¬q¸¨¡AÁä¤J M-q (META-q)¡A¦Ó´å¼Ð¥² ¶·³B¦b¨ä¤¤¡C @@ -747,7 +746,7 @@ Emacs ·j´M«ü¥O»P¤j³¡¤À½s¿è¾¹ªº·j´M«ü¥O¤£¦Pªº¦a¤è¦b©ó¡A¥¦¬O¡uº¥¶iªº >> Áä¤J <Return> µ²§ô·j´M¡C ±z¦³¨S¦³¬Ý¨ìµo¥Í¤F¤°»ò¡H¦b¤@Óº¥¶i¦¡·j´M¤¤¡AEmacs ¸ÕµÛn¨«¨ì±zÁä¤Jªº¦r -¦êªº¤U¤@Ó¥X²{¦ì¸m¡Cn²¾°Ê¨ì´å¼Ð©Ò¦bªº¤U¤@Ó¥X²{¦ì¸m¡A¥un¦AÁä¤J C-s +¦êªº¤U¤@Ó¥X²{¦ì¸m¡Cn²¾°Ê¨ì´å¼Ð©Ò¦bªº¤U¤@Ó¥X²{¦ì¸m¡A¥un¦AÁä¤J C-s ¤@¦¸¡C¦pªG¨Ã¨S¦³³o¼Ëªº¥X²{¦ì¸m¦s¦b¡AEmacs ·|¹Í¤@Án¡A¨Ã§i¶D±z¥Ø«eªº·j´M ¡u¥¢±Ñ¡v¡C¥t¥~ C-g ¤]¥i¥H¥Î¨Óµ²§ô·j´M¡C @@ -799,7 +798,7 @@ Emacs ³\¦h¦n¥\¯àªº¨ä¤¤¤§¤@¬O¡A±z¥i¥H¦b¿Ã¹õ¤¤¦P®É®i¥Ü¶W¹L¤@Óµ¡®æ¡C «ü¥O C-M-v ¦b·í±z©ó¤@Óµ¡®æ¤¤½s¿è¤å¦r¡A¨Ã¨Ï¥Î¨ä¥Lªºµ¡®æ§@¬°°Ñ¦Ò¤§¥Î®É¡A ¬O«D±`¦³¥Îªº¡C±z¥i¥H±N´å¼Ð¤@ª½«O«ù¦b±z¥¿¦b½s¿èªºµ¡®æ¤¤¡A¨Ã¥H C-M-v «ü -¥O¦b¨ä¥Lªºµ¡®æ´`§Ç¦a«e¶i¡C¡iÅçÃÒ¤u§@¯S§O¾A¦X¥H³oºØ¤è¦¡¨Ó¶i¦æ¡A¦p GNU +¥O¦b¨ä¥Lªºµ¡®æ´`§Ç¦a«e¶i¡C¡iÅçÃÒ¤u§@¯S§O¾A¦X¥H³oºØ¤è¦¡¨Ó¶i¦æ¡A¦p GNU ¤¤Ä¶¤p²Õ¡G§ä¤@Óì©l^¤åÀɮסF¦A§ä¥¦Â½Ä¶¦nªº¤¤¤åÀɮסA½s¿è³oÓ¡u³Q¿ï¾Ü ªºµ¡®æ¡v¡A¥H C-M-v «ü¥O¸ò¤WÅçÃÒ¤¤ªº¬q¸¨¡K¡K¡C¡j @@ -833,7 +832,7 @@ C-M-v ¬O CONTROL-META ¦r¤¸ªº¤@Ó¨Ò¤l¡C¦pªG±z¦³¤@Ó¯uªº META Áä¡A±z¥i¥H -------------------------------------------- ¦³®ÉÔ±z·|¶i¤J©Ò¿×ªº¡u»¼°j½s¿è¶¥¼h¡v¡C¥¦¬O¥Ñ¦ì¦bª¬ºA¦æªº¤è¬A©·©Ò«ü©ú¡A -¨Ã¥B¥]§t¦í¥H¤p¬A©·¨Ó«ü©úªº¼Ò¦¡¦WºÙ¡CÁ|¨Ò¨Ó»¡¡A±z¥i¯à·|¬Ý¨ì +¨Ã¥B¥]§t¦í¥H¤p¬A©·¨Ó«ü©úªº¼Ò¦¡¦WºÙ¡CÁ|¨Ò¨Ó»¡¡A±z¥i¯à·|¬Ý¨ì [(Fundamental)]¡A¦Ó¤£¬O (Fundamental)¡C nÂ÷¶}»¼°j½s¿è¶¥¼h¡A½ÐÁä¤J ESC ESC ESC¡C³o¬OÓ¥þ¥\¯àªº¡uÂ÷¶}¡v«ü¥O¡C±z @@ -848,7 +847,7 @@ C-M-v ¬O CONTROL-META ¦r¤¸ªº¤@Ó¨Ò¤l¡C¦pªG±z¦³¤@Ó¯uªº META Áä¡A±z¥i¥H * ¨ú±o§ó¦hªºÀ°§U¡] GETTING MORE HELP ¡^ --------------------------------------- -¦b¥»§Ö³t«ü«n¤¤¡A§Ú̸յ۶ȴ£¨Ñèè¦nªº¸ê°TÅý±z¥i¥H¶}©l¨Ï¥Î Emacs¡C¦b +¦b¥»§Ö³t«ü«n¤¤¡A§Ú̸յ۶ȴ£¨Ñèè¦nªº¸ê°TÅý±z¥i¥H¶}©l¨Ï¥Î Emacs¡C¦b Emacs ¤¤¦³¤Ó¦h¥i¨ú±oªº¸ê°T¡A·Qn¦b³o¸Ì¥þ³¡¸ÑÄÀ¬O¤£¥i¯àªº¡CµM¦Ó¡A±z¤]³\ ·|·Qn¾Ç²ß§ó¦h Emacs ¬ÛÃöªº¸ê°T¡A¦]¬°¥¦¦³³\¦h¨ä¥L¦³¥Îªº¥\¯à¡CEmacs ´£ ¨Ñ¤F¡u¾\Ū¦³Ãö Emacs «ü¥O¡vªº«ü¥O¡C³o¨Ç¡uhelp¡v«ü¥O³£¥H CONTROL-h ³oÓ @@ -856,7 +855,7 @@ Emacs ¤¤¦³¤Ó¦h¥i¨ú±oªº¸ê°T¡A·Qn¦b³o¸Ì¥þ³¡¸ÑÄÀ¬O¤£¥i¯àªº¡CµM¦Ó¡A±z¤]³\ n¨Ï¥Î Help ¥\¯à¡AÁä¤J C-h ¦r¤¸¡AµM«á¦AÁä¤J¤@Ó»¡©ú±z©Ò»ÝnªºÀ°§Uªº¦r ¤¸¡C¦pªG±z¯uªº¤£ª¾¹Dn°Ý¤°»ò¡A¨º»ò½ÐÁä¤J¡yC-h ?¡z¡A¦¹®É Emacs ±N·|§i¶D -±z¥¦¯à°÷´£¨ÑªºÀ°§U¡C¦pªG±z¤w¸gÁä¤J C-h¡A¦ýµo²{±z¨Ã¤£»Ýn¥ô¦óÀ°§U¡AÁä¤J +±z¥¦¯à°÷´£¨ÑªºÀ°§U¡C¦pªG±z¤w¸gÁä¤J C-h¡A¦ýµo²{±z¨Ã¤£»Ýn¥ô¦óÀ°§U¡AÁä¤J C-g ¨Ó¨ú®ø±¼¥¦´N¬O¤F¡C ¡]¦³¨Çºô¯¸±N C-h ³oÓ¦r¤¸ªº·N¸q§ïÅܤF¡C¥L̯uªº¤£À³¸Ó§â¥¦³]¬°¹ï©Ò¦³¨Ï @@ -864,7 +863,7 @@ C-g ¨Ó¨ú®ø±¼¥¦´N¬O¤F¡C ®É¡A¦pªG C-h ¨Ã¨S¦³¦bµ¡®æªº©³³¡Åã¥Ü¥ô¦ó¦³ÃöÀ°§Uªº°T®§¡A¸ÕµÛÁä¤J F1 Áä¡A ©Î¬O M-x help <Return>¡C¡^ -³Ì°ò¥»ªº HELP ¥\¯à¬O C-h c¡CÁä¤J C-h¡A¦r¤¸ c¡A¥H¤Î¤@өΤ@¦ê¦r¤¸¡FµM«á +³Ì°ò¥»ªº HELP ¥\¯à¬O C-h c¡CÁä¤J C-h¡A¦r¤¸ c¡A¥H¤Î¤@өΤ@¦ê¦r¤¸¡FµM«á Emacs ·|Åã¥Ü¤@Ó«D±`²µuªº¦³Ãö³oÓ«ü¥Oªº¸ÑÄÀ¡C >> Áä¤J C-h c C-p¡C @@ -877,7 +876,7 @@ Emacs ·|Åã¥Ü¤@Ó«D±`²µuªº¦³Ãö³oÓ«ü¥Oªº¸ÑÄÀ¡C ©ó¨ç¼Æ¦WºÙ¬O¥Ñ¡u¥Î¨Ó«ü¥X³o«ü¥O¦b°µ¨Ç¤°»ò¡v¦Ó³Q¿ï©w¡A¥¦Ì¦]¦¹¤]¥i¥H§@¬° «D±`²µuªº¤å¥ó -- ¨¬°÷´£¿ô±z¤w¸g¾Ç¹Lªº«ü¥O¡C -¦h¦r¤¸«ü¥O¹³¬O C-x C-s ©M ¡]¦pªG±z¨S¦³ META ©Î EDIT ©Î ALT Áä¡^<ESC>v +¦h¦r¤¸«ü¥O¹³¬O C-x C-s ©M ¡]¦pªG±z¨S¦³ META ©Î EDIT ©Î ALT Áä¡^<ESC>v ¤]¥i¥H¦b C-h c «á±¥X²{¡C n¨ú±o§ó¦h¦³Ãö¤@Ó«ü¥Oªº¸ê°T¡A¥Î C-h k ¨Ó¨ú¥N¨Ï¥Î C-h c ¡C @@ -933,13 +932,13 @@ find-file ¡^ªº®ÇÃä¡C ¥i¯à·|¯S§O³ßÅwªº¥\¯à¯S¦â¬O¥i¥H¸`¬Ù¥´¦r¶qªº completion ÁÙ¦³Â²¤ÆÀɮ׳B²z ªº dired ¡C -Completion ¬O¤@ºØÁקK¤£¥²nªº¥´¦rªº¤è¦¡¡CÁ|¨Ò¨Ó»¡¡A¦pªG±z·Qn¤Á´« +Completion ¬O¤@ºØÁקK¤£¥²nªº¥´¦rªº¤è¦¡¡CÁ|¨Ò¨Ó»¡¡A¦pªG±z·Qn¤Á´« *Messages* ½w½Ä°Ï¡A±z¥i¥HÁä¤J C-x b *M<Tab> ¡A¥un¥i¥H±q±z¤w¸gÁä¤Jªº¤å ¦r¤¤½T©w¡A Emacs ´N·|±N³Ñ¤Uªº½w½Ä°Ï¦WºÙ¸É»ô¡C Completion ¬O¦b Emacs ¨Ï ¥Î¤â¥Uªº Info ¤¤¡AºÙ¬°¡uCompletion¡vªº¸`ÂI¤¤©Ò¸ÑÄÀªº¡C Dired ¨Ï±z¥i¥H¦b¤@ӥؿý¤¤¦C¥XÀɮס]¦¸¥Ø¿ý«h¬O¥i¿ïªº¡^¡B¦b¦Cªí¤¤¨ì³B²¾ -°Ê¡B«ô³X¡B«·s©R¦W¡B§R°£¥H¤Î¹ïÀɮק@¾Þ§@¡C Dired ¬O¦b Emacs ¨Ï¥Î¤â¥Uªº +°Ê¡B«ô³X¡B«·s©R¦W¡B§R°£¥H¤Î¹ïÀɮק@¾Þ§@¡C Dired ¬O¦b Emacs ¨Ï¥Î¤â¥Uªº Info ¤¤¡AºÙ¬°¡uDired¡vªº¸`ÂI¤¤©Ò¸ÑÄÀªº¡C ¨Ï¥Î¤â¥U¤]¸ÑÄÀ¤F³\¦h¨ä¥¦ Emacs ªº¥\¯à¯S¦â¡C @@ -948,7 +947,7 @@ Info ¤¤¡AºÙ¬°¡uDired¡vªº¸`ÂI¤¤©Ò¸ÑÄÀªº¡C * µ²½×¡] CONCLUSION ¡^ ---------------------- -°O¦í¡An§¹¥þÂ÷¶} Emacs ½Ð¨Ï¥Î C-x C-c ¡Cn¼È®ÉÂ÷¶}¨ì shell¡Aµy«á¦A¦^¨ì +°O¦í¡An§¹¥þÂ÷¶} Emacs ½Ð¨Ï¥Î C-x C-c ¡Cn¼È®ÉÂ÷¶}¨ì shell¡Aµy«á¦A¦^¨ì Emacs¡A½Ð¨Ï¥Î C-z ¡C ¥»§Ö³t«ü«n¹ï©ó©Ò¦³ªº·s¤âÀ³¸Ó³£¬O©ö©ó²z¸Ñªº¡A©Ò¥H¦pªG±zµo²{¤F¤°»ò¦a¤è¤£ @@ -958,9 +957,9 @@ Emacs¡A½Ð¨Ï¥Î C-z ¡C * ½Ķ¡] TRANSLATION ¡^ ----------------------- -¥»§Ö³t«ü«nªºÂ½Ä¶¤Hû¦Cªí¦p¤U¡A¦pªG±z¦b¾\Ū¥»¤å¤§«e¡A¡u§¹¥þ¡v¹ï Emacs +¥»§Ö³t«ü«nªºÂ½Ä¶¤Hû¦Cªí¦p¤U¡A¦pªG±z¦b¾\Ū¥»¤å¤§«e¡A¡u§¹¥þ¡v¹ï Emacs ¨S¦³·§©À¡A½Ð§i¶D§Ú̱zªº·N¨£¥H§@¬°¥»¤å«áÄòªº§ï¶i¨Ì¾Ú¡C½Ķ¤]´£¨Ñ¤F¤@¥÷ -¡mGNU Emacs ¤¤¤å³B²z»¡©ú¡n¦b +¡mGNU Emacs ¤¤¤å³B²z»¡©ú¡n¦b http://www.gnu.org/software/chinese/guide/emacs-chinese.zh.html ¡q³¡¥÷ ¤º®e¤w¸g¾ã²z¨ì¥»§Ö³t«ü«n¡r¡A¤]½Ð±z¦Û¦æ°Ñ¾\¡C @@ -1050,7 +1049,8 @@ issue here>¡v¡C ³oÓª©¥»ªº§Ö³t«ü«n©M GNU Emacs ¤@¼Ë³£¬Oª©Åv¤Æªº¡A¨Ã¥B¤¹³\¦b¬Y¨Ç±ø¥ó¤U ´²§G¨ä«þ¨©¡G -Copyright (c) 1985, 1996, 1998, 2001, 2002 Free Software Foundation +Copyright (C) 1985, 1996, 1998, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Chinese Translation by Chao-Hong Liu (2002, 2003) Permission is granted to anyone to make or distribute verbatim copies diff --git a/etc/calccard.tex b/etc/calccard.tex index 7dec45450f3..41c3b3bad43 100644 --- a/etc/calccard.tex +++ b/etc/calccard.tex @@ -13,7 +13,8 @@ % Typical command to format: tex calccard.tex % Typical command to print (3 cols): dvips -t landscape calccard.dvi -% Copyright (c) 1987, 1992, 2001 Free Software Foundation, Inc. +% Copyright (C) 1987, 1992, 2001, 2002, 2003, 2004, +% 2005 Free Software Foundation, Inc. % This file is part of GNU Emacs. @@ -60,7 +61,7 @@ \def\versionnumber{2.03} \def\versiondate{November 2001} -\def\year{2001} +\def\year{2005} \def\version{v\versionnumber} \def\shortcopyrightnotice{\vskip 1ex plus 2 fill diff --git a/etc/compilation.txt b/etc/compilation.txt index 42e62af9dff..72ff5ac5316 100644 --- a/etc/compilation.txt +++ b/etc/compilation.txt @@ -394,3 +394,10 @@ checking FONTCONFIG_CFLAGS... g++ -o foo.o foo.cc tool1 -output=foo foo.x tool2 --outfile foo foo.y + +Compilation started at Wed Jul 20 12:20:10 +Compilation interrupt at Wed Jul 20 12:20:10 +Compilation killed at Wed Jul 20 12:20:10 +Compilation terminated at Wed Jul 20 12:20:10 +Compilation exited abnormally with code 1 at Wed Jul 20 12:21:12 +Compilation finished at Thu Jul 21 15:02:15 diff --git a/etc/cs-dired-ref.tex b/etc/cs-dired-ref.tex index b19ff2bdfc2..12e3c01c871 100644 --- a/etc/cs-dired-ref.tex +++ b/etc/cs-dired-ref.tex @@ -1,5 +1,5 @@ % Reference Card for Dired -% Copyright (C) 2000 Free Software Foundation, Inc. +% Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. % Czech hyphenation rules applied \chyph @@ -47,7 +47,7 @@ % e.g. in the TeX Live CD). \def\versionnumber{0.1} -\def\year{2000} +\def\year{2005} \def\version{May \year\ v\versionnumber} \def\shortcopyrightnotice{\vskip 1ex plus 2 fill diff --git a/etc/cs-refcard.tex b/etc/cs-refcard.tex index 43e4e38612b..1164817a14d 100644 --- a/etc/cs-refcard.tex +++ b/etc/cs-refcard.tex @@ -11,7 +11,8 @@ \columnsperpage=1 -% Copyright (c) 1987, 1993, 1996, 1997, 2001 Free Software Foundation, Inc. +% Copyright (C) 1987, 1993, 1996, 1997, 2001, 2002, 2003, 2004, +% 2005 Free Software Foundation, Inc. % This file is part of GNU Emacs. @@ -65,7 +66,7 @@ % e.g. in the TeX Live CD). \def\versionnumber{2.2} -\def\year{1997} +\def\year{2005} \def\shortcopyrightnotice{\vskip 1ex plus 2 fill \centerline{\small \copyright\ \year\ Free Software Foundation, Inc. diff --git a/etc/cs-survival.tex b/etc/cs-survival.tex index 768224eb829..4140f2a858e 100644 --- a/etc/cs-survival.tex +++ b/etc/cs-survival.tex @@ -21,7 +21,7 @@ \endinput \fi -% Copyright (c) 2000, 2004 Free Software Foundation, Inc. +% Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. % This file is part of GNU Emacs. @@ -49,7 +49,7 @@ % e.g. in the TeX Live CD). \def\versionnumber{1.0} -\def\year{2000} +\def\year{2005} \def\copyrightnotice{\penalty-1\vfill \vbox{\smallfont\baselineskip=0.8\baselineskip\raggedcenter diff --git a/etc/de-refcard.tex b/etc/de-refcard.tex index 7ac0e2a862b..bb0ce3c978d 100644 --- a/etc/de-refcard.tex +++ b/etc/de-refcard.tex @@ -7,7 +7,8 @@ \columnsperpage=2 -% Copyright (c) 1987, 1993, 1996, 2000 Free Software Foundation, Inc. +% Copyright (C) 1987, 1993, 1996, 2000, 2002, 2003, 2004, +% 2005 Free Software Foundation, Inc. % This file is part of GNU Emacs. @@ -52,7 +53,7 @@ % If there were room, it would be nice to see a section on Dired. \def\versionnumber{2.1} -\def\year{1996} +\def\year{2005} \def\version{March \year\ v\versionnumber} \def\shortcopyrightnotice{\vskip 1ex plus 2 fill diff --git a/etc/dired-ref.tex b/etc/dired-ref.tex index df7745d4bce..62038525a21 100644 --- a/etc/dired-ref.tex +++ b/etc/dired-ref.tex @@ -1,5 +1,6 @@ % Reference Card for Dired -% Copyright (C) 2000. 2001 Free Software Foundation, Inc. +% Copyright (C) 2000, 2001, 2002, 2003, 2004, +% 2005 Free Software Foundation, Inc. % This file is part of GNU Emacs. @@ -40,7 +41,7 @@ \def\versionnumber{0.1} -\def\year{2000} +\def\year{2005} \def\version{May \year\ v\versionnumber} \def\shortcopyrightnotice{\vskip 1ex plus 2 fill diff --git a/etc/edt-user.doc b/etc/edt-user.doc index 683c1ae2ba2..9910317de0a 100644 --- a/etc/edt-user.doc +++ b/etc/edt-user.doc @@ -2,7 +2,8 @@ File: edt-user.doc --- EDT Emulation User Instructions For GNU Emacs 19 -Copyright (C) 1986, 1992, 1994, 1995, 1999, 2000 Free Software Foundation, Inc. +Copyright (C) 1986, 1992, 1994, 1995, 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Author: Kevin Gallagher <kevingal@onramp.net> Maintainer: Kevin Gallagher <kevingal@onramp.net> diff --git a/etc/emacs.1 b/etc/emacs.1 index 95617414e7e..97529ddee28 100644 --- a/etc/emacs.1 +++ b/etc/emacs.1 @@ -1,4 +1,5 @@ -.\" Copyright (C) 1995, 1999, 2000, 2001 Free Software Foundation, Inc. +.\" Copyright (C) 1995, 1999, 2000, 2001, 2002, 2003, 2004, +.\" 2005 Free Software Foundation, Inc. .\" .\" This file is part of GNU Emacs. .\" @@ -535,7 +536,7 @@ Joachim Martillo and Robert Krawitz added the X features. Copyright .if t \(co .if n (c) -1995, 1999, 2000, 2001 Free Software Foundation, Inc. +1995, 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. .PP Permission is granted to make and distribute verbatim copies of this document provided the copyright notice and this permission notice are diff --git a/etc/emacs.py b/etc/emacs.py index f644db2d8b4..1eba14f67a4 100644 --- a/etc/emacs.py +++ b/etc/emacs.py @@ -1,6 +1,6 @@ """Definitions used by commands sent to inferior Python in python.el.""" -# Copyright (C) 2004 Free Software Foundation, Inc. +# Copyright (C) 2004, 2005 Free Software Foundation, Inc. # Author: Dave Love <d.love@dl.ac.uk> # This file is part of GNU Emacs. diff --git a/etc/emacstool.1 b/etc/emacstool.1 index 664e1c10286..7f3200a0700 100644 --- a/etc/emacstool.1 +++ b/etc/emacstool.1 @@ -136,7 +136,7 @@ emacs(1) Copyright .if t \(co .if n (c) -2001 Free Software Foundation, Inc. +2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. .PP Permission is granted to make and distribute verbatim copies of this document provided the copyright notice and this permission notice are diff --git a/etc/etags.1 b/etc/etags.1 index 2a84c622e0e..0c0e12bb6cf 100644 --- a/etc/etags.1 +++ b/etc/etags.1 @@ -1,4 +1,5 @@ -.\" Copyright (c) 1992, 2001 Free Software Foundation +.\" Copyright (C) 1992, 2001, 2002, 2003, 2004, +.\" 2005 Free Software Foundation, Inc. .\" See section COPYING for conditions for redistribution .TH etags 1 "23nov2001" "GNU Tools" "GNU Tools" .de BP @@ -288,7 +289,7 @@ Stallman. Copyright .if t \(co .if n (c) -1999, 2001 Free Software Foundation, Inc. +1999, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. .PP Permission is granted to make and distribute verbatim copies of this document provided the copyright notice and this permission notice are diff --git a/etc/fr-drdref.tex b/etc/fr-drdref.tex index d4b21e9c132..e64fe9574a5 100644 --- a/etc/fr-drdref.tex +++ b/etc/fr-drdref.tex @@ -1,6 +1,6 @@ % Reference Card for Dired -% Copyright (C) 2000 Free Software Foundation, Inc. +% Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. % This file is part of GNU Emacs. @@ -41,7 +41,7 @@ \def\versionnumber{0.1} -\def\year{2000} +\def\year{2005} \def\version{Mai \year\ v\versionnumber} \def\shortcopyrightnotice{\vskip 1ex plus 2 fill diff --git a/etc/fr-refcard.tex b/etc/fr-refcard.tex index 49f2a201650..bff17c6d625 100644 --- a/etc/fr-refcard.tex +++ b/etc/fr-refcard.tex @@ -8,7 +8,8 @@ \columnsperpage=1 -% Copyright (c) 1987, 1993, 1996, 1997 Free Software Foundation, Inc. +% Copyright (C) 1987, 1993, 1996, 1997, 2002, 2003, 2004, +% 2005 Free Software Foundation, Inc. % This file is part of GNU Emacs. @@ -53,7 +54,7 @@ % If there were room, it would be nice to see a section on Dired. \def\versionnumber{2.2} -\def\year{1997} +\def\year{2005} \def\shortcopyrightnotice{\vskip 1ex plus 2 fill \centerline{\small \copyright\ \year\ Free Software Foundation, Inc. diff --git a/etc/fr-survival.tex b/etc/fr-survival.tex index 912a0977093..e73db5352a5 100644 --- a/etc/fr-survival.tex +++ b/etc/fr-survival.tex @@ -22,7 +22,7 @@ \endinput \fi -% Copyright (c) 2000, 2004 Free Software Foundation, Inc. +% Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. % This file is part of GNU Emacs. @@ -44,7 +44,7 @@ % Translated to french by \'Eric Jacoboni <jaco@teaser.fr> in November 2001 \def\versionnumber{1.0} -\def\year{2000} +\def\year{2005} \def\copyrightnotice{\penalty-1\vfill \vbox{\smallfont\baselineskip=0.8\baselineskip\raggedcenter diff --git a/etc/gfdl.1 b/etc/gfdl.1 index 0974486ed63..b8e627971aa 100644 --- a/etc/gfdl.1 +++ b/etc/gfdl.1 @@ -11,7 +11,7 @@ Version 1.1, March 2000 Copyright .if t \(co .if n (c) -2000 Free Software Foundation, Inc. +2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA Everyone is permitted to copy and distribute verbatim copies diff --git a/etc/gnus-refcard.tex b/etc/gnus-refcard.tex index 343de2d6f6f..87c02032424 100644 --- a/etc/gnus-refcard.tex +++ b/etc/gnus-refcard.tex @@ -112,7 +112,8 @@ \newcommand{\Copyright}{% \begin{center} - Copyright \copyright\ 1995 Free Software Foundation, Inc.\\* + Copyright \copyright\ 1995, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc.\\* Copyright \copyright\ 1995 Vladimir Alexiev $<$vladimir@cs.ualberta.ca$>$.\\* Copyright \copyright\ 2000 Felix Natter $<$fnatter@gmx.net$>$.\\* diff --git a/etc/gnus-tut.txt b/etc/gnus-tut.txt index 16800048c31..29b5356e9e9 100644 --- a/etc/gnus-tut.txt +++ b/etc/gnus-tut.txt @@ -24,7 +24,7 @@ was done by moi, yours truly, your humble servant, Lars Magne Ingebrigtsen. If you have a WWW browser, you can investigate to your heart's delight at <URL:http://www.ifi.uio.no/~larsi/larsi.html>. -;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no> ;; Keywords: news diff --git a/etc/grep.txt b/etc/grep.txt index 4149f80b203..8acfc4fc644 100644 --- a/etc/grep.txt +++ b/etc/grep.txt @@ -19,11 +19,19 @@ grep -nH -e "INFO tree" ../info/* grep -nH --color=always -e "INFO tree" ../info/* ../info/dir:6:File: dir Node: Top This is the top of the [01;31mINFO tree[00m -* GNU grep 2.5.1-cvs with specified minimal colors +* GNU grep 2.5.1-cvs with the specified matching color GREP_COLORS='mt=01;31:fn=:ln=:bn=:se=:ml=:cx=:ne' grep -nH --color=always -e "INFO tree" ../info/* ../info/dir:6:File: dir Node: Top This is the top of the [01;31mINFO tree[m +* GNU grep 2.5.1-cvs with colors for the file name, line number and match + +GREP_COLORS='mt=01;31:fn=35:ln=32:bn=:se=:ml=36:cx=37:ne' grep -nH --color=always -e "INFO tree" ../info/* +[35m../info/dir[m:[32m6[m:[36mFile: dir Node: Top This is the top of the [01;31mINFO tree[m +[35m1[m:[32m2[m:[36m3:4:[01;31mtext[m +[35m1:2[m:[32m3[m:[36m4:[01;31mtext[m +[35m1:2:3[m:[32m4[m:[36m[01;31mtext[m + * GNU grep 2.5.1-cvs with default colors grep -nH --color=always -e "INFO tree" ../info/* @@ -50,10 +58,14 @@ Binary file 2005-06 matches * GNU grep 2.5.1: other messages +Grep started at Tue Jul 19 15:41:30 grep: ../info/dirinfo: No such file or directory -Grep exited abnormally with code 2 at Tue Jul 19 15:42:32 +Grep interrupt at Tue Jul 19 15:42:31 +Grep killed at Tue Jul 19 15:42:31 +Grep terminated at Tue Jul 19 15:42:31 +Grep exited abnormally with code 2 at Tue Jul 19 15:42:31 Grep finished with no matches found at Tue Jul 19 15:43:12 -Grep finished (matches found) at Tue Jul 19 15:45:15 +Grep finished (matches found) at Thu Jul 21 15:02:15 * agrep diff --git a/etc/orgcard.tex b/etc/orgcard.tex index f653ff78e01..22a85c7f8d4 100644 --- a/etc/orgcard.tex +++ b/etc/orgcard.tex @@ -18,7 +18,8 @@ \columnsperpage=3 -% Copyright (c) 2004 Philip Rooke, 2005 Free Software Foundation +% Copyright (C) 2004 Philip Rooke +% Coypright (C) 2005 Free Software Foundation, Inc. % GNU Emacs is free software; you can redistribute it and/or modify % it under the terms of the GNU General Public License as published by @@ -62,7 +63,7 @@ \def\year{2005} \def\shortcopyrightnotice{\vskip 1ex plus 2 fill - \centerline{\small \copyright\ 2004, 2005\ Free Software Foundation, Inc. + \centerline{\small \copyright\ \year\ Free Software Foundation, Inc. Permissions on back. v\orgversionnumber}} \def\copyrightnotice{ diff --git a/etc/pl-refcard.tex b/etc/pl-refcard.tex index df8c83566b3..dfbb5a2783a 100644 --- a/etc/pl-refcard.tex +++ b/etc/pl-refcard.tex @@ -32,7 +32,7 @@ \columnsperpage=2 -% Copyright (c) 1999, 2004 Free Software Foundation, Inc. +% Copyright (C) 1999, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. % This file is part of GNU Emacs. @@ -73,7 +73,7 @@ % If there were room, it would be nice to see a section on Dired. \def\versionnumber{1.1} -\def\year{1999} +\def\year{2005} \def\shortcopyrightnotice{\vskip 1ex plus 2 fill \centerline{\small \copyright\ \year\ Free Software Foundation, Inc. diff --git a/etc/refcard.tex b/etc/refcard.tex index 208a48c7832..5567320c98a 100644 --- a/etc/refcard.tex +++ b/etc/refcard.tex @@ -14,7 +14,8 @@ \letterpaper=1 % Nothing else needs to be changed below this line. -% Copyright (c) 1987, 1993, 1996, 1997, 2005 Free Software Foundation, Inc. +% Copyright (C) 1987, 1993, 1996, 1997, 2002, 2003, 2004, +% 2005 Free Software Foundation, Inc. % This file is part of GNU Emacs. diff --git a/etc/ru-refcard.tex b/etc/ru-refcard.tex index d62eedd17bb..1083055bd9f 100644 --- a/etc/ru-refcard.tex +++ b/etc/ru-refcard.tex @@ -1,3 +1,5 @@ +% Copyright (C) 1997, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + \documentclass[10pt]{article} \usepackage{multicol,tabularx} \usepackage[a4paper,hmargin={2cm,2cm},vmargin={2cm,2cm},nohead,twoside]{geometry} @@ -17,7 +19,7 @@ \setlength{\ColThreeWidth}{25mm} \newcommand{\versionnumber}[0]{2.2} -\newcommand{\nyear}[0]{1997} +\newcommand{\nyear}[0]{2005} \newcommand\shortcopyrightnotice[0]{\vskip 1ex plus 2 fill \centerline{\footnotesize \copyright\ \nyear\ Free Software Foundation, Inc. diff --git a/etc/sk-dired-ref.tex b/etc/sk-dired-ref.tex index 19983aeeb32..26846834b36 100644 --- a/etc/sk-dired-ref.tex +++ b/etc/sk-dired-ref.tex @@ -1,5 +1,5 @@ % Reference Card for Dired -% Copyright (C) 2000 Free Software Foundation, Inc. +% Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. % Slovak hyphenation rules applied \shyph @@ -48,7 +48,7 @@ % e.g. in the TeX Live CD). \def\versionnumber{0.1} -\def\year{2000} +\def\year{2005} \def\version{May \year\ v\versionnumber} \def\shortcopyrightnotice{\vskip 1ex plus 2 fill diff --git a/etc/sk-refcard.tex b/etc/sk-refcard.tex index ca40c194c99..40f36f2109f 100644 --- a/etc/sk-refcard.tex +++ b/etc/sk-refcard.tex @@ -11,7 +11,8 @@ \columnsperpage=1 -% Copyright (c) 1987, 1993, 1996, 1997 Free Software Foundation, Inc. +% Copyright (C) 1987, 1993, 1996, 1997, 2002, 2003, 2004, +% 2005 Free Software Foundation, Inc. % This file is part of GNU Emacs. @@ -67,7 +68,7 @@ % e.g. in the TeX Live CD). \def\versionnumber{2.2} -\def\year{1997} +\def\year{2005} \def\shortcopyrightnotice{\vskip 1ex plus 2 fill \centerline{\small \copyright\ \year\ Free Software Foundation, Inc. diff --git a/etc/sk-survival.tex b/etc/sk-survival.tex index ff94cc43706..346516cf48e 100644 --- a/etc/sk-survival.tex +++ b/etc/sk-survival.tex @@ -21,7 +21,7 @@ \endinput \fi -% Copyright (c) 2000, 2004 Free Software Foundation, Inc. +% Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. % This file is part of GNU Emacs. @@ -50,7 +50,7 @@ % e.g. in the TeX Live CD). \def\versionnumber{1.0} -\def\year{2000} +\def\year{2005} \def\copyrightnotice{\penalty-1\vfill \vbox{\smallfont\baselineskip=0.8\baselineskip\raggedcenter diff --git a/etc/survival.tex b/etc/survival.tex index 2c5ada3c160..0e164d7654f 100644 --- a/etc/survival.tex +++ b/etc/survival.tex @@ -25,7 +25,7 @@ \endinput \fi -% Copyright (c) 2000 Free Software Foundation, Inc. +% Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. % This file is part of GNU Emacs. @@ -45,7 +45,7 @@ % Boston, MA 02110-1301, USA. \def\versionnumber{1.0} -\def\year{2000} +\def\year{2005} \def\copyrightnotice{\penalty-1\vfill \vbox{\smallfont\baselineskip=0.8\baselineskip\raggedcenter diff --git a/etc/vipcard.tex b/etc/vipcard.tex index 5591f151f95..cca644b6bfd 100644 --- a/etc/vipcard.tex +++ b/etc/vipcard.tex @@ -7,7 +7,7 @@ \columnsperpage=1 -% Copyright (c) 1987 Free Software Foundation, Inc. +% Copyright (C) 1987, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. % This file is part of GNU Emacs. @@ -54,7 +54,7 @@ \def\versionnumber{1.2} -\def\year{1987} +\def\year{2005} \def\version{September \year\ v\versionnumber} \def\shortcopyrightnotice{\vskip 1ex plus 2 fill diff --git a/etc/viperCard.tex b/etc/viperCard.tex index e5e0bded891..50f65b2c0d5 100644 --- a/etc/viperCard.tex +++ b/etc/viperCard.tex @@ -7,7 +7,8 @@ \columnsperpage=2 -% Copyright (c) 1995, 1996, 1997 Free Software Foundation, Inc. +% Copyright (C) 1995, 1996, 1997, 2002, 2003, 2004, +% 2005 Free Software Foundation, Inc. % This file is part of GNU Emacs. @@ -61,7 +62,7 @@ \def\versionnumber{3.0} -\def\year{1997} +\def\year{2005} \def\version{August \year\ v\versionnumber} \def\shortcopyrightnotice{\vskip 1ex plus 2 fill diff --git a/lib-src/Makefile.in b/lib-src/Makefile.in index 6fa89e728c6..274bbabe29f 100644 --- a/lib-src/Makefile.in +++ b/lib-src/Makefile.in @@ -1,6 +1,6 @@ # Makefile for lib-src subdirectory in GNU Emacs. -# Copyright (C) 1985, 1987, 1988, 1993, 1994, 2002, 2003, 2004, 2005 -# Free Software Foundation, Inc. +# Copyright (C) 1985, 1987, 1988, 1993, 1994, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # This file is part of GNU Emacs. diff --git a/lib-src/cvtmail.c b/lib-src/cvtmail.c index 4dd6bb20a68..562c5522ed9 100644 --- a/lib-src/cvtmail.c +++ b/lib-src/cvtmail.c @@ -1,4 +1,5 @@ -/* Copyright (C) 1985, 1994 Free Software Foundation +/* Copyright (C) 1985, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/lib-src/digest-doc.c b/lib-src/digest-doc.c index 9db4a190803..d3df334841e 100644 --- a/lib-src/digest-doc.c +++ b/lib-src/digest-doc.c @@ -1,7 +1,8 @@ /* Give this program DOC-mm.nn.oo as standard input and it outputs to standard output a file of nroff output containing the doc strings. - Copyright (C) 1987, 1994, 2001 Free Software Foundation Inc. + Copyright (C) 1987, 1994, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/lib-src/ebrowse.c b/lib-src/ebrowse.c index bc323fbbbd8..49e353cf536 100644 --- a/lib-src/ebrowse.c +++ b/lib-src/ebrowse.c @@ -1,7 +1,7 @@ /* ebrowse.c --- parsing files for the ebrowse C++ browser - Copyright (C) 1992, 93, 94, 95, 96, 97, 98, 99, - 2000, 2001, 2002 Free Software Foundation Inc. + Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, + 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/lib-src/emacsclient.c b/lib-src/emacsclient.c index 75fa9ebe8e7..034d5c9faa9 100644 --- a/lib-src/emacsclient.c +++ b/lib-src/emacsclient.c @@ -1,6 +1,6 @@ /* Client process that communicates with GNU Emacs acting as server. - Copyright (C) 1986, 1987, 1994, 1999, 2000, 2001, 2003, 2004 - Free Software Foundation, Inc. + Copyright (C) 1986, 1987, 1994, 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/lib-src/emacstool.c b/lib-src/emacstool.c index f0e9ad8c1f6..b883b442bd9 100644 --- a/lib-src/emacstool.c +++ b/lib-src/emacstool.c @@ -1,5 +1,6 @@ /* - Copyright (C) 1986, 1988, 1990, 1991 Free Software Foundation, Inc. + Copyright (C) 1986, 1988, 1990, 1991, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/lib-src/etags.c b/lib-src/etags.c index 2f273771a96..fe4fa84f4c5 100644 --- a/lib-src/etags.c +++ b/lib-src/etags.c @@ -1,6 +1,7 @@ /* Tags file maker to go with GNU Emacs -*- coding: latin-1 -*- - Copyright (C) 1984, 1987-1989, 1993-1995, 1998-2001, 2002, 2004 - Free Software Foundation, Inc. and Ken Arnold + Copyright (C) 1984, 1987, 1988, 1989, 1993, 1994, 1995, + 1998, 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. and Ken Arnold This file is not considered part of GNU Emacs. diff --git a/lib-src/fakemail.c b/lib-src/fakemail.c index cf6c1ff334d..de1e2cbf858 100644 --- a/lib-src/fakemail.c +++ b/lib-src/fakemail.c @@ -1,5 +1,6 @@ /* sendmail-like interface to /bin/mail for system V, - Copyright (C) 1985, 1994, 1999 Free Software Foundation, Inc. + Copyright (C) 1985, 1994, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/lib-src/getopt.c b/lib-src/getopt.c index 8cbe6e1a1da..70fd4186261 100644 --- a/lib-src/getopt.c +++ b/lib-src/getopt.c @@ -2,8 +2,9 @@ NOTE: getopt is now part of the C library, so if you don't know what "Keep this file name-space clean" means, talk to drepper@gnu.org before changing it! - Copyright (C) 1987,88,89,90,91,92,93,94,95,96,98,99,2000,2001,2002,2003,2004 - Free Software Foundation, Inc. + Copyright (C) 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, + 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. This file is part of the GNU C Library. This program is free software; you can redistribute it and/or modify diff --git a/lib-src/getopt1.c b/lib-src/getopt1.c index 40c1d1695d3..8aa9b183578 100644 --- a/lib-src/getopt1.c +++ b/lib-src/getopt1.c @@ -1,6 +1,6 @@ /* getopt_long and getopt_long_only entry points for GNU getopt. - Copyright (C) 1987,88,89,90,91,92,93,94,96,97,98,2004 - Free Software Foundation, Inc. + Copyright (C) 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1996, 1997, + 1998, 2004, 2005 Free Software Foundation, Inc. This file is part of the GNU C Library. This program is free software; you can redistribute it and/or modify diff --git a/lib-src/getopt_.h b/lib-src/getopt_.h index 2c2c1d458ef..fbd45d42aab 100644 --- a/lib-src/getopt_.h +++ b/lib-src/getopt_.h @@ -1,6 +1,6 @@ /* Declarations for getopt. - Copyright (C) 1989-1994,1996-1999,2001,2003,2004 - Free Software Foundation, Inc. + Copyright (C) 1989, 1990, 1991, 1992, 1993, 1994, 1996, 1997, 1998, 1999, + 2001, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of the GNU C Library. This program is free software; you can redistribute it and/or modify diff --git a/lib-src/getopt_int.h b/lib-src/getopt_int.h index 6d47d2f0b8c..f59ab32ce28 100644 --- a/lib-src/getopt_int.h +++ b/lib-src/getopt_int.h @@ -1,6 +1,6 @@ /* Internal declarations for getopt. - Copyright (C) 1989-1994,1996-1999,2001,2003,2004 - Free Software Foundation, Inc. + Copyright (C) 1989, 1990, 1991, 1992, 1993, 1994, 1996, 1997, 1998, 1999, + 2001, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of the GNU C Library. This program is free software; you can redistribute it and/or modify diff --git a/lib-src/gettext.h b/lib-src/gettext.h index ba484b3d1d9..658fa17fcb8 100644 --- a/lib-src/gettext.h +++ b/lib-src/gettext.h @@ -1,5 +1,6 @@ /* Convenience header for conditional use of GNU <libintl.h>. - Copyright (C) 1995-1998, 2000-2002, 2004 Free Software Foundation, Inc. + Copyright (C) 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2004, + 2005 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by diff --git a/lib-src/grep-changelog b/lib-src/grep-changelog index 04468535e02..45bf841ae59 100755 --- a/lib-src/grep-changelog +++ b/lib-src/grep-changelog @@ -1,6 +1,7 @@ #! /usr/bin/perl -# Copyright (C) 1999, 2000, 2001, 2004 Free Software Foundation, Inc. +# Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/lib-src/hexl.c b/lib-src/hexl.c index 05e0658e566..0dfdddf468f 100644 --- a/lib-src/hexl.c +++ b/lib-src/hexl.c @@ -1,5 +1,5 @@ /* Convert files for Emacs Hexl mode. - Copyright (C) 1989 Free Software Foundation, Inc + Copyright (C) 1989, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is not considered part of GNU Emacs. diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c index 6c0816ed98a..537eafec7f5 100644 --- a/lib-src/make-docfile.c +++ b/lib-src/make-docfile.c @@ -1,6 +1,6 @@ /* Generate doc-string file for GNU Emacs from source files. - Copyright (C) 1985, 86, 92, 93, 94, 97, 1999, 2000, 01, 2004 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1992, 1993, 1994, 1997, 1999, 2000, 2001, + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/lib-src/makefile.w32-in b/lib-src/makefile.w32-in index 48ce5a2f80f..bfda0f25d5f 100644 --- a/lib-src/makefile.w32-in +++ b/lib-src/makefile.w32-in @@ -1,5 +1,6 @@ # -*- Makefile -*- for GNU Emacs on the Microsoft W32 API. -# Copyright (c) 2000-2001, 2004 Free Software Foundation, Inc. +# Copyright (C) 2000, 2001, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/lib-src/movemail.c b/lib-src/movemail.c index f82bebd4f2b..e8f1122e943 100644 --- a/lib-src/movemail.c +++ b/lib-src/movemail.c @@ -1,6 +1,7 @@ /* movemail foo bar -- move file foo to file bar, locking file foo the way /bin/mail respects. - Copyright (C) 1986, 92, 93, 94, 96, 1999 Free Software Foundation, Inc. + Copyright (C) 1986, 1992, 1993, 1994, 1996, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/lib-src/ntlib.c b/lib-src/ntlib.c index c346ccd908b..caaf521206b 100644 --- a/lib-src/ntlib.c +++ b/lib-src/ntlib.c @@ -1,5 +1,5 @@ /* Utility and Unix shadow routines for GNU Emacs support programs on NT. - Copyright (C) 1994 Free Software Foundation, Inc. + Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/lib-src/ntlib.h b/lib-src/ntlib.h index b1cb97dabda..07e730567f7 100644 --- a/lib-src/ntlib.h +++ b/lib-src/ntlib.h @@ -1,5 +1,5 @@ /* Utility and Unix shadow routines for GNU Emacs support programs on NT. - Copyright (C) 1994 Free Software Foundation, Inc. + Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/lib-src/pop.c b/lib-src/pop.c index 30a4233d417..9bc73e90a54 100644 --- a/lib-src/pop.c +++ b/lib-src/pop.c @@ -1,5 +1,6 @@ /* pop.c: client routines for talking to a POP3-protocol post-office server - Copyright (c) 1991, 1993, 1996, 1997, 1999 Free Software Foundation, Inc. + Copyright (C) 1991, 1993, 1996, 1997, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Written by Jonathan Kamens, jik@security.ov.com. This file is part of GNU Emacs. diff --git a/lib-src/pop.h b/lib-src/pop.h index 5267ec97eb4..eed24a89934 100644 --- a/lib-src/pop.h +++ b/lib-src/pop.h @@ -1,5 +1,6 @@ /* pop.h: Header file for the "pop.c" client POP3 protocol. - Copyright (c) 1991,1993 Free Software Foundation, Inc. + Copyright (C) 1991, 1993, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Written by Jonathan Kamens, jik@security.ov.com. This file is part of GNU Emacs. diff --git a/lib-src/profile.c b/lib-src/profile.c index 7bc7186c259..615a43d912c 100644 --- a/lib-src/profile.c +++ b/lib-src/profile.c @@ -1,5 +1,6 @@ /* profile.c --- generate periodic events for profiling of Emacs Lisp code. - Copyright (C) 1992, 1994, 1999 Free Software Foundation, Inc. + Copyright (C) 1992, 1994, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Author: Boaz Ben-Zvi <boaz@lcs.mit.edu> diff --git a/lib-src/rcs-checkin b/lib-src/rcs-checkin index 2a7de0f2f11..beee6ce29f7 100755 --- a/lib-src/rcs-checkin +++ b/lib-src/rcs-checkin @@ -2,7 +2,8 @@ # This script accepts any number of file arguments and checks them into RCS. -# Copyright (C) 1993, 1994, 1995, 2001, 2002 Free Software Foundation, Inc. +# Copyright (C) 1993, 1994, 1995, 2001, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/lib-src/rcs2log b/lib-src/rcs2log index 05864c2ad26..4e7c6c1bb1b 100755 --- a/lib-src/rcs2log +++ b/lib-src/rcs2log @@ -55,7 +55,7 @@ Report bugs to <bug-gnu-emacs@gnu.org>.' Id='$Id$' # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2001, 2002, 2003, -# 2004 Free Software Foundation, Inc. +# 2004, 2005 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -72,7 +72,7 @@ Id='$Id$' # Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, # Boston, MA 02110-1301, USA. -Copyright='Copyright (C) 2004 Free Software Foundation, Inc. +Copyright='Copyright (C) 2005 Free Software Foundation, Inc. This program comes with NO WARRANTY, to the extent permitted by law. You may redistribute copies of this program under the terms of the GNU General Public License. diff --git a/lib-src/sorted-doc.c b/lib-src/sorted-doc.c index 120a510f006..cb04be26842 100644 --- a/lib-src/sorted-doc.c +++ b/lib-src/sorted-doc.c @@ -1,8 +1,8 @@ /* Give this program DOC-mm.nn.oo as standard input and it outputs to standard output a file of texinfo input containing the doc strings. - Copyright (C) 1989, 1992, 1994, 1996, 1999, 2000, 2001 - Free Software Foundation Inc. + Copyright (C) 1989, 1992, 1994, 1996, 1999, 2000, 2001, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/lib-src/test-distrib.c b/lib-src/test-distrib.c index 0bbc6806d71..0d3587af8da 100644 --- a/lib-src/test-distrib.c +++ b/lib-src/test-distrib.c @@ -1,7 +1,7 @@ /* test-distrib.c --- testing distribution of nonprinting chars - Copyright (C) 1987, 1993, 1994, 1995, 1999, 2001 - Free Software Foundation Inc. + Copyright (C) 1987, 1993, 1994, 1995, 1999, 2001, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/lib-src/update-game-score.c b/lib-src/update-game-score.c index d9d20b8525d..46d0d8b0600 100644 --- a/lib-src/update-game-score.c +++ b/lib-src/update-game-score.c @@ -1,5 +1,5 @@ /* update-game-score.c --- Update a score file - Copyright (C) 2002, 2003 Free Software Foundation, Inc. + Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/lib-src/vcdiff b/lib-src/vcdiff index 8e1722d43ba..a57811a7f6d 100755 --- a/lib-src/vcdiff +++ b/lib-src/vcdiff @@ -3,8 +3,8 @@ # Enhanced sccs diff utility for use with vc mode. # This version is more compatible with rcsdiff(1). # -# Copyright (C) 1992, 1993, 1995, 1997, 2001, 2004 -# Free Software Foundation, Inc. +# Copyright (C) 1992, 1993, 1995, 1997, 2001, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5161c5e3fbf..fcc80dc0d59 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,870 @@ +2005-08-25 Stefan Monnier <monnier@iro.umontreal.ca> + + * smerge-mode.el (smerge-remove-props): Make the args non-optional. + (smerge-keep-n): Remove props. + (smerge-keep-base, smerge-keep-other, smerge-keep-mine) + (smerge-keep-current, smerge-kill-current): Don't remove props anymore + now that it's done in smerge-keep-n. + (smerge-refined-change): New face. + (smerge-refine-chopup-region, smerge-refine-highlight-change) + (smerge-refine): New funs. + (smerge-basic-map): Bind smerge-refine. + +2005-08-25 Juri Linkov <juri@jurta.org> + + * progmodes/grep.el (grep, grep-mode): Make buffer-local variables + compilation-process-setup-function and compilation-disable-input + in grep-mode instead of let-bindings in grep. + + * menu-bar.el (menu-bar-options-menu, menu-bar-options-save): + Delete "Automatic File De/compression" (auto-compression-mode). + +2005-08-25 Juanma Barranquero <lekktu@gmail.com> + + * obsolete/bg-mouse.el: Move to obsolete/ from term/. + Silence warning about non-existent variable. + +2005-08-25 Richard M. Stallman <rms@gnu.org> + + * menu-bar.el (menu-bar-describe-menu): Delete "What's New". + Rename "Describe Key" to "Describe Key or Mouse Operation". + + * mail/mailalias.el (build-mail-aliases): Delete comments + from the contents before processing them. + + * isearch.el (isearch-edit-string): Erase the Search prompt + if user enters an empty string and there is no default. + + * comint.el (comint-file-name-prefix): Add autoload. + +2005-08-25 Joe Corneli <jcorneli@math.utexas.edu> + + * subr.el (play-sound): Rearrange to avoid warning. + +2005-08-25 Carsten Dominik <dominik@science.uva.nl> + + * calendar/diary-lib.el (diary-modify-entry-list-string-function): + New hook. + (add-to-diary-list): Call `diary-modify-entry-list-string-function' + +2005-08-24 Vinicius Jose Latorre <viniciusjl@ig.com.br> + + * subr.el (version-separator, version-regexp-alist): New vars used by + version comparison funs. + (integer-list-<, integer-list-=, integer-list-<=) + (integer-list-not-zero): New funs for integer list comparison. + (version-to-list, version=, version<, version<=): New funs for version + comparison. + +2005-08-24 Juanma Barranquero <lekktu@gmail.com> + + * emerge.el (merge-begin, merge-end, template, A-begin, A-end) + (B-begin, B-end, diff, diff-vector, valid-diff): Defvar at compile + time to silence the byte-compiler. + + * ibuffer.el (ibuffer-compile-make-eliding-form) + (ibuffer-check-formats): Use `with-no-warnings' to hide references + to `ibuffer-elide-long-columns' (which is defined on ibuffer.el, + so it's silly to get warnings for it). + (ibuffer-auto-mode, ibuffer-cached-filter-formats) + (ibuffer-compiled-filter-formats, ibuffer-filter-format-alist) + (ibuffer-filter-group-kill-ring, ibuffer-filter-groups) + (ibuffer-filtering-qualifiers, ibuffer-hidden-filter-groups) + (ibuffer-inline-columns, ibuffer-show-empty-filter-groups) + (ibuffer-tmp-hide-regexps, ibuffer-tmp-show-regexps): + Defvar at compile time. + (ibuffer-compiled-formats, ibuffer-cached-eliding-string) + (ibuffer-cached-formats, ibuffer-cached-elide-long-columns): + Declare them before use. + + * info-xref.el (info-xref-xfile-alist, info-xref-filename-heading) + (info-xref-good, info-xref-bad): Defvar at compile time. + + * obsolete/mlsupport.el (filter-region, execute-monitor-command): + Use `let*' instead of `let'. + + * obsolete/sun-curs.el (icon-edit, *mouse-window*, *mouse-x*) + (*mouse-y*, menu, char): Defvar at compile time. + (sc::menu): Declare it before use. + (sc::pack-one-line): Use `let', not `let*'. + + * obsolete/swedish.el (news-inews-hook, news-group-hook-alist) + (mail-send-hook): Defvar at compile time. + + * term/bg-mouse.el (bg-mouse-x, bg-mouse-y, bg-cursor-window): + Defvar at compile time. + + * term/sun-mouse.el (current-global-mousemap) + (current-local-mousemap): Declare them before use. + +2005-08-24 Carsten Dominik <dominik@science.uva.nl> + + * bookmark.el (bookmark-after-jump-hook): New hook. + (bookmark-jump): Run `bookmark-after-jump-hook'. + +2005-08-23 Juri Linkov <juri@jurta.org> + + * faces.el (minibuffer-prompt): Doc fix. + +2005-08-23 Juanma Barranquero <lekktu@gmail.com> + + * progmodes/xscheme.el: Trivial changes to silence warnings. + (xscheme-previous-mode, xscheme-previous-process-state): + Add defvars. + (xscheme-last-input-end, xscheme-process-command-line) + (xscheme-process-name, xscheme-buffer-name) + (xscheme-expressions-ring-max, xscheme-expressions-ring) + (xscheme-expressions-ring-yank-pointer, xscheme-running-p) + (xscheme-control-g-synchronization-p) + (xscheme-control-g-disabled-p, xscheme-string-receiver) + (default-xscheme-runlight, xscheme-runlight) + (xscheme-runlight-string, xscheme-process-filter-state) + (xscheme-allow-output-p, xscheme-prompt, xscheme-mode-string): + Move to beginning of file. + (scheme-interaction-mode-commands-alist) + (scheme-interaction-mode-map, scheme-debugger-mode-map): Declare + them before use. Note: the initialization code for the variables + has not been moved because it uses functions that reference the + variables. + (xscheme-control-g-message-string, xscheme-process-filter-alist) + (xscheme-prompt-for-expression-map): Declare them before use. + (scheme-debugger-mode-commands): "?\ " -> "?\s". + +2005-08-23 Ed Swarthout <ed.swarthout@gmail.com> (tiny change) + + * hexl.el (hexl-print-current-point-info): Fix simple spelling + error. + +2005-08-22 Juri Linkov <juri@jurta.org> + + * faces.el (set-face-underline): Delete this duplicate function + and make an obsolete alias to set-face-underline-p. + (set-face-underline-p): Use docstring of set-face-underline. + (describe-face): Create hyperlink to parent face. + + * info.el (Info-insert-dir): Use save-excursion around + insert-buffer-substring. + (Info-isearch-search): Use LITERAL arg of replace-regexp-in-string. + (Info-escape-percent): Delete function. + (Info-fontify-node): Replace Info-escape-percent by + replace-regexp-in-string with REP arg set to lambda that + duplicates `%' and preserves text properties. + + * progmodes/compile.el (compilation-disable-input): Doc fix. + (define-compilation-mode): Doc fix and refill. + (kill-compilation): Use `mode-name' in the error message. + (compilation-find-file): Use `compilation-error' in the + read-file-name's prompt. + +2005-08-22 Stefan Monnier <monnier@iro.umontreal.ca> + + * smerge-mode.el (smerge-basic-map): Bind smerge-combine-with-next. + (smerge-auto-leave): Make undo re-enable the mode. + (debug-ignored-errors): Add the user-error of impossible resolution. + (smerge-resolve): Move things around a bit, in preparation for later. + (smerge-diff): Don't fail if the buffer has no associated file. + (ediff-ancestor-buffer, ediff-quit-hook): Quieten byte-compiler. + (smerge-conflict-overlay): New function. + (smerge-match-conflict): Don't add text properties here. + (smerge-find-conflict): Instead, add an overlay here. + Also check for the case where we're inside a conflict already, so as to + obviate the need for font-lock-multiline, which is unbearably slow with + large conflicts and ciomplex font-lock patterns. + (smerge-remove-props): Remove overlay rather than text-properties. + (smerge-mode): Don't set font-lock-multiline. + Remove overlays when turned off. + +2005-08-21 Kim F. Storm <storm@cua.dk> + + * ido.el (ido-ignore-item-p): Use save-match-data. + Bind case-fold-search to ido-case-fold locally. + +2005-08-20 Richard M. Stallman <rms@gnu.org> + + * files.el (normal-mode): If font lock is on, turn it off and on. + + * subr.el (replace-regexp-in-string): Doc fix. + + * startup.el (command-line-1): Don't suppress startup screen + due to existing processes. + + * progmodes/grep.el (grep): Bind compilation-disable-input to t. + + * progmodes/compile.el (compilation-disable-input): Default to nil. + +2005-08-20 Kevin Rodgers <ihs_4664@yahoo.com> (tiny change) + + * progmodes/compile.el (compilation-disable-input): New defcustom. + (compilation-start): If compilation-disable-input is non-nil, send + EOF to the compilation process. + +2005-08-20 Eli Zaretskii <eliz@gnu.org> + + * textmodes/tex-mode.el (tex-bibtex-file, tex-send-tex-command): + Run the argument of tex-shell-cd-command through + convert-standard-filename, to get the correct style of slashes on + Windows, and enclose the result in quotes, in case the file name + includes whitespace or other special characters. + +2005-08-19 Andreas Schwab <schwab@suse.de> + + * progmodes/gud.el (gud-kill-buffer-hook): Don't kill unrelated + process. + +2005-08-18 Luc Teirlinck <teirllm@auburn.edu> + + * cus-start.el (minibuffer-prompt-properties): Correct typo. + +2005-08-18 Kim F. Storm <storm@cua.dk> + + * scroll-lock.el: Fix errors due to incorrect line wrapping. + +2005-08-18 Richard M. Stallman <rms@gnu.org> + + * scroll-lock.el: New file. + +2005-08-18 Thien-Thi Nguyen <ttn@gnu.org> + + * dired.el (dired-move-to-end-of-filename): + Handle fifo as rendered by "ls -lF": Don't include trailing "|". + +2005-08-18 Kim F. Storm <storm@cua.dk> + + * ido.el (ido-everywhere): Fix defcustom :set function to disable + rather than toggle mode when custom value is nil. + (ido-everywhere): Fix defun doc string. + +2005-08-17 Richard M. Stallman <rms@gnu.org> + + * cus-start.el (minibuffer-prompt-properties): Use "Don't Enter" + as tag instead of "Inviolable". + +2005-08-17 Kim F. Storm <storm@cua.dk> + + * windmove.el (windmove-coordinates-of-position): Remove. + (windmove-coordinates-of-window-position): Remove. + (windmove-reference-loc): Use posn-at-point instead. + + * subr.el (insert-for-yank-1): Doc fix. + + * ido.el (ido-enter-matching-directory): Rename from + ido-enter-single-matching-directory. Change 'slash choice to + 'only. Add 'first choice. + (ido-exhibit): Adapt to above changes. + +2005-08-16 Luc Teirlinck <teirllm@auburn.edu> + + * Makefile.in: Expand comment about building loaddefs.el. + +2005-08-16 Nick Roberts <nickrob@snap.net.nz> + + * progmodes/gdb-ui.el (toggle-gdb-use-inferior-io-buffer): + Comment use of defadvice. + + * progmodes/gud.el (gud-jump): Rework for gdb-ui. + +2005-08-15 Dan Nicolaescu <dann@ics.uci.edu> + + * buff-menu.el, compare-w.el, emacs-lisp/testcover.el, + * play/gomoku.el, play/mpuz.el, progmodes/flymake.el, + * progmodes/gdb-ui.el, progmodes/idlw-help.el, + * progmodes/idlw-shell.el, progmodes/ld-script.el, + * progmodes/which-func.el, ruler-mode.el, strokes.el, + * textmodes/sgml-mode.el, textmodes/table.el: Do not use face-alias + for backward compatibility for faces that did not appear in the + previous Emacs release. + + * simple.el (next-error-follow-minor-mode): Fix init value and lighter. + +2005-08-15 Kim F. Storm <storm@cua.dk> + + * emulation/cua-base.el (cua-delete-region): Return t if + deleted region was non-empty. + (cua-replace-region): Inhibit overwrite-mode for + self-insert-command if replaced region was non-empty. + (cua--explicit-region-start, cua--status-string): Make them + buffer-local at top-level... + (cua-mode): ...rather than when mode is enabled. + +2005-08-15 Thien-Thi Nguyen <ttn@gnu.org> + + * progmodes/vhdl-mode.el (vhdl-emacs-21): + Set t for Emacs 21, 22, and so on. + +2005-08-15 David Ponce <david@dponce.com> + + * tree-widget.el Update Commentary header. + (tree-widget-theme): Doc fix. + (tree-widget-space-width): New option. + (tree-widget-image-properties): Look up in the default theme too. + (tree-widget--cursors): Only for images with arrow pointer shape. + (tree-widget-lookup-image): Pointer shape is hand by default. + (tree-widget-icon): Rename generic icon widget from + `tree-widget-control'. + (tree-widget-*-icon): Rename from `tree-widget-*-control' and + derive from `tree-widget-icon'. + (tree-widget-handle): Improve default look and feel of the text + representation. + (tree-widget): Rename :*-control properties to :*-icon properties. + Add :action and :help-echo properties. + (tree-widget-after-toggle-functions): Move. + (tree-widget-close-node, tree-widget-open-node): Remove. + (tree-widget-before-create-icon-functions): New hook. + (tree-widget-value-create): Update to allow customization of icons + and nodes at run-time via that new hook. + (tree-widget-icon-create, tree-widget-leaf-node-icon-p) + (tree-widget-icon-action, tree-widget-icon-help-echo) + (tree-widget-action, tree-widget-help-echo): New functions. + +2005-08-15 Kim F. Storm <storm@cua.dk> + + * ido.el (ido-buffer-internal): Use with-no-warnings. + (ido-make-merged-file-list): Use while-no-input. + +2005-08-15 Richard M. Stallman <rms@gnu.org> + + * textmodes/flyspell.el (flyspell-mark-duplications-flag): Doc fix. + (flyspell-large-region): Fix doc and custom type. + +2005-08-14 Richard M. Stallman <rms@gnu.org> + + * files.el (interpreter-mode-alist): Doc fix. + + * mail/rmail.el (rmail-nonignored-headers): New variable. + (rmail-clear-headers): Use it. + (rmail-reply): Better handling of mail-followup-to header. + + * progmodes/sh-script.el (sh-font-lock-keywords-var): + Rename variable from sh-font-lock-keywords. In the `shell' entry, + don't try to refer to executable-font-lock-keywords. + (sh-font-lock-keywords-var-1): Rename from sh-font-lock-keywords-1. + (sh-font-lock-keywords-var-2): Rename from sh-font-lock-keywords-2. + (sh-font-lock-keywords): Append executable-font-lock-keywords here. + (sh-mode): Set comment-start-skip, local-abbrev-table, + imenu-case-fold-search. + (sh-set-shell): Don't set them here. + (sh-feature): Simplify. Get rid of the eval-a-variable feature. + Don't cache the results in the original alist; don't ever modify + that alist. + + * textmodes/flyspell.el (flyspell-mode): Autoload a defvar. + + * textmodes/ispell.el (lookup-words): Cope with case where ARGS is + empty. + +2005-08-15 Andreas Schwab <schwab@suse.de> + + * desktop.el: Put autoload cookie at risky-local-variable declarations. + + * dired.el, info.el, mail/rmail.el: Revert last change. + +2005-08-14 Thien-Thi Nguyen <ttn@gnu.org> + + * dired.el: Fix dependency bug: Wrap `desktop-buffer-mode-handlers' + modification in `eval-after-load' form. + * info.el: Likewise. + * mail/rmail.el: Likewise. + +2005-08-14 Juri Linkov <juri@jurta.org> + + * progmodes/compile.el (compilation-mode-font-lock-keywords): + Remove highlighting of "Compilation started". Highlight only + the word "finished" in "Compilation finished". Add highlighting + of "interrupt", "killed", "terminated" and the exit code. + (compilation-start): Add newline after header. Use exactly the + same time stamp format as the finishing message. + (compilation-mode-map): Add ellipsis to "Search Files (grep)". + + * progmodes/grep.el (grep-mode-map): Add ellipsis to "Another grep". + (grep-mode-font-lock-keywords): Don't highlight "Grep started". + Add highlighting of "interrupt", "killed", "terminated". + + * delsel.el (delete-selection-pre-hook): If overwrite-mode is + enabled and the current command is self-insert-command, call it + explicitly with overwrite-mode bound to nil, to not allow it + to delete the character after the selected region. + +2005-08-12 Matt Hodges <MPHodges@member.fsf.org> + + * emacs-lisp/eldoc.el: Add move-beginning-of-line, + move-end-of-line, end-of-line, and beginning-of-line to the list + of commands after which the echo area is updated. + +2005-08-12 Eli Zaretskii <eliz@gnu.org> + + * cus-edit.el (custom-save-all, custom-save-delete): + Bind recentf-exclude to exclude custom-file. + +2005-08-12 Ehud Karni <ehud@unix.mvs.co.il> + + * mail/rmailsum.el (rmail-summary-end-of-message): New command + to go to the bottom of the mail message. Added to + `rmail-summary-mode-map' with key "/". + (rmail-summary-show-message): New (internal) function for use by + both `rmail-summary-beginning/end-of-message'. + (rmail-summary-beginning-of-message): Change to use + rmail-summary-show-message. + + * mail/rmail.el (rmail-end-of-message): New command to go to the + end of the current message. Added to `rmail-mode-map' with key "/". + (rmail-beginning-of-message): Fix to work as documented. + (rmail-mode): Change documentation. + + * progmodes/compile.el (compilation-start): Add the line + "Compilation started" with compilation start time. + (compilation-mode-font-lock-keywords): Add `started' to keywords. + +2005-08-11 Luc Teirlinck <teirllm@auburn.edu> + + * menu-bar.el (menu-bar-options-menu): Standardize capitalization + of menu items. + +2005-08-11 Richard M. Stallman <rms@gnu.org> + + * simple.el (pop-global-mark): Reverse test of widen-automatically. + + * battery.el (battery-status-function): Don't use ignore-errors. + +2005-08-11 Lute Kamstra <lute@gnu.org> + + * emacs-lisp/generic.el (generic-font-lock-defaults): Declare with + define-obsolete-variable-alias. + +2005-08-11 Stefan Monnier <monnier@iro.umontreal.ca> + + * net/ange-ftp.el: Use \\` and \\' instead of ^ and $ in regexps. + (ange-ftp-send-cmd): Revert last change, and expand + the comment explaining the problem. + +2005-08-10 Luc Teirlinck <teirllm@auburn.edu> + + * ldefs-boot.el: Update. + + * menu-bar.el (menu-bar-showhide-menu): Rename "Date, Time and Mail" + item to "Time, Load and Mail". Change help echo text. + + * time.el (display-time-use-mail-icon, display-time-format) + (display-time-string-forms): Shorten first line of docstrings. + +2005-08-10 Lars Hansen <larsh@soem.dk> + + * desktop.el (desktop-buffer-mode-handlers): + Make non-customizable. Add autoload cookie. Change initial value to + nil; add elements in respective modules instead. Fix doc string. + (desktop-load-file): New function. + (desktop-minor-mode-handlers): New autoloaded variable. + (desktop-create-buffer): Call minor mode handlers. + Use desktop-load-file to load major and minor mode modules prior to + checking for a handler. + (desktop-save): Don't add nil to desktop-minor-modes for minor + modes with nil function in desktop-minor-mode-table. Don't delete + desktop file before rewriting it. + (desktop-locals-to-save): Add autoload cookie. Don't make + automatically buffer-local. Add variables column-number-mode, + size-indication-mode, indent-tabs-mode, + indicate-buffer-boundaries, indicate-empty-lines and + show-trailing-whitespace. + (desktop-clear): Allow desktop-clear-preserve-buffers to contain + regexps. Don't use desktop-clear-preserve-buffers-regexp. + (desktop-clear-preserve-buffers-regexp): Delete. + (desktop-clear-preserve-buffers): Update initial value and docstring. + (desktop-save-buffer): Fix doc string. + + * hilit-chg.el: Add handler to desktop-minor-mode-handlers. + (hilit-chg-desktop-restore): New function. + (highlight-changes-mode): Add highlight-changes-mode to + desktop-locals-to-save. + + * dired.el: Add handler to desktop-buffer-mode-handlers. + (dired-restore-desktop-buffer): Remove autoload cookie. + (dired-mode): Add autoload cookie. + + * info.el: Add handler to desktop-buffer-mode-handlers. + (Info-restore-desktop-buffer): Remove autoload cookie. + (Info-mode): Add autoload cookie. + + * mh-e/mh-e.el: Add handler to desktop-buffer-mode-handlers. + (mh-restore-desktop-buffer): Remove autoload cookie. + (mh-folder-mode): Add autoload cookie. + + * mail/rmail.el: Add handler to desktop-buffer-mode-handlers. + (rmail-restore-desktop-buffer): Remove autoload cookie. + +2005-08-11 Masatake YAMATO <jet@gyve.org> + + * hexl.el (hexl-address-region): + (hexl-ascii-region, hexl-font-lock-keywords): + (hexl-highlight-line-range): Use the term "region" + instead of "area" for consistency with the other symbols + defined in hexl.el. + +2005-08-09 Luc Teirlinck <teirllm@auburn.edu> + + * menu-bar.el (menu-bar-options-save): Move `display-time-mode' to + correct group: it is set with `menu-bar-make-mm-toggle' (pointed + out by Juri Linkov). Add `display-battery-mode'. + +2005-08-09 Juri Linkov <juri@jurta.org> + + * progmodes/compile.el (compilation-mode-font-lock-keywords): + Remove `-text' from face variable names. + (compilation-error-file-name, compilation-warning-file-name) + (compilation-info-file-name): Delete faces. + (compilation-line-number, compilation-column-number): + Remove face underlining. + (compilation-message-face): Set to `underline' value by default. + (compilation-error-face, compilation-warning-face) + (compilation-info-face): Remove `-file-name' from face names. + (compilation-error-text-face, compilation-warning-text-face) + (compilation-info-text-face): Delete face variables. + (compilation-text-face): Delete function. + + * progmodes/grep.el (grep-regexp-alist): Use `.+?' instead of `[^:\n]+'. + (grep-mode-font-lock-keywords): Use `.+?' instead of `[^\n-]+'. + (grep-error-face): Set to `compilation-error' instead of + `compilation-error-face' (which is redefined to `grep-hit-face' in + grep buffers). + (grep-mode-font-lock-keywords): Remove `-text' from face variable + names. Use `grep-error-face' instead of `compilation-error-text-face'. + + * dired-aux.el (dired-do-query-replace-regexp): + Use `query-replace-read-args'. + + * replace.el (query-replace-read-from, query-replace-read-to) + (query-replace-read-args): Rename arg `string' to `prompt'. + + * menu-bar.el (menu-bar-showhide-menu): Add `showhide-battery'. + +2005-08-09 Katsumi Yamaoka <yamaoka@jpl.org> (tiny change) + + * net/ange-ftp.el (ange-ftp-send-cmd): Make it work properly with + uploading files. + (ange-ftp-canonize-filename): Handle file names beginning with ~ + correctly. + +2005-08-09 Juanma Barranquero <lekktu@gmail.com> + + * textmodes/fill.el (canonically-space-region) + (fill-context-prefix, fill-french-nobreak-p) + (fill-delete-newlines, fill-comment-paragraph) + (justify-current-line): "?\ " -> "?\s". + +2005-08-09 Ben North <ben@redfrontdoor.org> (tiny change) + + * textmodes/fill.el (fill-nonuniform-paragraphs): + Improve argument/docstring consistency. + +2005-08-09 Richard M. Stallman <rms@gnu.org> + + * textmodes/ispell.el (ispell-word): More fboundp checks. + + * files.el (find-file-noselect): Don't call set-buffer-major-mode. + (find-file-noselect-1): Call it here, only if RAWFILE. + (normal-mode): Always set some major mode. + (save-some-buffers-action-alist): Change some explanation strings. + (file-name-non-special): In the `quote' method, use unwind-protect. + +2005-08-09 Magnus Henoch <mange@freemail.hu> + + * textmodes/ispell.el (ispell-find-aspell-dictionaries): New command. + (ispell-have-aspell-dictionaries): New variable. + (ispell-aspell-data-dir, ispell-aspell-dict-dir): New variables. + (ispell-get-aspell-config-value): New function. + (ispell-aspell-find-dictionary): New function. + (ispell-aspell-add-aliases): New function. + (ispell-valid-dictionary-list): Call ispell-find-aspell-dictionaries if + appropriate. Don't look for ispell dictionaries if we use aspell. + (ispell-menu-map): Don't build a submenu of dictionaries. + +2005-08-09 Richard M. Stallman <rms@gnu.org> + + * progmodes/sql.el (sql-interactive-mode-map): Use fboundp. + (sql-read-passwd): Use read-passwd. + + * progmodes/idlw-toolbar.el (idlwave-toolbar) + (idlwave-toolbar-is-possible): Add defvars. + + * progmodes/idlw-shell.el (idlwave-xemacs-hack-mouse-track): + Avoid warnings. + + * progmodes/idlw-rinfo.el (idlwave-system-variables-alist) + (idlwave-system-class-info, idlwave-executive-commands-alist): + Use defvar. + + * progmodes/cc-engine.el (c-guess-basic-syntax): Add autoload. + + * mail/supercite.el (sc-ask, sc-no-blank-line-or-header): + Avoid warnings. + + * mail/rmail.el (rmail-ignored-headers): Don't hide mime-version: + and content-type: headers. + + * eshell/eshell.el (eshell): Avoid warnings about eshell-mode. + + * emacs-lisp/map-ynp.el (map-y-or-n-p): Reorder the options + and rename some of them to be more self-explanatory. + + * calendar/calendar.el (calendar-mode-map): Bind < and > usefully. + + * startup.el (command-line-1): Implement -scriptload. + + * replace.el (occur-engine): Initial *Occur* output not undoable. + + * menu-bar.el (menu-bar-file-menu): Rename some menu items + and improve help strings. + + * isearch.el (isearch-repeat): When changing direction, + mark search successful. + + * ediff-init.el: Use (featurep 'xemacs). + + * comint.el (send-invisible): Identify buffer, if not selected. + + * align.el: Delete autoload for c-guess-basic-syntax. + +2005-08-09 Juanma Barranquero <lekktu@gmail.com> + + * textmodes/refbib.el (r2b-convert-record, r2b-convert-buffer): + Improve argument/docstring consistency. Doc fixes. + (r2b-variables, r2bv-address, r2bv-annote, r2bv-author) + (r2bv-booktitle, r2bv-date, r2bv-decade, r2bv-editor) + (r2bv-entry-kind, r2bv-institution, r2bv-journal, r2bv-keywords) + (r2bv-kn, r2bv-month, r2bv-note, r2bv-number, r2bv-ordering) + (r2bv-organization, r2bv-pages, r2bv-primary-author) + (r2bv-publisher, r2bv-school, r2bv-title, r2bv-title-first-word) + (r2bv-tr, r2bv-type, r2bv-volume, r2bv-where, r2bv-year): + Defvar at compile time. + +2005-08-09 Juri Linkov <juri@jurta.org> + + * info.el: Replace `info' with upper-case `Info' where appropriate. + (info-title-1, info-title-2, info-title-3, info-title-4) + (info-menu-header): Move up face definitions. + (info-menu-star): Rename from `info-menu-5'. + (Info-fontify-node): Replace `info-menu-5' with `info-menu-star'. + (Info-fontify-visited-nodes): Fix docstring. + (Info-hide-note-references): Fix docstring. + (Info-up, Info-next-reference, Info-prev-reference): Put cursor on + menu items in the same way as on cross-references. + (info-apropos): Fix sorting order and formatting to be like in the + stand-alone Info browser. Display error messages for 1 sec. + (Info-mode-map): Move down `c' key binding. Bind `^' to `Info-up'. + (Info-mode-menu): Remove item for `Info-search-case-sensitively' + from the menu bar. + (Info-insert-dir): Restore point after calling + `insert-buffer-substring'. + +2005-08-08 Richard M. Stallman <rms@gnu.org> + + * emacs-lisp/lmenu.el (lucid-menubar-map, lucid-failing-menubar) + (recompute-lucid-menubar): Add defvars. + + * mail/sendmail.el (mail-yank-original): Use with-no-warnings. + + * mail/reporter.el (reporter-dump-state): Use insert-buffer-substring. + + * net/net-utils.el (run-dig): Rename from `dig'. + + * play/gametree.el (gametree-mode): Use make-local-variable, + not make-variable-buffer-local. + + * progmodes/ada-prj.el (ada-prj-display-page): Use with-no-warnings. + + * ansi-color.el (ansi-color-make-extent) + (ansi-color-set-extent-face): Use fboundp, not functionp. + + * autorevert.el (auto-revert-tail-mode): Use make-local-variable, + not make-variable-buffer-local. + + * bookmark.el (Info-current-file): Add defvar. + (bookmark-jump-noselect): Use with-no-warnings. + + * completion.el (c-mode-map, fortran-mode-map): Add defvars. + + * ebuff-menu.el (Helper-return-blurb): Add defvar. + + * ffap.el (gnus-summary-buffer, gnus-article-buffer): Add defvars. + + * find-file.el (ada-procedure-start-regexp) + (ada-package-start-regexp): Add defvars. + + * info.el (Info-insert-dir): Use insert-buffer-substring. + + * xml.el (xml-att-def-re): Add defvar. + + * icomplete.el (icomplete-exhibit): Adapt to new while-no-input + calling convention. + + * subr.el (while-no-input): Return t if there is input. + +2005-08-08 Luc Teirlinck <teirllm@auburn.edu> + + * cus-start.el (all): Add `overflow-newline-into-fringe'. + +2005-08-08 Juanma Barranquero <lekktu@gmail.com> + + * cmuscheme.el (inferior-scheme-mode-hook, inferior-scheme-mode) + (scheme-prev-l/c-dir/file): Fix typos in docstrings. + +2005-08-08 Emilio C. Lopes <eclig@gmx.net> + + * cmuscheme.el (scheme-start-file): Replace reference to + `user-emacs-directory' by "~/.emacs.d/". + +2005-08-08 Thien-Thi Nguyen <ttn@gnu.org> + + * info.el (Info-dir-remove-duplicates): Avoid case folding + in loop; instead, keep downcased strings for comparison. + Suggested by Helmut Eller. + +2005-08-07 Michael Albinus <michael.albinus@gmx.de> + + Sync with Tramp 2.0.50. + + * tramp.el: Remove defvar of `last-coding-system-used' in the + XEmacs case; not necessary anymore. + (tramp-user-regexp): Allow "@" as part of user name. + (tramp-handle-set-visited-file-modtime) + (tramp-handle-insert-file-contents) + (tramp-handle-write-region): No special handling for + `last-coding-system-used, because this is done in + `tramp-accept-process-output' now. + (tramp-accept-process-output): New defun. + (tramp-process-one-action, tramp-process-one-multi-action) + (tramp-wait-for-regexp, tramp-wait-for-output) + (tramp-discard-garbage-erase-buffer): Call it. Reported by David + Howells <dhowells@redhat.com>. + (clear-visited-file-modtime): Defadvice removed. The check for + unset buffer's modtime does not need to be based on + `tramp-buffer-file-attributes'. Suggested by RMS. + (tramp-message): Insert "\n" if not being at beginning of line. + (tramp-find-shell): Use `tramp-barf-if-no-shell-prompt' for code + sequence with same logic. + (tramp-completion-handle-expand-file-name): Discard call of + `tramp-drop-volume-letter'. It is not necessary, and there have + been problems with (expand-file-name "~/.netrc" "/") in ange-ftp. + Reported by Richard G. Bielawski <Richard.G.Bielawski@wellsfargo.com>. + (tramp-do-copy-or-rename-file-out-of-band): Transfer message + should always be visible. + (tramp-handle-insert-directory, tramp-setup-complete) + (tramp-set-process-query-on-exit-flag) + (tramp-append-tramp-buffers): Pacify byte-compiler. + (tramp-bug): Delete non-existing variables from list. + Apply `tramp-load-report-modules' as pre-hook. + Mask `tramp-password-prompt-regexp', `tramp-shell-prompt-pattern' and + `shell-prompt-pattern' because of non-7bit characters. + Reported by Sebastian Luque <sluque@mun.ca>. + (tramp-reporter-dump-variable, tramp-load-report-modules): New defuns. + (tramp-match-string-list): Remove function. + (tramp-wait-for-regexp): Remove call of that function. + Suggested by Kim F. Storm <storm@cua.dk>. + (tramp-set-auto-save-file-modes): Use octal integer code #o600 + instead of octal character code ?\600. The latter resulted in a + syntax error with XEmacs. + + * tramp-smb.el: Remove defvar of `last-coding-system-used' in the + XEmacs case; not necessary anymore. + (tramp-smb-handle-write-region): No special handling for + `last-coding-system-used, because this is done in + `tramp-accept-process-output' now. + (tramp-smb-wait-for-output): Call `tramp-accept-process-output'. + +2005-08-06 Luc Teirlinck <teirllm@auburn.edu> + + * wid-edit.el (widget-choice-value-create): + Unconditionally respect user choice. Set :explicit-choice back to nil + when no longer needed. + (widget-choice-action): Unconditionally respect user choice. + Eliminate :explicit-choice-value. + + * fringe.el (set-fringe-indicators-1, fringe-indicators): Delete. + + * menu-bar.el (menu-bar-options-save): Replace `fringe-indicators' + with `indicate-empty-lines' and `indicate-buffer-boundaries'. + (menu-bar-showhide-fringe-menu): Add new item "Empty line indicators" + running new function `toggle-indicate-empty-lines'. + Rename "Customize" item to "Customize fringe". + Rename "Indicators" item to "Buffer boundaries" and change help echo. + (menu-bar-showhide-fringe-ind-menu): Change several help echos. + Add `menu-bar-showhide-fringe-ind-customize' as "Other (customize)". + Delete "Empty lines only" item. + (menu-bar-showhide-fringe-ind-customize): New function. + (menu-bar-showhide-fringe-ind-mixed) + (menu-bar-showhide-fringe-ind-box) + (menu-bar-showhide-fringe-ind-right) + (menu-bar-showhide-fringe-ind-left) + (menu-bar-showhide-fringe-ind-none): Use `indicate-buffer-boundaries' + instead of `fringe-indicators'. + +2005-08-06 Michael Kifer <kifer@cs.stonybrook.edu> + + * viper.el (viper-emacs-state-mode-list): Add recentf-dialog-mode. + Change the date of last update. + +2005-08-06 Michael Kifer <kifer@cs.stonybrook.edu> + + * viper-cmd.el (viper-harness-minor-mode, viper-exec-delete) + (viper-exec-yank, viper-put-back): Don't display modification msg + if in the minibuffer. + + * viper-init.el (viper-replace-overlay-cursor-color) + (viper-insert-state-cursor-color, viper-vi-state-cursor-color): + Make variables frame local. + + * viper-util.el (viper-append-filter-alist): Use append instead of + nconc. + + * viper.el (viper-vi-state-mode-list) + (viper-emacs-state-mode-list): Move help-mode and + completion-list-mode from the first list to the second. + (viper-mode): Docstring. + (viper-go-away, viper-non-hook-settings): Don't localize + minor-mode-alist in newer Emacsen. Add advice to + set-cursor-color. Don't bind "\C-c\\". + +2005-08-06 Emilio C. Lopes <eclig@gmx.net> + + * cmuscheme.el (scheme-trace-command, scheme-untrace-command) + (scheme-macro-expand-command): New user options. + (scheme-trace-procedure, scheme-expand-current-form): New commands. + (scheme-form-at-point, scheme-start-file) + (scheme-interactively-start-process): New functions. + (scheme-get-process): New function, extracted from `scheme-proc'. + (run-scheme): Call `scheme-start-file' to get start file, and pass + it to `make-comint'. + (switch-to-scheme, scheme-proc): + Call `scheme-interactively-start-process' if no Scheme buffer/process + is available. + +2005-08-06 Juri Linkov <juri@jurta.org> + + * progmodes/compile.el (compilation-mode-font-lock-keywords): + Use `compilation-text-face', `compilation-info-text-face' and + `compilation-error-text-face' instead of `font-lock-keyword-face'. + (compilation-error): New face. + (compilation-error-file-name): Inherit from + `compilation-error' instead of `font-lock-warning-face'. + (compilation-warning-file-name): Inherit from + `compilation-warning' instead of `font-lock-warning-face'. + (compilation-info, compilation-error-file-name) + (compilation-warning-file-name, compilation-info-file-name) + (compilation-line-number, compilation-column-number): Doc fix. + (compilation-error-text-face, compilation-warning-text-face) + (compilation-info-text-face): New face variables. + (compilation-line-face, compilation-column-face) + (compilation-enter-directory-face) + (compilation-leave-directory-face): Doc fix. + (compilation-text-face): New function. + + * progmodes/grep.el (grep-regexp-alist): Set 5th arg `TYPE' to 0 + instead of 1 to display binary file names as info file links. + (grep-error-face): Use `compilation-error-face' instead of + `font-lock-keyword-face'. + (grep-mode-font-lock-keywords): Use `compilation-info-text-face' + and `compilation-warning-text-face' instead of + `font-lock-keyword-face'. Use `compilation-error-text-face' + instead of `grep-error-face'. + 2005-08-05 Kenichi Handa <handa@m17n.org> * international/code-pages.el: Add autoload cookies for all coding @@ -30,8 +897,7 @@ (thumbs-image-num): Make automatically buffer local. (thumbs-show-thumbs-list): Use `make-local-variable', not `make-variable-buffer-local'. - (thumbs-insert-image): Make `thumbs-current-image-size' - buffer-local. + (thumbs-insert-image): Make `thumbs-current-image-size' buffer-local. * play/doctor.el (doctor-type-symbol): "?\ " -> "?\s". (**mad**, *debug*, *print-space*, *print-upcase*, abuselst) @@ -73,12 +939,12 @@ 2005-08-01 Nick Roberts <nickrob@snap.net.nz> Update copyright notices of files in progmodes directory for - release of Emacs 22.1. + release of Emacs 22.1. * progmodes/gdb-ui.el (gdb-enable-debug-log): Add autoload cookie. - * progmodes/gud.el (gud-tooltip-mode): Add autoload cookie. Don't - barf if the GUD buffer has been killed. + * progmodes/gud.el (gud-tooltip-mode): Add autoload cookie. + Don't barf if the GUD buffer has been killed. 2005-08-01 Kim F. Storm <storm@cua.dk> @@ -86,6 +952,11 @@ 2005-07-29 Stefan Monnier <monnier@iro.umontreal.ca> + * simple.el (next-error-follow-minor-mode): + make-variable-buffer-local -> make-local-variable. + + * emacs-lisp/cl-extra.el: Require CL also when compiling. + * emacs-lisp/bytecomp.el (byte-compile-make-variable-buffer-local) (byte-compile-form-make-variable-buffer-local): New functions to warn about misuses of make-variable-buffer-local where make-local-variable @@ -659,9 +1530,9 @@ (isearch-fallback): Refill docstring. * international/isearch-x.el - (isearch-process-search-multibyte-characters): Remove unneeded `concat'. - Add intermediate values to `junk-hist' instead of `minibuffer-history'. - Test the length of `str'. + (isearch-process-search-multibyte-characters): Remove unneeded + `concat'. Add intermediate values to `junk-hist' instead of + `minibuffer-history'. Test the length of `str'. 2005-07-18 Juanma Barranquero <lekktu@gmail.com> @@ -1879,6 +2750,13 @@ * progmodes/compile.el (compilation-next-error-function): Don't switch buffers; operate on the current buffer. + * progmodes/compile.el (compilation-error-file-name) + (compilation-warning-file-name, compilation-info-file-name) + (compilation-line-number, compilation-column-number): New faces. + (compilation-error-face, compilation-warning-face) + (compilation-info-face, compilation-line-face) + (compilation-column-face): Use them. + * facemenu.el (facemenu-add-face): Warn when font-lock is active. * comint.el (comint-password-prompt-regexp): Accept ", try again". @@ -2234,9 +3112,10 @@ New backward-compatibility aliases for renamed faces. (eshell-run-test): Use renamed eshell-test faces. - * eshell/em-prompt.el (eshell-prompt): - Remove "-face" suffix from face name. - (eshell-prompt-face): New backward-compatibility alias for renamed face. + * eshell/em-prompt.el (eshell-prompt): Remove "-face" suffix from + face name. + (eshell-prompt-face): New backward-compatibility alias for renamed + face. (eshell-emit-prompt): Use renamed eshell-prompt face. * eshell/em-ls.el (eshell-ls-directory, eshell-ls-symlink) @@ -2503,20 +3382,22 @@ (ebrowse-draw-member-buffer-class-line, ebrowse-draw-member-long-fn) (ebrowse-draw-member-short-fn): Use renamed ebrowse faces. - * progmodes/antlr-mode.el (antlr-default, antlr-keyword, antlr-syntax) + * progmodes/antlr-mode.el (antlr-default, antlr-keyword, + antlr-syntax) (antlr-ruledef, antlr-tokendef, antlr-ruleref, antlr-tokenref) - (antlr-literal): Remove "-face" suffix and "font-lock-" from face names. + (antlr-literal): Remove "-face" suffix and "font-lock-" from face + names. (antlr-font-lock-default-face, antlr-font-lock-keyword-face) (antlr-font-lock-syntax-face, antlr-font-lock-ruledef-face) (antlr-font-lock-tokendef-face, antlr-font-lock-ruleref-face) - (antlr-font-lock-tokenref-face, antlr-font-lock-literal-face): - New backward-compatibility aliases for renamed faces. + (antlr-font-lock-tokenref-face, antlr-font-lock-literal-face): New + backward-compatibility aliases for renamed faces. (antlr-default-face, antlr-keyword-face, antlr-syntax-face) (antlr-ruledef-face, antlr-tokendef-face, antlr-ruleref-face) - (antlr-tokenref-face, antlr-literal-face): Variables renamed to remove - "font-lock-". Use renamed antlr-mode faces. - (antlr-font-lock-additional-keywords): Use renamed faces. - Replace literal face-names with face variable references. + (antlr-tokenref-face, antlr-literal-face): Variables renamed to + remove "font-lock-". Use renamed antlr-mode faces. + (antlr-font-lock-additional-keywords): Use renamed faces. Replace + literal face-names with face variable references. * buff-menu.el (Buffer-menu-buffer): Remove "-face" suffix from face name. @@ -2860,7 +3741,8 @@ (pc-selection-mode): * emulation/vip.el (vip-find-char-forward): * emulation/viper-cmd.el (viper-find-char-forward): - * international/mule-cmds.el (select-safe-coding-system-accept-default-p) + * international/mule-cmds.el + (select-safe-coding-system-accept-default-p) (input-method-exit-on-invalid-key): * international/mule-diag.el (describe-coding-system): * international/ucs-tables.el (unify-8859-on-encoding-mode): @@ -3034,11 +3916,12 @@ (smerge-mine-face, smerge-other-face, smerge-base-face) (smerge-markers-face): Use renamed smerge faces. - * log-view.el (log-view-file, log-view-message): - Remove "-face" suffix from face names. - (log-view-file-face, log-view-message-face): - New backward-compatibility aliases for renamed faces. - (log-view-file-face, log-view-message-face): Use renamed log-view faces. + * log-view.el (log-view-file, log-view-message): Remove "-face" + suffix from face names. + (log-view-file-face, log-view-message-face): New + backward-compatibility aliases for renamed faces. + (log-view-file-face, log-view-message-face): Use renamed log-view + faces. * paren.el (show-paren-match, show-paren-mismatch): Remove "-face" suffix from face names. @@ -3050,19 +3933,20 @@ (ruler-mode-margins, ruler-mode-fringes) (ruler-mode-column-number, ruler-mode-fill-column) (ruler-mode-comment-column, ruler-mode-goal-column) - (ruler-mode-tab-stop, ruler-mode-current-column): - Remove "-face" suffix from face names. + (ruler-mode-tab-stop, ruler-mode-current-column): Remove "-face" + suffix from face names. (ruler-mode-default-face, ruler-mode-pad-face) (ruler-mode-margins-face, ruler-mode-fringes-face) (ruler-mode-column-number-face, ruler-mode-fill-column-face) (ruler-mode-comment-column-face, ruler-mode-goal-column-face) - (ruler-mode-tab-stop-face, ruler-mode-current-column-face): - New backward-compatibility aliases for renamed faces. + (ruler-mode-tab-stop-face, ruler-mode-current-column-face): New + backward-compatibility aliases for renamed faces. (ruler-mode-pad, ruler-mode-margins, ruler-mode-fringes) (ruler-mode-column-number, ruler-mode-fill-column) (ruler-mode-comment-column, ruler-mode-goal-column) (ruler-mode-tab-stop, ruler-mode-current-column) - (ruler-mode-mouse-grab-any-column, ruler-mode-ruler): Use renamed faces. + (ruler-mode-mouse-grab-any-column, ruler-mode-ruler): Use renamed + faces. * whitespace.el (whitespace-highlight): Remove "-face" suffix from face name. @@ -3297,10 +4181,12 @@ XEmacs code. (flyspell-word): Minor simplification. (flyspell-math-tex-command-p): Quieten the byte-compiler. - (flyspell-external-point-words): Remove unused vars `size' and `start'. - (flyspell-do-correct): Rename from flyspell-xemacs-correct. - Merge the corresponding Emacs code. - (flyspell-correct-word, flyspell-xemacs-popup): Use flyspell-do-correct. + (flyspell-external-point-words): Remove unused vars `size' and + `start'. + (flyspell-do-correct): Rename from flyspell-xemacs-correct. Merge + the corresponding Emacs code. + (flyspell-correct-word, flyspell-xemacs-popup): Use + flyspell-do-correct. * emacs-lisp/debug.el (debug): Don't bury the buffer unless it's in a dedicated window. @@ -3969,7 +4855,8 @@ 2005-05-26 Mark A. Hershberger <mah@everybody.org> - * xml.el (xml-substitute-special): Don't die for undefined xml entities. + * xml.el (xml-substitute-special): Don't die for undefined xml + entities. 2005-05-26 Jay Belanger <belanger@truman.edu> @@ -4404,8 +5291,9 @@ * emacs-lisp/byte-run.el (eval-when-compile): Doc fix. - * emacs-lisp/bytecomp.el (byte-compile-file-form-custom-declare-variable): - Call byte-compile-nogroup-warn if appropriate. + * emacs-lisp/bytecomp.el + (byte-compile-file-form-custom-declare-variable): Call + byte-compile-nogroup-warn if appropriate. * progmodes/compile.el (compilation-finish-function): Mark obsolete. (compilation-set-window): Don't call left-fringe-p; do it directly. @@ -4492,8 +5380,8 @@ (reftex-access-search-path): Use `reftex-uniquify' instead of `reftex-uniq' - * textmodes/reftex-sel.el (reftex-select-unmark): - Overlay `before-string' property modification enables for Emacs as well. + * textmodes/reftex-sel.el (reftex-select-unmark): Overlay + `before-string' property modification enables for Emacs as well. (reftex-select-item): Use `reftex-delete-overlay'. (reftex-select-mark): Use `reftex-make-overlay' and `reftex-overlay-put'. @@ -4980,7 +5868,8 @@ 2005-05-11 Stefan Monnier <monnier@iro.umontreal.ca> - * files.el (executable-find): Move from executable.el. Use locate-file. + * files.el (executable-find): Move from executable.el. Use + locate-file. * progmodes/executable.el (executable-find): Move to files.el. * font-lock.el (font-lock-fontify-keywords-region): Use a marker @@ -5209,8 +6098,9 @@ * term/mac-win.el: Don't define or bind scroll bar functions if x-toolkit-scroll-bars is t. - (x-select-text, x-get-selection-value): - Clear x-last-selected-text-clipboard if x-select-enable-clipboard is nil. + (x-select-text, x-get-selection-value): Clear + x-last-selected-text-clipboard if x-select-enable-clipboard is + nil. (PRIMARY): Put mac-scrap-name property. (mac-select-convert-to-file-url): New function. (public.file-url): New selection target type. Add to @@ -7090,7 +7980,8 @@ minibuffer-with-setup-hook (which breaks turning on/off file-name-shadow-mode while in the prompt). - * complete.el (PC-read-include-file-name-internal): Use test-completion. + * complete.el (PC-read-include-file-name-internal): Use + test-completion. 2005-03-28 Luc Teirlinck <teirllm@auburn.edu> @@ -7275,7 +8166,8 @@ * midnight.el, vc-cvs.el: Replace `illegal' with `invalid'. * emacs-lisp/cl-macs.el: Replace `illegal' with `invalid'. * emulation/vip.el: Replace `illegal' with `invalid'. - * eshell/esh-io.el, eshell/esh-var.el: Replace `illegal' with `invalid'. + * eshell/esh-io.el, eshell/esh-var.el: Replace `illegal' with + `invalid'. * mail/supercite.el: Replace `illegal' with `invalid'. * progmodes/ebnf-abn.el, progmodes/ebnf-bnf.el * progmodes/ebnf-ebx.el, progmodes/ebnf-dtd.el, progmodes/ebnf-iso.el @@ -7497,7 +8389,8 @@ 2005-03-21 Lute Kamstra <lute@gnu.org> - * generic.el: Fix commentary section. Don't require cl for compilation. + * generic.el: Fix commentary section. Don't require cl for + compilation. (generic-mode-list): Add autoload cookie. (generic-use-find-file-hook, generic-lines-to-scan) (generic-find-file-regexp, generic-ignore-files-regexp) @@ -8136,10 +9029,11 @@ * simple.el (normal-erase-is-backspace): Define default value. - * custom.el (custom-theme-set-variables): Remove unused var `immediate'. - (custom-reevaluate-setting): Simple function to handle - variables that are defined before their default value can really - be computed. + * custom.el (custom-theme-set-variables): Remove unused var + `immediate'. + (custom-reevaluate-setting): Simple function to handle variables + that are defined before their default value can really be + computed. * startup.el (command-line): Use it for temporary-file-directory, small-emporary-file-directory, auto-save-file-name-transforms, @@ -10052,7 +10946,8 @@ * progmodes/fortran.el (fortran-mode): Use mode-require-final-newline. * progmodes/f90.el (f90-mode): Use mode-require-final-newline. * progmodes/cperl-mode.el (cperl-mode): Use mode-require-final-newline. - * progmodes/cfengine.el (cfengine-mode): Use mode-require-final-newline. + * progmodes/cfengine.el (cfengine-mode): Use + mode-require-final-newline. * progmodes/ada-mode.el (ada-mode): Use mode-require-final-newline. * textmodes/text-mode.el (text-mode): Use mode-require-final-newline. * textmodes/texinfo.el (texinfo-mode): Use mode-require-final-newline. @@ -10420,8 +11315,8 @@ 2004-12-19 Jay Belanger <belanger@truman.edu> - * calc/calc-aent.el (calcAlg-blank-matching-open): - Temporarily adjust the syntax of both delimiters of half-open intervals. + * calc/calc-aent.el (calcAlg-blank-matching-open): Temporarily + adjust the syntax of both delimiters of half-open intervals. 2004-12-19 Kim F. Storm <storm@cua.dk> @@ -10686,7 +11581,8 @@ Reported by Ville Skytt,Ad(B <scop@xemacs.org>. (vc-svn-annotate-current-time, vc-svn-annotate-time-of-rev) (vc-svn-annotate-time, vc-svn-annotate-extract-revision-at-line) - (vc-svn-annotate-command, vc-svn-annotate-re): Support for svn annotate. + (vc-svn-annotate-command, vc-svn-annotate-re): Support for svn + annotate. 2004-12-12 Juri Linkov <juri@jurta.org> @@ -10777,7 +11673,8 @@ 2004-12-11 Stefan Monnier <monnier@iro.umontreal.ca> * emacs-lisp/checkdoc.el (checkdoc-continue, checkdoc-comments) - (checkdoc-message-text, checkdoc-defun): Fix format messages for `error'. + (checkdoc-message-text, checkdoc-defun): Fix format messages for + `error'. * textmodes/tex-mode.el (latex-backward-sexp-1): Handle the special case of \end{verbatim}. @@ -11075,12 +11972,13 @@ * calc/calc-store.el, calc/calc-stuff.el, calc/calc-trail.el * calc/calc-undo.el, calc/calc-units.el, calc/calc-vec.el * calc/calc-yank.el, calc/calcalg2.el, calc/calcalg3.el - * calc/calccomp.el, calc/calcsel2.el: Replace dummy autoloaded functions - with provide statements. + * calc/calccomp.el, calc/calcsel2.el: Replace dummy autoloaded + functions with provide statements. * calc/calc-alg.el (math-defsimplify): Move from calc-ext.el. - * calc/calc-embed.el (calc-do-embedded-activate): Remove from autoloads. + * calc/calc-embed.el (calc-do-embedded-activate): Remove from + autoloads. * calc/calc-ext.el: Remove dummy autoloading functions from autoloads. (calc-load-everything, math-defsimplify): Replace dummy autoloading @@ -11145,11 +12043,12 @@ Replace calls to calc-extensions by appropriate require, replace calc-extensions-loaded by appropriate featurep. - * calc/calc-ext.el: Move require to end of file. - Remove redundant loading of calc.el. + * calc/calc-ext.el: Move require to end of file. Remove redundant + loading of calc.el. (calc-extensions-loaded): Remove unnecessary variable. (calc-extensions): Remove unnecessary function. - (calc-load-everything): Replace calc-need-macros by appropriate require. + (calc-load-everything): Replace calc-need-macros by appropriate + require. * calc/calc-macs.el: Move provide to end of file. (calc-need-macros): Remove unnecessary function. @@ -11253,7 +12152,8 @@ * calc/calc-aent.el (calc-eval-error): Declare and initialize the variable. - (calc-eval-error): Don't check if the variable calc-eval-error is bound. + (calc-eval-error): Don't check if the variable calc-eval-error is + bound. (calc-buffer, calc-digit-value, math-expr-data): Declare them. (math-alg-inequalities): Move declaration to earlier in the file. @@ -11329,7 +12229,8 @@ Replace variable pos by declared variable. * calc/calc-mtx.el (calc-det-lu): New variable. - (math-det-raw, math-det-step): Replace variable lu by declared variable. + (math-det-raw, math-det-step): Replace variable lu by declared + variable. * calc/calc-map.el (math-ms-temp, math-ms-args): New variables. (math-multi-subst, math-multi-subst-rec): Replace variables temp @@ -11361,7 +12262,8 @@ (calc-embedded-update, calc-embedded-find-vars): Replace variable vars-used by declared variable. - * calc/calc-bin.el (math-format-radix-float): Make pos a local variable. + * calc/calc-bin.el (math-format-radix-float): Make pos a local + variable. (math-format-radix-float): Remove unnecessary setq. (math-radix-float-cache): Declare it. @@ -13029,7 +13931,8 @@ * play/fortune.el (fortune-to-signature): Don't use interactive-p. (fortune-in-buffer): Doc fix. - * play/5x5.el (5x5-new-game): Set up the buffer even if not interactive. + * play/5x5.el (5x5-new-game): Set up the buffer even if not + interactive. * net/eudc.el (eudc-display-records): Use with-output-to-temp-buffer; don't select the temporary buffer. @@ -13602,7 +14505,8 @@ 2004-10-17 Kim F. Storm <storm@cua.dk> - * language/indian.el (indian-script-language-alist): Swap value and doc. + * language/indian.el (indian-script-language-alist): Swap value + and doc. (indian-font-char-index-table): Doc fix. 2004-10-16 Stefan Monnier <monnier@iro.umontreal.ca> @@ -15266,7 +16170,8 @@ 2004-08-08 Lars Hansen <larsh@math.ku.dk> - * wid-edit.el (widget-sexp-validate): Allow whitespace after expression. + * wid-edit.el (widget-sexp-validate): Allow whitespace after + expression. 2004-08-08 Luc Teirlinck <teirllm@auburn.edu> @@ -16122,9 +17027,10 @@ 2004-06-11 Luc Teirlinck <teirllm@auburn.edu> * dired.el (dired-revert): If buffer is marked unmodified before - reverting, keep it marked unmodified. - Adapt to new conventions for commenting out code. - (dired-make-relative): Adapt to new conventions for commenting out code. + reverting, keep it marked unmodified. Adapt to new conventions + for commenting out code. + (dired-make-relative): Adapt to new conventions for commenting out + code. 2004-06-10 Miles Bader <miles@gnu.ai.mit.edu> @@ -16219,8 +17125,8 @@ 2004-06-08 Daniel Pfeiffer <occitan@esperanto.org> - * progmodes/compile.el (compilation-set-window-height): - Rearrange the save-* functions because a buffer can have several current + * progmodes/compile.el (compilation-set-window-height): Rearrange + the save-* functions because a buffer can have several current point in different windows. (compilation-error-regexp-alist-alist): Recognize {standard input} GNU messages (for gcc --pipe) and more kinds of Oracle messages. @@ -16682,7 +17588,8 @@ 2004-05-28 Stefan Monnier <monnier@iro.umontreal.ca> - * subr.el (with-selected-window): Only save/restore the selected window. + * subr.el (with-selected-window): Only save/restore the selected + window. * progmodes/compile.el (compilation-error-regexp-alist): Use expand-file-name and data-directory. @@ -17026,7 +17933,8 @@ * eshell/esh-io.el (eshell-get-target): Whitespace changes. (eshell-output-object-to-target): Improve output speed 20% by not - calling `eshell-stringify' if something is already known to be a string. + calling `eshell-stringify' if something is already known to be a + string. 2004-05-15 Alex Ott <ott@jet.msk.su> @@ -18380,10 +19288,11 @@ 2004-04-20 Stefan Monnier <monnier@iro.umontreal.ca> - * progmodes/compile.el (compilation-error-properties): - Split into two. + * progmodes/compile.el (compilation-error-properties): Split into + two. (compilation-internal-error-properties): New one. - (compilation-compat-error-properties): Use it. Fix the non-marker case. + (compilation-compat-error-properties): Use it. Fix the non-marker + case. 2004-04-20 Richard M. Stallman <rms@gnu.org> @@ -18540,7 +19449,8 @@ 2004-04-16 Dave Love <fx@gnu.org> - * progmodes/python.el (python-compilation-line-number): Fix braindamage. + * progmodes/python.el (python-compilation-line-number): Fix + braindamage. (python-load-file): Fix python-orig-start setting. * progmodes/compile.el: Doc fixes. @@ -18574,10 +19484,10 @@ 2004-04-16 Masatake YAMATO <jet@gyve.org> - * simple.el (completion-setup-function): Set an initial value - to `element-common-end' before entering loop. Set a value - to `element-common-end' at the end of loop. - The bug is reported by Juri Linkov <juri@jurta.org> in emacs-devel list. + * simple.el (completion-setup-function): Set an initial value to + `element-common-end' before entering loop. Set a value to + `element-common-end' at the end of loop. The bug is reported by + Juri Linkov <juri@jurta.org> in emacs-devel list. (completions-common-part): Rename from completion-de-emphasis. (completions-first-difference): Rename from completion-emphasis. Suggested by RMS. @@ -18644,7 +19554,8 @@ parsing of both attribute and element names. (xml-ns-parse-ns-attrs, xml-ns-expand-el, xml-ns-expand-attr) (xml-intern-attrlist): Remove in favor of xml-maybe-do-ns. - (xml-parse-tag): Update assumed namespaces. Clean up namespace parsing. + (xml-parse-tag): Update assumed namespaces. Clean up namespace + parsing. (xml-parse-attlist): Make it do its own namespace parsing. 2004-04-14 Dave Love <fx@gnu.org> @@ -18688,11 +19599,12 @@ 2004-04-14 Kim F. Storm <storm@cua.dk> * startup.el (emacs-quick-startup): New defvar (set by -Q). - (command-line): New option -Q. Like -q --no-site-file, but - in addition it also disables menu-bar, tool-bar, scroll-bars, + (command-line): New option -Q. Like -q --no-site-file, but in + addition it also disables menu-bar, tool-bar, scroll-bars, tool-tips, and the blinking cursor. (command-line-1): Skip startup screen if -Q. - (fancy-splash-head): Use ":align-to center" prop to center splash image. + (fancy-splash-head): Use ":align-to center" prop to center splash + image. * emulation/cua-base.el (cua-read-only-cursor-color) (cua-overwrite-cursor-color, cua-global-mark-cursor-color): Doc fix. @@ -19487,7 +20399,8 @@ 2004-03-22 Luc Teirlinck <teirllm@auburn.edu> - * autorevert.el (global-auto-revert-non-file-buffers): Expand docstring. + * autorevert.el (global-auto-revert-non-file-buffers): Expand + docstring. (buffer-stale-function): New variable. (auto-revert-list-diff, auto-revert-dired-file-list) (auto-revert-dired-changed-p, auto-revert-buffer-p): Delete. @@ -20708,7 +21621,8 @@ * net/webjump.el (webjump-builtin): Add missing format string argument. - * midnight.el (midnight-delay-set): Remove extra format string argument. + * midnight.el (midnight-delay-set): Remove extra format string + argument. * mail/rmail.el (rmail-get-new-mail): Remove useless use of format. @@ -21769,7 +22683,8 @@ * subr.el (noreturn, 1value): New macros for test coverage. See `testcover.el'. - * emacs-lisp/edebug.el: Add def-edebug-spec for `noreturn' and `1value'. + * emacs-lisp/edebug.el: Add def-edebug-spec for `noreturn' and + `1value'. * emacs-lisp/testcover.el (testcover-reinstrument): Special case for macro `1value'. diff --git a/lisp/Makefile.in b/lisp/Makefile.in index a6a0ddb9f3a..99ef0f21d8a 100644 --- a/lisp/Makefile.in +++ b/lisp/Makefile.in @@ -1,5 +1,5 @@ # Maintenance productions for the Lisp directory -# Copyright (C) 2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc. +# Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. # This file is part of GNU Emacs. @@ -220,10 +220,13 @@ $(lisp)/progmodes/cc-mode.elc: \ # Build loaddefs.el to make sure it's up-to-date. If it's not, that # might lead to errors during the bootstrap because something fails to # autoload as expected. If there is no emacs binary, then we can't -# build autoloads yet. In that case we have to use ldefs-boot.el; -# bootstrap should always work with ldefs-boot.el. (Because -# loaddefs.el is an automatically generated file, we don't want to -# store it in the source repository). +# build autoloads yet. In that case we have to use ldefs-boot.el. +# Bootstrap should always work with ldefs-boot.el. Therefore, +# whenever a new autoload cookie gets added that is necessary during +# bootstrapping, ldefs-boot.el should be updated by overwriting it with +# an up-to-date copy of loaddefs.el that is uncorrupted by +# local changes. (Because loaddefs.el is an automatically generated +# file, we don't want to store it in the source repository). bootstrap-prepare: if test -x $(EMACS); then \ diff --git a/lisp/abbrev.el b/lisp/abbrev.el index cb8f9b69aca..774bb1892b7 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -1,6 +1,7 @@ ;;; abbrev.el --- abbrev mode commands for Emacs -;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1992, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: abbrev convenience diff --git a/lisp/abbrevlist.el b/lisp/abbrevlist.el index a193a92df0f..3be9c257af2 100644 --- a/lisp/abbrevlist.el +++ b/lisp/abbrevlist.el @@ -1,6 +1,7 @@ ;;; abbrevlist.el --- list one abbrev table alphabetically ordered -;; Copyright (C) 1986, 1992 Free Software Foundation, Inc. +;; Copyright (C) 1986, 1992, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Suggested by a previous version by Gildea. ;; Maintainer: FSF diff --git a/lisp/add-log.el b/lisp/add-log.el index 27da19ee602..8ea934084f6 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -1,7 +1,7 @@ ;;; add-log.el --- change log maintenance commands for Emacs -;; Copyright (C) 1985, 1986, 1988, 1993, 1994, 1997, 1998, 2000, 2003, -;; 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1988, 1993, 1994, 1997, 1998, 2000, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: tools diff --git a/lisp/align.el b/lisp/align.el index 5c1e8e7b89a..2cbc43e38d3 100644 --- a/lisp/align.el +++ b/lisp/align.el @@ -1,6 +1,7 @@ ;;; align.el --- align text to a specific column, by regexp -;; Copyright (C) 1999, 2000, 2002 Free Sofware Foundation +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: John Wiegley <johnw@gnu.org> ;; Keywords: convenience languages lisp @@ -383,9 +384,6 @@ The possible settings for `align-region-separate' are: regexp function))))))) "The `type' form for any `align-rules-list' variable.") -(unless (functionp 'c-guess-basic-syntax) - (autoload 'c-guess-basic-syntax "cc-engine")) - (defcustom align-rules-list `((lisp-second-arg (regexp . "\\(^\\s-+[^( \t\n]\\|(\\(\\S-+\\)\\s-+\\)\\S-+\\(\\s-+\\)") diff --git a/lisp/allout.el b/lisp/allout.el index 6f5d06cf79e..a64ba4b8f9f 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -1,6 +1,7 @@ ;;; allout.el --- extensive outline mode for use alone and with other modes -;; Copyright (C) 1992, 93, 94, 2001, 02, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Ken Manheimer <klm@zope.com> ;; Maintainer: Ken Manheimer <klm@zope.com> diff --git a/lisp/ansi-color.el b/lisp/ansi-color.el index 31aaef2fcdc..c329bab5788 100644 --- a/lisp/ansi-color.el +++ b/lisp/ansi-color.el @@ -1,6 +1,7 @@ ;;; ansi-color.el --- translate ANSI escape sequences into faces -;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Alex Schroeder <alex@gnu.org> ;; Maintainer: Alex Schroeder <alex@gnu.org> @@ -485,7 +486,7 @@ For XEmacs, we create a temporary face and return it." OBJECT defaults to the current buffer. XEmacs uses `make-extent', Emacs uses `make-overlay'. XEmacs can use a buffer or a string for OBJECT, Emacs requires OBJECT to be a buffer." - (if (functionp 'make-extent) + (if (fboundp 'make-extent) (make-extent from to object) ;; In Emacs, the overlay might end at the process-mark in comint ;; buffers. In that case, new text will be inserted before the @@ -510,7 +511,7 @@ property." (defun ansi-color-set-extent-face (extent face) "Set the `face' property of EXTENT to FACE. XEmacs uses `set-extent-face', Emacs uses `overlay-put'." - (if (functionp 'set-extent-face) + (if (fboundp 'set-extent-face) (set-extent-face extent face) (overlay-put extent 'face face))) diff --git a/lisp/apropos.el b/lisp/apropos.el index 37cb85494ab..fcad5cac0dc 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -1,6 +1,7 @@ ;;; apropos.el --- apropos commands for users and programmers -;; Copyright (C) 1989,94,1995,2001,02,03,04,2005 Free Software Foundation, Inc. +;; Copyright (C) 1989, 1994, 1995, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Joe Wells <jbw@bigbird.bu.edu> ;; Rewritten: Daniel Pfeiffer <occitan@esperanto.org> diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index a99ad64e715..9a4bfa9c5f6 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -1,6 +1,7 @@ ;;; arc-mode.el --- simple editing of archives -;; Copyright (C) 1995, 1997, 1998, 2003, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1997, 1998, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Morten Welinder <terra@gnu.org> ;; Keywords: archives msdog editing major-mode diff --git a/lisp/array.el b/lisp/array.el index 819840c8a1a..4d8b718965f 100644 --- a/lisp/array.el +++ b/lisp/array.el @@ -1,6 +1,7 @@ ;;; array.el --- array editing commands for GNU Emacs -;; Copyright (C) 1987, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1987, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author David M. Brown ;; Maintainer: FSF diff --git a/lisp/autoarg.el b/lisp/autoarg.el index ae1d26ecd20..aca22ace5b5 100644 --- a/lisp/autoarg.el +++ b/lisp/autoarg.el @@ -1,6 +1,7 @@ ;;; autoarg.el --- make digit keys supply prefix args -;; Copyright (C) 1998, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1998, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Dave Love <fx@gnu.org> ;; Created: 1998-09-04 diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el index 71fa14014a9..465817d5b81 100644 --- a/lisp/autoinsert.el +++ b/lisp/autoinsert.el @@ -1,7 +1,7 @@ ;;; autoinsert.el --- automatic mode-dependent insertion of text into new files -;; Copyright (C) 1985, 1986, 1987, 1994, 1995, 1998, 2000, 2003, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1994, 1995, 1998, 2000, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Charlie Martin <crm@cs.duke.edu> ;; Adapted-By: Daniel Pfeiffer <occitan@esperanto.org> diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 23156ceda47..9892dca2d41 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el @@ -1,6 +1,7 @@ ;;; autorevert.el --- revert buffers when files on disk change -;; Copyright (C) 1997, 1998, 1999, 2001, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1998, 1999, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Anders Lindgren <andersl@andersl.com> ;; Keywords: convenience @@ -339,7 +340,7 @@ Use `auto-revert-mode' for changes other than appends!" ;; else we might reappend our own end when we save (add-hook 'before-save-hook (lambda () (auto-revert-tail-mode 0)) nil t) (or (local-variable-p 'auto-revert-tail-pos) ; don't lose prior position - (set (make-variable-buffer-local 'auto-revert-tail-pos) + (set (make-local-variable 'auto-revert-tail-pos) (save-restriction (widen) (1- (point-max))))) ;; let auto-revert-mode set up the mechanism for us if it isn't already (or auto-revert-mode diff --git a/lisp/avoid.el b/lisp/avoid.el index 032c7260cec..e99d09d6753 100644 --- a/lisp/avoid.el +++ b/lisp/avoid.el @@ -1,6 +1,7 @@ ;;; avoid.el --- make mouse pointer stay out of the way of editing -;; Copyright (C) 1993, 1994, 2000, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Boris Goldowsky <boris@gnu.org> ;; Keywords: mouse diff --git a/lisp/battery.el b/lisp/battery.el index 2ae6607f8ef..649cbe4c2c3 100644 --- a/lisp/battery.el +++ b/lisp/battery.el @@ -1,7 +1,7 @@ ;;; battery.el --- display battery status information -;; Copyright (C) 1997, 1998, 2000, 2001, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Ralph Schleicher <rs@nunatak.allgaeu.org> ;; Keywords: hardware @@ -49,10 +49,11 @@ (file-directory-p "/proc/acpi/battery")) 'battery-linux-proc-acpi) ((and (eq system-type 'darwin) - (ignore-errors - (with-temp-buffer - (and (eq (call-process "pmset" nil t nil "-g" "ps") 0) - (> (buffer-size) 0))))) + (condition-case nil + (with-temp-buffer + (and (eq (call-process "pmset" nil t nil "-g" "ps") 0) + (> (buffer-size) 0))) + (error nil))) 'battery-pmset)) "*Function for getting battery status information. The function has to return an alist of conversion definitions. diff --git a/lisp/bindings.el b/lisp/bindings.el index 1496769a8e0..fd5ef4de3d9 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -1,7 +1,7 @@ ;;; bindings.el --- define standard key bindings and some variables -;; Copyright (C) 1985, 1986, 1987, 1992, 1993, 1994, 1995, 1996, 1999, 2000, -;; 2001, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1992, 1993, 1994, 1995, 1996, 1999, +;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 1f0d671afb4..23e1ce11277 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -1,6 +1,7 @@ ;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later -;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 2001, 2003 Free Software Foundation +;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Karl Fogel <kfogel@red-bean.com> ;; Maintainer: Karl Fogel <kfogel@red-bean.com> @@ -992,6 +993,8 @@ In Info, return the current node." (insert string))) +(defvar Info-current-file) + (defun bookmark-buffer-file-name () "Return the current buffer's file in a way useful for bookmarks. For example, if this is a Info buffer, return the Info file's name." @@ -1034,6 +1037,10 @@ For example, if this is a Info buffer, return the Info file's name." (lambda (x y) (string-lessp (car x) (car y)))))))) +(defvar bookmark-after-jump-hook nil + "Hook run after `bookmark-jump' jumps to a bookmark. +Useful for example to unhide text in `outline-mode'.") + ;;;###autoload (defun bookmark-jump (bookmark) "Jump to bookmark BOOKMARK (a point in some file). @@ -1056,6 +1063,7 @@ of the old one in the permanent bookmark record." (and cell (switch-to-buffer (car cell)) (goto-char (cdr cell)) + (progn (run-hooks 'bookmark-after-jump-hook) t) (if bookmark-automatically-show-annotations ;; if there is an annotation for this bookmark, ;; show it in a buffer. @@ -1101,7 +1109,8 @@ be retrieved from a VC backend, else return nil." ;; Info nodes must be visited with care. (progn (require 'info) - (Info-find-node file info-node)) + (with-no-warnings + (Info-find-node file info-node))) ;; Else no Info. Can do an ordinary find-file: (set-buffer (find-file-noselect file)) (goto-char place)) diff --git a/lisp/bs.el b/lisp/bs.el index f8a07337dc1..6f5281fc1e2 100644 --- a/lisp/bs.el +++ b/lisp/bs.el @@ -1,6 +1,7 @@ ;;; bs.el --- menu for selecting and displaying buffers -;; Copyright (C) 1998, 1999, 2000, 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Olaf Sylvester <Olaf.Sylvester@netsurf.de> ;; Maintainer: Olaf Sylvester <Olaf.Sylvester@netsurf.de> ;; Keywords: convenience diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 59188b6ae92..9418eebe98f 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -1,7 +1,7 @@ ;;; buff-menu.el --- buffer menu main function and support functions -*- coding:utf-8 -*- ;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 2000, 2001, 2002, 2003, -;; 2004, 2005 Free Software Foundation, Inc. +;; 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: convenience @@ -79,8 +79,6 @@ "Face used to highlight buffer name." :group 'Buffer-menu :group 'font-lock-highlighting-faces) -;; backward-compatibility alias -(put 'Buffer-menu-buffer-face 'face-alias 'Buffer-menu-buffer) (defcustom Buffer-menu-buffer+size-width 26 "*How wide to jointly make the buffer name and size columns." diff --git a/lisp/button.el b/lisp/button.el index 1b0c009e925..d58e53c2895 100644 --- a/lisp/button.el +++ b/lisp/button.el @@ -1,6 +1,6 @@ ;;; button.el --- clickable buttons ;; -;; Copyright (C) 2001, 2005 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; ;; Author: Miles Bader <miles@gnu.org> ;; Keywords: extensions diff --git a/lisp/calculator.el b/lisp/calculator.el index 4210fad2ec9..b9ba03f657f 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -1,6 +1,7 @@ ;;; calculator.el --- a [not so] simple calculator for Emacs -;; Copyright (C) 1998, 2000, 2001 by Free Software Foundation, Inc. +;; Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Eli Barzilay <eli@barzilay.org> ;; Keywords: tools, convenience diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index ada15878f13..3e075b9d6bd 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -2205,9 +2205,11 @@ movement commands will not work correctly." calendar-mode-map global-map) (setq l (cdr l)))) (define-key calendar-mode-map "-" 'negative-argument) + (define-key calendar-mode-map ">" 'scroll-calendar-right) (define-key calendar-mode-map "\C-x>" 'scroll-calendar-right) (define-key calendar-mode-map [prior] 'scroll-calendar-right-three-months) (define-key calendar-mode-map "\ev" 'scroll-calendar-right-three-months) + (define-key calendar-mode-map "<" 'scroll-calendar-left) (define-key calendar-mode-map "\C-x<" 'scroll-calendar-left) (define-key calendar-mode-map [next] 'scroll-calendar-left-three-months) (define-key calendar-mode-map "\C-v" 'scroll-calendar-left-three-months) diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 8b14061a95b..1501131c2ae 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -1650,6 +1650,12 @@ marked on the calendar." (or (diary-remind sexp (car days) marking) (diary-remind sexp (cdr days) marking)))))) +(defvar diary-modify-entry-list-string-function nil + "Function applied to entry string before putting it into the entries list. +Can be used by programs integrating a diary list into other buffers (e.g. +org.el and planner.el) to modify the string or add properties to it. +The function takes a string argument and must return a string.") + (defun add-to-diary-list (date string specifier &optional marker globcolor) "Add the entry (DATE STRING SPECIFIER MARKER GLOBCOLOR) to `diary-entries-list'. Do nothing if DATE or STRING is nil." @@ -1659,6 +1665,9 @@ Do nothing if DATE or STRING is nil." (buffer-file-name)))) (or (string= prefix "") (setq string (format "[%s] %s" prefix string))))) + (and diary-modify-entry-list-string-function + (setq string (funcall diary-modify-entry-list-string-function + string))) (setq diary-entries-list (append diary-entries-list (list (list date string specifier marker globcolor)))))) diff --git a/lisp/case-table.el b/lisp/case-table.el index 0bfc3afb980..d1b8de5fb6a 100644 --- a/lisp/case-table.el +++ b/lisp/case-table.el @@ -1,6 +1,7 @@ ;;; case-table.el --- code to extend the character set and support case tables -;; Copyright (C) 1988, 1994, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1988, 1994, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Howard Gayle ;; Maintainer: FSF diff --git a/lisp/cdl.el b/lisp/cdl.el index 68111eda53e..abd339de9b8 100644 --- a/lisp/cdl.el +++ b/lisp/cdl.el @@ -1,6 +1,6 @@ ;;; cdl.el --- Common Data Language (CDL) utility functions for GNU Emacs -;; Copyright (C) 1993 Free Software Foundation, Inc. +;; Copyright (C) 1993, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: ATAE@spva.physics.imperial.ac.uk (Ata Etemadi) ;; Maintainer: FSF diff --git a/lisp/chistory.el b/lisp/chistory.el index 1704e7a4a1e..c05fd849db4 100644 --- a/lisp/chistory.el +++ b/lisp/chistory.el @@ -1,6 +1,6 @@ ;;; chistory.el --- list command history -;; Copyright (C) 1985 Free Software Foundation, Inc. +;; Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: K. Shane Hartman ;; Maintainer: FSF diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index 102347f345a..82d39fd2c00 100644 --- a/lisp/cmuscheme.el +++ b/lisp/cmuscheme.el @@ -1,6 +1,7 @@ ;;; cmuscheme.el --- Scheme process in a buffer. Adapted from tea.el -;; Copyright (C) 1988, 1994, 1997, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1988, 1994, 1997, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Olin Shivers <olin.shivers@cs.cmu.edu> ;; Maintainer: FSF @@ -25,7 +26,7 @@ ;;; Commentary: -;; This is a customisation of comint-mode (see comint.el) +;; This is a customization of comint-mode (see comint.el) ;; ;; Written by Olin Shivers (olin.shivers@cs.cmu.edu). With bits and pieces ;; lifted from scheme.el, shell.el, clisp.el, newclisp.el, cobol.el, et al.. @@ -105,7 +106,7 @@ ;;;============================================================================ (defcustom inferior-scheme-mode-hook nil - "*Hook for customising inferior-scheme mode." + "*Hook for customizing inferior-scheme mode." :type 'hook :group 'cmuscheme) @@ -127,6 +128,8 @@ (define-key scheme-mode-map "\C-c\M-r" 'scheme-send-region-and-go) (define-key scheme-mode-map "\C-c\M-c" 'scheme-compile-definition) (define-key scheme-mode-map "\C-c\C-c" 'scheme-compile-definition-and-go) +(define-key scheme-mode-map "\C-c\C-t" 'scheme-trace-procedure) +(define-key scheme-mode-map "\C-c\C-x" 'scheme-expand-current-form) (define-key scheme-mode-map "\C-c\C-z" 'switch-to-scheme) (define-key scheme-mode-map "\C-c\C-l" 'scheme-load-file) (define-key scheme-mode-map "\C-c\C-k" 'scheme-compile-file) ;k for "kompile" @@ -143,6 +146,10 @@ '("Compile Definition & Go" . scheme-compile-definition-and-go)) (define-key map [com-def] '("Compile Definition" . scheme-compile-definition)) + (define-key map [exp-form] + '("Expand current form" . scheme-expand-current-form)) + (define-key map [trace-proc] + '("Trace procedure" . scheme-trace-procedure)) (define-key map [send-def-go] '("Evaluate Last Definition & Go" . scheme-send-definition-and-go)) (define-key map [send-def] @@ -153,7 +160,7 @@ '("Evaluate Region" . scheme-send-region)) (define-key map [send-sexp] '("Evaluate Last S-expression" . scheme-send-last-sexp)) -) + ) (defvar scheme-buffer) @@ -165,7 +172,7 @@ The following commands are available: A Scheme process can be fired up with M-x run-scheme. -Customisation: Entry to this mode runs the hooks on comint-mode-hook and +Customization: Entry to this mode runs the hooks on comint-mode-hook and inferior-scheme-mode-hook (in that order). You can send text to the inferior Scheme process from other buffers containing @@ -194,7 +201,7 @@ C-M-q does Tab on each line starting within following expression. Paragraphs are separated only by blank lines. Semicolons start comments. If you accidentally suspend your process, use \\[comint-continue-subjob] to continue it." - ;; Customise in inferior-scheme-mode-hook + ;; Customize in inferior-scheme-mode-hook (setq comint-prompt-regexp "^[^>\n]*>+ *") ; OK for cscheme, oaklisp, T,... (scheme-mode-variables) (setq mode-line-process '(":%s")) @@ -233,11 +240,15 @@ Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters." ;;;###autoload (defun run-scheme (cmd) - "Run an inferior Scheme process, input and output via buffer *scheme*. + "Run an inferior Scheme process, input and output via buffer `*scheme*'. If there is a process already running in `*scheme*', switch to that buffer. With argument, allows you to edit the command line (default is value -of `scheme-program-name'). Runs the hooks `inferior-scheme-mode-hook' -\(after the `comint-mode-hook' is run). +of `scheme-program-name'). +If a file `~/.emacs_SCHEMENAME' exists, it is given as initial input. +Note that this may lose due to a timing error if the Scheme processor +discards input when it starts up. +Runs the hook `inferior-scheme-mode-hook' \(after the `comint-mode-hook' +is run). \(Type \\[describe-mode] in the process buffer for a list of commands.)" (interactive (list (if current-prefix-arg @@ -246,13 +257,24 @@ of `scheme-program-name'). Runs the hooks `inferior-scheme-mode-hook' (if (not (comint-check-proc "*scheme*")) (let ((cmdlist (scheme-args-to-list cmd))) (set-buffer (apply 'make-comint "scheme" (car cmdlist) - nil (cdr cmdlist))) + (scheme-start-file (car cmdlist)) (cdr cmdlist))) (inferior-scheme-mode))) (setq scheme-program-name cmd) (setq scheme-buffer "*scheme*") (pop-to-buffer "*scheme*")) ;;;###autoload (add-hook 'same-window-buffer-names "*scheme*") +(defun scheme-start-file (prog) + "Return the name of the start file corresponding to PROG. +Search in the directories \"~\" and \"~/.emacs.d\", in this +order. Return nil if no start file found." + (let* ((name (concat ".emacs_" (file-name-nondirectory prog))) + (start-file (concat "~/" name))) + (if (file-exists-p start-file) + start-file + (let ((start-file (concat "~/.emacs.d/" name))) + (and (file-exists-p start-file) start-file))))) + (defun scheme-send-region (start end) "Send the current region to the inferior Scheme process." (interactive "r") @@ -296,16 +318,80 @@ of `scheme-program-name'). Runs the hooks `inferior-scheme-mode-hook' (beginning-of-defun) (scheme-compile-region (point) end)))) +(defcustom scheme-trace-command "(trace %s)" + "*Template for issuing commands to trace a Scheme procedure. +Some Scheme implementations might require more elaborate commands here. +For PLT-Scheme, e.g., one should use + + (setq scheme-trace-command \"(begin (require (lib \\\"trace.ss\\\")) (trace %s))\") + +For Scheme 48 and Scsh use \",trace %s\"." + :type 'string + :group 'cmuscheme) + +(defcustom scheme-untrace-command "(untrace %s)" + "*Template for switching off tracing of a Scheme procedure. +Scheme 48 and Scsh users should set this variable to \",untrace %s\"." + + :type 'string + :group 'cmuscheme) + +(defun scheme-trace-procedure (proc &optional untrace) + "Trace procedure PROC in the inferior Scheme process. +With a prefix argument switch off tracing of procedure PROC." + (interactive + (list (let ((current (symbol-at-point)) + (action (if current-prefix-arg "Untrace" "Trace"))) + (if current + (read-string (format "%s procedure [%s]: " action current) nil nil (symbol-name current)) + (read-string (format "%s procedure: " action)))) + current-prefix-arg)) + (when (= (length proc) 0) + (error "Invalid procedure name")) + (comint-send-string (scheme-proc) + (format + (if untrace scheme-untrace-command scheme-trace-command) + proc)) + (comint-send-string (scheme-proc) "\n")) + +(defcustom scheme-macro-expand-command "(expand %s)" + "*Template for macro-expanding a Scheme form. +For Scheme 48 and Scsh use \",expand %s\"." + :type 'string + :group 'cmuscheme) + +(defun scheme-expand-current-form () + "Macro-expand the form at point in the inferior Scheme process." + (interactive) + (let ((current-form (scheme-form-at-point))) + (if current-form + (progn + (comint-send-string (scheme-proc) + (format + scheme-macro-expand-command + current-form)) + (comint-send-string (scheme-proc) "\n")) + (error "Not at a form")))) + +(defun scheme-form-at-point () + (let ((next-sexp (thing-at-point 'sexp))) + (if (and next-sexp (string-equal (substring next-sexp 0 1) "(")) + next-sexp + (save-excursion + (backward-up-list) + (scheme-form-at-point))))) + (defun switch-to-scheme (eob-p) "Switch to the scheme process buffer. With argument, position cursor at end of buffer." (interactive "P") - (if (get-buffer scheme-buffer) + (if (or (and scheme-buffer (get-buffer scheme-buffer)) + (scheme-interactively-start-process)) (pop-to-buffer scheme-buffer) - (error "No current process buffer. See variable `scheme-buffer'")) - (cond (eob-p - (push-mark) - (goto-char (point-max))))) + (error "No current process buffer. See variable `scheme-buffer'")) + (when eob-p + (push-mark) + (goto-char (point-max)))) (defun scheme-send-region-and-go (start end) "Send the current region to the inferior Scheme process. @@ -346,8 +432,8 @@ Used by these commands to determine defaults." (defvar scheme-prev-l/c-dir/file nil "Caches the last (directory . file) pair. Caches the last pair used in the last `scheme-load-file' or -`scheme-compile-file' command. Used for determining the default in the -next one.") +`scheme-compile-file' command. Used for determining the default +in the next one.") (defun scheme-load-file (file-name) "Load a Scheme file FILE-NAME into the inferior Scheme process." @@ -417,15 +503,29 @@ for running inferior Lisp and Scheme processes. The approach taken here is for a minimal, simple implementation. Feel free to extend it.") (defun scheme-proc () - "Return the current scheme process. See variable `scheme-buffer'." - (let ((proc (get-buffer-process (if (eq major-mode 'inferior-scheme-mode) - (current-buffer) - scheme-buffer)))) - (or proc - (error "No current process. See variable `scheme-buffer'")))) - - -;;; Do the user's customisation... + "Return the current Scheme process, starting one if necessary. +See variable `scheme-buffer'." + (unless (and scheme-buffer + (get-buffer scheme-buffer) + (comint-check-proc scheme-buffer)) + (scheme-interactively-start-process)) + (or (scheme-get-process) + (error "No current process. See variable `scheme-buffer'"))) + +(defun scheme-get-process () + "Return the current Scheme process or nil if none is running." + (get-buffer-process (if (eq major-mode 'inferior-scheme-mode) + (current-buffer) + scheme-buffer))) + +(defun scheme-interactively-start-process (&optional cmd) + "Start an inferior Scheme process. Return the process started. +Since this command is run implicitly, always ask the user for the +command to run." + (save-window-excursion + (run-scheme (read-string "Run Scheme: " scheme-program-name)))) + +;;; Do the user's customization... (defcustom cmuscheme-load-hook nil "This hook is run when cmuscheme is loaded in. diff --git a/lisp/comint.el b/lisp/comint.el index ab0d41d6735..0977663808a 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1,7 +1,7 @@ ;;; comint.el --- general command interpreter in a window stuff ;; Copyright (C) 1988, 1990, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. +;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Olin Shivers <shivers@cs.cmu.edu> ;; Simon Marshall <simon@gnu.org> @@ -1935,15 +1935,21 @@ The string is sent using `comint-input-sender'. Security bug: your string can still be temporarily recovered with \\[view-lossage]; `clear-this-command-keys' can fix that." (interactive "P") ; Defeat snooping via C-x ESC ESC - (let ((proc (get-buffer-process (current-buffer)))) + (let ((proc (get-buffer-process (current-buffer))) + (prefix + (if (eq (window-buffer (selected-window)) (current-buffer)) + "" + (format "(In buffer %s) " + (current-buffer))))) (if proc - (let ((str (read-passwd (or prompt "Non-echoed text: ")))) + (let ((str (read-passwd (concat prefix + (or prompt "Non-echoed text: "))))) (if (stringp str) (progn (comint-snapshot-last-prompt) (funcall comint-input-sender proc str)) (message "Warning: text will be echoed"))) - (error "Current buffer has no process")))) + (error "Buffer %s has no process" (current-buffer))))) (defun comint-watch-for-password-prompt (string) "Prompt in the minibuffer for password and send without echoing. @@ -2585,6 +2591,7 @@ Note that this applies to `comint-dynamic-complete-filename' only." :type '(repeat (string :tag "Suffix")) :group 'comint-completion) +;;;###autoload (defvar comint-file-name-prefix "" "Prefix prepended to absolute file names taken from process input. This is used by Comint's and shell's completion functions, and by shell's diff --git a/lisp/compare-w.el b/lisp/compare-w.el index 4bbed1e1fa8..3fda5f5de76 100644 --- a/lisp/compare-w.el +++ b/lisp/compare-w.el @@ -1,6 +1,7 @@ ;;; compare-w.el --- compare text between windows for Emacs -;; Copyright (C) 1986,1989,1993,1997,2003,2004,2005 Free Software Foundation, Inc. +;; Copyright (C) 1986, 1989, 1993, 1997, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: convenience files @@ -126,8 +127,6 @@ and the value `((4) (4))' for horizontally split windows." "Face for highlighting of compare-windows difference regions." :group 'compare-w :version "22.1") -;; backward-compatibility alias -(put 'compare-windows-face 'face-alias 'compare-windows) (defvar compare-windows-overlay1 nil) (defvar compare-windows-overlay2 nil) diff --git a/lisp/complete.el b/lisp/complete.el index dabab4ee6ee..d3ff6c53988 100644 --- a/lisp/complete.el +++ b/lisp/complete.el @@ -1,7 +1,7 @@ ;;; complete.el --- partial completion mechanism plus other goodies -;; Copyright (C) 1990, 1991, 1992, 1993, 1999, 2000, 2003, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1990, 1991, 1992, 1993, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Dave Gillespie <daveg@synaptics.com> ;; Keywords: abbrev convenience diff --git a/lisp/completion.el b/lisp/completion.el index 5e7285ecddd..4b0f6cac9a6 100644 --- a/lisp/completion.el +++ b/lisp/completion.el @@ -1,6 +1,7 @@ ;;; completion.el --- dynamic word-completion code -;; Copyright (C) 1990, 1993, 1995, 1997, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1990, 1993, 1995, 1997, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: abbrev convenience @@ -2347,6 +2348,9 @@ TYPE is the type of the wrapper to be added. Can be :before or :under." 'use-completion-under-or-before-point))) ;; C mode diffs. + +(defvar c-mode-map) + (defun completion-c-mode-hook () (def-completion-wrapper electric-c-semi :separator) (define-key c-mode-map "+" 'completion-separator-self-insert-command) @@ -2358,6 +2362,9 @@ TYPE is the type of the wrapper to be added. Can be :before or :under." (add-hook 'c-mode-hook 'completion-c-mode-hook)) ;; FORTRAN mode diffs. (these are defined when fortran is called) + +(defvar fortran-mode-map) + (defun completion-setup-fortran-mode () (define-key fortran-mode-map "+" 'completion-separator-self-insert-command) (define-key fortran-mode-map "-" 'completion-separator-self-insert-command) diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el index 8818ed6ff70..61c597a200e 100644 --- a/lisp/cus-dep.el +++ b/lisp/cus-dep.el @@ -1,6 +1,6 @@ ;;; cus-dep.el --- find customization dependencies ;; -;; Copyright (C) 1997 Free Software Foundation, Inc. +;; Copyright (C) 1997, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: internal diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 4a3088e6f12..c0e54b4add3 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1,7 +1,7 @@ ;;; cus-edit.el --- tools for customizing Emacs and Lisp packages ;; -;; Copyright (C) 1996, 1997, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Maintainer: FSF @@ -141,7 +141,8 @@ (require 'cus-face) (require 'wid-edit) (eval-when-compile - (defvar custom-versions-load-alist)) ; from cus-load + (defvar custom-versions-load-alist) ; from cus-load + (defvar recentf-exclude)) ; from recentf.el (condition-case nil (require 'cus-load) @@ -3901,7 +3902,12 @@ if only the first line of the docstring is shown.")) "Visit `custom-file' and delete all calls to SYMBOL from it. Leave point at the old location of the first such call, or (if there were none) at the end of the buffer." - (let ((default-major-mode 'emacs-lisp-mode)) + (let ((default-major-mode 'emacs-lisp-mode) + (recentf-exclude (if recentf-mode + (cons (concat "\\`" + (regexp-quote (custom-file)) + "\\'") + recentf-exclude)))) (set-buffer (find-file-noselect (custom-file)))) (goto-char (point-min)) ;; Skip all whitespace and comments. @@ -4130,7 +4136,12 @@ or (if there were none) at the end of the buffer." (custom-save-variables) (custom-save-faces) (save-excursion - (let ((default-major-mode nil)) + (let ((default-major-mode nil) + (recentf-exclude (if recentf-mode + (cons (concat "\\`" + (regexp-quote (custom-file)) + "\\'") + recentf-exclude)))) (set-buffer (find-file-noselect (custom-file)))) (let ((file-precious-flag t)) (save-buffer))))) diff --git a/lisp/cus-face.el b/lisp/cus-face.el index 967045b9da4..cd052732b65 100644 --- a/lisp/cus-face.el +++ b/lisp/cus-face.el @@ -1,6 +1,7 @@ ;;; cus-face.el --- customization support for faces ;; -;; Copyright (C) 1996, 1997, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: help, faces diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 929af33472f..71565963e3d 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -1,6 +1,7 @@ ;;; cus-start.el --- define customization properties of builtins ;; -;; Copyright (C) 1997, 1999, 2000, 2001, 2002, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: internal @@ -174,6 +175,8 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of (mouse-highlight mouse (choice (const :tag "disabled" nil) (const :tag "always shown" t) (other :tag "hidden by keypress" 1))) + ;; fringe.c + (overflow-newline-into-fringe fringe boolean "22.1") ;; indent.c (indent-tabs-mode fill boolean) ;; keyboard.c @@ -219,7 +222,7 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of :format "%t%n%h" :inline t (read-only t)) - (const :tag "Inviolable" + (const :tag "Don't Enter" :doc "Prevent point from ever entering prompt" :format "%t%n%h" :inline t diff --git a/lisp/cus-theme.el b/lisp/cus-theme.el index 32e01963824..95a0a4b2896 100644 --- a/lisp/cus-theme.el +++ b/lisp/cus-theme.el @@ -1,6 +1,6 @@ ;;; cus-theme.el -- custom theme creation user interface ;; -;; Copyright (C) 2001, 2005 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; ;; Author: Alex Schroeder <alex@gnu.org> ;; Maintainer: FSF diff --git a/lisp/custom.el b/lisp/custom.el index cfb4373fdab..0831535f181 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -1,7 +1,7 @@ ;;; custom.el --- tools for declaring and initializing options ;; -;; Copyright (C) 1996, 1997, 1999, 2001, 2002, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1999, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Maintainer: FSF @@ -726,15 +726,13 @@ in SYMBOL's list property `theme-value' \(using `custom-push-theme')." (error "Circular custom dependency between `%s' and `%s'" sym1 sym2)) (2-then-1 nil) - ;; Put symbols with :require last. The macro - ;; define-minor-mode generates a defcustom - ;; with a :require and a :set, where the - ;; setter function calls the mode function. - ;; Putting symbols with :require last ensures - ;; that the mode function will see other - ;; customized values rather than default - ;; values. - (t (nth 3 a2))))))) + ;; Put minor modes and symbols with :require last. + ;; Putting minor modes last ensures that the mode + ;; function will see other customized values rather + ;; than default values. + (t (or (nth 3 a2) + (eq (get sym2 'custom-set) + 'custom-set-minor-mode)))))))) (while args (let ((entry (car args))) (if (listp entry) diff --git a/lisp/cvs-status.el b/lisp/cvs-status.el index a70e368ff89..792dcb2ef26 100644 --- a/lisp/cvs-status.el +++ b/lisp/cvs-status.el @@ -1,6 +1,7 @@ ;;; cvs-status.el --- major mode for browsing `cvs status' output -*- coding: utf-8 -*- -;; Copyright (C) 1999, 2000, 2003, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs cvs status tree tools diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el index 01591e2fdf3..2139e7c5761 100644 --- a/lisp/dabbrev.el +++ b/lisp/dabbrev.el @@ -1,7 +1,7 @@ ;;; dabbrev.el --- dynamic abbreviation package -;; Copyright (C) 1985, 86, 92, 94, 96, 1997, 2000, 01, 03, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1992, 1994, 1996, 1997, 2000, 2001, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Don Morrison ;; Maintainer: Lars Lindberg <Lars.Lindberg@sypro.cap.se> diff --git a/lisp/delim-col.el b/lisp/delim-col.el index 1c0c8b77503..50d09a6414b 100644 --- a/lisp/delim-col.el +++ b/lisp/delim-col.el @@ -1,6 +1,7 @@ ;;; delim-col.el --- prettify all columns in a region or rectangle -;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> diff --git a/lisp/delsel.el b/lisp/delsel.el index 483c2e2c599..d7a3d90e969 100644 --- a/lisp/delsel.el +++ b/lisp/delsel.el @@ -1,6 +1,7 @@ ;;; delsel.el --- delete selection if you insert -;; Copyright (C) 1992, 1997, 1998, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1997, 1998, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Matthieu Devin <devin@lucid.com> ;; Maintainer: FSF @@ -100,7 +101,11 @@ any selection." (unless empty-region (setq this-command 'ignore)))) (type - (delete-active-region))) + (delete-active-region) + (if (and overwrite-mode (eq this-command 'self-insert-command)) + (let ((overwrite-mode nil)) + (self-insert-command (prefix-numeric-value current-prefix-arg)) + (setq this-command 'ignore))))) (file-supersession ;; If ask-user-about-supersession-threat signals an error, ;; stop safe_run_hooks from clearing out pre-command-hook. diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 630d516af6d..5ca9aa08093 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -1,7 +1,7 @@ ;;; descr-text.el --- describe text mode -;; Copyright (c) 1994, 1995, 1996, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1996, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Boris Goldowsky <boris@gnu.org> ;; Keywords: faces, i18n, Unicode, multilingual diff --git a/lisp/desktop.el b/lisp/desktop.el index 2d0a71bf6c7..5f0b4c4b3ec 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -1,7 +1,7 @@ ;;; desktop.el --- save partial status of Emacs when killed -;; Copyright (C) 1993, 1994, 1995, 1997, 2000, 2001, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 1997, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Morten Welinder <terra@diku.dk> ;; Maintainter: Lars Hansen <larsh@soem.dk> @@ -51,13 +51,66 @@ ;; function is added to the `after-init-hook'. This function is ;; responsible for loading the desktop when Emacs is started. -;; Some words on minor modes: Most minor modes are controlled by -;; buffer-local variables, which have a standard save / restore -;; mechanism. To handle all minor modes, we take the following -;; approach: (1) check whether the variable name from -;; `minor-mode-alist' is also a function; and (2) use translation -;; table `desktop-minor-mode-table' in the case where the two names -;; are not the same. +;; Special handling. +;; ----------------- +;; Variables `desktop-buffer-mode-handlers' and `desktop-minor-mode-handlers' +;; are supplied to handle special major and minor modes respectively. +;; `desktop-buffer-mode-handlers' is an alist of major mode specific functions +;; to restore a desktop buffer. Elements must have the form +;; +;; (MAJOR-MODE . RESTORE-BUFFER-FUNCTION). +;; +;; Functions listed are called by `desktop-create-buffer' when `desktop-read' +;; evaluates the desktop file. Buffers with a major mode not specified here, +;; are restored by the default handler `desktop-restore-file-buffer'. +;; `desktop-minor-mode-handlers' is an alist of functions to restore +;; non-standard minor modes. Elements must have the form +;; +;; (MINOR-MODE . RESTORE-FUNCTION). +;; +;; Functions are called by `desktop-create-buffer' to restore minor modes. +;; Minor modes not specified here, are restored by the standard minor mode +;; function. If you write a module that defines a major or minor mode that +;; needs a special handler, then place code like + +;; (defun foo-restore-desktop-buffer +;; ... +;; (add-to-list 'desktop-buffer-mode-handlers +;; '(foo-mode . foo-restore-desktop-buffer)) + +;; or + +;; (defun bar-desktop-restore +;; ... +;; (add-to-list 'desktop-minor-mode-handlers +;; '(bar-mode . bar-desktop-restore)) + +;; in the module itself, and make shure that the mode function is +;; autoloaded. See the docstrings of `desktop-buffer-mode-handlers' and +;; `desktop-minor-mode-handlers' for more info. + +;; Minor modes. +;; ------------ +;; Conventional minor modes (see node "Minor Mode Conventions" in the elisp +;; manual) are handled in the following way: +;; When `desktop-save' saves the state of a buffer to the desktop file, it +;; saves as `desktop-minor-modes' the list of names of those variables in +;; `minor-mode-alist' that have a non-nil value. +;; When `desktop-create' restores the buffer, each of the symbols in +;; `desktop-minor-modes' is called as function with parameter 1. +;; The variables `desktop-minor-mode-table' and `desktop-minor-mode-handlers' +;; are used to handle non-conventional minor modes. `desktop-save' uses +;; `desktop-minor-mode-table' to map minor mode variables to minor mode +;; functions before writing `desktop-minor-modes'. If a minor mode has a +;; variable name that is different form its function name, an entry + +;; (NAME RESTORE-FUNCTION) + +;; should be added to `desktop-minor-mode-table'. If a minor mode should not +;; be restored, RESTORE-FUNCTION should be set to nil. `desktop-create' uses +;; `desktop-minor-mode-handlers' to lookup minor modes that needs a restore +;; function different from the usual minor mode function. +;; --------------------------------------------------------------------------- ;; By the way: don't use desktop.el to customize Emacs -- the file .emacs ;; in your home directory is used for that. Saving global default values @@ -207,20 +260,15 @@ to the value obtained by evaluating FORM." :group 'desktop :version "22.1") -(defcustom desktop-clear-preserve-buffers-regexp - "^\\(\\*scratch\\*\\|\\*Messages\\*\\|\\*server\\*\\|\\*tramp/.+\\*\\)$" - "Regexp identifying buffers that `desktop-clear' should not delete. -See also `desktop-clear-preserve-buffers'." - :type 'regexp - :group 'desktop - :version "22.1") - -(defcustom desktop-clear-preserve-buffers nil - "*List of buffer names that `desktop-clear' should not delete. -See also `desktop-clear-preserve-buffers-regexp'." +(defcustom desktop-clear-preserve-buffers + '("\\*scratch\\*" "\\*Messages\\*" "\\*server\\*" "\\*tramp/.+\\*") + "*List of buffers that `desktop-clear' should not delete. +Each element is a regular expression. Buffers with a name matched by any of +these won't be deleted." :type '(repeat string) :group 'desktop) +;;;###autoload (defcustom desktop-locals-to-save '(desktop-locals-to-save ; Itself! Think it over. truncate-lines @@ -230,12 +278,18 @@ See also `desktop-clear-preserve-buffers-regexp'." overwrite-mode change-log-default-name line-number-mode - buffer-file-coding-system) + column-number-mode + size-indication-mode + buffer-file-coding-system + indent-tabs-mode + indicate-buffer-boundaries + indicate-empty-lines + show-trailing-whitespace) "List of local variables to save for each buffer. -The variables are saved only when they really are local." +The variables are saved only when they really are local. Conventional minor +modes are restored automatically; they should not be listed here." :type '(repeat symbol) :group 'desktop) -(make-variable-buffer-local 'desktop-locals-to-save) ;; We skip .log files because they are normally temporary. ;; (ftp) files because they require passwords and whatnot. @@ -301,23 +355,23 @@ file along with the state of the buffer for which it was called. When file names are returned, they should be formatted using the call \"(desktop-file-name FILE-NAME DESKTOP-DIRNAME)\". -Later, when `desktop-read' calls a function in `desktop-buffer-mode-handlers' -to restore the buffer, the auxiliary information is passed as the argument -DESKTOP-BUFFER-MISC.") +Later, when `desktop-read' evaluates the desktop file, auxiliary information +is passed as the argument DESKTOP-BUFFER-MISC to functions in +`desktop-buffer-mode-handlers'.") (make-variable-buffer-local 'desktop-save-buffer) (make-obsolete-variable 'desktop-buffer-modes-to-save 'desktop-save-buffer "22.1") (make-obsolete-variable 'desktop-buffer-misc-functions 'desktop-save-buffer "22.1") -(defcustom desktop-buffer-mode-handlers - '((dired-mode . dired-restore-desktop-buffer) - (rmail-mode . rmail-restore-desktop-buffer) - (mh-folder-mode . mh-restore-desktop-buffer) - (Info-mode . Info-restore-desktop-buffer)) +;;;###autoload +(defvar desktop-buffer-mode-handlers + nil "Alist of major mode specific functions to restore a desktop buffer. -Functions are called by `desktop-read'. List elements must have the form -\(MAJOR-MODE . RESTORE-BUFFER-FUNCTION). +Functions listed are called by `desktop-create-buffer' when `desktop-read' +evaluates the desktop file. List elements must have the form + + (MAJOR-MODE . RESTORE-BUFFER-FUNCTION). Buffers with a major mode not specified here, are restored by the default handler `desktop-restore-file-buffer'. @@ -337,10 +391,19 @@ Furthermore, they may use the following variables: desktop-buffer-locals If a handler returns a buffer, then the saved mode settings -and variable values for that buffer are copied into it." - :type 'alist - :group 'desktop) +and variable values for that buffer are copied into it. + +Modules that define a major mode that needs a special handler should contain +code like + (defun foo-restore-desktop-buffer + ... + (add-to-list 'desktop-buffer-mode-handlers + '(foo-mode . foo-restore-desktop-buffer)) + +Furthermore the major mode function must be autoloaded.") + +;;;###autoload (put 'desktop-buffer-mode-handlers 'risky-local-variable t) (make-obsolete-variable 'desktop-buffer-handlers 'desktop-buffer-mode-handlers "22.1") @@ -355,10 +418,57 @@ mode is active. RESTORE-FUNCTION is the function to activate the minor mode. called. RESTORE-FUNCTION nil means don't try to restore the minor mode. Only minor modes for which the name of the buffer-local variable and the name of the minor mode function are different have to be added to -this table." +this table. See also `desktop-minor-mode-handlers'." :type 'sexp :group 'desktop) +;;;###autoload +(defvar desktop-minor-mode-handlers + nil + "Alist of functions to restore non-standard minor modes. +Functions are called by `desktop-create-buffer' to restore minor modes. +List elements must have the form + + (MINOR-MODE . RESTORE-FUNCTION). + +Minor modes not specified here, are restored by the standard minor mode +function. + +Handlers are called with argument list + + (DESKTOP-BUFFER-LOCALS) + +Furthermore, they may use the following variables: + + desktop-file-version + desktop-buffer-file-name + desktop-buffer-name + desktop-buffer-major-mode + desktop-buffer-minor-modes + desktop-buffer-point + desktop-buffer-mark + desktop-buffer-read-only + desktop-buffer-misc + +When a handler is called, the buffer has been created and the major mode has +been set, but local variables listed in desktop-buffer-locals has not yet been +created and set. + +Modules that define a minor mode that needs a special handler should contain +code like + + (defun foo-desktop-restore + ... + (add-to-list 'desktop-minor-mode-handlers + '(foo-mode . foo-desktop-restore)) + +Furthermore the minor mode function must be autoloaded. + +See also `desktop-minor-mode-table'.") + +;;;###autoload +(put 'desktop-minor-mode-handlers 'risky-local-variable t) + ;; ---------------------------------------------------------------------------- (defvar desktop-dirname nil "The directory in which the desktop file should be saved.") @@ -382,23 +492,27 @@ this table." ;; ---------------------------------------------------------------------------- (defun desktop-clear () "Empty the Desktop. -This kills all buffers except for internal ones and those matching -`desktop-clear-preserve-buffers-regexp' or listed in -`desktop-clear-preserve-buffers'. Furthermore, it clears the -variables listed in `desktop-globals-to-clear'." +This kills all buffers except for internal ones and those with names matched by +a regular expression in the list `desktop-clear-preserve-buffers'. +Furthermore, it clears the variables listed in `desktop-globals-to-clear'." (interactive) (desktop-lazy-abort) (dolist (var desktop-globals-to-clear) (if (symbolp var) (eval `(setq-default ,var nil)) (eval `(setq-default ,(car var) ,(cdr var))))) - (let ((buffers (buffer-list))) + (let ((buffers (buffer-list)) + (preserve-regexp (concat "^\\(" + (mapconcat (lambda (regexp) + (concat "\\(" regexp "\\)")) + desktop-clear-preserve-buffers + "\\|") + "\\)$"))) (while buffers (let ((bufname (buffer-name (car buffers)))) (or (null bufname) - (string-match desktop-clear-preserve-buffers-regexp bufname) - (member bufname desktop-clear-preserve-buffers) + (string-match preserve-regexp bufname) ;; Don't kill buffers made for internal purposes. (and (not (equal bufname "")) (eq (aref bufname 0) ?\s)) (kill-buffer (car buffers)))) @@ -622,12 +736,10 @@ See also `desktop-base-file-name'." (and (boundp minor-mode) (symbol-value minor-mode) - (let ((special (assq minor-mode desktop-minor-mode-table))) - (when (or special (functionp minor-mode)) - (setq ret - (cons - (if special (cadr special) minor-mode) - ret)))))) + (let* ((special (assq minor-mode desktop-minor-mode-table)) + (value (cond (special (cadr special)) + ((functionp minor-mode) minor-mode)))) + (when value (add-to-list 'ret value))))) (mapcar #'car minor-mode-alist)) ret) (point) @@ -685,7 +797,6 @@ See also `desktop-base-file-name'." (insert ")\n\n"))) info) (setq default-directory dirname) - (when (file-exists-p filename) (delete-file filename)) (let ((coding-system-for-write 'utf-8-emacs)) (write-region (point-min) (point-max) filename nil 'nomessage)))) (setq desktop-dirname dirname)) @@ -850,13 +961,20 @@ directory DIRNAME." buf) nil))) +(defun desktop-load-file (function) + "Load the file where auto loaded FUNCTION is defined." + (let ((fcell (symbol-function function))) + (when (and (listp fcell) + (eq 'autoload (car fcell))) + (load (cadr fcell))))) + ;; ---------------------------------------------------------------------------- ;; Create a buffer, load its file, set its mode, ...; ;; called from Desktop file only. -(eval-when-compile ; Just to silence the byte compiler - (defvar desktop-first-buffer) ;; Dynamically bound in `desktop-read' -) +;; Just to silence the byte compiler. +(eval-when-compile + (defvar desktop-first-buffer)) ; Dynamically bound in `desktop-read' (defun desktop-create-buffer (desktop-file-version @@ -877,6 +995,8 @@ directory DIRNAME." ;; To make desktop files with relative file names possible, we cannot ;; allow `default-directory' to change. Therefore we save current buffer. (save-current-buffer + ;; Give major mode module a chance to add a handler. + (desktop-load-file desktop-buffer-major-mode) (let ((buffer-list (buffer-list)) (result (condition-case err @@ -914,9 +1034,15 @@ directory DIRNAME." (auto-fill-mode 0)) (t (mapc #'(lambda (minor-mode) - (when (functionp minor-mode) (funcall minor-mode 1))) + ;; Give minor mode module a chance to add a handler. + (desktop-load-file minor-mode) + (let ((handler (cdr (assq minor-mode desktop-minor-mode-handlers)))) + (if handler + (funcall handler desktop-buffer-locals) + (when (functionp minor-mode) + (funcall minor-mode 1))))) desktop-buffer-minor-modes))) - ;; Even though point and mark are non-nil when written by `desktop-save' + ;; Even though point and mark are non-nil when written by `desktop-save', ;; they may be modified by handlers wanting to set point or mark themselves. (when desktop-buffer-point (goto-char diff --git a/lisp/diff-mode.el b/lisp/diff-mode.el index f10ac7d57d2..6cd4c843ad1 100644 --- a/lisp/diff-mode.el +++ b/lisp/diff-mode.el @@ -1,7 +1,7 @@ ;;; diff-mode.el --- a mode for viewing/editing context diffs -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: convenience patch diff diff --git a/lisp/diff.el b/lisp/diff.el index bee7277af78..7602ecb0e37 100644 --- a/lisp/diff.el +++ b/lisp/diff.el @@ -1,6 +1,7 @@ ;;; diff.el --- run `diff' in compilation-mode -;; Copyright (C) 1992, 1994, 1996, 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1994, 1996, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: unix, tools diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 617cb38585f..0d3f6fe125b 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -1,7 +1,7 @@ ;;; dired-aux.el --- less commonly used parts of dired -*-byte-compile-dynamic: t;-*- -;; Copyright (C) 1985, 1986, 1992, 1994, 1998, 2000, 2001, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1992, 1994, 1998, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>. ;; Maintainer: FSF @@ -2208,7 +2208,10 @@ Third arg DELIMITED (prefix arg) means replace only word-delimited matches. If you exit (\\[keyboard-quit], RET or q), you can resume the query replace with the command \\[tags-loop-continue]." (interactive - "sQuery replace in marked files (regexp): \nsQuery replace %s by: \nP") + (let ((common + (query-replace-read-args + "Query replace regexp in marked files" t t))) + (list (nth 0 common) (nth 1 common) (nth 2 common)))) (dolist (file (dired-get-marked-files nil nil 'dired-nondirectory-p)) (let ((buffer (get-file-buffer file))) (if (and buffer (with-current-buffer buffer diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 006186a562e..074bdc376a4 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -7,7 +7,8 @@ ;; Date: 1994/08/18 19:27:42 ;; Keywords: dired extensions files -;; Copyright (C) 1993, 1994, 1997, 2001, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1997, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. diff --git a/lisp/dired.el b/lisp/dired.el index 880d31d9b41..508bc39bbb5 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1,7 +1,7 @@ ;;; dired.el --- directory-browsing commands ;; Copyright (C) 1985, 1986, 1992, 1993, 1994, 1995, 1996, 1997, 2000, -;; 2001, 2003, 2004 Free Software Foundation, Inc. +;; 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de> ;; Maintainer: FSF @@ -1469,6 +1469,8 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST." ;; Dired mode is suitable only for specially formatted data. (put 'dired-mode 'mode-class 'special) +;; Autoload cookie needed by desktop.el +;;;###autoload (defun dired-mode (&optional dirname switches) "\ Mode for \"editing\" directory listings. @@ -1951,11 +1953,11 @@ Return the position of the beginning of the filename, or nil if none found." (eq (preceding-char) ?@) ;; did ls really mark the link? (forward-char -1)))) (goto-char eol) ;; else not a symbolic link - ;; ls -lF marks dirs, sockets and executables with exactly one - ;; trailing character. (Executable bits on symlinks ain't mean + ;; ls -lF marks dirs, sockets, fifos and executables with exactly + ;; one trailing character. (Executable bits on symlinks ain't mean ;; a thing, even to ls, but we know it's not a symlink.) (and used-F - (or (memq file-type '(?d ?s)) + (or (memq file-type '(?d ?s ?p)) executable) (forward-char -1)))) (or no-error @@ -3270,7 +3272,6 @@ Ask means pop up a menu for the user to select one of copy, move or link." (function (lambda (f) (desktop-file-name (car f) desktop-dirname))) dired-subdir-alist))))) -;;;###autoload (defun dired-restore-desktop-buffer (desktop-buffer-file-name desktop-buffer-name desktop-buffer-misc) @@ -3291,6 +3292,9 @@ Ask means pop up a menu for the user to select one of copy, move or link." (when desktop-missing-file-warning (sit-for 1)) nil))) +(add-to-list 'desktop-buffer-mode-handlers + '(dired-mode . dired-restore-desktop-buffer)) + (if (eq system-type 'vax-vms) (load "dired-vms")) diff --git a/lisp/dirtrack.el b/lisp/dirtrack.el index e9bcab6e4e8..573803bfb98 100644 --- a/lisp/dirtrack.el +++ b/lisp/dirtrack.el @@ -1,6 +1,6 @@ ;;; dirtrack.el --- Directory Tracking by watching the prompt -;; Copyright (C) 1996 Free Software Foundation, Inc. +;; Copyright (C) 1996, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Peter Breton <pbreton@cs.umb.edu> ;; Created: Sun Nov 17 1996 diff --git a/lisp/disp-table.el b/lisp/disp-table.el index 93f11e79b65..87b3eb5057a 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el @@ -1,6 +1,7 @@ ;;; disp-table.el --- functions for dealing with char tables -;; Copyright (C) 1987, 94, 95, 1999, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1987, 1994, 1995, 1999, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Erik Naggum <erik@naggum.no> ;; Based on a previous version by Howard Gayle diff --git a/lisp/dnd.el b/lisp/dnd.el index 9a925550411..1092f4d087f 100644 --- a/lisp/dnd.el +++ b/lisp/dnd.el @@ -1,7 +1,6 @@ ;;; dnd.el --- drag and drop support. -;; Copyright (C) 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 2005 Free Software Foundation, Inc. ;; Author: Jan Dj,Ad(Brv <jan.h.d@swipnet.se> ;; Maintainer: FSF diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el index 920625526e3..bf25ce1f589 100644 --- a/lisp/dos-fns.el +++ b/lisp/dos-fns.el @@ -1,6 +1,7 @@ ;;; dos-fns.el --- MS-Dos specific functions -;; Copyright (C) 1991, 1993, 1995, 1996 Free Software Foundation, Inc. +;; Copyright (C) 1991, 1993, 1995, 1996, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: Morten Welinder <terra@diku.dk> ;; Keywords: internal diff --git a/lisp/dos-vars.el b/lisp/dos-vars.el index 8fdff647bed..1909e941c1f 100644 --- a/lisp/dos-vars.el +++ b/lisp/dos-vars.el @@ -1,6 +1,6 @@ ;;; dos-vars.el --- MS-Dos specific user options -;; Copyright (C) 1998 Free Software Foundation, Inc. +;; Copyright (C) 1998, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el index 644b457393f..697f6eb4d5c 100644 --- a/lisp/dos-w32.el +++ b/lisp/dos-w32.el @@ -1,6 +1,6 @@ ;; dos-w32.el --- Functions shared among MS-DOS and W32 (NT/95) platforms -;; Copyright (C) 1996 Free Software Foundation, Inc. +;; Copyright (C) 1996, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: Geoff Voelker <voelker@cs.washington.edu> ;; Keywords: internal diff --git a/lisp/double.el b/lisp/double.el index 137ea510123..fb4947fbd88 100644 --- a/lisp/double.el +++ b/lisp/double.el @@ -1,6 +1,7 @@ ;;; double.el --- support for keyboard remapping with double clicking -;; Copyright (C) 1994, 1997, 1998 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1997, 1998, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: i18n diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el index 2a89d4ef654..2ee90192ea3 100644 --- a/lisp/ebuff-menu.el +++ b/lisp/ebuff-menu.el @@ -1,6 +1,7 @@ ;;; ebuff-menu.el --- electric-buffer-list mode -;; Copyright (C) 1985, 1986, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1994, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Richard Mlynarik <mly@ai.mit.edu> ;; Maintainer: FSF @@ -125,6 +126,8 @@ Run hooks in `electric-buffer-menu-mode-hook' on entry. (recenter -1)))) (electric-buffer-update-highlight)) +(defvar Helper-return-blurb) + (put 'Electric-buffer-menu-mode 'mode-class 'special) (defun Electric-buffer-menu-mode () "Major mode for editing a list of buffers. diff --git a/lisp/echistory.el b/lisp/echistory.el index e134b16ce6c..3b4b8419bd0 100644 --- a/lisp/echistory.el +++ b/lisp/echistory.el @@ -1,6 +1,6 @@ ;;; echistory.el --- Electric Command History Mode -;; Copyright (C) 1985 Free Software Foundation, Inc. +;; Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: K. Shane Hartman ;; Maintainer: FSF diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el index ef859eb9b20..0a3f6920e2b 100644 --- a/lisp/ediff-diff.el +++ b/lisp/ediff-diff.el @@ -1,6 +1,7 @@ ;;; ediff-diff.el --- diff-related utilities -;; Copyright (C) 1994, 95, 96, 97, 98, 99, 2000, 01, 02 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, +;; 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> diff --git a/lisp/ediff-help.el b/lisp/ediff-help.el index 87056e3723f..21fe85c415f 100644 --- a/lisp/ediff-help.el +++ b/lisp/ediff-help.el @@ -1,6 +1,7 @@ ;;; ediff-help.el --- Code related to the contents of Ediff help buffers -;; Copyright (C) 1996, 97, 98, 99, 2000, 01, 02 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> diff --git a/lisp/ediff-hook.el b/lisp/ediff-hook.el index 8d038a4d93b..c0add7f8f86 100644 --- a/lisp/ediff-hook.el +++ b/lisp/ediff-hook.el @@ -1,6 +1,7 @@ ;;; ediff-hook.el --- setup for Ediff's menus and autoloads -;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 01, 02 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> diff --git a/lisp/ediff-init.el b/lisp/ediff-init.el index 8af930ec27e..5bffea1ec4b 100644 --- a/lisp/ediff-init.el +++ b/lisp/ediff-init.el @@ -1,7 +1,7 @@ ;;; ediff-init.el --- Macros, variables, and defsubsts used by Ediff ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, -;; 2004, 2005 Free Software Foundation, Inc. +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> @@ -559,24 +559,24 @@ See the documentation string of `ediff-focus-on-regexp-matches' for details.") ;; Highlighting -(defcustom ediff-before-flag-bol (if ediff-xemacs-p (make-glyph "->>") "->>") +(defcustom ediff-before-flag-bol (if (featurep 'xemacs) (make-glyph "->>") "->>") "*Flag placed before a highlighted block of differences, if block starts at beginning of a line." :type 'string :tag "Region before-flag at beginning of line" :group 'ediff) -(defcustom ediff-after-flag-eol (if ediff-xemacs-p (make-glyph "<<-") "<<-") +(defcustom ediff-after-flag-eol (if (featurep 'xemacs) (make-glyph "<<-") "<<-") "*Flag placed after a highlighted block of differences, if block ends at end of a line." :type 'string :tag "Region after-flag at end of line" :group 'ediff) -(defcustom ediff-before-flag-mol (if ediff-xemacs-p (make-glyph "->>") "->>") +(defcustom ediff-before-flag-mol (if (featurep 'xemacs) (make-glyph "->>") "->>") "*Flag placed before a highlighted block of differences, if block starts in mid-line." :type 'string :tag "Region before-flag in the middle of line" :group 'ediff) -(defcustom ediff-after-flag-mol (if ediff-xemacs-p (make-glyph "<<-") "<<-") +(defcustom ediff-after-flag-mol (if (featurep 'xemacs) (make-glyph "<<-") "<<-") "*Flag placed after a highlighted block of differences, if block ends in mid-line." :type 'string :tag "Region after-flag in the middle of line" @@ -1464,7 +1464,7 @@ This default should work without changes." :group 'ediff) ;; needed to simulate frame-char-width in XEmacs. -(defvar ediff-H-glyph (if ediff-xemacs-p (make-glyph "H"))) +(defvar ediff-H-glyph (if (featurep 'xemacs) (make-glyph "H"))) ;; Temporary file used for refining difference regions in buffer A. diff --git a/lisp/ediff-merg.el b/lisp/ediff-merg.el index 13414747b11..cb93dea3831 100644 --- a/lisp/ediff-merg.el +++ b/lisp/ediff-merg.el @@ -1,6 +1,7 @@ ;;; ediff-merg.el --- merging utilities -;; Copyright (C) 1994, 95, 96, 97, 98, 99, 2000, 01, 02 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> diff --git a/lisp/ediff-mult.el b/lisp/ediff-mult.el index 1303d65cf2e..2c192c133e2 100644 --- a/lisp/ediff-mult.el +++ b/lisp/ediff-mult.el @@ -1,6 +1,7 @@ ;;; ediff-mult.el --- support for multi-file/multi-buffer processing in Ediff -;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 01, 02, 05 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> diff --git a/lisp/ediff-ptch.el b/lisp/ediff-ptch.el index 9176a38c2c9..df781e92b5b 100644 --- a/lisp/ediff-ptch.el +++ b/lisp/ediff-ptch.el @@ -1,6 +1,7 @@ ;;; ediff-ptch.el --- Ediff's patch support -;; Copyright (C) 1996, 97, 98, 99, 2000, 01, 02 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> diff --git a/lisp/ediff-util.el b/lisp/ediff-util.el index 70b3f304e03..2e24548dbbe 100644 --- a/lisp/ediff-util.el +++ b/lisp/ediff-util.el @@ -1,7 +1,7 @@ ;;; ediff-util.el --- the core commands and utilities of ediff ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, -;; 2004 Free Software Foundation, Inc. +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> diff --git a/lisp/ediff-vers.el b/lisp/ediff-vers.el index 70069cc2193..9ae720e9bc3 100644 --- a/lisp/ediff-vers.el +++ b/lisp/ediff-vers.el @@ -1,6 +1,7 @@ ;;; ediff-vers.el --- version control interface to Ediff -;;; Copyright (C) 1995, 96, 97, 2002 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> diff --git a/lisp/ediff-wind.el b/lisp/ediff-wind.el index 3ac4ee089cd..26ff106088f 100644 --- a/lisp/ediff-wind.el +++ b/lisp/ediff-wind.el @@ -1,6 +1,7 @@ ;;; ediff-wind.el --- window manipulation utilities -;; Copyright (C) 1994, 95, 96, 97, 2000, 01, 02 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1996, 1997, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> diff --git a/lisp/ediff.el b/lisp/ediff.el index 1bf52b1c59f..35b28a3e550 100644 --- a/lisp/ediff.el +++ b/lisp/ediff.el @@ -1,6 +1,7 @@ ;;; ediff.el --- a comprehensive visual interface to diff & patch -;; Copyright (C) 1994, 95, 96, 97, 98, 99, 2000, 01, 02, 03, 05 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> ;; Created: February 2, 1994 diff --git a/lisp/edmacro.el b/lisp/edmacro.el index 28c8f761193..b606d0f4b70 100644 --- a/lisp/edmacro.el +++ b/lisp/edmacro.el @@ -1,6 +1,7 @@ ;;; edmacro.el --- keyboard macro editor -;; Copyright (C) 1993, 1994, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Dave Gillespie <daveg@synaptics.com> ;; Maintainer: Dave Gillespie <daveg@synaptics.com> diff --git a/lisp/ehelp.el b/lisp/ehelp.el index 36bbd0329bb..d0dfd8d6bed 100644 --- a/lisp/ehelp.el +++ b/lisp/ehelp.el @@ -1,6 +1,7 @@ ;;; ehelp.el --- bindings for electric-help mode -;; Copyright (C) 1986, 1995, 2000, 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1986, 1995, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: help, extensions diff --git a/lisp/electric.el b/lisp/electric.el index 32fb843e2cb..4c4f70b0939 100644 --- a/lisp/electric.el +++ b/lisp/electric.el @@ -1,6 +1,7 @@ ;;; electric.el --- window maker and Command loop for `electric' modes -;; Copyright (C) 1985, 1986, 1995, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1995, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: K. Shane Hartman ;; Maintainer: FSF diff --git a/lisp/elide-head.el b/lisp/elide-head.el index 86e3365c5dd..8be40ce17c3 100644 --- a/lisp/elide-head.el +++ b/lisp/elide-head.el @@ -1,6 +1,6 @@ ;;; elide-head.el --- hide headers in files -;; Copyright (C) 1999 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Dave Love <fx@gnu.org> ;; Keywords: outlines tools diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index 9f6a0b782ac..480c838b878 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el @@ -1,6 +1,7 @@ ;;; advice.el --- an overloading mechanism for Emacs Lisp functions -;; Copyright (C) 1993,1994,2000,01,2004,2005 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 2000, 2001, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Hans Chalupsky <hans@cs.buffalo.edu> ;; Maintainer: FSF diff --git a/lisp/emacs-lisp/assoc.el b/lisp/emacs-lisp/assoc.el index 35cfba617c3..d12b1dcbcb5 100644 --- a/lisp/emacs-lisp/assoc.el +++ b/lisp/emacs-lisp/assoc.el @@ -1,6 +1,6 @@ ;;; assoc.el --- insert/delete/sort functions on association lists -;; Copyright (C) 1996 Free Software Foundation, Inc. +;; Copyright (C) 1996, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Barry A. Warsaw <bwarsaw@cen.com> ;; Keywords: extensions diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el index ca28fc06783..ec5446eef38 100644 --- a/lisp/emacs-lisp/authors.el +++ b/lisp/emacs-lisp/authors.el @@ -1,6 +1,6 @@ ;;; authors.el --- utility for maintaining Emacs' AUTHORS file -*-coding: iso-2022-7bit;-*- -;; Copyright (C) 2000, 2003, 2005 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Gerd Moellmann <gerd@gnu.org> ;; Maintainer: Kim F. Storm <storm@cua.dk> diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 852c33cb41b..3cd6fe53bad 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -1,7 +1,7 @@ ;; autoload.el --- maintain autoloads in loaddefs.el ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001, 2002, 2003, -;; 2004, 2005 Free Software Foundation, Inc. +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Roland McGrath <roland@gnu.org> ;; Keywords: maint diff --git a/lisp/emacs-lisp/backquote.el b/lisp/emacs-lisp/backquote.el index 7c7023fc85e..627c2cfdbc7 100644 --- a/lisp/emacs-lisp/backquote.el +++ b/lisp/emacs-lisp/backquote.el @@ -1,6 +1,7 @@ ;;; backquote.el --- implement the ` Lisp construct -;; Copyright (C) 1990, 92, 1994, 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1990, 1992, 1994, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Rick Sladkey <jrs@world.std.com> ;; Maintainer: FSF diff --git a/lisp/emacs-lisp/benchmark.el b/lisp/emacs-lisp/benchmark.el index 6de2eef53a8..c2be5a5c3b5 100644 --- a/lisp/emacs-lisp/benchmark.el +++ b/lisp/emacs-lisp/benchmark.el @@ -1,6 +1,6 @@ ;;; benchmark.el --- support for benchmarking code -;; Copyright (C) 2003 Free Software Foundation, Inc. +;; Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Dave Love <fx@gnu.org> ;; Keywords: lisp, extensions diff --git a/lisp/emacs-lisp/bindat.el b/lisp/emacs-lisp/bindat.el index 5fa9835bea1..f2b1d19a696 100644 --- a/lisp/emacs-lisp/bindat.el +++ b/lisp/emacs-lisp/bindat.el @@ -1,6 +1,6 @@ ;;; bindat.el --- binary data structure packing and unpacking. -;; Copyright (C) 2002 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Kim F. Storm <storm@cua.dk> ;; Assignment name: struct.el diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 2aca0176df2..bd1938d31c0 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -1,7 +1,7 @@ ;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler -;; Copyright (c) 1991, 1994, 2000, 2001, 2002, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1991, 1994, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Jamie Zawinski <jwz@lucid.com> ;; Hallvard Furuseth <hbf@ulrik.uio.no> diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index b4af4b44009..c31036f02ed 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -1,6 +1,6 @@ ;;; byte-run.el --- byte-compiler support for inlining -;; Copyright (C) 1992, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1992, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Jamie Zawinski <jwz@lucid.com> ;; Hallvard Furuseth <hbf@ulrik.uio.no> diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 0dd0ead9d61..93817034c19 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1,7 +1,7 @@ ;;; bytecomp.el --- compilation of Lisp code into byte code ;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1998, 2000, 2001, 2002, -;; 2003, 2004, 2005 Free Software Foundation, Inc. +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Jamie Zawinski <jwz@lucid.com> ;; Hallvard Furuseth <hbf@ulrik.uio.no> diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 2ed1f9b552b..6b6d3ba4393 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -1,6 +1,7 @@ ;;; checkdoc.el --- check documentation strings for style requirements -;;; Copyright (C) 1997, 1998, 2001, 2004 Free Software Foundation +;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Eric M. Ludlam <zappo@gnu.org> ;; Version: 0.6.2 diff --git a/lisp/emacs-lisp/cl-compat.el b/lisp/emacs-lisp/cl-compat.el index 9ced7879114..66425576b5f 100644 --- a/lisp/emacs-lisp/cl-compat.el +++ b/lisp/emacs-lisp/cl-compat.el @@ -1,6 +1,6 @@ ;;; cl-compat.el --- Common Lisp extensions for GNU Emacs Lisp (compatibility) -;; Copyright (C) 1993, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1993, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Dave Gillespie <daveg@synaptics.com> ;; Version: 2.02 diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 16e777ed2b5..4ac1a72b0d7 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -1,6 +1,7 @@ ;;; cl-extra.el --- Common Lisp features, part 2 -*-byte-compile-dynamic: t;-*- -;; Copyright (C) 1993, 2000, 2003, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1993, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Dave Gillespie <daveg@synaptics.com> ;; Keywords: extensions diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el index 1bcd2c72edc..2497e02dc62 100644 --- a/lisp/emacs-lisp/cl-indent.el +++ b/lisp/emacs-lisp/cl-indent.el @@ -1,6 +1,7 @@ ;;; cl-indent.el --- enhanced lisp-indent mode -;; Copyright (C) 1987, 2000, 2001, 2002 Free Software Foundation, Inc. +;; Copyright (C) 1987, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Richard Mlynarik <mly@eddie.mit.edu> ;; Created: July 1987 diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el index 98c9a2207ee..ba7845aaa9c 100644 --- a/lisp/emacs-lisp/cl-seq.el +++ b/lisp/emacs-lisp/cl-seq.el @@ -1,6 +1,6 @@ ;;; cl-seq.el --- Common Lisp features, part 3 -*-byte-compile-dynamic: t;-*- -;; Copyright (C) 1993 Free Software Foundation, Inc. +;; Copyright (C) 1993, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Dave Gillespie <daveg@synaptics.com> ;; Version: 2.02 diff --git a/lisp/emacs-lisp/cl-specs.el b/lisp/emacs-lisp/cl-specs.el index ac3089f2efb..650a341f955 100644 --- a/lisp/emacs-lisp/cl-specs.el +++ b/lisp/emacs-lisp/cl-specs.el @@ -1,6 +1,6 @@ ;;; cl-specs.el --- Edebug specs for cl.el -*- no-byte-compile: t -*- -;; Copyright (C) 1993, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1993, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Daniel LaLiberte <liberte@holonexus.org> ;; Keywords: lisp, tools, maint diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index d29c18dd0ff..8875366cc9c 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el @@ -1,6 +1,6 @@ ;;; cl.el --- Common Lisp extensions for Emacs -*-byte-compile-dynamic: t;-*- -;; Copyright (C) 1993 Free Software Foundation, Inc. +;; Copyright (C) 1993, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Dave Gillespie <daveg@synaptics.com> ;; Version: 2.02 diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el index c1a0ad156ed..03eac0abd0a 100644 --- a/lisp/emacs-lisp/copyright.el +++ b/lisp/emacs-lisp/copyright.el @@ -1,7 +1,7 @@ ;;; copyright.el --- update the copyright notice in current buffer -;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1998, 2001, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1998, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Daniel Pfeiffer <occitan@esperanto.org> ;; Keywords: maint, tools diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el index 8e52a42921a..46ae6186e44 100644 --- a/lisp/emacs-lisp/crm.el +++ b/lisp/emacs-lisp/crm.el @@ -1,7 +1,7 @@ ;;; crm.el --- read multiple strings with completion -;; Copyright (C) 1985, 1986, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1993, 1994, 1995, 1996, 1997, 1998, 1999, +;; 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Sen Nagata <sen@eccosys.com> ;; Keywords: completion, minibuffer, multiple elements diff --git a/lisp/emacs-lisp/cust-print.el b/lisp/emacs-lisp/cust-print.el index 96fbe737c26..102efdae9b9 100644 --- a/lisp/emacs-lisp/cust-print.el +++ b/lisp/emacs-lisp/cust-print.el @@ -1,6 +1,6 @@ ;;; cust-print.el --- handles print-level and print-circle -;; Copyright (C) 1992 Free Software Foundation, Inc. +;; Copyright (C) 1992, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Daniel LaLiberte <liberte@holonexus.org> ;; Adapted-By: ESR diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 4f968c60b5e..58b12376b05 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -1,7 +1,7 @@ ;;; debug.el --- debuggers and related commands for Emacs -;; Copyright (C) 1985, 1986, 1994, 2001, 2003, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1994, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: lisp, tools, maint @@ -709,7 +709,7 @@ Redefining FUNCTION also cancels it." (let ((fn (function-called-at-point)) val) (when (debugger-special-form-p fn) (setq fn nil)) - (setq val (completing-read + (setq val (completing-read (if fn (format "Debug on entry to function (default %s): " fn) "Debug on entry to function: ") diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el index 764f58bcd23..8e1f79f95ee 100644 --- a/lisp/emacs-lisp/derived.el +++ b/lisp/emacs-lisp/derived.el @@ -1,7 +1,8 @@ ;;; derived.el --- allow inheritance of major modes ;; (formerly mode-clone.el) -;; Copyright (C) 1993, 1994, 1999, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1999, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: David Megginson (dmeggins@aix1.uottawa.ca) ;; Maintainer: FSF diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el index fa368902f69..fa0898f609e 100644 --- a/lisp/emacs-lisp/disass.el +++ b/lisp/emacs-lisp/disass.el @@ -1,6 +1,7 @@ ;;; disass.el --- disassembler for compiled Emacs Lisp code -;; Copyright (C) 1986, 1991, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1986, 1991, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Doug Cutting <doug@csli.stanford.edu> ;; Jamie Zawinski <jwz@lucid.com> diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 09abd272e53..da0ca735efd 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -194,28 +194,20 @@ For example, you could write Use the command `%s' to change this variable." pretty-name mode)) (make-variable-buffer-local ',mode)) - (let ((curfile (or (and (boundp 'byte-compile-current-file) - byte-compile-current-file) - load-file-name)) - base-doc-string) - (setq base-doc-string "Non-nil if %s is enabled. -See the command `%s' for a description of this minor-mode. + (let ((base-doc-string + (concat "Non-nil if %s is enabled. +See the command `%s' for a description of this minor-mode." + (if body " Setting this variable directly does not take effect; -use either \\[customize] or the function `%s'.") - (if (null body) - (setq base-doc-string "Non-nil if %s is enabled. -See the command `%s' for a description of this minor-mode.")) - +use either \\[customize] or the function `%s'.")))) `(defcustom ,mode ,init-value ,(format base-doc-string pretty-name mode mode) ,@set ,@initialize ,@group ,@type - ,@(cond - ((not (and curfile require)) nil) - ((not (eq require t)) `(:require ,require))) - ,@(nreverse extra-keywords)))) + ,@(unless (eq require t) `(:require ,require)) + ,@(nreverse extra-keywords)))) ;; The actual function. (defun ,mode (&optional arg ,@extra-args) diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index a1a1f470c58..634c2397411 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el @@ -1,7 +1,7 @@ ;;; easymenu.el --- support the easymenu interface for defining a menu -;; Copyright (C) 1994, 1996, 1998, 1999, 2000, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1994, 1996, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: emulations ;; Author: Richard Stallman <rms@gnu.org> diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index f80e9f36dd0..765548083b5 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -1,7 +1,7 @@ ;;; edebug.el --- a source-level debugger for Emacs Lisp -;; Copyright (C) 1988,89,90,91,92,93,94,95,97,1999,2000,01,03,2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1999, +;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Daniel LaLiberte <liberte@holonexus.org> ;; Maintainer: FSF diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el index 1492e29e3c6..4ae8f53a981 100644 --- a/lisp/emacs-lisp/eldoc.el +++ b/lisp/emacs-lisp/eldoc.el @@ -1,7 +1,7 @@ ;;; eldoc.el --- show function arglist or variable docstring in echo area -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2003, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Noah Friedman <friedman@splode.com> ;; Maintainer: friedman@splode.com @@ -454,10 +454,11 @@ Emacs Lisp mode) that support Eldoc.") ;; Prime the command list. (eldoc-add-command-completions "backward-" "beginning-of-" "delete-other-windows" "delete-window" - "end-of-" "forward-" "indent-for-tab-command" "goto-" "mouse-set-point" - "next-" "other-window" "previous-" "recenter" "scroll-" - "self-insert-command" "split-window-" - "up-list" "down-list") + "end-of-" "exchange-point-and-mark" "forward-" + "indent-for-tab-command" "goto-" "mark-page" "mark-paragraph" + "mouse-set-point" "move-" "pop-global-mark" "next-" "other-window" + "previous-" "recenter" "scroll-" "self-insert-command" + "split-window-" "up-list" "down-list") (provide 'eldoc) diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el index 51e2ed98713..e72613695e3 100644 --- a/lisp/emacs-lisp/elint.el +++ b/lisp/emacs-lisp/elint.el @@ -1,6 +1,6 @@ ;;; elint.el --- Lint Emacs Lisp -;; Copyright (C) 1997 Free Software Foundation, Inc. +;; Copyright (C) 1997, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Peter Liljenberg <petli@lysator.liu.se> ;; Created: May 1997 diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el index dbda66a2615..426c79e51c3 100644 --- a/lisp/emacs-lisp/elp.el +++ b/lisp/emacs-lisp/elp.el @@ -1,6 +1,7 @@ ;;; elp.el --- Emacs Lisp Profiler -;; Copyright (C) 1994,1995,1997,1998, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1997, 1998, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Barry A. Warsaw ;; Maintainer: FSF diff --git a/lisp/emacs-lisp/ewoc.el b/lisp/emacs-lisp/ewoc.el index 1984423d9dd..da9aa09119a 100644 --- a/lisp/emacs-lisp/ewoc.el +++ b/lisp/emacs-lisp/ewoc.el @@ -1,7 +1,7 @@ ;;; ewoc.el --- utility to maintain a view of a list of objects in a buffer -;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 04 -;; Free Software Foundation +;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, +;; 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Per Cederqvist <ceder@lysator.liu.se> ;; Inge Wallin <inge@lysator.liu.se> diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 945acaac73e..d860bfcd598 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -1,6 +1,7 @@ ;;; find-func.el --- find the definition of the Emacs Lisp function near point -;; Copyright (C) 1997, 1999, 2001, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Jens Petersen <petersen@kurims.kyoto-u.ac.jp> ;; Maintainer: petersen@kurims.kyoto-u.ac.jp diff --git a/lisp/emacs-lisp/find-gc.el b/lisp/emacs-lisp/find-gc.el index 8d3b0b02a4e..29e9dffbbde 100644 --- a/lisp/emacs-lisp/find-gc.el +++ b/lisp/emacs-lisp/find-gc.el @@ -1,6 +1,6 @@ ;;; find-gc.el --- detect functions that call the garbage collector -;; Copyright (C) 1992 Free Software Foundation, Inc. +;; Copyright (C) 1992, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF diff --git a/lisp/emacs-lisp/float-sup.el b/lisp/emacs-lisp/float-sup.el index b07b6f837fb..1d30d60ea99 100644 --- a/lisp/emacs-lisp/float-sup.el +++ b/lisp/emacs-lisp/float-sup.el @@ -1,6 +1,7 @@ ;;; float-sup.el --- define some constants useful for floating point numbers. -;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal diff --git a/lisp/emacs-lisp/generic.el b/lisp/emacs-lisp/generic.el index f40b5eeb574..4dd10ad3a9c 100644 --- a/lisp/emacs-lisp/generic.el +++ b/lisp/emacs-lisp/generic.el @@ -1,6 +1,7 @@ ;;; generic.el --- defining simple major modes with comment and font-lock ;; -;; Copyright (C) 1997, 1999, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1999, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; ;; Author: Peter Breton <pbreton@cs.umb.edu> ;; Created: Fri Sep 27 1996 @@ -101,8 +102,7 @@ (defvar generic-font-lock-keywords nil "Keywords for `font-lock-defaults' in a generic mode.") (make-variable-buffer-local 'generic-font-lock-keywords) -(defvaralias 'generic-font-lock-defaults 'generic-font-lock-keywords) -(make-obsolete-variable 'generic-font-lock-defaults 'generic-font-lock-keywords "22.1") +(define-obsolete-variable-alias 'generic-font-lock-defaults 'generic-font-lock-keywords "22.1") ;;;###autoload (defvar generic-mode-list nil diff --git a/lisp/emacs-lisp/gulp.el b/lisp/emacs-lisp/gulp.el index 43311b6ff5d..6e0c4ded4dd 100644 --- a/lisp/emacs-lisp/gulp.el +++ b/lisp/emacs-lisp/gulp.el @@ -1,6 +1,6 @@ ;;; gulp.el --- ask for updates for Lisp packages -;; Copyright (C) 1996 Free Software Foundation, Inc. +;; Copyright (C) 1996, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Sam Shteingold <shteingd@math.ucla.edu> ;; Maintainer: FSF diff --git a/lisp/emacs-lisp/helper.el b/lisp/emacs-lisp/helper.el index eac18a5dca1..e97491aa6bb 100644 --- a/lisp/emacs-lisp/helper.el +++ b/lisp/emacs-lisp/helper.el @@ -1,6 +1,6 @@ ;;; helper.el --- utility help package supporting help in electric modes -;; Copyright (C) 1985 Free Software Foundation, Inc. +;; Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: K. Shane Hartman ;; Maintainer: FSF diff --git a/lisp/emacs-lisp/levents.el b/lisp/emacs-lisp/levents.el index 87a6725f171..70961912815 100644 --- a/lisp/emacs-lisp/levents.el +++ b/lisp/emacs-lisp/levents.el @@ -1,6 +1,7 @@ ;;; levents.el --- emulate the Lucid event data type and associated functions -;; Copyright (C) 1993, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1993, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: emulations diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el index d6c7c8c3458..b102b4da581 100644 --- a/lisp/emacs-lisp/lisp-mnt.el +++ b/lisp/emacs-lisp/lisp-mnt.el @@ -1,6 +1,7 @@ ;;; lisp-mnt.el --- utility functions for Emacs Lisp maintainers -;; Copyright (C) 1992, 1994, 1997, 2000, 2001, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1994, 1997, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> ;; Maintainer: FSF @@ -306,7 +307,7 @@ If FILE is nil, execute BODY in the current buffer." (insert-file-contents ,filesym) (lisp-mode) ,@body) - (save-excursion + (save-excursion ;; Switching major modes is too drastic, so just switch ;; temporarily to the Lisp mode syntax table. (with-syntax-table lisp-mode-syntax-table diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 88e6319709b..6d281e5deb2 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -1,7 +1,7 @@ ;;; lisp-mode.el --- Lisp mode, and its idiosyncratic commands -;; Copyright (C) 1985, 1986, 1999, 2000, 2001, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: lisp, languages diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index a20b79335cb..d248882d882 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -1,7 +1,7 @@ ;;; lisp.el --- Lisp editing commands for Emacs -;; Copyright (C) 1985, 1986, 1994, 2000, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1994, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: lisp, languages diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el index c047e0b91e7..68d3a3de9a9 100644 --- a/lisp/emacs-lisp/lmenu.el +++ b/lisp/emacs-lisp/lmenu.el @@ -1,6 +1,7 @@ ;;; lmenu.el --- emulate Lucid's menubar support -;; Copyright (C) 1992, 1993, 1994, 1997 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 1997, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: emulations obsolete @@ -31,8 +32,10 @@ ;; Arrange to use current-menubar to set up part of the menu bar. (defvar current-menubar) +(defvar lucid-menubar-map) +(defvar lucid-failing-menubar) -(setq recompute-lucid-menubar 'recompute-lucid-menubar) +(defvar recompute-lucid-menubar 'recompute-lucid-menubar) (defun recompute-lucid-menubar () (define-key lucid-menubar-map [menu-bar] (condition-case nil diff --git a/lisp/emacs-lisp/lselect.el b/lisp/emacs-lisp/lselect.el index f1d0244f0ea..38ae8b74460 100644 --- a/lisp/emacs-lisp/lselect.el +++ b/lisp/emacs-lisp/lselect.el @@ -1,6 +1,7 @@ ;;; lselect.el --- Lucid interface to X Selections -;; Copyright (C) 1990, 1993, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1990, 1993, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: emulations @@ -101,9 +102,9 @@ (defun x-own-selection (selection &optional type) - "Make a primary X Selection of the given argument. -The argument may be a string, a cons of two markers, or an extent. -In the latter cases the selection is considered to be the text + "Make a primary X Selection of the given argument. +The argument may be a string, a cons of two markers, or an extent. +In the latter cases the selection is considered to be the text between the markers, or the between extents endpoints." (interactive (if (not current-prefix-arg) (list (read-string "Store text for pasting: ")) @@ -124,7 +125,7 @@ between the markers, or the between extents endpoints." (defun x-own-secondary-selection (selection &optional type) - "Make a secondary X Selection of the given argument. The argument may be a + "Make a secondary X Selection of the given argument. The argument may be a string or a cons of two markers (in which case the selection is considered to be the text between those markers.)" (interactive (if (not current-prefix-arg) @@ -182,7 +183,7 @@ secondary selection instead of the primary selection." ;; Random utility functions (defun x-kill-primary-selection () - "If there is a selection, delete the text it covers, and copy it to + "If there is a selection, delete the text it covers, and copy it to both the kill ring and the Clipboard." (interactive) (or (x-selection-owner-p) (error "emacs does not own the primary selection")) diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el index 3374a4d7d73..f3c9519edf0 100644 --- a/lisp/emacs-lisp/lucid.el +++ b/lisp/emacs-lisp/lucid.el @@ -1,6 +1,7 @@ ;;; lucid.el --- emulate some Lucid Emacs functions -;; Copyright (C) 1993, 1995, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1995, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: emulations diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el index 02ad05639a3..98e4f67f630 100644 --- a/lisp/emacs-lisp/macroexp.el +++ b/lisp/emacs-lisp/macroexp.el @@ -1,6 +1,6 @@ ;;; macroexp.el --- Additional macro-expansion support ;; -;; Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc. +;; Copyright (C) 2004, 2005 Free Software Foundation, Inc. ;; ;; Author: Miles Bader <miles@gnu.org> ;; Keywords: lisp, compiler, macros @@ -91,7 +91,7 @@ FORMS." CLAUSES is a list of lists of forms; any clause that's not a list is ignored. If SKIP is non-nil, then don't expand that many elements at the start of each clause." - (macroexp-accumulate (clause clauses) + (macroexp-accumulate (clause clauses) (if (listp clause) (macroexpand-all-forms clause skip) clause))) diff --git a/lisp/emacs-lisp/map-ynp.el b/lisp/emacs-lisp/map-ynp.el index 6447f7e438c..84c7ae58ced 100644 --- a/lisp/emacs-lisp/map-ynp.el +++ b/lisp/emacs-lisp/map-ynp.el @@ -1,6 +1,7 @@ ;;; map-ynp.el --- general-purpose boolean question-asker -;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 2000, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Roland McGrath <roland@gnu.org> ;; Maintainer: FSF @@ -102,15 +103,18 @@ Returns the number of actions taken." (let ((object (if help (capitalize (nth 0 help)))) (objects (if help (capitalize (nth 1 help)))) (action (if help (capitalize (nth 2 help))))) - (setq map `(("Yes" . act) ("No" . skip) ("Quit" . exit) - (,(if help (concat action " " object " And Quit") - "Do it and Quit") . act-and-exit) - (,(if help (concat action " All " objects) - "Do All") . automatic) + (setq map `(("Yes" . act) ("No" . skip) ,@(mapcar (lambda (elt) - (cons (capitalize (nth 2 elt)) + (cons (with-syntax-table + text-mode-syntax-table + (capitalize (nth 2 elt))) (vector (nth 1 elt)))) - action-alist)) + action-alist) + (,(if help (concat action " This But No More") + "Do This But No More") . act-and-exit) + (,(if help (concat action " All " objects) + "Do All") . automatic) + ("No For All" . exit)) use-menus t mouse-event last-nonmenu-event)) (setq user-keys (if action-alist diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el index 7bbd56d8af5..542948c777c 100644 --- a/lisp/emacs-lisp/pp.el +++ b/lisp/emacs-lisp/pp.el @@ -1,6 +1,7 @@ ;;; pp.el --- pretty printer for Emacs Lisp -;; Copyright (C) 1989, 1993, 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1989, 1993, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Randal Schwartz <merlyn@stonehenge.com> ;; Keywords: lisp diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el index e0a3c5ed285..1d1e002cf5f 100644 --- a/lisp/emacs-lisp/re-builder.el +++ b/lisp/emacs-lisp/re-builder.el @@ -1,6 +1,7 @@ ;;; re-builder.el --- building Regexps with visual feedback -;; Copyright (C) 1999, 2000, 2001, 2002, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Detlev Zundel <dzu@gnu.org> ;; Keywords: matching, lisp, tools diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el index 0188672717c..26a4debd6f3 100644 --- a/lisp/emacs-lisp/regexp-opt.el +++ b/lisp/emacs-lisp/regexp-opt.el @@ -1,7 +1,7 @@ ;;; regexp-opt.el --- generate efficient regexps to match strings -;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Simon Marshall <simon@gnu.org> ;; Maintainer: FSF diff --git a/lisp/emacs-lisp/regi.el b/lisp/emacs-lisp/regi.el index 7f9d313542d..4326ba37786 100644 --- a/lisp/emacs-lisp/regi.el +++ b/lisp/emacs-lisp/regi.el @@ -1,6 +1,6 @@ ;;; regi.el --- REGular expression Interpreting engine -;; Copyright (C) 1993 Free Software Foundation, Inc. +;; Copyright (C) 1993, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: 1993 Barry A. Warsaw, Century Computing, Inc. <bwarsaw@cen.com> ;; Maintainer: bwarsaw@cen.com diff --git a/lisp/emacs-lisp/ring.el b/lisp/emacs-lisp/ring.el index 24b90650f0a..f04d98f399d 100644 --- a/lisp/emacs-lisp/ring.el +++ b/lisp/emacs-lisp/ring.el @@ -1,6 +1,6 @@ ;;; ring.el --- handle rings of items -;; Copyright (C) 1992 Free Software Foundation, Inc. +;; Copyright (C) 1992, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: extensions diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el index c3147815fc9..f526ffae948 100644 --- a/lisp/emacs-lisp/rx.el +++ b/lisp/emacs-lisp/rx.el @@ -1,6 +1,6 @@ ;;; rx.el --- sexp notation for regular expressions -;; Copyright (C) 2001, 2003, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Gerd Moellmann <gerd@gnu.org> ;; Maintainer: FSF diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el index b36ce4a332e..9cea82d7780 100644 --- a/lisp/emacs-lisp/shadow.el +++ b/lisp/emacs-lisp/shadow.el @@ -1,6 +1,6 @@ ;;; shadow.el --- locate Emacs Lisp file shadowings -;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Terry Jones <terry@santafe.edu> ;; Keywords: lisp diff --git a/lisp/emacs-lisp/sregex.el b/lisp/emacs-lisp/sregex.el index 84cb9785f6f..7bfa9402836 100644 --- a/lisp/emacs-lisp/sregex.el +++ b/lisp/emacs-lisp/sregex.el @@ -1,6 +1,7 @@ ;;; sregex.el --- symbolic regular expressions -;; Copyright (C) 1997, 1998, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1998, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Bob Glickstein <bobg+sregex@zanshin.com> ;; Maintainer: Bob Glickstein <bobg+sregex@zanshin.com> diff --git a/lisp/emacs-lisp/syntax.el b/lisp/emacs-lisp/syntax.el index bb5e782b001..a3683e82d2b 100644 --- a/lisp/emacs-lisp/syntax.el +++ b/lisp/emacs-lisp/syntax.el @@ -1,6 +1,7 @@ ;;; syntax.el --- helper functions to find syntactic context -;; Copyright (C) 2000, 2003 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal diff --git a/lisp/emacs-lisp/tcover-ses.el b/lisp/emacs-lisp/tcover-ses.el index 4c2ee1ee33c..1374aa1fdc0 100644 --- a/lisp/emacs-lisp/tcover-ses.el +++ b/lisp/emacs-lisp/tcover-ses.el @@ -1,6 +1,6 @@ ;;;; testcover-ses.el -- Example use of `testcover' to test "SES" -;; Copyright (C) 2002 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Jonathan Yavner <jyavner@engineer.com> ;; Maintainer: Jonathan Yavner <jyavner@engineer.com> diff --git a/lisp/emacs-lisp/tcover-unsafep.el b/lisp/emacs-lisp/tcover-unsafep.el index 9544bc396b4..354cfe6ab16 100644 --- a/lisp/emacs-lisp/tcover-unsafep.el +++ b/lisp/emacs-lisp/tcover-unsafep.el @@ -1,6 +1,6 @@ ;;;; testcover-unsafep.el -- Use testcover to test unsafep's code coverage -;; Copyright (C) 2002 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Jonathan Yavner <jyavner@engineer.com> ;; Maintainer: Jonathan Yavner <jyavner@engineer.com> diff --git a/lisp/emacs-lisp/testcover.el b/lisp/emacs-lisp/testcover.el index a5e761d9cba..c0afffdf391 100644 --- a/lisp/emacs-lisp/testcover.el +++ b/lisp/emacs-lisp/testcover.el @@ -1,6 +1,6 @@ ;;;; testcover.el -- Visual code-coverage tool -;; Copyright (C) 2002, 2005 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Jonathan Yavner <jyavner@member.fsf.org> ;; Maintainer: Jonathan Yavner <jyavner@member.fsf.org> @@ -154,15 +154,11 @@ call to one of the `testcover-1value-functions'." '((t (:background "DeepPink2"))) "Face for forms that had no hits during coverage test" :group 'testcover) -;; backward-compatibility alias -(put 'testcover-nohits-face 'face-alias 'testcover-nohits) (defface testcover-1value '((t (:background "Wheat2"))) "Face for forms that always produced the same value during coverage test" :group 'testcover) -;; backward-compatibility alias -(put 'testcover-1value-face 'face-alias 'testcover-1value) ;;;========================================================================= diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el index 27f14a6d3ad..83b01642c56 100644 --- a/lisp/emacs-lisp/timer.el +++ b/lisp/emacs-lisp/timer.el @@ -1,6 +1,6 @@ ;;; timer.el --- run a function with args at some time in future -;; Copyright (C) 1996 Free Software Foundation, Inc. +;; Copyright (C) 1996, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF diff --git a/lisp/emacs-lisp/tq.el b/lisp/emacs-lisp/tq.el index d94b4925c4d..8b1baad6596 100644 --- a/lisp/emacs-lisp/tq.el +++ b/lisp/emacs-lisp/tq.el @@ -1,6 +1,7 @@ ;;; tq.el --- utility to maintain a transaction queue -;; Copyright (C) 1985, 1986, 1987, 1992, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1992, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Scott Draves <spot@cs.cmu.edu> ;; Maintainer: FSF diff --git a/lisp/emacs-lisp/trace.el b/lisp/emacs-lisp/trace.el index 8cd5d0fa317..cda23f39c04 100644 --- a/lisp/emacs-lisp/trace.el +++ b/lisp/emacs-lisp/trace.el @@ -1,6 +1,7 @@ ;;; trace.el --- tracing facility for Emacs Lisp functions -;; Copyright (C) 1993, 1998, 2000, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1998, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Hans Chalupsky <hans@cs.buffalo.edu> ;; Maintainer: FSF diff --git a/lisp/emacs-lisp/unsafep.el b/lisp/emacs-lisp/unsafep.el index c59b44cddb2..4b1312d58d7 100644 --- a/lisp/emacs-lisp/unsafep.el +++ b/lisp/emacs-lisp/unsafep.el @@ -1,6 +1,6 @@ ;;;; unsafep.el -- Determine whether a Lisp form is safe to evaluate -;; Copyright (C)2002 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Jonathan Yavner <jyavner@member.fsf.org> ;; Maintainer: Jonathan Yavner <jyavner@member.fsf.org> diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el index 1f573673495..61f6b98005e 100644 --- a/lisp/emacs-lisp/warnings.el +++ b/lisp/emacs-lisp/warnings.el @@ -1,6 +1,6 @@ ;;; warnings.el --- log and display warnings -;; Copyright (C) 2002 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal diff --git a/lisp/emacs-lock.el b/lisp/emacs-lock.el index 479cc4f2ede..e94be04213c 100644 --- a/lisp/emacs-lock.el +++ b/lisp/emacs-lock.el @@ -1,6 +1,7 @@ ;;; emacs-lock.el --- prevents you from exiting emacs if a buffer is locked -;; Copyright (C) 1994, 1997 Free Software Foundation, Inc +;; Copyright (C) 1994, 1997, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc ;; Author: Tom Wurgler <twurgler@goodyear.com> ;; Created: 12/8/94 diff --git a/lisp/emerge.el b/lisp/emerge.el index 1f105163f46..e55a75ef2fc 100644 --- a/lisp/emerge.el +++ b/lisp/emerge.el @@ -44,6 +44,12 @@ ;;;###autoload (define-key menu-bar-emerge-menu [emerge-buffers] ;;;###autoload '("Buffers..." . emerge-buffers)) +(eval-when-compile + ;; There aren't really global variables, just dynamic bindings + (defvar merge-begin) (defvar merge-end) (defvar template) + (defvar A-begin) (defvar A-end) (defvar B-begin) (defvar B-end) + (defvar diff) (defvar diff-vector) (defvar valid-diff)) + ;;; Macros (defmacro emerge-eval-in-buffer (buffer &rest forms) diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index beb30d500d4..0e60e60b4c4 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el @@ -575,6 +575,7 @@ a cons (TYPE . COLOR), then both properties are affected." ;; Current region was started using cua-set-mark. (defvar cua--explicit-region-start nil) +(make-variable-buffer-local 'cua--explicit-region-start) ;; Latest region was started using shifted movement command. (defvar cua--last-region-shifted nil) @@ -585,6 +586,7 @@ a cons (TYPE . COLOR), then both properties are affected." ;; status string for mode line indications (defvar cua--status-string nil) +(make-variable-buffer-local 'cua--status-string) (defvar cua--debug nil) @@ -759,14 +761,19 @@ Save a copy in register 0 if `cua-delete-copy-to-register-0' is non-nil." (cons (current-buffer) (and (consp buffer-undo-list) (car buffer-undo-list)))) - (cua--deactivate))) + (cua--deactivate) + (/= start end))) (defun cua-replace-region () "Replace the active region with the character you type." (interactive) - (cua-delete-region) - (unless (eq this-original-command this-command) - (cua--fallback))) + (let ((not-empty (cua-delete-region))) + (unless (eq this-original-command this-command) + (let ((overwrite-mode + (and overwrite-mode + not-empty + (not (eq this-original-command 'self-insert-command))))) + (cua--fallback))))) (defun cua-copy-region (arg) "Copy the region to the kill ring. @@ -1359,8 +1366,6 @@ the prefix fallback behavior." :link '(emacs-commentary-link "cua-base.el") (setq mark-even-if-inactive t) (setq highlight-nonselected-windows nil) - (make-variable-buffer-local 'cua--explicit-region-start) - (make-variable-buffer-local 'cua--status-string) (unless cua--keymaps-initalized (cua--init-keymaps) diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index ce8b61fd022..99a130e7f1d 100644 --- a/lisp/emulation/viper-cmd.el +++ b/lisp/emulation/viper-cmd.el @@ -942,8 +942,10 @@ Suffixes such as .el or .elc should be stripped." ;; Change the default for minor-mode-map-alist each time a harnessed minor ;; mode adds its own keymap to the a-list. - (eval-after-load - load-file '(setq-default minor-mode-map-alist minor-mode-map-alist)) + (unless + (and (fboundp 'add-to-ordered-list) (boundp 'emulation-mode-map-alists)) + (eval-after-load + load-file '(setq-default minor-mode-map-alist minor-mode-map-alist))) ) @@ -1421,7 +1423,8 @@ as a Meta key and any number of multiple escapes is allowed." (if (eq last-command 'd-command) 'kill-region nil)) (setq chars-deleted (abs (- (point) viper-com-point))) (if (> chars-deleted viper-change-notification-threshold) - (message "Deleted %d characters" chars-deleted)) + (unless (viper-is-in-minibuffer) + (message "Deleted %d characters" chars-deleted))) (kill-region viper-com-point (point)) (setq this-command 'd-command) (if viper-ex-style-motion @@ -1447,7 +1450,8 @@ as a Meta key and any number of multiple escapes is allowed." (if (eq last-command 'D-command) 'kill-region nil)) (setq lines-deleted (count-lines (point) viper-com-point)) (if (> lines-deleted viper-change-notification-threshold) - (message "Deleted %d lines" lines-deleted)) + (unless (viper-is-in-minibuffer) + (message "Deleted %d lines" lines-deleted))) (kill-region (mark t) (point)) (if (eq m-com 'viper-line) (setq this-command 'D-command))) (back-to-indentation))) @@ -1472,7 +1476,8 @@ as a Meta key and any number of multiple escapes is allowed." (copy-region-as-kill viper-com-point (point)) (setq chars-saved (abs (- (point) viper-com-point))) (if (> chars-saved viper-change-notification-threshold) - (message "Saved %d characters" chars-saved)) + (unless (viper-is-in-minibuffer) + (message "Saved %d characters" chars-saved))) (goto-char viper-com-point))) ;; save lines @@ -1496,7 +1501,8 @@ as a Meta key and any number of multiple escapes is allowed." (copy-region-as-kill (mark t) (point)) (setq lines-saved (count-lines (mark t) (point))) (if (> lines-saved viper-change-notification-threshold) - (message "Saved %d lines" lines-saved)))) + (unless (viper-is-in-minibuffer) + (message "Saved %d lines" lines-saved))))) (viper-deactivate-mark) (goto-char viper-com-point)) @@ -4020,8 +4026,9 @@ Null string will repeat previous search." lines-inserted (abs (count-lines (point) sv-point))) (if (or (> chars-inserted viper-change-notification-threshold) (> lines-inserted viper-change-notification-threshold)) - (message "Inserted %d character(s), %d line(s)" - chars-inserted lines-inserted))) + (unless (viper-is-in-minibuffer) + (message "Inserted %d character(s), %d line(s)" + chars-inserted lines-inserted)))) ;; Vi puts cursor on the last char when the yanked text doesn't contain a ;; newline; it leaves the cursor at the beginning when the text contains ;; a newline @@ -4062,8 +4069,9 @@ Null string will repeat previous search." lines-inserted (abs (count-lines (point) sv-point))) (if (or (> chars-inserted viper-change-notification-threshold) (> lines-inserted viper-change-notification-threshold)) - (message "Inserted %d character(s), %d line(s)" - chars-inserted lines-inserted))) + (unless (viper-is-in-minibuffer) + (message "Inserted %d character(s), %d line(s)" + chars-inserted lines-inserted)))) ;; Vi puts cursor on the last char when the yanked text doesn't contain a ;; newline; it leaves the cursor at the beginning when the text contains ;; a newline diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el index 3c984a3596e..9c1df1b0ad5 100644 --- a/lisp/emulation/viper-init.el +++ b/lisp/emulation/viper-init.el @@ -424,13 +424,20 @@ delete the text being replaced, as in standard Vi." "*Cursor color when Viper is in Replace state." :type 'string :group 'viper) +(if (fboundp 'make-variable-frame-local) + (make-variable-frame-local 'viper-replace-overlay-cursor-color)) + (defcustom viper-insert-state-cursor-color "Green" "Cursor color when Viper is in insert state." :type 'string :group 'viper) +(if (fboundp 'make-variable-frame-local) + (make-variable-frame-local 'viper-insert-state-cursor-color)) ;; internal var, used to remember the default cursor color of emacs frames (defvar viper-vi-state-cursor-color nil) +(if (fboundp 'make-variable-frame-local) + (make-variable-frame-local 'viper-vi-state-cursor-color)) (viper-deflocalvar viper-replace-overlay nil "") (put 'viper-replace-overlay 'permanent-local t) diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el index 5bd67e1735f..cc9f42b9800 100644 --- a/lisp/emulation/viper-util.el +++ b/lisp/emulation/viper-util.el @@ -360,7 +360,7 @@ (setq lis2 (delq elt lis2))) (setq temp (cdr temp))) - (nconc lis1 lis2))) + (append lis1 lis2))) diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el index edc1fb1e9de..bfa730cc434 100644 --- a/lisp/emulation/viper.el +++ b/lisp/emulation/viper.el @@ -9,7 +9,7 @@ ;; Author: Michael Kifer <kifer@cs.stonybrook.edu> ;; Keywords: emulations -(defconst viper-version "3.11.5 of July 8, 2005" +(defconst viper-version "3.11.5 of August 6, 2005" "The current version of Viper") ;; This file is part of GNU Emacs. @@ -372,7 +372,6 @@ widget." (defcustom viper-vi-state-mode-list '(fundamental-mode makefile-mode - help-mode awk-mode m4-mode @@ -398,7 +397,7 @@ widget." tex-mode latex-mode bibtex-mode ps-mode - completion-list-mode + ;; completion-list-mode diff-mode idl-mode @@ -426,6 +425,7 @@ widget." browse-kill-ring-mode recentf-mode + recentf-dialog-mode occur-mode mh-folder-mode @@ -433,6 +433,9 @@ widget." gnus-group-mode gnus-summary-mode + completion-list-mode + help-mode + Info-mode Buffer-menu-mode compilation-mode @@ -523,7 +526,7 @@ If Viper is enabled, turn it off. Otherwise, turn it on." ;;;###autoload (defun viper-mode () - "Turn on Viper emulation of Vi." + "Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Viper'." (interactive) (if (not noninteractive) (progn @@ -656,8 +659,7 @@ This function tries to do as good a job as possible. However, it may undo some user customization, unrelated to Viper. For instance, if the user advised `read-file-name', `describe-key', and some others, then this advice will be undone. -It also doesn't undo some Viper settings. For instance, `minor-mode-map-alist' -remains buffer-local." +It also can't undo some Viper settings." (interactive) ;; restore non-viper vars @@ -683,7 +685,9 @@ remains buffer-local." 'mark-even-if-inactive viper-saved-non-viper-variables))) ;; Ideally, we would like to be able to de-localize local variables - (viper-delocalize-var 'minor-mode-map-alist) + (unless + (and (fboundp 'add-to-ordered-list) (boundp 'emulation-mode-map-alists)) + (viper-delocalize-var 'minor-mode-map-alist)) (viper-delocalize-var 'require-final-newline) (if viper-xemacs-p (viper-delocalize-var 'bar-cursor)) @@ -889,6 +893,14 @@ remains buffer-local." ad-do-it )) + (defadvice set-cursor-color (after viper-set-cursor-color-ad activate) + "Change cursor color in VI state." + ;;(setq viper-vi-state-cursor-color (ad-get-arg 0)) + (modify-frame-parameters + (selected-frame) + (list (cons 'viper-vi-state-cursor-color (ad-get-arg 0)))) + ) + (when (and (fboundp 'add-to-ordered-list) (boundp 'emulation-mode-map-alists)) ;; needs to be as early as possible (add-to-ordered-list @@ -993,7 +1005,10 @@ remains buffer-local." ;; viper-vi-local-user-map, viper-insert-local-user-map, and others can have ;; different keymaps for different buffers. Also, the keymaps associated ;; with viper-vi/insert-state-modifier-minor-mode can be different. - (make-variable-buffer-local 'minor-mode-map-alist) + ;; ***This is needed only in case emulation-mode-map-alists is not defined + (unless + (and (fboundp 'add-to-ordered-list) (boundp 'emulation-mode-map-alists)) + (make-variable-buffer-local 'minor-mode-map-alist)) ;; Viper changes the default mode-line-buffer-identification (setq-default mode-line-buffer-identification '(" %b")) @@ -1088,9 +1103,11 @@ remains buffer-local." viper-advice-add-minor-mode (toggle name &optional keymap after toggle-fun) activate) - "Run viper-normalize-minor-mode-map-alist after adding a minor mode." - (viper-normalize-minor-mode-map-alist) - (setq-default minor-mode-map-alist minor-mode-map-alist)) + "Run viper-normalize-minor-mode-map-alist after adding a minor mode." + (viper-normalize-minor-mode-map-alist) + (unless + (and (fboundp 'add-to-ordered-list) (boundp 'emulation-mode-map-alists)) + (setq-default minor-mode-map-alist minor-mode-map-alist))) ;; catch frame switching event (if (viper-window-display-p) @@ -1264,11 +1281,10 @@ These two lines must come in the order given. (define-key viper-emacs-intercept-map viper-toggle-key 'viper-change-state-to-vi) +;;; Removed to avoid bad interaction with cua-mode. ;;; Escape from Emacs and Insert modes to Vi for one command -(define-key - viper-emacs-intercept-map "\C-c\\" 'viper-escape-to-vi) -(define-key - viper-insert-intercept-map "\C-c\\" 'viper-escape-to-vi) +;;(define-key viper-emacs-intercept-map "\C-c\\" 'viper-escape-to-vi) +;;(define-key viper-insert-intercept-map "\C-c\\" 'viper-escape-to-vi) (if viper-mode (setq-default viper-emacs-intercept-minor-mode t @@ -1296,7 +1312,10 @@ These two lines must come in the order given. (if (and viper-mode (eq viper-current-state 'emacs-state)) (progn (viper-change-state-to-emacs) - (setq-default minor-mode-map-alist minor-mode-map-alist) + (unless + (and (fboundp 'add-to-ordered-list) + (boundp 'emulation-mode-map-alists)) + (setq-default minor-mode-map-alist minor-mode-map-alist)) )) (if (and viper-mode (this-major-mode-requires-vi-state major-mode)) diff --git a/lisp/env.el b/lisp/env.el index 606aa163c87..409765f5ff4 100644 --- a/lisp/env.el +++ b/lisp/env.el @@ -1,6 +1,7 @@ ;;; env.el --- functions to manipulate environment variables -;; Copyright (C) 1991, 1994, 2000, 2001, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1991, 1994, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: processes, unix diff --git a/lisp/eshell/eshell.el b/lisp/eshell/eshell.el index 8c13b485cc2..ce9641026c7 100644 --- a/lisp/eshell/eshell.el +++ b/lisp/eshell/eshell.el @@ -374,11 +374,10 @@ buffer selected (or created)." ;; `same-window-buffer-names', which is done when Eshell is loaded (assert (and buf (buffer-live-p buf))) (pop-to-buffer buf) - (unless (fboundp 'eshell-mode) + (if (fboundp 'eshell-mode) + (unless (eq major-mode 'eshell-mode) + (eshell-mode)) (error "`eshell-auto' must be loaded before Eshell can be used")) - (unless (eq major-mode 'eshell-mode) - (eshell-mode)) - (assert (eq major-mode 'eshell-mode)) buf)) (defun eshell-return-exits-minibuffer () diff --git a/lisp/expand.el b/lisp/expand.el index e0ebad49caa..aeb9ec83b14 100644 --- a/lisp/expand.el +++ b/lisp/expand.el @@ -1,6 +1,7 @@ ;;; expand.el --- make abbreviations more usable -;; Copyright (C) 1995, 1996 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Frederic Lepied <Frederic.Lepied@sugix.frmug.org> ;; Maintainer: Frederic Lepied <Frederic.Lepied@sugix.frmug.org> diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 1cda18dda2e..00fb13fe8f9 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -1,6 +1,7 @@ ;;; facemenu.el --- create a face menu for interactively adding fonts to text -;; Copyright (c) 1994, 1995, 1996, 2001, 2002, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1996, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Boris Goldowsky <boris@gnu.org> ;; Keywords: faces diff --git a/lisp/faces.el b/lisp/faces.el index d747149eedd..738bd99ba24 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1,7 +1,7 @@ ;;; faces.el --- Lisp faces -;; Copyright (C) 1992,1993,1994,1995,1996,1998,1999,2000,2001,2002,2004,2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, +;; 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal @@ -770,7 +770,7 @@ and DATA is a string, containing the raw bits of the bitmap." (set-face-attribute face frame :stipple (or stipple 'unspecified))) -(defun set-face-underline (face underline &optional frame) +(defun set-face-underline-p (face underline-p &optional frame) "Specify whether face FACE is underlined. UNDERLINE nil means FACE explicitly doesn't underline. UNDERLINE non-nil means FACE explicitly does underlining @@ -781,20 +781,11 @@ Use `set-face-attribute' to ``unspecify'' underlining." (interactive (let ((list (read-face-and-attribute :underline))) (list (car list) (eq (car (cdr list)) t)))) - (set-face-attribute face frame :underline underline)) - - -(defun set-face-underline-p (face underline-p &optional frame) - "Specify whether face FACE is underlined. -UNDERLINE-P nil means FACE explicitly doesn't underline. -UNDERLINE-P non-nil means FACE explicitly does underlining. -FRAME nil or not specified means change face on all frames. -Use `set-face-attribute' to ``unspecify'' underlining." - (interactive - (let ((list (read-face-and-attribute :underline))) - (list (car list) (eq (car (cdr list)) t)))) (set-face-attribute face frame :underline underline-p)) +(define-obsolete-function-alias 'set-face-underline + 'set-face-underline-p "22.1") + (defun set-face-inverse-video-p (face inverse-video-p &optional frame) "Specify whether face FACE is in inverse video. @@ -1319,7 +1310,14 @@ If FRAME is omitted or nil, use the selected frame." (dolist (a attrs) (let ((attr (face-attribute f (car a) frame))) (insert (make-string (- max-width (length (cdr a))) ?\s) - (cdr a) ": " (format "%s" attr) "\n"))))) + (cdr a) ": " (format "%s" attr)) + (if (and (eq (car a) :inherit) + (not (eq attr 'unspecified))) + ;; Make a hyperlink to the parent face. + (save-excursion + (re-search-backward ": \\([^:]+\\)" nil t) + (help-xref-button 1 'help-face attr))) + (insert "\n"))))) (terpri))) (print-help-return-message)))) @@ -1954,13 +1952,16 @@ created." :group 'basic-faces) -(defface minibuffer-prompt '((((background dark)) :foreground "cyan") - ;; Don't use blue because many users of - ;; the MS-DOS port customize their - ;; foreground color to be blue. - (((type pc)) :foreground "magenta") - (t :foreground "dark blue")) - "Face for minibuffer prompts." +(defface minibuffer-prompt + '((((background dark)) :foreground "cyan") + ;; Don't use blue because many users of the MS-DOS port customize + ;; their foreground color to be blue. + (((type pc)) :foreground "magenta") + (t :foreground "dark blue")) + "Face for minibuffer prompts. +By default, Emacs automatically adds this face to the value of +`minibuffer-prompt-properties', which is a list of text properties +used to display the prompt text." :version "22.1" :group 'basic-faces) diff --git a/lisp/ffap.el b/lisp/ffap.el index e30b859a588..d408918558a 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el @@ -1,6 +1,7 @@ ;;; ffap.el --- find file (or url) at point -;; Copyright (C) 1995, 96, 97, 2000, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Michelangelo Grigni <mic@mathcs.emory.edu> ;; Maintainer: Rajesh Vaidheeswarran <rv@gnu.org> @@ -1711,6 +1712,9 @@ Only intended for interactive use." (local-set-key "\M-l" 'ffap-gnus-next) (local-set-key "\M-m" 'ffap-gnus-menu)) +(defvar gnus-summary-buffer) +(defvar gnus-article-buffer) + (defun ffap-gnus-wrapper (form) ; used by both commands below (and (eq (current-buffer) (get-buffer gnus-summary-buffer)) (gnus-summary-select-article)) ; get article of current line diff --git a/lisp/filecache.el b/lisp/filecache.el index 9fccba4b84b..bb45bb392f3 100644 --- a/lisp/filecache.el +++ b/lisp/filecache.el @@ -4,7 +4,8 @@ ;; Created: Sun Nov 10 1996 ;; Keywords: convenience ;; -;; Copyright (C) 1996, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1996, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. diff --git a/lisp/files.el b/lisp/files.el index 6479ef3bc92..1613f3add95 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1,7 +1,7 @@ ;;; files.el --- file input and output commands for Emacs ;; Copyright (C) 1985, 1986, 1987, 1992, 1993, 1994, 1995, 1996, 1997, 1998, -;; 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. +;; 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF @@ -1464,7 +1464,6 @@ the various files." buf) ;; Create a new buffer. (setq buf (create-file-buffer filename)) - (set-buffer-major-mode buf) ;; find-file-noselect-1 may use a different buffer. (find-file-noselect-1 buf filename nowarn rawfile truename number)))))) @@ -1538,6 +1537,7 @@ the various files." (progn (set-buffer-multibyte nil) (setq buffer-file-coding-system 'no-conversion) + (set-buffer-major-mode buf) (make-local-variable 'find-file-literally) (setq find-file-literally t)) (after-find-file error (not nowarn))) @@ -1727,12 +1727,18 @@ not set local variables (though we do notice a mode specified with -*-.) or from Lisp without specifying the optional argument FIND-FILE; in that case, this function acts as if `enable-local-variables' were t." (interactive) - (or find-file (funcall (or default-major-mode 'fundamental-mode))) + (funcall (or default-major-mode 'fundamental-mode)) (let ((enable-local-variables (or (not find-file) enable-local-variables))) (report-errors "File mode specification error: %s" (set-auto-mode)) (report-errors "File local-variables error: %s" (hack-local-variables))) + ;; Turn font lock off and on, to make sure it takes account of + ;; whatever file local variables are relevant to it. + (when (and font-lock-mode (eq (car font-lock-keywords) t)) + (setq font-lock-keywords (cadr font-lock-keywords)) + (font-lock-mode 1)) + (if (fboundp 'ucs-set-table-for-input) ; don't lose when building (ucs-set-table-for-input))) @@ -1947,9 +1953,8 @@ and `magic-mode-alist', which determines modes based on file contents.") "Alist mapping interpreter names to major modes. This is used for files whose first lines match `auto-mode-interpreter-regexp'. Each element looks like (INTERPRETER . MODE). -The car of each element, a regular expression, is compared with -the name of the interpreter specified in the first line. -If it matches, mode MODE is selected. +If INTERPRETER matches the name of the interpreter specified in the first line +of a script, mode MODE is enabled. See also `auto-mode-alist'.") @@ -3450,9 +3455,9 @@ This requires the external program `diff' to be in your `exec-path'." (recursive-edit) ;; Return nil to ask about BUF again. nil) - "display the current buffer") + "view this file") (?d diff-buffer-with-file - "show difference to last saved version")) + "view changes in file")) "ACTION-ALIST argument used in call to `map-y-or-n-p'.") (put 'save-some-buffers-action-alist 'risky-local-variable t) @@ -4844,7 +4849,8 @@ With prefix arg, silently save all file-visiting buffers, then kill." ((eq method 'add) (concat "/:" (apply operation arguments))) ((eq method 'quote) - (prog1 (apply operation arguments) + (unwind-protect + (apply operation arguments) (setq buffer-file-name (concat "/:" buffer-file-name)))) ((eq method 'unquote-then-quote) (let (res) diff --git a/lisp/filesets.el b/lisp/filesets.el index 009e6797a4d..1ee126465a5 100644 --- a/lisp/filesets.el +++ b/lisp/filesets.el @@ -1,6 +1,6 @@ ;;; filesets.el --- handle group of files -;; Copyright (C) 2002, 2005 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Thomas Link <t.link@gmx.at> ;; Maintainer: FSF diff --git a/lisp/find-dired.el b/lisp/find-dired.el index e1b4ce65e71..8347e68c58e 100644 --- a/lisp/find-dired.el +++ b/lisp/find-dired.el @@ -1,6 +1,7 @@ ;;; find-dired.el --- run a `find' command and dired the output -;; Copyright (C) 1992, 1994, 1995, 2000, 2002 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1994, 1995, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Roland McGrath <roland@gnu.org>, ;; Sebastian Kremer <sk@thp.uni-koeln.de> diff --git a/lisp/find-file.el b/lisp/find-file.el index d741ed7d845..db03adce29f 100644 --- a/lisp/find-file.el +++ b/lisp/find-file.el @@ -4,7 +4,8 @@ ;; Maintainer: FSF ;; Keywords: c, matching, tools -;; Copyright (C) 1994, 1995, 2002, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -943,6 +944,9 @@ and the name of the file passed in." ;; bind with (setq ff-pre-load-hook 'ff-which-function-are-we-in) ;; +(defvar ada-procedure-start-regexp) +(defvar ada-package-start-regexp) + (defun ff-which-function-are-we-in () "Return the name of the function whose definition/declaration point is in. Also remember that name in `ff-function-name'." diff --git a/lisp/find-lisp.el b/lisp/find-lisp.el index 35b24af3d6b..b019fd6ba98 100644 --- a/lisp/find-lisp.el +++ b/lisp/find-lisp.el @@ -5,7 +5,8 @@ ;; Keywords: unix ;; Time-stamp: <2001-07-16 12:42:35 pavel> -;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. diff --git a/lisp/finder.el b/lisp/finder.el index 01052101e6d..737bb676a1a 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -1,6 +1,7 @@ ;;; finder.el --- topic & keyword-based code finder -;; Copyright (C) 1992,97,98,1999,2001,2004 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1997, 1998, 1999, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> ;; Created: 16 Jun 1992 diff --git a/lisp/flow-ctrl.el b/lisp/flow-ctrl.el index 0bfc5c7e92e..0acbe41c6ed 100644 --- a/lisp/flow-ctrl.el +++ b/lisp/flow-ctrl.el @@ -1,6 +1,7 @@ ;;; flow-ctrl.el --- help for lusers on cu(1) or ttys with wired-in ^S/^Q flow control -;; Copyright (C) 1990, 1991, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1990, 1991, 1994, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author Kevin Gallagher ;; Maintainer: FSF diff --git a/lisp/foldout.el b/lisp/foldout.el index 9c6ef395ab5..54fca4eb6f0 100644 --- a/lisp/foldout.el +++ b/lisp/foldout.el @@ -1,6 +1,6 @@ ;;; foldout.el --- folding extensions for outline-mode and outline-minor-mode -;; Copyright (C) 1994 Free Software Foundation, Inc. +;; Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Kevin Broadey <KevinB@bartley.demon.co.uk> ;; Created: 27 Jan 1994 diff --git a/lisp/follow.el b/lisp/follow.el index 09b408cb452..37a157cc406 100644 --- a/lisp/follow.el +++ b/lisp/follow.el @@ -1,7 +1,7 @@ ;;; follow.el --- synchronize windows showing the same buffer -;; Copyright (C) 1995, 1996, 1997, 1999, 2001, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1999, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Anders Lindgren <andersl@andersl.com> ;; Maintainer: Anders Lindgren <andersl@andersl.com> diff --git a/lisp/font-core.el b/lisp/font-core.el index 19417720d3a..4af6e1c41f0 100644 --- a/lisp/font-core.el +++ b/lisp/font-core.el @@ -1,7 +1,7 @@ ;;; font-core.el --- Core interface to font-lock ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, -;; 2002, 2003, 2005 Free Software Foundation, Inc. +;; 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: languages, faces diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 6a95bc973d8..3dca353f2ef 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -1,7 +1,7 @@ ;;; font-lock.el --- Electric font lock mode ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -;; 2000, 2001, 2002, 2003, 2004 2005 Free Software Foundation, Inc. +;; 2000, 2001, 2002, 2003, 2004 2005 Free Software Foundation, Inc. ;; Author: jwz, then rms, then sm ;; Maintainer: FSF diff --git a/lisp/format.el b/lisp/format.el index 6667701ffe7..dd6b2d215ce 100644 --- a/lisp/format.el +++ b/lisp/format.el @@ -1,6 +1,7 @@ ;;; format.el --- read and save files in multiple formats -;; Copyright (c) 1994, 1995, 1997, 1999, 2004 Free Software Foundation +;; Copyright (C) 1994, 1995, 1997, 1999, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Boris Goldowsky <boris@gnu.org> diff --git a/lisp/forms.el b/lisp/forms.el index 7b41698cf4f..419a6fa3778 100644 --- a/lisp/forms.el +++ b/lisp/forms.el @@ -1,6 +1,7 @@ ;;; forms.el --- Forms mode: edit a file as a form to fill in -;; Copyright (C) 1991, 1994, 1995, 1996, 1997, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1991, 1994, 1995, 1996, 1997, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Johan Vromans <jvromans@squirrel.nl> diff --git a/lisp/frame.el b/lisp/frame.el index e416817d185..0a1ffb8a999 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1,7 +1,7 @@ ;;; frame.el --- multi-frame management independent of window systems -;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal diff --git a/lisp/fringe.el b/lisp/fringe.el index 1265e8308a0..a32d6b5902c 100644 --- a/lisp/fringe.el +++ b/lisp/fringe.el @@ -1,6 +1,6 @@ ;;; fringe.el --- change fringes appearance in various ways -;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Simon Josefsson <simon@josefsson.org> ;; Maintainer: FSF @@ -260,43 +260,6 @@ SIDE must be the symbol `left' or `right'." 0) (float (frame-char-width)))) -;; Fake defvar. Real definition using defcustom is below. The fake -;; defvar is necessary because `fringe-indicators' and -;; `set-fringe-indicators-1' mutually use each other. -(defvar fringe-indicators) - -(defun set-fringe-indicators-1 (ignore value) - "Set fringe indicators according to VALUE. -This is usually invoked when setting `fringe-indicators' via customize." - (setq fringe-indicators value) - (setq default-indicate-empty-lines nil) - (setq default-indicate-buffer-boundaries - (cond - ((memq value '(left right t)) - value) - ((eq value 'box) - '((top . left) (bottom . right))) - ((eq value 'mixed) - '((top . left) (t . right))) - ((eq value 'empty) - (setq default-indicate-empty-lines t) - nil) - (t nil)))) - -;;;###autoload -(defcustom fringe-indicators nil - "Visually indicate buffer boundaries and scrolling. -Setting this variable, changes `default-indicate-buffer-boundaries'." - :type '(choice (const :tag "No indicators" nil) - (const :tag "On left" left) - (const :tag "On right" right) - (const :tag "Opposite, no arrows" box) - (const :tag "Opposite, arrows right" mixed) - (const :tag "Empty lines" empty)) - :group 'fringe - :require 'fringe - :set 'set-fringe-indicators-1) - (provide 'fringe) ;;; arch-tag: 6611ef60-0869-47ed-8b93-587ee7d3ff5d diff --git a/lisp/generic-x.el b/lisp/generic-x.el index 55afcc73e62..d6f56cfc76c 100644 --- a/lisp/generic-x.el +++ b/lisp/generic-x.el @@ -1,6 +1,7 @@ ;;; generic-x.el --- A collection of generic modes -;; Copyright (C) 1997, 1998, 2003, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1998, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Peter Breton <pbreton@cs.umb.edu> ;; Created: Tue Oct 08 1996 diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 9f5ee5e1e33..cc85c51f5e2 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,33 @@ +2005-08-22 Karl Chen <quarl@cs.berkeley.edu> (tiny change) + + * gnus-art.el (gnus-treatment-function-alist): Move date-lapsed to + the end of the date treatments. + +2005-08-15 Simon Josefsson <jas@extundo.com> + + * pgg.el (url-insert-file-contents): Don't autoload it, Emacs has + it in url-handlers.el and XEmacs in url.el. Reported by Luca + Capello and Romain Francoise. + (pgg-fetch-key-function): Removed, not used? + (pgg-insert-url-with-w3): Require url, to get + url-insert-file-contents regardless of where it is defined. + +2005-08-08 Simon Josefsson <jas@extundo.com> + + * pgg.el: Autoload url-insert-file-contents instead of loading + w3/url. + (pgg-insert-url-with-w3): Don't load url here. + +2005-08-05 Daiki Ueno <ueno@unixuser.org> + + * mml2015.el (mml2015-pgg-sign): Make sure micalg is correct. + + * pgg-parse.el (pgg-parse-hash-algorithm-alist): Add SHA-2. + +2005-08-06 Romain Francoise <romain@orebokech.com> + + * message.el: Fix typo in docstring. + 2005-08-05 Katsumi Yamaoka <yamaoka@jpl.org> * mm-bodies.el (mm-encode-body): Use coding system rather than @@ -104,6 +134,12 @@ * mm-uu.el (mm-uu-copy-to-buffer): Use with-current-buffer. +2005-07-16 Romain Francoise <romain@orebokech.com> + + * gnus-uu.el (gnus-uu-save-article): Use `message-make-date' + instead of `current-time-string' as the latter creates a time + string that is not RFC 2822 compliant (it lacks the zone). + 2005-07-16 Lars Magne Ingebrigtsen <larsi@gnus.org> * gnus-msg.el (gnus-button-mailto): Remove diff --git a/lisp/gnus/binhex.el b/lisp/gnus/binhex.el index b662fc391d3..af0669f62aa 100644 --- a/lisp/gnus/binhex.el +++ b/lisp/gnus/binhex.el @@ -1,5 +1,7 @@ ;;; binhex.el --- elisp native binhex decode -;; Copyright (c) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. + +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> ;; Keywords: binhex news diff --git a/lisp/gnus/canlock.el b/lisp/gnus/canlock.el index ae679d9fb7d..bad7ea0409e 100644 --- a/lisp/gnus/canlock.el +++ b/lisp/gnus/canlock.el @@ -1,7 +1,7 @@ ;;; canlock.el --- functions for Cancel-Lock feature -;; Copyright (C) 1998, 1999, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Katsumi Yamaoka <yamaoka@jpl.org> ;; Keywords: news, cancel-lock, hmac, sha1, rfc2104 diff --git a/lisp/gnus/compface.el b/lisp/gnus/compface.el index ab6ce23362e..874c8bd6222 100644 --- a/lisp/gnus/compface.el +++ b/lisp/gnus/compface.el @@ -1,5 +1,6 @@ ;;; compface.el --- functions for converting X-Face headers -;; Copyright (C) 2002 Free Software Foundation, Inc. + +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/dig.el b/lisp/gnus/dig.el index 6bb2ab91050..ed752e56520 100644 --- a/lisp/gnus/dig.el +++ b/lisp/gnus/dig.el @@ -1,5 +1,7 @@ ;;; dig.el --- Domain Name System dig interface -;; Copyright (c) 2000, 2001, 2003, 2005 Free Software Foundation, Inc. + +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Simon Josefsson <simon@josefsson.org> ;; Keywords: DNS BIND dig diff --git a/lisp/gnus/dns.el b/lisp/gnus/dns.el index 37a110e4679..01c373ba954 100644 --- a/lisp/gnus/dns.el +++ b/lisp/gnus/dns.el @@ -1,5 +1,6 @@ ;;; dns.el --- Domain Name Service lookups -;; Copyright (C) 2002, 2003 Free Software Foundation, Inc. + +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: network diff --git a/lisp/gnus/earcon.el b/lisp/gnus/earcon.el index 051a9799c95..37ccb3baba1 100644 --- a/lisp/gnus/earcon.el +++ b/lisp/gnus/earcon.el @@ -1,6 +1,7 @@ ;;; earcon.el --- Sound effects for messages -;; Copyright (C) 1996, 2000, 2001, 2003 Free Software Foundation +;; Copyright (C) 1996, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Steven L. Baur <steve@miranova.com> diff --git a/lisp/gnus/flow-fill.el b/lisp/gnus/flow-fill.el index a18805952b0..d6dc739b55e 100644 --- a/lisp/gnus/flow-fill.el +++ b/lisp/gnus/flow-fill.el @@ -1,6 +1,7 @@ ;;; flow-fill.el --- interpret RFC2646 "flowed" text -;; Copyright (C) 2000, 2001, 2002, 2003 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Simon Josefsson <jas@pdc.kth.se> ;; Keywords: mail diff --git a/lisp/gnus/format-spec.el b/lisp/gnus/format-spec.el index d287af6f780..fc34b50bc11 100644 --- a/lisp/gnus/format-spec.el +++ b/lisp/gnus/format-spec.el @@ -1,5 +1,7 @@ ;;; format-spec.el --- functions for formatting arbitrary formatting strings -;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. + +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: tools diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el index 49126e4bdb5..ea45a139ab0 100644 --- a/lisp/gnus/gnus-agent.el +++ b/lisp/gnus/gnus-agent.el @@ -1,6 +1,7 @@ ;;; gnus-agent.el --- unplugged support for Gnus -;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; This file is part of GNU Emacs. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 0d8116b00b9..40476ec2f23 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -1,6 +1,7 @@ ;;; gnus-art.el --- article mode commands for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news @@ -1480,10 +1481,10 @@ This requires GNU Libidn, and by default only enabled if it is found." (gnus-treat-date-ut gnus-article-date-ut) (gnus-treat-date-local gnus-article-date-local) (gnus-treat-date-english gnus-article-date-english) - (gnus-treat-date-lapsed gnus-article-date-lapsed) (gnus-treat-date-original gnus-article-date-original) (gnus-treat-date-user-defined gnus-article-date-user) (gnus-treat-date-iso8601 gnus-article-date-iso8601) + (gnus-treat-date-lapsed gnus-article-date-lapsed) (gnus-treat-display-x-face gnus-article-display-x-face) (gnus-treat-display-face gnus-article-display-face) (gnus-treat-hide-headers gnus-article-maybe-hide-headers) diff --git a/lisp/gnus/gnus-async.el b/lisp/gnus/gnus-async.el index 1c279e69a26..54e651c9e9c 100644 --- a/lisp/gnus/gnus-async.el +++ b/lisp/gnus/gnus-async.el @@ -1,6 +1,7 @@ ;;; gnus-async.el --- asynchronous support for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2003 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-audio.el b/lisp/gnus/gnus-audio.el index 79e1fcc4905..7f6bd1167d5 100644 --- a/lisp/gnus/gnus-audio.el +++ b/lisp/gnus/gnus-audio.el @@ -1,5 +1,7 @@ ;;; gnus-audio.el --- Sound effects for Gnus -;; Copyright (C) 1996, 2000, 2003 Free Software Foundation + +;; Copyright (C) 1996, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Steven L. Baur <steve@miranova.com> ;; Keywords: news, mail, multimedia diff --git a/lisp/gnus/gnus-bcklg.el b/lisp/gnus/gnus-bcklg.el index 54d62f03276..4ae08d2e470 100644 --- a/lisp/gnus/gnus-bcklg.el +++ b/lisp/gnus/gnus-bcklg.el @@ -1,6 +1,7 @@ ;;; gnus-bcklg.el --- backlog functions for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-cache.el b/lisp/gnus/gnus-cache.el index 66217699555..4477e8f579e 100644 --- a/lisp/gnus/gnus-cache.el +++ b/lisp/gnus/gnus-cache.el @@ -1,6 +1,7 @@ ;;; gnus-cache.el --- cache interface for Gnus + ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, -;; 2004, 2005 Free Software Foundation, Inc. +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news @@ -357,7 +358,7 @@ Returns the list of articles removed." (let ((alist (gnus-agent-load-alist gnus-newsgroup-name))) (unless (cdr (assoc article alist)) (setq gnus-newsgroup-undownloaded - (gnus-add-to-sorted-list + (gnus-add-to-sorted-list gnus-newsgroup-undownloaded article))))) (push article out)) (gnus-summary-update-download-mark article) diff --git a/lisp/gnus/gnus-cite.el b/lisp/gnus/gnus-cite.el index ab3612a09f9..c33d224a49c 100644 --- a/lisp/gnus/gnus-cite.el +++ b/lisp/gnus/gnus-cite.el @@ -1,8 +1,7 @@ ;;; gnus-cite.el --- parse citations in articles for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Per Abhiddenware diff --git a/lisp/gnus/gnus-cus.el b/lisp/gnus/gnus-cus.el index 32dc8bcf1b6..f523af22750 100644 --- a/lisp/gnus/gnus-cus.el +++ b/lisp/gnus/gnus-cus.el @@ -1,7 +1,7 @@ ;;; gnus-cus.el --- customization commands for Gnus -;; -;; Copyright (C) 1996, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: news diff --git a/lisp/gnus/gnus-delay.el b/lisp/gnus/gnus-delay.el index 8e00efb1f0c..a664ff8ba00 100644 --- a/lisp/gnus/gnus-delay.el +++ b/lisp/gnus/gnus-delay.el @@ -1,6 +1,6 @@ ;;; gnus-delay.el --- Delayed posting of articles -;; Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> ;; Keywords: mail, news, extensions diff --git a/lisp/gnus/gnus-demon.el b/lisp/gnus/gnus-demon.el index 3d6b44c8b7b..09015bfd636 100644 --- a/lisp/gnus/gnus-demon.el +++ b/lisp/gnus/gnus-demon.el @@ -1,7 +1,7 @@ ;;; gnus-demon.el --- daemonic Gnus behaviour -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2003 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-diary.el b/lisp/gnus/gnus-diary.el index c93f8a8ff7c..d9ab81a4b9f 100644 --- a/lisp/gnus/gnus-diary.el +++ b/lisp/gnus/gnus-diary.el @@ -1,6 +1,6 @@ ;;; gnus-diary.el --- Wrapper around the NNDiary Gnus backend -;; Copyright (c) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Copyright (C) 1999, 2000, 2001 Didier Verna. ;; Author: Didier Verna <didier@xemacs.org> diff --git a/lisp/gnus/gnus-dired.el b/lisp/gnus/gnus-dired.el index aa54a7eaedc..665e75b2e86 100644 --- a/lisp/gnus/gnus-dired.el +++ b/lisp/gnus/gnus-dired.el @@ -1,7 +1,7 @@ ;;; gnus-dired.el --- utility functions where gnus and dired meet -;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2002, 2003, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Authors: Benjamin Rutt <brutt@bloomington.in.us>, ;; Shenghuo Zhu <zsh@cs.rochester.edu> diff --git a/lisp/gnus/gnus-draft.el b/lisp/gnus/gnus-draft.el index 2bc212f6221..c4cd4deddac 100644 --- a/lisp/gnus/gnus-draft.el +++ b/lisp/gnus/gnus-draft.el @@ -1,6 +1,7 @@ ;;; gnus-draft.el --- draft message support for Gnus -;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-dup.el b/lisp/gnus/gnus-dup.el index 6a66246b700..c5358728d0b 100644 --- a/lisp/gnus/gnus-dup.el +++ b/lisp/gnus/gnus-dup.el @@ -1,6 +1,7 @@ ;;; gnus-dup.el --- suppression of duplicate articles in Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-eform.el b/lisp/gnus/gnus-eform.el index cebbb398f21..c133d1541d8 100644 --- a/lisp/gnus/gnus-eform.el +++ b/lisp/gnus/gnus-eform.el @@ -1,6 +1,7 @@ ;;; gnus-eform.el --- a mode for editing forms for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-ems.el b/lisp/gnus/gnus-ems.el index f14dac4e5fb..c6ab1939547 100644 --- a/lisp/gnus/gnus-ems.el +++ b/lisp/gnus/gnus-ems.el @@ -1,6 +1,7 @@ ;;; gnus-ems.el --- functions for making Gnus work under different Emacsen -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-fun.el b/lisp/gnus/gnus-fun.el index fcbc05cc2e6..94f42efc360 100644 --- a/lisp/gnus/gnus-fun.el +++ b/lisp/gnus/gnus-fun.el @@ -1,5 +1,6 @@ ;;; gnus-fun.el --- various frivolous extension functions to Gnus -;; Copyright (C) 2002, 2003 Free Software Foundation, Inc. + +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-gl.el b/lisp/gnus/gnus-gl.el index c1b52435bf9..aac386cefc9 100644 --- a/lisp/gnus/gnus-gl.el +++ b/lisp/gnus/gnus-gl.el @@ -1,7 +1,7 @@ ;;; gnus-gl.el --- an interface to GroupLens for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Brad Miller <bmiller@cs.umn.edu> ;; Keywords: news, score diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 0bfbc46cf5d..9a2516d2c03 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -1,6 +1,7 @@ ;;; gnus-group.el --- group mode commands for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el index 3cb4cb61539..8b274a09212 100644 --- a/lisp/gnus/gnus-int.el +++ b/lisp/gnus/gnus-int.el @@ -1,6 +1,7 @@ ;;; gnus-int.el --- backend interface functions for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-kill.el b/lisp/gnus/gnus-kill.el index 9bffd6ebc00..6cdd76647df 100644 --- a/lisp/gnus/gnus-kill.el +++ b/lisp/gnus/gnus-kill.el @@ -1,6 +1,7 @@ ;;; gnus-kill.el --- kill commands for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> ;; Lars Magne Ingebrigtsen <larsi@gnus.org> diff --git a/lisp/gnus/gnus-logic.el b/lisp/gnus/gnus-logic.el index 2d7d701c311..288bf3caa92 100644 --- a/lisp/gnus/gnus-logic.el +++ b/lisp/gnus/gnus-logic.el @@ -1,6 +1,7 @@ ;;; gnus-logic.el --- advanced scoring code for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-mh.el b/lisp/gnus/gnus-mh.el index b4c502e9e06..cc36aa64687 100644 --- a/lisp/gnus/gnus-mh.el +++ b/lisp/gnus/gnus-mh.el @@ -1,6 +1,7 @@ ;;; gnus-mh.el --- mh-e interface for Gnus -;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> ;; Lars Magne Ingebrigtsen <larsi@gnus.org> diff --git a/lisp/gnus/gnus-ml.el b/lisp/gnus/gnus-ml.el index 5a2b3b9ae0a..c2cf1090d97 100644 --- a/lisp/gnus/gnus-ml.el +++ b/lisp/gnus/gnus-ml.el @@ -1,6 +1,7 @@ ;;; gnus-ml.el --- Mailing list minor mode for Gnus -;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Julien Gilles <jgilles@free.fr> ;; Keywords: news diff --git a/lisp/gnus/gnus-mlspl.el b/lisp/gnus/gnus-mlspl.el index 9b8d2d87e2e..291145cabfc 100644 --- a/lisp/gnus/gnus-mlspl.el +++ b/lisp/gnus/gnus-mlspl.el @@ -1,7 +1,7 @@ ;;; gnus-mlspl.el --- a group params-based mail splitting mechanism -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Alexandre Oliva <oliva@lsd.ic.unicamp.br> ;; Keywords: news, mail diff --git a/lisp/gnus/gnus-move.el b/lisp/gnus/gnus-move.el index 2f5b4853d5b..7accde21db4 100644 --- a/lisp/gnus/gnus-move.el +++ b/lisp/gnus/gnus-move.el @@ -1,6 +1,7 @@ ;;; gnus-move.el --- commands for moving Gnus from one server to another -;; Copyright (C) 1996, 1997, 1998, 1999, 2000 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index 1317211389d..0614a2304f7 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -1,6 +1,7 @@ ;;; gnus-msg.el --- mail and post interface for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> ;; Lars Magne Ingebrigtsen <larsi@gnus.org> diff --git a/lisp/gnus/gnus-nocem.el b/lisp/gnus/gnus-nocem.el index a59c33f5e48..7718e53ea60 100644 --- a/lisp/gnus/gnus-nocem.el +++ b/lisp/gnus/gnus-nocem.el @@ -1,8 +1,7 @@ ;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2004, 2005 -;; Free Software Foundation, Inc. - +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-picon.el b/lisp/gnus/gnus-picon.el index 40ac294d268..90733027cc5 100644 --- a/lisp/gnus/gnus-picon.el +++ b/lisp/gnus/gnus-picon.el @@ -1,7 +1,7 @@ ;;; gnus-picon.el --- displaying pretty icons in Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 -;; Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news xpm annotation glyph faces diff --git a/lisp/gnus/gnus-range.el b/lisp/gnus/gnus-range.el index 286d9e7c772..90ea8556754 100644 --- a/lisp/gnus/gnus-range.el +++ b/lisp/gnus/gnus-range.el @@ -1,7 +1,7 @@ ;;; gnus-range.el --- range and sequence functions for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el index be29e96e102..17e8d5a5f50 100644 --- a/lisp/gnus/gnus-registry.el +++ b/lisp/gnus/gnus-registry.el @@ -1,6 +1,7 @@ ;;; gnus-registry.el --- article registry for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Ted Zlatanov <tzz@lifelogs.com> ;; Keywords: news diff --git a/lisp/gnus/gnus-salt.el b/lisp/gnus/gnus-salt.el index c8c0f30b417..89e45cac052 100644 --- a/lisp/gnus/gnus-salt.el +++ b/lisp/gnus/gnus-salt.el @@ -1,7 +1,7 @@ ;;; gnus-salt.el --- alternate summary mode interfaces for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2002, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-score.el b/lisp/gnus/gnus-score.el index 0fb853b868e..e866f7f32fc 100644 --- a/lisp/gnus/gnus-score.el +++ b/lisp/gnus/gnus-score.el @@ -1,6 +1,7 @@ ;;; gnus-score.el --- scoring code for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Per Abrahamsen <amanda@iesd.auc.dk> ;; Lars Magne Ingebrigtsen <larsi@gnus.org> diff --git a/lisp/gnus/gnus-setup.el b/lisp/gnus/gnus-setup.el index 3b35eddb1fc..f67fe491d82 100644 --- a/lisp/gnus/gnus-setup.el +++ b/lisp/gnus/gnus-setup.el @@ -1,7 +1,7 @@ ;;; gnus-setup.el --- Initialization & Setup for Gnus 5 -;; Copyright (C) 1995, 1996, 2000, 2001 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Steven L. Baur <steve@miranova.com> ;; Keywords: news diff --git a/lisp/gnus/gnus-sieve.el b/lisp/gnus/gnus-sieve.el index 75b2fa12b0a..d790fec9aec 100644 --- a/lisp/gnus/gnus-sieve.el +++ b/lisp/gnus/gnus-sieve.el @@ -1,5 +1,6 @@ ;;; gnus-sieve.el --- Utilities to manage sieve scripts for Gnus -;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: NAGY Andras <nagya@inf.elte.hu>, ;; Simon Josefsson <simon@josefsson.org> diff --git a/lisp/gnus/gnus-soup.el b/lisp/gnus/gnus-soup.el index 98cc0ea285e..6bcd2c32cce 100644 --- a/lisp/gnus/gnus-soup.el +++ b/lisp/gnus/gnus-soup.el @@ -1,7 +1,7 @@ ;;; gnus-soup.el --- SOUP packet writing support for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Per Abrahamsen <abraham@iesd.auc.dk> ;; Lars Magne Ingebrigtsen <larsi@gnus.org> diff --git a/lisp/gnus/gnus-spec.el b/lisp/gnus/gnus-spec.el index 84c06975205..784f9605037 100644 --- a/lisp/gnus/gnus-spec.el +++ b/lisp/gnus/gnus-spec.el @@ -1,6 +1,7 @@ ;;; gnus-spec.el --- format spec functions for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el index 08527a5ea44..d7629c26fda 100644 --- a/lisp/gnus/gnus-srvr.el +++ b/lisp/gnus/gnus-srvr.el @@ -1,7 +1,7 @@ ;;; gnus-srvr.el --- virtual server support for Gnus + ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, -;; 2004, 2005 -;; Free Software Foundation, Inc. +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 6038e93bbdf..e30faa85c7f 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -1,6 +1,7 @@ ;;; gnus-start.el --- startup functions for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index a61f3df6293..c2f7143a9ca 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -1,6 +1,7 @@ ;;; gnus-sum.el --- summary mode commands for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el index 3b2bfacddb0..945665fdcca 100644 --- a/lisp/gnus/gnus-topic.el +++ b/lisp/gnus/gnus-topic.el @@ -1,6 +1,7 @@ ;;; gnus-topic.el --- a folding minor mode for Gnus group buffers + ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, -;; 2005 Free Software Foundation, Inc. +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Ilja Weis <kult@uni-paderborn.de> ;; Lars Magne Ingebrigtsen <larsi@gnus.org> @@ -436,7 +437,7 @@ If LOWEST is non-nil, list all newsgroups of level LOWEST or higher." (copy-sequence gnus-group-listed-groups)))) (gnus-update-format-specifications nil 'topic) - + (when (or (not gnus-topic-alist) (not gnus-topology-checked-p)) (gnus-topic-check-topology)) diff --git a/lisp/gnus/gnus-undo.el b/lisp/gnus/gnus-undo.el index f09445827d1..09753150aa3 100644 --- a/lisp/gnus/gnus-undo.el +++ b/lisp/gnus/gnus-undo.el @@ -1,7 +1,7 @@ ;;; gnus-undo.el --- minor mode for undoing in Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2003 -;; Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 925555e1ff0..6514eb37aa3 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -1,6 +1,7 @@ ;;; gnus-util.el --- utility functions for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el index 4a7d5fec422..a2f3f353a05 100644 --- a/lisp/gnus/gnus-uu.el +++ b/lisp/gnus/gnus-uu.el @@ -1,6 +1,7 @@ ;;; gnus-uu.el --- extract (uu)encoded files in Gnus -;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 2000, -;; 2001, 2002, 2003 Free Software Foundation, Inc. + +;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, +;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Created: 2 Oct 1993 @@ -836,7 +837,7 @@ When called interactively, prompt for REGEXP." (erase-buffer) (insert (format "Date: %s\nFrom: %s\nSubject: %s Digest\n\n" - (current-time-string) name name)) + (message-make-date) name name)) (when (and message-forward-as-mime gnus-uu-digest-buffer) (insert "<#part type=message/rfc822>\nSubject: Topics\n\n")) (insert "Topics:\n"))) @@ -1353,7 +1354,7 @@ When called interactively, prompt for REGEXP." (gnus-message 2 "No begin part at the beginning") (sleep-for 2)) (setq state 'middle)))) - + ;; When there are no result-files, then something must be wrong. (if result-files (message "") @@ -1439,7 +1440,7 @@ When called interactively, prompt for REGEXP." ;; We replace certain characters that could make things messy. (setq gnus-uu-file-name (gnus-map-function - mm-file-name-rewrite-functions + mm-file-name-rewrite-functions (file-name-nondirectory (match-string 1)))) (replace-match (concat "begin 644 " gnus-uu-file-name) t t) diff --git a/lisp/gnus/gnus-vm.el b/lisp/gnus/gnus-vm.el index 240d297f3a5..31bd639a7c6 100644 --- a/lisp/gnus/gnus-vm.el +++ b/lisp/gnus/gnus-vm.el @@ -1,7 +1,7 @@ ;;; gnus-vm.el --- vm interface for Gnus -;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 -;; Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Per Persson <pp@gnu.ai.mit.edu> ;; Keywords: news, mail diff --git a/lisp/gnus/gnus-win.el b/lisp/gnus/gnus-win.el index 9710b10ff2f..5b8ddb32c00 100644 --- a/lisp/gnus/gnus-win.el +++ b/lisp/gnus/gnus-win.el @@ -1,6 +1,7 @@ ;;; gnus-win.el --- window configuration functions for Gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 710c2c75025..f621d1088e3 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -1,7 +1,7 @@ ;;; gnus.el --- a newsreader for GNU Emacs -;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, -;; 1998, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998, +;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> ;; Lars Magne Ingebrigtsen <larsi@gnus.org> diff --git a/lisp/gnus/hex-util.el b/lisp/gnus/hex-util.el index 4458f42a490..1cc67c2861c 100644 --- a/lisp/gnus/hex-util.el +++ b/lisp/gnus/hex-util.el @@ -1,6 +1,7 @@ ;;; hex-util.el --- Functions to encode/decode hexadecimal string. -;; Copyright (C) 1999, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp> ;; Keywords: data diff --git a/lisp/gnus/html2text.el b/lisp/gnus/html2text.el index d29a3cf5da7..41ba54f759e 100644 --- a/lisp/gnus/html2text.el +++ b/lisp/gnus/html2text.el @@ -1,4 +1,5 @@ ;;; html2text.el --- a simple html to plain text converter + ;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Joakim Hove <hove@phys.ntnu.no> diff --git a/lisp/gnus/ietf-drums.el b/lisp/gnus/ietf-drums.el index 4e95b8aad42..98f3d20330f 100644 --- a/lisp/gnus/ietf-drums.el +++ b/lisp/gnus/ietf-drums.el @@ -1,6 +1,7 @@ ;;; ietf-drums.el --- Functions for parsing RFC822bis headers -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; This file is part of GNU Emacs. diff --git a/lisp/gnus/imap.el b/lisp/gnus/imap.el index 7d3fb46154d..062f1be4c94 100644 --- a/lisp/gnus/imap.el +++ b/lisp/gnus/imap.el @@ -1,6 +1,7 @@ ;;; imap.el --- imap library -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Simon Josefsson <jas@pdc.kth.se> ;; Keywords: mail diff --git a/lisp/gnus/mail-parse.el b/lisp/gnus/mail-parse.el index 086ab5c4f84..106aedad085 100644 --- a/lisp/gnus/mail-parse.el +++ b/lisp/gnus/mail-parse.el @@ -1,6 +1,7 @@ ;;; mail-parse.el --- Interface functions for parsing mail -;; Copyright (C) 1998, 1999, 2000 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; This file is part of GNU Emacs. diff --git a/lisp/gnus/mail-prsvr.el b/lisp/gnus/mail-prsvr.el index d7e07ff97bb..d990f8dbc54 100644 --- a/lisp/gnus/mail-prsvr.el +++ b/lisp/gnus/mail-prsvr.el @@ -1,5 +1,7 @@ ;;; mail-prsvr.el --- Interface variables for parsing mail -;; Copyright (C) 1999, 2000 Free Software Foundation, Inc. + +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; This file is part of GNU Emacs. diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index 58a3e63ab75..3f3ecc7919f 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el @@ -1,6 +1,7 @@ ;;; mail-source.el --- functions for fetching mail -;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news, mail diff --git a/lisp/gnus/mailcap.el b/lisp/gnus/mailcap.el index d044adebdb9..166edb60f7a 100644 --- a/lisp/gnus/mailcap.el +++ b/lisp/gnus/mailcap.el @@ -1,6 +1,7 @@ ;;; mailcap.el --- MIME media types configuration -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: William M. Perry <wmperry@aventail.com> ;; Lars Magne Ingebrigtsen <larsi@gnus.org> diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 62266580a20..d427e852996 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -1,6 +1,7 @@ ;;; message.el --- composing mail and news messages -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: mail, news @@ -1442,7 +1443,7 @@ no, only reply back to the author." :type 'boolean) (defcustom message-user-fqdn nil - "*Domain part of Messsage-Ids." + "*Domain part of Message-Ids." :version "22.1" :group 'message-headers :link '(custom-manual "(message)News Headers") diff --git a/lisp/gnus/messcompat.el b/lisp/gnus/messcompat.el index 3c6af7d9e8d..d7c8f40de26 100644 --- a/lisp/gnus/messcompat.el +++ b/lisp/gnus/messcompat.el @@ -1,7 +1,7 @@ ;;; messcompat.el --- making message mode compatible with mail mode -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003 -;; Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: mail, news diff --git a/lisp/gnus/mm-bodies.el b/lisp/gnus/mm-bodies.el index b4debfe718f..4a5a9cd17db 100644 --- a/lisp/gnus/mm-bodies.el +++ b/lisp/gnus/mm-bodies.el @@ -1,7 +1,7 @@ ;;; mm-bodies.el --- Functions for decoding MIME things -;; Copyright (C) 1998, 1999, 2000, 2001, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index c65d5f80ba4..78b953946f8 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -1,6 +1,7 @@ ;;; mm-decode.el --- Functions for decoding MIME things -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> diff --git a/lisp/gnus/mm-encode.el b/lisp/gnus/mm-encode.el index 43eb619368e..fd6251c37d3 100644 --- a/lisp/gnus/mm-encode.el +++ b/lisp/gnus/mm-encode.el @@ -1,6 +1,7 @@ ;;; mm-encode.el --- Functions for encoding MIME things -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> diff --git a/lisp/gnus/mm-extern.el b/lisp/gnus/mm-extern.el index 6792d0de0b4..27263d2a18d 100644 --- a/lisp/gnus/mm-extern.el +++ b/lisp/gnus/mm-extern.el @@ -1,5 +1,7 @@ ;;; mm-extern.el --- showing message/external-body -;; Copyright (C) 2000, 2001, 2003 Free Software Foundation, Inc. + +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> ;; Keywords: message external-body diff --git a/lisp/gnus/mm-partial.el b/lisp/gnus/mm-partial.el index e8dd5596225..1c0c708d2a0 100644 --- a/lisp/gnus/mm-partial.el +++ b/lisp/gnus/mm-partial.el @@ -1,5 +1,7 @@ ;;; mm-partial.el --- showing message/partial -;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc. + +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> ;; Keywords: message partial diff --git a/lisp/gnus/mm-url.el b/lisp/gnus/mm-url.el index 517263543cd..afed46f2f86 100644 --- a/lisp/gnus/mm-url.el +++ b/lisp/gnus/mm-url.el @@ -1,5 +1,6 @@ ;;; mm-url.el --- a wrapper of url functions/commands for Gnus -;; Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc. + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el index 988fd969425..a40e147c026 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/mm-util.el @@ -1,6 +1,7 @@ ;;; mm-util.el --- Utility functions for Mule and low level things -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> diff --git a/lisp/gnus/mm-uu.el b/lisp/gnus/mm-uu.el index 5d8f696fe41..fdb6b7f4585 100644 --- a/lisp/gnus/mm-uu.el +++ b/lisp/gnus/mm-uu.el @@ -1,5 +1,7 @@ ;;; mm-uu.el --- Return uu stuff as mm handles -;; Copyright (c) 1998, 1999, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. + +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> ;; Keywords: postscript uudecode binhex shar forward gnatsweb pgp diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el index 9b0d8217476..735cc2569c3 100644 --- a/lisp/gnus/mm-view.el +++ b/lisp/gnus/mm-view.el @@ -1,6 +1,7 @@ ;;; mm-view.el --- functions for viewing MIME objects -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; This file is part of GNU Emacs. diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el index 11f076c8035..f8c573a7656 100644 --- a/lisp/gnus/mml-sec.el +++ b/lisp/gnus/mml-sec.el @@ -1,5 +1,7 @@ ;;; mml-sec.el --- A package with security functions for MML documents -;; Copyright (C) 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. + +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Simon Josefsson <simon@josefsson.org> diff --git a/lisp/gnus/mml-smime.el b/lisp/gnus/mml-smime.el index 788fd80003e..2c37c52e3bc 100644 --- a/lisp/gnus/mml-smime.el +++ b/lisp/gnus/mml-smime.el @@ -1,5 +1,7 @@ ;;; mml-smime.el --- S/MIME support for MML -;; Copyright (c) 2000, 2001, 2003 Free Software Foundation, Inc. + +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Simon Josefsson <simon@josefsson.org> ;; Keywords: Gnus, MIME, S/MIME, MML diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index 6fd4aeb40b1..af17669562d 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -1,6 +1,7 @@ ;;; mml.el --- A package for parsing and validating MML documents -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; This file is part of GNU Emacs. diff --git a/lisp/gnus/mml1991.el b/lisp/gnus/mml1991.el index 8a9cce093de..fc6d9e8921d 100644 --- a/lisp/gnus/mml1991.el +++ b/lisp/gnus/mml1991.el @@ -1,6 +1,7 @@ ;;; mml1991.el --- Old PGP message format (RFC 1991) support for MML -;; Copyright (C) 1998, 1999, 2000, 2001, 2003, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Sascha Lüdecke <sascha@meta-x.de>, ;; Simon Josefsson <simon@josefsson.org> (Mailcrypt interface, Gnus glue) diff --git a/lisp/gnus/mml2015.el b/lisp/gnus/mml2015.el index d403444e840..590e9276a0f 100644 --- a/lisp/gnus/mml2015.el +++ b/lisp/gnus/mml2015.el @@ -1,6 +1,7 @@ ;;; mml2015.el --- MIME Security with Pretty Good Privacy (PGP) -;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> ;; Keywords: PGP MIME MML @@ -641,7 +642,8 @@ (autoload 'pgg-decrypt-region "pgg") (autoload 'pgg-verify-region "pgg") (autoload 'pgg-sign-region "pgg") - (autoload 'pgg-encrypt-region "pgg")) + (autoload 'pgg-encrypt-region "pgg") + (autoload 'pgg-parse-armor "pgg-parse")) (defun mml2015-pgg-decrypt (handle ctl) (catch 'error @@ -809,15 +811,23 @@ (let ((pgg-errors-buffer mml2015-result-buffer) (boundary (mml-compute-boundary cont)) (pgg-default-user-id (or (message-options-get 'mml-sender) - pgg-default-user-id))) + pgg-default-user-id)) + entry) (unless (pgg-sign-region (point-min) (point-max)) (pop-to-buffer mml2015-result-buffer) (error "Sign error")) (goto-char (point-min)) (insert (format "Content-Type: multipart/signed; boundary=\"%s\";\n" boundary)) - ;;; FIXME: what is the micalg? - (insert "\tmicalg=pgp-sha1; protocol=\"application/pgp-signature\"\n") + (if (setq entry (assq 2 (pgg-parse-armor + (with-current-buffer pgg-output-buffer + (buffer-string))))) + (setq entry (assq 'hash-algorithm (cdr entry)))) + (insert (format "\tmicalg=%s; " + (if (cdr entry) + (downcase (format "pgp-%s" (cdr entry))) + "pgp-sha1"))) + (insert "protocol=\"application/pgp-signature\"\n") (insert (format "\n--%s\n" boundary)) (goto-char (point-max)) (insert (format "\n--%s\n" boundary)) diff --git a/lisp/gnus/nnagent.el b/lisp/gnus/nnagent.el index 257148dcd76..4b8233a4d54 100644 --- a/lisp/gnus/nnagent.el +++ b/lisp/gnus/nnagent.el @@ -1,7 +1,7 @@ ;;; nnagent.el --- offline backend for Gnus -;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002 -;; Free Software Foundation, Inc. +;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news, mail diff --git a/lisp/gnus/nnbabyl.el b/lisp/gnus/nnbabyl.el index 449a7dbafcc..afdd4d15350 100644 --- a/lisp/gnus/nnbabyl.el +++ b/lisp/gnus/nnbabyl.el @@ -1,7 +1,7 @@ ;;; nnbabyl.el --- rmail mbox access for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1099, 2000, 2001 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1099, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> diff --git a/lisp/gnus/nndb.el b/lisp/gnus/nndb.el index 4174728f47d..ca5b27cdd1d 100644 --- a/lisp/gnus/nndb.el +++ b/lisp/gnus/nndb.el @@ -1,7 +1,7 @@ ;;; nndb.el --- nndb access for Gnus -;; Copyright (C) 1997, 1998, 2000, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1997, 1998, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> ;; Kai Grossjohann <grossjohann@ls6.informatik.uni-dortmund.de> diff --git a/lisp/gnus/nndiary.el b/lisp/gnus/nndiary.el index 2228b6a2de8..4be4c6f6646 100644 --- a/lisp/gnus/nndiary.el +++ b/lisp/gnus/nndiary.el @@ -1,7 +1,7 @@ ;;; nndiary.el --- A diary backend for Gnus -;; Copyright (C) 1999, 2000, 2001, 2003 -;; Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Didier Verna <didier@xemacs.org> ;; Maintainer: Didier Verna <didier@xemacs.org> diff --git a/lisp/gnus/nndir.el b/lisp/gnus/nndir.el index 880df5166f9..18e64e83997 100644 --- a/lisp/gnus/nndir.el +++ b/lisp/gnus/nndir.el @@ -1,7 +1,7 @@ ;;; nndir.el --- single directory newsgroup access for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/nndoc.el b/lisp/gnus/nndoc.el index 4fab99fd84d..70e301b5b00 100644 --- a/lisp/gnus/nndoc.el +++ b/lisp/gnus/nndoc.el @@ -1,6 +1,7 @@ ;;; nndoc.el --- single file access for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> diff --git a/lisp/gnus/nndraft.el b/lisp/gnus/nndraft.el index 9a93e5aa072..beea344e0c3 100644 --- a/lisp/gnus/nndraft.el +++ b/lisp/gnus/nndraft.el @@ -1,7 +1,7 @@ ;;; nndraft.el --- draft article access for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/nneething.el b/lisp/gnus/nneething.el index db7a5fcc2aa..33f6a5f4ea5 100644 --- a/lisp/gnus/nneething.el +++ b/lisp/gnus/nneething.el @@ -1,7 +1,7 @@ ;;; nneething.el --- arbitrary file access for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> diff --git a/lisp/gnus/nnfolder.el b/lisp/gnus/nnfolder.el index 07697000eeb..5a29878b5fb 100644 --- a/lisp/gnus/nnfolder.el +++ b/lisp/gnus/nnfolder.el @@ -1,6 +1,7 @@ ;;; nnfolder.el --- mail folder access for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Simon Josefsson <simon@josefsson.org> (adding MARKS) ;; ShengHuo Zhu <zsh@cs.rochester.edu> (adding NOV) diff --git a/lisp/gnus/nngateway.el b/lisp/gnus/nngateway.el index d8e3e0a638b..8ddbf9ca13b 100644 --- a/lisp/gnus/nngateway.el +++ b/lisp/gnus/nngateway.el @@ -1,7 +1,7 @@ ;;; nngateway.el --- posting news via mail gateways -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 -;; Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news, mail diff --git a/lisp/gnus/nnheader.el b/lisp/gnus/nnheader.el index e793b5ef8f0..5cc26cb07d9 100644 --- a/lisp/gnus/nnheader.el +++ b/lisp/gnus/nnheader.el @@ -1,8 +1,8 @@ ;;; nnheader.el --- header access macros for Gnus and its backends -;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996, -;; 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, +;; 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> ;; Lars Magne Ingebrigtsen <larsi@gnus.org> diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index 698f7cf9a3e..5a2b7e2f942 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -1,6 +1,7 @@ ;;; nnimap.el --- imap backend for Gnus -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Simon Josefsson <jas@pdc.kth.se> ;; Jim Radford <radford@robby.caltech.edu> diff --git a/lisp/gnus/nnkiboze.el b/lisp/gnus/nnkiboze.el index dd5951cf536..ee3c804ae8f 100644 --- a/lisp/gnus/nnkiboze.el +++ b/lisp/gnus/nnkiboze.el @@ -1,7 +1,7 @@ ;;; nnkiboze.el --- select virtual news access for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/nnlistserv.el b/lisp/gnus/nnlistserv.el index 432a259b78d..2b9d478086d 100644 --- a/lisp/gnus/nnlistserv.el +++ b/lisp/gnus/nnlistserv.el @@ -1,6 +1,7 @@ ;;; nnlistserv.el --- retrieving articles via web mailing list archives -;; Copyright (C) 1997, 1998, 1999, 2000, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news, mail diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index de4247dc55e..98563143243 100644 --- a/lisp/gnus/nnmail.el +++ b/lisp/gnus/nnmail.el @@ -1,6 +1,7 @@ ;;; nnmail.el --- mail support functions for the Gnus mail backends -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news, mail diff --git a/lisp/gnus/nnmbox.el b/lisp/gnus/nnmbox.el index e3d88396e16..fe25ef9d0a4 100644 --- a/lisp/gnus/nnmbox.el +++ b/lisp/gnus/nnmbox.el @@ -1,7 +1,7 @@ ;;; nnmbox.el --- mail mbox access for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> diff --git a/lisp/gnus/nnmh.el b/lisp/gnus/nnmh.el index f73bda68bf0..4c0af4fdcfb 100644 --- a/lisp/gnus/nnmh.el +++ b/lisp/gnus/nnmh.el @@ -1,7 +1,7 @@ ;;; nnmh.el --- mhspool access for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> diff --git a/lisp/gnus/nnml.el b/lisp/gnus/nnml.el index e6eca8b1559..9bdd08fd3ca 100644 --- a/lisp/gnus/nnml.el +++ b/lisp/gnus/nnml.el @@ -1,6 +1,7 @@ ;;; nnml.el --- mail spool access for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2003 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Simon Josefsson <simon@josefsson.org> (adding MARKS) ;; Lars Magne Ingebrigtsen <larsi@gnus.org> diff --git a/lisp/gnus/nnoo.el b/lisp/gnus/nnoo.el index 73399112102..fcd50c3a767 100644 --- a/lisp/gnus/nnoo.el +++ b/lisp/gnus/nnoo.el @@ -1,7 +1,7 @@ ;;; nnoo.el --- OO Gnus Backends -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 -;; Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news @@ -254,7 +254,7 @@ (setcdr bstate (delq defs (cdr bstate))) (pop defs) (while defs - (set (car (pop defs)) nil))))) + (set (car (pop defs)) nil))))) t) (defun nnoo-close (backend) diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el index 4d43604984e..5018701ee42 100644 --- a/lisp/gnus/nnrss.el +++ b/lisp/gnus/nnrss.el @@ -1,5 +1,6 @@ ;;; nnrss.el --- interfacing with RSS -;; Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> ;; Keywords: RSS diff --git a/lisp/gnus/nnslashdot.el b/lisp/gnus/nnslashdot.el index 177bb019224..9350a284e3d 100644 --- a/lisp/gnus/nnslashdot.el +++ b/lisp/gnus/nnslashdot.el @@ -1,5 +1,7 @@ ;;; nnslashdot.el --- interfacing with Slashdot -;; Copyright (C) 1999, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. + +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/nnsoup.el b/lisp/gnus/nnsoup.el index 13a464ab219..94c259b6d96 100644 --- a/lisp/gnus/nnsoup.el +++ b/lisp/gnus/nnsoup.el @@ -1,7 +1,7 @@ ;;; nnsoup.el --- SOUP access for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> diff --git a/lisp/gnus/nnspool.el b/lisp/gnus/nnspool.el index 49e9693c32b..228879a4dad 100644 --- a/lisp/gnus/nnspool.el +++ b/lisp/gnus/nnspool.el @@ -1,8 +1,7 @@ ;;; nnspool.el --- spool access for GNU Emacs ;; Copyright (C) 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, 1998, -;; 2000, 2002, 2003 -;; Free Software Foundation, Inc. +;; 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> ;; Lars Magne Ingebrigtsen <larsi@gnus.org> diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index 2895faf62ef..4998c7a9503 100644 --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/nntp.el @@ -1,8 +1,8 @@ ;;; nntp.el --- nntp access for Gnus -;; Copyright (C) 1987, 1988, 1989, 1990, 1992, 1993, 1994, 1995, 1996, -;; 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1987, 1988, 1989, 1990, 1992, 1993, +;; 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news @@ -255,7 +255,7 @@ noticing asynchronous data.") (defvar nntp-async-timer nil) (defvar nntp-async-process-list nil) -(defvar nntp-ssl-program +(defvar nntp-ssl-program "openssl s_client -quiet -ssl3 -connect %s:%p" "A string containing commands for SSL connections. Within a string, %s is replaced with the server address and %p with @@ -889,7 +889,7 @@ command whose response triggered the error." (if (numberp article) (int-to-string article) article)))) (deffoo nntp-request-group (group &optional server dont-check) - (nntp-with-open-group + (nntp-with-open-group nil server (when (nntp-send-command "^[245].*\n" "GROUP" group) (let ((entry (nntp-find-connection-entry nntp-server-buffer))) @@ -1156,10 +1156,10 @@ password contained in '~/.nntp-authinfo'." (defun nntp-open-ssl-stream (buffer) (let* ((process-connection-type nil) - (proc (start-process "nntpd" buffer + (proc (start-process "nntpd" buffer shell-file-name shell-command-switch - (format-spec nntp-ssl-program + (format-spec nntp-ssl-program (format-spec-make ?s nntp-address ?p nntp-port-number))))) @@ -1317,7 +1317,7 @@ password contained in '~/.nntp-authinfo'." ;; that the server has closed the connection. This MUST be ;; handled here as the buffer restored by the save-excursion may ;; be the process's former output buffer (i.e. now killed) - (or (and process + (or (and process (memq (process-status process) '(open run))) (nntp-report "Server closed connection")))) @@ -1501,7 +1501,7 @@ password contained in '~/.nntp-authinfo'." (goto-char (point-min)) (when (re-search-forward "^[0-9][0-9][0-9] .*\n\\([0-9]+\\)" nil t) (let ((low-limit (string-to-number - (buffer-substring (match-beginning 1) + (buffer-substring (match-beginning 1) (match-end 1))))) (while (and articles (<= (car articles) low-limit)) (setq articles (cdr articles)))))) diff --git a/lisp/gnus/nnultimate.el b/lisp/gnus/nnultimate.el index 7bc7bbf462e..46896640168 100644 --- a/lisp/gnus/nnultimate.el +++ b/lisp/gnus/nnultimate.el @@ -1,6 +1,7 @@ ;;; nnultimate.el --- interfacing with the Ultimate Bulletin Board system -;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/nnvirtual.el b/lisp/gnus/nnvirtual.el index c7e93528a5e..28ef0f5c830 100644 --- a/lisp/gnus/nnvirtual.el +++ b/lisp/gnus/nnvirtual.el @@ -1,6 +1,7 @@ ;;; nnvirtual.el --- virtual newsgroups access for Gnus -;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: David Moore <dmoore@ucsd.edu> ;; Lars Magne Ingebrigtsen <larsi@gnus.org> diff --git a/lisp/gnus/nnwarchive.el b/lisp/gnus/nnwarchive.el index 8e4c22e8b04..a543c8edb82 100644 --- a/lisp/gnus/nnwarchive.el +++ b/lisp/gnus/nnwarchive.el @@ -1,5 +1,7 @@ ;;; nnwarchive.el --- interfacing with web archives -;; Copyright (C) 1999, 2000, 2003 Free Software Foundation, Inc. + +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> ;; Keywords: news egroups mail-archive diff --git a/lisp/gnus/nnweb.el b/lisp/gnus/nnweb.el index 4e1ed36d861..d05520ee1dc 100644 --- a/lisp/gnus/nnweb.el +++ b/lisp/gnus/nnweb.el @@ -1,6 +1,7 @@ ;;; nnweb.el --- retrieving articles via web search engines -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/nnwfm.el b/lisp/gnus/nnwfm.el index 71d622357bf..d759d12f798 100644 --- a/lisp/gnus/nnwfm.el +++ b/lisp/gnus/nnwfm.el @@ -1,5 +1,6 @@ ;;; nnwfm.el --- interfacing with a web forum -;; Copyright (C) 2000 Free Software Foundation, Inc. + +;; Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news diff --git a/lisp/gnus/pgg-def.el b/lisp/gnus/pgg-def.el index 351a336800e..f27afada3fa 100644 --- a/lisp/gnus/pgg-def.el +++ b/lisp/gnus/pgg-def.el @@ -1,6 +1,6 @@ ;;; pgg-def.el --- functions/macros for defining PGG functions -;; Copyright (C) 1999, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Daiki Ueno <ueno@unixuser.org> ;; Created: 1999/11/02 diff --git a/lisp/gnus/pgg-gpg.el b/lisp/gnus/pgg-gpg.el index 904c0e46878..f012a9d8506 100644 --- a/lisp/gnus/pgg-gpg.el +++ b/lisp/gnus/pgg-gpg.el @@ -1,6 +1,7 @@ ;;; pgg-gpg.el --- GnuPG support for PGG. -;; Copyright (C) 1999, 2000, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Daiki Ueno <ueno@unixuser.org> ;; Created: 1999/10/28 diff --git a/lisp/gnus/pgg-parse.el b/lisp/gnus/pgg-parse.el index c65f6a3a822..26b48e2f141 100644 --- a/lisp/gnus/pgg-parse.el +++ b/lisp/gnus/pgg-parse.el @@ -1,6 +1,6 @@ ;;; pgg-parse.el --- OpenPGP packet parsing -;; Copyright (C) 1999, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Daiki Ueno <ueno@unixuser.org> ;; Created: 1999/10/28 @@ -58,7 +58,8 @@ (cons (sexp :tag "Number") (sexp :tag "Type")))) (defcustom pgg-parse-hash-algorithm-alist - '((1 . MD5) (2 . SHA1) (3 . RIPEMD160) (5 . MD2)) + '((1 . MD5) (2 . SHA1) (3 . RIPEMD160) (5 . MD2) (8 . SHA256) (9 . SHA384) + (10 . SHA512)) "Alist of the assigned number to the cryptographic hash algorithm." :group 'pgg-parse :type '(repeat diff --git a/lisp/gnus/pgg-pgp.el b/lisp/gnus/pgg-pgp.el index b2add4726d3..88f1d697200 100644 --- a/lisp/gnus/pgg-pgp.el +++ b/lisp/gnus/pgg-pgp.el @@ -1,6 +1,7 @@ ;;; pgg-pgp.el --- PGP 2.* and 6.* support for PGG. -;; Copyright (C) 1999, 2000, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Daiki Ueno <ueno@unixuser.org> ;; Created: 1999/11/02 diff --git a/lisp/gnus/pgg-pgp5.el b/lisp/gnus/pgg-pgp5.el index cbdb693ef60..ffe467ec044 100644 --- a/lisp/gnus/pgg-pgp5.el +++ b/lisp/gnus/pgg-pgp5.el @@ -1,6 +1,7 @@ ;;; pgg-pgp5.el --- PGP 5.* support for PGG. -;; Copyright (C) 1999, 2000, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Daiki Ueno <ueno@unixuser.org> ;; Created: 1999/11/02 diff --git a/lisp/gnus/pgg.el b/lisp/gnus/pgg.el index 8d72fd31502..af59833c6c0 100644 --- a/lisp/gnus/pgg.el +++ b/lisp/gnus/pgg.el @@ -1,6 +1,7 @@ ;;; pgg.el --- glue for the various PGP implementations. -;; Copyright (C) 1999, 2000, 2003, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Daiki Ueno <ueno@unixuser.org> ;; Created: 1999/10/28 @@ -34,20 +35,10 @@ ;; Don't merge these two `eval-when-compile's. (eval-when-compile (require 'cl)) -;; Fixme: This would be better done with an autoload for -;; `url-insert-file-contents', and the url stuff rationalized. -;; (`locate-library' can say whether the url code is available.) -(eval-when-compile - (ignore-errors - (require 'w3) - (require 'url))) ;;; @ utility functions ;;; -(defvar pgg-fetch-key-function (if (fboundp 'url-insert-file-contents) - (function pgg-fetch-key-with-w3))) - (defun pgg-invoke (func scheme &rest args) (progn (require (intern (format "pgg-%s" scheme))) diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el index 1f109f6d7dd..f021e063fcd 100644 --- a/lisp/gnus/pop3.el +++ b/lisp/gnus/pop3.el @@ -1,8 +1,7 @@ ;;; pop3.el --- Post Office Protocol (RFC 1460) interface -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Richard L. Pieri <ratinox@peorth.gweep.net> ;; Maintainer: FSF diff --git a/lisp/gnus/qp.el b/lisp/gnus/qp.el index 800f5090177..b81a215ee47 100644 --- a/lisp/gnus/qp.el +++ b/lisp/gnus/qp.el @@ -1,7 +1,7 @@ ;;; qp.el --- Quoted-Printable functions -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: mail, extensions diff --git a/lisp/gnus/rfc1843.el b/lisp/gnus/rfc1843.el index 9af2fc6327a..2214a1b7b88 100644 --- a/lisp/gnus/rfc1843.el +++ b/lisp/gnus/rfc1843.el @@ -1,5 +1,7 @@ ;;; rfc1843.el --- HZ (rfc1843) decoding -;; Copyright (c) 1998, 1999, 2000, 2003 Free Software Foundation, Inc. + +;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> ;; Keywords: news HZ HZ+ mail i18n diff --git a/lisp/gnus/rfc2045.el b/lisp/gnus/rfc2045.el index a1b06b4d939..b3bbe373d9d 100644 --- a/lisp/gnus/rfc2045.el +++ b/lisp/gnus/rfc2045.el @@ -1,6 +1,7 @@ ;;; rfc2045.el --- Functions for decoding rfc2045 headers -;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; This file is part of GNU Emacs. diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el index 56f1758be22..d9b6e0601d6 100644 --- a/lisp/gnus/rfc2047.el +++ b/lisp/gnus/rfc2047.el @@ -1,7 +1,7 @@ ;;; rfc2047.el --- functions for encoding and decoding rfc2047 messages -;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> diff --git a/lisp/gnus/rfc2104.el b/lisp/gnus/rfc2104.el index 43cdd3e44b3..07ea3a424e0 100644 --- a/lisp/gnus/rfc2104.el +++ b/lisp/gnus/rfc2104.el @@ -1,5 +1,7 @@ ;;; rfc2104.el --- RFC2104 Hashed Message Authentication Codes -;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. + +;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Simon Josefsson <jas@pdc.kth.se> ;; Keywords: mail diff --git a/lisp/gnus/rfc2231.el b/lisp/gnus/rfc2231.el index 4c39ba6c7fd..f328f2dbc6a 100644 --- a/lisp/gnus/rfc2231.el +++ b/lisp/gnus/rfc2231.el @@ -1,7 +1,7 @@ ;;; rfc2231.el --- Functions for decoding rfc2231 headers -;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; This file is part of GNU Emacs. diff --git a/lisp/gnus/score-mode.el b/lisp/gnus/score-mode.el index c580256c94e..add14ea6ded 100644 --- a/lisp/gnus/score-mode.el +++ b/lisp/gnus/score-mode.el @@ -1,6 +1,7 @@ ;;; score-mode.el --- mode for editing Gnus score files -;; Copyright (C) 1996, 2001, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1996, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news, mail diff --git a/lisp/gnus/sha1.el b/lisp/gnus/sha1.el index 8968f1d42d5..99b9aa47bb6 100644 --- a/lisp/gnus/sha1.el +++ b/lisp/gnus/sha1.el @@ -1,6 +1,7 @@ ;;; sha1.el --- SHA1 Secure Hash Algorithm in Emacs-Lisp -;; Copyright (C) 1999, 2001, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp> ;; Keywords: SHA1, FIPS 180-1 diff --git a/lisp/gnus/sieve-manage.el b/lisp/gnus/sieve-manage.el index 5c0712420a0..dc2016f282e 100644 --- a/lisp/gnus/sieve-manage.el +++ b/lisp/gnus/sieve-manage.el @@ -1,5 +1,6 @@ ;;; sieve-manage.el --- Implementation of the managesive protocol in elisp -;; Copyright (C) 2001, 2003, 2005 Free Software Foundation, Inc. + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Simon Josefsson <simon@josefsson.org> diff --git a/lisp/gnus/sieve-mode.el b/lisp/gnus/sieve-mode.el index 012c58de3b4..31ff5d1e9c9 100644 --- a/lisp/gnus/sieve-mode.el +++ b/lisp/gnus/sieve-mode.el @@ -1,5 +1,6 @@ ;;; sieve-mode.el --- Sieve code editing commands for Emacs -;; Copyright (C) 2001, 2002, 2003, 2005 Free Software Foundation, Inc. + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Simon Josefsson <simon@josefsson.org> diff --git a/lisp/gnus/sieve.el b/lisp/gnus/sieve.el index 498a82387cd..28fde926c93 100644 --- a/lisp/gnus/sieve.el +++ b/lisp/gnus/sieve.el @@ -1,5 +1,6 @@ ;;; sieve.el --- Utilities to manage sieve scripts -;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Simon Josefsson <simon@josefsson.org> diff --git a/lisp/gnus/smiley.el b/lisp/gnus/smiley.el index 42444e74bda..cdd1c8dbc9b 100644 --- a/lisp/gnus/smiley.el +++ b/lisp/gnus/smiley.el @@ -1,6 +1,7 @@ ;;; smiley.el --- displaying smiley faces -;; Copyright (C) 2000, 2001, 2002, 2003 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Dave Love <fx@gnu.org> ;; Keywords: news mail multimedia diff --git a/lisp/gnus/smime.el b/lisp/gnus/smime.el index 059c1819605..485cf177154 100644 --- a/lisp/gnus/smime.el +++ b/lisp/gnus/smime.el @@ -1,5 +1,7 @@ ;;; smime.el --- S/MIME support library -;; Copyright (c) 2000, 2001, 2003 Free Software Foundation, Inc. + +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Simon Josefsson <simon@josefsson.org> ;; Keywords: SMIME X.509 PEM OpenSSL diff --git a/lisp/gnus/spam-report.el b/lisp/gnus/spam-report.el index 8ac235d12f2..50a564885bb 100644 --- a/lisp/gnus/spam-report.el +++ b/lisp/gnus/spam-report.el @@ -1,4 +1,5 @@ ;;; spam-report.el --- Reporting spam + ;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Teodor Zlatanov <tzz@lifelogs.com> @@ -95,7 +96,7 @@ undo that change.") (string-match spam-report-gmane-regex gnus-newsgroup-name))) (gnus-message 6 "Reporting spam article %d to spam.gmane.org..." article) (if spam-report-gmane-use-article-number - (spam-report-url-ping + (spam-report-url-ping "spam.gmane.org" (format "/%s:%d" (gnus-group-real-name gnus-newsgroup-name) diff --git a/lisp/gnus/spam-stat.el b/lisp/gnus/spam-stat.el index 18f16fd0946..436e7cc5fc7 100644 --- a/lisp/gnus/spam-stat.el +++ b/lisp/gnus/spam-stat.el @@ -1,6 +1,6 @@ ;;; spam-stat.el --- detecting spam based on statistics -;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Alex Schroeder <alex@gnu.org> ;; Keywords: network diff --git a/lisp/gnus/spam.el b/lisp/gnus/spam.el index e22ad1c2fa3..32de2f60e22 100644 --- a/lisp/gnus/spam.el +++ b/lisp/gnus/spam.el @@ -1,4 +1,5 @@ ;;; spam.el --- Identifying spam + ;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> diff --git a/lisp/gnus/starttls.el b/lisp/gnus/starttls.el index 92a436ca865..67464395c76 100644 --- a/lisp/gnus/starttls.el +++ b/lisp/gnus/starttls.el @@ -1,7 +1,7 @@ ;;; starttls.el --- STARTTLS functions -;; Copyright (C) 1999, 2000, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Daiki Ueno <ueno@unixuser.org> ;; Author: Simon Josefsson <simon@josefsson.org> diff --git a/lisp/gnus/utf7.el b/lisp/gnus/utf7.el index 1ece50bf89a..957dfc45796 100644 --- a/lisp/gnus/utf7.el +++ b/lisp/gnus/utf7.el @@ -1,5 +1,7 @@ ;;; utf7.el --- UTF-7 encoding/decoding for Emacs -*-coding: iso-8859-1;-*- -;; Copyright (C) 1999, 2000, 2003, 2005 Free Software Foundation, Inc. + +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Jon K Hellan <hellan@acm.org> ;; Maintainer: bugs@gnus.org diff --git a/lisp/gnus/uudecode.el b/lisp/gnus/uudecode.el index b4f4b74700f..c1fc56ad8bf 100644 --- a/lisp/gnus/uudecode.el +++ b/lisp/gnus/uudecode.el @@ -1,6 +1,7 @@ ;;; uudecode.el -- elisp native uudecode -;; Copyright (c) 1998, 1999, 2000, 2001, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> ;; Keywords: uudecode news diff --git a/lisp/gnus/webmail.el b/lisp/gnus/webmail.el index 51125897fe4..e9bc074f2cf 100644 --- a/lisp/gnus/webmail.el +++ b/lisp/gnus/webmail.el @@ -1,5 +1,7 @@ ;;; webmail.el --- interface of web mail -;; Copyright (C) 1999, 2000, 2001, 2004 Free Software Foundation, Inc. + +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> ;; Keywords: hotmail netaddress my-deja netscape diff --git a/lisp/gnus/yenc.el b/lisp/gnus/yenc.el index 0d5ad3905be..37018d2fa19 100644 --- a/lisp/gnus/yenc.el +++ b/lisp/gnus/yenc.el @@ -1,5 +1,6 @@ ;;; yenc.el --- elisp native yenc decoder -;; Copyright (c) 2002 Free Software Foundation, Inc. + +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Jesper Harder <harder@ifa.au.dk> ;; Keywords: yenc news diff --git a/lisp/gs.el b/lisp/gs.el index 7a8fb807ccd..8f9414f0e5f 100644 --- a/lisp/gs.el +++ b/lisp/gs.el @@ -1,6 +1,7 @@ ;;; gs.el --- interface to Ghostscript -;; Copyright (C) 1998, 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1998, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal diff --git a/lisp/help-at-pt.el b/lisp/help-at-pt.el index f3321e437de..fcb431feba9 100644 --- a/lisp/help-at-pt.el +++ b/lisp/help-at-pt.el @@ -1,6 +1,6 @@ ;;; help-at-pt.el --- local help through the keyboard -;; Copyright (C) 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Luc Teirlinck <teirllm@auburn.edu> ;; Keywords: help diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 93c34af7a5c..ae7a60cf55e 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -1,7 +1,7 @@ ;;; help-fns.el --- Complex help functions -;; Copyright (C) 1985, 86, 93, 94, 98, 1999, 2000, 01, 02, 03, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001, +;; 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: help, internal diff --git a/lisp/help-macro.el b/lisp/help-macro.el index cf3e63d8d76..33ee42abe7e 100644 --- a/lisp/help-macro.el +++ b/lisp/help-macro.el @@ -1,6 +1,7 @@ ;;; help-macro.el --- makes command line help such as help-for-help -;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Lynn Slater <lrs@indetech.com> ;; Maintainer: FSF diff --git a/lisp/help-mode.el b/lisp/help-mode.el index 831db8cc0cc..eac7caad0ca 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el @@ -1,7 +1,7 @@ ;;; help-mode.el --- `help-mode' used by *Help* buffers -;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001, 2002, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: help, internal diff --git a/lisp/help.el b/lisp/help.el index bab0592160c..cb634e2bdad 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1,7 +1,7 @@ ;;; help.el --- help commands for Emacs -;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001, 2002, 2004, -;; 2005 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1993, 1994, 1998, 1999, 2000, 2001, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: help, internal diff --git a/lisp/hexl.el b/lisp/hexl.el index 35423ec0335..45044da0985 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el @@ -1,6 +1,7 @@ ;;; hexl.el --- edit a file in a hex dump format using the hexl filter -;; Copyright (C) 1989, 1994, 1998, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1989, 1994, 1998, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Keith Gabryelski <ag@wheaties.ai.mit.edu> ;; Maintainer: FSF @@ -84,12 +85,12 @@ Quoting cannot be used, so the arguments cannot themselves contain spaces." :options '(hexl-follow-line hexl-activate-ruler turn-on-eldoc-mode) :group 'hexl) -(defface hexl-address-area +(defface hexl-address-region '((t (:inherit header-line))) "Face used in address are of hexl-mode buffer." :group 'hexl) -(defface hexl-ascii-area +(defface hexl-ascii-region '((t (:inherit header-line))) "Face used in ascii are of hexl-mode buffer." :group 'hexl) @@ -120,8 +121,8 @@ Quoting cannot be used, so the arguments cannot themselves contain spaces." (defvar hexl-font-lock-keywords '(("^\\([0-9a-f]+:\\).\\{40\\} \\(.+$\\)" ;; "^\\([0-9a-f]+:\\).+ \\(.+$\\)" - (1 'hexl-address-area t t) - (2 'hexl-ascii-area t t))) + (1 'hexl-address-region t t) + (2 'hexl-ascii-region t t))) "Font lock keywords used in `hexl-mode'.") ;; routines @@ -425,7 +426,7 @@ Ask the user for confirmation." (defun hexl-print-current-point-info () "Return current hexl-address in string. -This function is indented to be used as eldoc callback." +This function is intended to be used as eldoc callback." (let ((addr (hexl-current-address))) (format "Current address is %d/0x%08x" addr addr))) @@ -934,7 +935,7 @@ Customize the variable `hexl-follow-ascii' to disable this feature." (hl-line-mode 1)) (defun hexl-highlight-line-range () - "Return the range of address area for the point. + "Return the range of address region for the point. This function is assumed to be used as call back function for `hl-line-mode'." (cons (line-beginning-position) diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index d7aec9112bc..14920cf93c2 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -1,6 +1,7 @@ ;;; hi-lock.el --- minor mode for interactive automatic highlighting -;; Copyright (C) 2000, 2001, 2005 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: David M. Koppelman, koppel@ee.lsu.edu ;; Keywords: faces, minor-mode, matching, display diff --git a/lisp/hilit-chg.el b/lisp/hilit-chg.el index df95766641b..7011ff37dd3 100644 --- a/lisp/hilit-chg.el +++ b/lisp/hilit-chg.el @@ -1,6 +1,7 @@ ;;; hilit-chg.el --- minor mode displaying buffer changes with special face -;; Copyright (C) 1998, 2000, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1998, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Richard Sharman <rsharman@pobox.com> ;; Keywords: faces @@ -672,6 +673,7 @@ Hook variables: (if new-highlight-changes-mode ;; mode is turned on -- but may be passive (progn + (add-to-list 'desktop-locals-to-save 'highlight-changes-mode) (hilit-chg-set new-highlight-changes-mode) (or was-on ;; run highlight-changes-enable-hook once @@ -1153,6 +1155,16 @@ from `global-highlight-changes' when turning on global Highlight Changes mode." ))) (buffer-list))) +;;;; Desktop support. + +;; Called by `desktop-create-buffer' to restore `highlight-changes-mode'. +(defun hilit-chg-desktop-restore (desktop-buffer-locals) + (highlight-changes-mode + (or (cdr (assq 'highlight-changes-mode desktop-buffer-locals)) 1))) + +(add-to-list 'desktop-minor-mode-handlers + '(highlight-changes-mode . hilit-chg-desktop-restore)) + ;; ===================== debug ================== ;; For debug & test use: ;; diff --git a/lisp/hippie-exp.el b/lisp/hippie-exp.el index cdbc03bd1f7..1210166305b 100644 --- a/lisp/hippie-exp.el +++ b/lisp/hippie-exp.el @@ -1,6 +1,6 @@ ;;; hippie-exp.el --- expand text trying various ways to find its expansion -;; Copyright (C) 1992 Free Software Foundation, Inc. +;; Copyright (C) 1992, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Anders Holst <aho@sans.kth.se> ;; Last change: 3 March 1998 diff --git a/lisp/hl-line.el b/lisp/hl-line.el index 85617eab680..3dd56f2f239 100644 --- a/lisp/hl-line.el +++ b/lisp/hl-line.el @@ -1,6 +1,7 @@ ;;; hl-line.el --- highlight the current line -;; Copyright (C) 1998, 2000, 2001, 2003, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Dave Love <fx@gnu.org> ;; Maintainer: FSF diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 9aef1ed95be..da3ca20e5aa 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -1,6 +1,7 @@ ;;; ibuf-ext.el --- extensions for ibuffer -;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Colin Walters <walters@verbum.org> ;; Maintainer: John Paul Wallington <jpw@gnu.org> diff --git a/lisp/ibuf-macs.el b/lisp/ibuf-macs.el index aebe923ee85..5274e3173ef 100644 --- a/lisp/ibuf-macs.el +++ b/lisp/ibuf-macs.el @@ -1,6 +1,7 @@ ;;; ibuf-macs.el --- macros for ibuffer -;; Copyright (C) 2000, 2001, 2002, 2003 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Colin Walters <walters@verbum.org> ;; Maintainer: John Paul Wallington <jpw@gnu.org> diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index b8555c4d710..24bc63becec 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -1,7 +1,7 @@ ;;; ibuffer.el --- operate on buffers like dired -;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Colin Walters <walters@verbum.org> ;; Maintainer: John Paul Wallington <jpw@gnu.org> @@ -40,6 +40,16 @@ (require 'font-core) +(eval-when-compile + ;; These come from ibuf-ext.el, which can not be require'd at compile time + ;; because it has a recursive dependency on ibuffer.el + (defvar ibuffer-auto-mode) (defvar ibuffer-cached-filter-formats) + (defvar ibuffer-compiled-filter-formats) (defvar ibuffer-filter-format-alist) + (defvar ibuffer-filter-group-kill-ring) (defvar ibuffer-filter-groups) + (defvar ibuffer-filtering-qualifiers) (defvar ibuffer-hidden-filter-groups) + (defvar ibuffer-inline-columns) (defvar ibuffer-show-empty-filter-groups) + (defvar ibuffer-tmp-hide-regexps) (defvar ibuffer-tmp-show-regexps)) + (defgroup ibuffer nil "An advanced replacement for `buffer-menu'. @@ -814,6 +824,11 @@ directory, like `default-directory'." (defvar ibuffer-did-modification nil) +(defvar ibuffer-compiled-formats nil) +(defvar ibuffer-cached-formats nil) +(defvar ibuffer-cached-eliding-string nil) +(defvar ibuffer-cached-elide-long-columns 0) + (defvar ibuffer-sorting-functions-alist nil "An alist of functions which describe how to sort buffers. @@ -1394,7 +1409,7 @@ If point is on a group name, this function operates on that group." (defun ibuffer-compile-make-eliding-form (strvar elide from-end-p) (let ((ellipsis (propertize ibuffer-eliding-string 'font-lock-face 'bold))) - (if (or elide ibuffer-elide-long-columns) + (if (or elide (with-no-warnings ibuffer-elide-long-columns)) `(if (> strlen 5) ,(if from-end-p `(concat ,ellipsis @@ -1567,11 +1582,6 @@ If point is on a group name, this function operates on that group." '(tmp2))) ,@(nreverse result)))))))) -(defvar ibuffer-compiled-formats nil) -(defvar ibuffer-cached-formats nil) -(defvar ibuffer-cached-eliding-string nil) -(defvar ibuffer-cached-elide-long-columns 0) - (defun ibuffer-recompile-formats () "Recompile `ibuffer-formats'." (interactive) @@ -1603,7 +1613,7 @@ If point is on a group name, this function operates on that group." (not (equal ibuffer-cached-eliding-string ibuffer-eliding-string)) (eql 0 ibuffer-cached-elide-long-columns) (not (eql ibuffer-cached-elide-long-columns - ibuffer-elide-long-columns)) + (with-no-warnings ibuffer-elide-long-columns))) (and ext-loaded (not (eq ibuffer-cached-filter-formats ibuffer-filter-format-alist)) @@ -1613,7 +1623,7 @@ If point is on a group name, this function operates on that group." (ibuffer-recompile-formats) (setq ibuffer-cached-formats ibuffer-formats ibuffer-cached-eliding-string ibuffer-eliding-string - ibuffer-cached-elide-long-columns ibuffer-elide-long-columns) + ibuffer-cached-elide-long-columns (with-no-warnings ibuffer-elide-long-columns)) (when ext-loaded (setq ibuffer-cached-filter-formats ibuffer-filter-format-alist)) (message "Formats have changed, recompiling...done")))) diff --git a/lisp/icomplete.el b/lisp/icomplete.el index 9e9662c1697..085c111d856 100644 --- a/lisp/icomplete.el +++ b/lisp/icomplete.el @@ -1,7 +1,7 @@ ;;; icomplete.el --- minibuffer completion incremental feedback -;; Copyright (C) 1992, 1993, 1994, 1997, 1999, 2001, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 1997, 1999, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Ken Manheimer <klm@i.am> ;; Maintainer: Ken Manheimer <klm@i.am> @@ -243,13 +243,15 @@ and `minibuffer-setup-hook'." ;; embarking on computing completions: (sit-for icomplete-compute-delay))) (let ((text (while-no-input - (icomplete-completions - (field-string) - minibuffer-completion-table - minibuffer-completion-predicate - (not minibuffer-completion-confirm)))) + (list + (icomplete-completions + (field-string) + minibuffer-completion-table + minibuffer-completion-predicate + (not minibuffer-completion-confirm))))) (buffer-undo-list t)) - (if text (insert text))))))) + ;; Do nothing if while-no-input was aborted. + (if (consp text) (insert (car text)))))))) ;;;_ > icomplete-completions (name candidates predicate require-match) (defun icomplete-completions (name candidates predicate require-match) diff --git a/lisp/ido.el b/lisp/ido.el index 9d7b4877fe8..2ea7476ce45 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -1,6 +1,7 @@ ;;; ido.el --- interactively do things with buffers and files. -;; Copyright (C) 1996-2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Kim F. Storm <storm@cua.dk> ;; Based on: iswitchb by Stephen Eglen <stephen@cns.ed.ac.uk> @@ -366,7 +367,7 @@ use either \\[customize] or the function `ido-mode'." Setting this variable directly does not work. Use `customize' or call the function `ido-everywhere'." :set #'(lambda (symbol value) - (ido-everywhere value)) + (ido-everywhere (if value 1 -1))) :initialize 'custom-initialize-default :type 'boolean :group 'ido) @@ -687,12 +688,17 @@ not provide the normal completion. To show the completions, use C-a." :type 'boolean :group 'ido) -(defcustom ido-enter-single-matching-directory 'slash - "*Automatically enter sub-directory if it is the only matching item, if non-nil. -If value is 'slash, only enter if typing final slash, else do it always." +(defcustom ido-enter-matching-directory 'only + "*Additional methods to enter sub-directory of first/only matching item. +If value is 'first, enter first matching sub-directory when typing a slash. +If value is 'only, typing a slash only enters the sub-directory if it is +the only matching item. +If value is t, automatically enter a sub-directory when it is the only +matching item, even without typing a slash." :type '(choice (const :tag "Never" nil) - (const :tag "When typing /" slash) - (other :tag "Always" t)) + (const :tag "Slash enters first directory" first) + (const :tag "Slash enters first and only directory" only) + (other :tag "Always enter unique directory" t)) :group 'ido) (defcustom ido-create-new-buffer 'prompt @@ -1361,7 +1367,8 @@ This function also adds a hook to the minibuffer." (define-key map [remap display-buffer] 'ido-display-buffer))))) (defun ido-everywhere (arg) - "Enable ido everywhere file and directory names are read." + "Toggle using ido speed-ups everywhere file and directory names are read. +With ARG, turn ido speed-up on if arg is positive, off otherwise." (interactive "P") (setq ido-everywhere (if arg (> (prefix-numeric-value arg) 0) @@ -1958,7 +1965,9 @@ If INITIAL is non-nil, it specifies the initial input string." (if (eq method 'insert) (progn (ido-record-command 'insert-buffer buf) - (insert-buffer buf)) + (with-no-warnings + ;; we really want to run insert-buffer here + (insert-buffer buf))) (ido-visit-buffer buf method t))) ;; buffer doesn't exist @@ -3011,11 +3020,10 @@ for first matching file." (let (res) (message "Searching for `%s'...." text) (condition-case nil - (unless (catch 'input-pending-p - (let ((throw-on-input 'input-pending-p)) - (setq res (ido-make-merged-file-list-1 text auto wide)) - t)) - (setq res 'input-pending-p)) + (if (eq t (setq res + (while-no-input + (ido-make-merged-file-list-1 text auto wide)))) + (setq res 'input-pending-p)) (quit (setq res t ido-try-merged-list nil @@ -3358,38 +3366,37 @@ for first matching file." (or (member name ido-ignore-item-temp-list) (and ido-process-ignore-lists re-list - (let ((data (match-data)) - (ext-list (and ignore-ext ido-ignore-extensions + (save-match-data + (let ((ext-list (and ignore-ext ido-ignore-extensions completion-ignored-extensions)) - ignorep nextstr - (flen (length name)) slen) - (while ext-list - (setq nextstr (car ext-list)) - (if (cond - ((stringp nextstr) - (and (>= flen (setq slen (length nextstr))) - (string-equal (substring name (- flen slen)) nextstr))) - ((fboundp nextstr) (funcall nextstr name)) - (t nil)) - (setq ignorep t - ext-list nil - re-list nil) - (setq ext-list (cdr ext-list)))) - (while re-list - (setq nextstr (car re-list)) - (if (cond - ((stringp nextstr) (string-match nextstr name)) - ((fboundp nextstr) (funcall nextstr name)) - (t nil)) - (setq ignorep t - re-list nil) - (setq re-list (cdr re-list)))) - ;; return the result - (if ignorep - (setq ido-ignored-list (cons name ido-ignored-list))) - (set-match-data data) - ignorep)))) - + (case-fold-search ido-case-fold) + ignorep nextstr + (flen (length name)) slen) + (while ext-list + (setq nextstr (car ext-list)) + (if (cond + ((stringp nextstr) + (and (>= flen (setq slen (length nextstr))) + (string-equal (substring name (- flen slen)) nextstr))) + ((fboundp nextstr) (funcall nextstr name)) + (t nil)) + (setq ignorep t + ext-list nil + re-list nil) + (setq ext-list (cdr ext-list)))) + (while re-list + (setq nextstr (car re-list)) + (if (cond + ((stringp nextstr) (string-match nextstr name)) + ((fboundp nextstr) (funcall nextstr name)) + (t nil)) + (setq ignorep t + re-list nil) + (setq re-list (cdr re-list)))) + ;; return the result + (if ignorep + (setq ido-ignored-list (cons name ido-ignored-list))) + ignorep))))) ;; Private variable used by `ido-word-matching-substring'. (defvar ido-change-word-sub) @@ -3990,12 +3997,13 @@ For details of keybindings, do `\\[describe-function] ido-find-file'." (ido-set-matches) (ido-trace "new " ido-matches) - (when (and ido-enter-single-matching-directory + (when (and ido-enter-matching-directory ido-matches - (null (cdr ido-matches)) + (or (eq ido-enter-matching-directory 'first) + (null (cdr ido-matches))) (ido-final-slash (car ido-matches)) (or try-single-dir-match - (eq ido-enter-single-matching-directory t))) + (eq ido-enter-matching-directory t))) (ido-trace "single match" (car ido-matches)) (ido-set-current-directory (concat ido-current-directory (car ido-matches))) diff --git a/lisp/ielm.el b/lisp/ielm.el index 66a1da39066..57354008b1b 100644 --- a/lisp/ielm.el +++ b/lisp/ielm.el @@ -1,6 +1,6 @@ ;;; ielm.el --- interaction mode for Emacs Lisp -;; Copyright (C) 1994, 2002, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: David Smith <maa036@lancaster.ac.uk> ;; Maintainer: FSF diff --git a/lisp/iimage.el b/lisp/iimage.el index b10679592b3..ace21702a0f 100644 --- a/lisp/iimage.el +++ b/lisp/iimage.el @@ -1,6 +1,6 @@ ;;; iimage.el --- Inline image minor mode. -;; Copyright (C) 2004, 2005 Free Software Foundation +;; Copyright (C) 2004, 2005 Free Software Foundation, Inc. ;; Author: KOSEKI Yoshinori <kose@meadowy.org> ;; Maintainer: KOSEKI Yoshinori <kose@meadowy.org> diff --git a/lisp/image-file.el b/lisp/image-file.el index 6b88b84e19f..94028b740f5 100644 --- a/lisp/image-file.el +++ b/lisp/image-file.el @@ -1,6 +1,7 @@ ;;; image-file.el --- support for visiting image files ;; -;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; ;; Author: Miles Bader <miles@gnu.org> ;; Keywords: multimedia diff --git a/lisp/image.el b/lisp/image.el index 561e0ac0abf..b45b23db611 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -1,6 +1,7 @@ ;;; image.el --- image API -;; Copyright (C) 1998, 99, 2000, 01, 04 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: multimedia diff --git a/lisp/imenu.el b/lisp/imenu.el index a210b39c604..1a107ed8aea 100644 --- a/lisp/imenu.el +++ b/lisp/imenu.el @@ -1,7 +1,7 @@ ;;; imenu.el --- framework for mode-specific buffer indexes -;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2003, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Ake Stenhoff <etxaksf@aom.ericsson.se> ;; Lars Lindberg <lli@sypro.cap.se> diff --git a/lisp/indent.el b/lisp/indent.el index 14488e79a62..9e84dfe13e0 100644 --- a/lisp/indent.el +++ b/lisp/indent.el @@ -1,6 +1,7 @@ ;;; indent.el --- indentation commands for Emacs -;; Copyright (C) 1985, 1995, 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1995, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF diff --git a/lisp/info-look.el b/lisp/info-look.el index a408a7b2388..ad09df777cf 100644 --- a/lisp/info-look.el +++ b/lisp/info-look.el @@ -1,7 +1,8 @@ ;;; info-look.el --- major-mode-sensitive Info index lookup facility ;; An older version of this was known as libc.el. -;; Copyright (C) 1995,96,97,98,99,2001,03,04,05 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Ralph Schleicher <rs@nunatak.allgaeu.org> ;; (did not show signs of life (Nov 2001) -stef) diff --git a/lisp/info-xref.el b/lisp/info-xref.el index bffe5681cd0..1a9b196a764 100644 --- a/lisp/info-xref.el +++ b/lisp/info-xref.el @@ -1,6 +1,6 @@ ;;; info-xref.el --- check external references in an Info document -;; Copyright (C) 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Kevin Ryde <user42@zip.com.au> ;; Keywords: docs @@ -138,19 +138,27 @@ should open up the purported top file and see what subfiles it says." ;; Some dynamic variables are used to share information with sub-functions ;; below. ;; -;; info-xref-filename - current top-level filename, eg. /usr/info/foo.info.gz -;; -;; info-xref-filename-header - a heading message for the current top-level -;; filename, or "" when it's been printed. -;; -;; info-xref-good - count of good cross references. -;; -;; info-xref-bad - count of bad cross references. -;; -;; info-xref-xfile-alist - indexed by "(foo)" with value nil or t according -;; to whether "(foo)" exists or not. This is used to suppress duplicate -;; messages about foo not being available. (Duplicates within one -;; top-level file that is.) +(eval-when-compile + ;; + ;; info-xref-filename-header - a heading message for the current top-level + ;; filename, or "" when it's been printed. + ;; + (defvar info-xref-xfile-alist) + ;; + ;; info-xref-good - count of good cross references. + ;; + (defvar info-xref-good) + ;; + ;; info-xref-bad - count of bad cross references. + ;; + (defvar info-xref-bad) + ;; + ;; info-xref-xfile-alist - indexed by "(foo)" with value nil or t according + ;; to whether "(foo)" exists or not. This is used to suppress duplicate + ;; messages about foo not being available. (Duplicates within one + ;; top-level file that is.) + ;; + (defvar info-xref-filename-heading)) (defun info-xref-check-list (filename-list) "Check external references in info documents in FILENAME-LIST." diff --git a/lisp/info.el b/lisp/info.el index a7f4c494244..4c40e187c03 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -1,7 +1,7 @@ ;;; info.el --- info package for Emacs ;; Copyright (C) 1985, 1986, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. +;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: help @@ -25,7 +25,7 @@ ;;; Commentary: -;; Note that nowadays we expect info files to be made using makeinfo. +;; Note that nowadays we expect Info files to be made using makeinfo. ;; In particular we make these assumptions: ;; - a menu item MAY contain colons but not colon-space ": " ;; - a menu item ending with ": " (but not ":: ") is an index entry @@ -44,20 +44,20 @@ (defvar Info-history nil - "Stack of info nodes user has visited. + "Stack of Info nodes user has visited. Each element of the stack is a list (FILENAME NODENAME BUFFERPOS).") (defvar Info-history-forward nil - "Stack of info nodes user has visited with `Info-history-back' command. + "Stack of Info nodes user has visited with `Info-history-back' command. Each element of the stack is a list (FILENAME NODENAME BUFFERPOS).") (defvar Info-history-list nil - "List of all info nodes user has visited. + "List of all Info nodes user has visited. Each element of the list is a list (FILENAME NODENAME).") (defcustom Info-enable-edit nil "*Non-nil means the \\<Info-mode-map>\\[Info-edit] command in Info can edit the current node. -This is convenient if you want to write info files by hand. +This is convenient if you want to write Info files by hand. However, we recommend that you not do this. It is better to write a Texinfo file and generate the Info file from that, because that gives you a printed manual as well." @@ -76,11 +76,57 @@ The Lisp code is executed when the node is selected.") "Face for Info node names." :group 'info) -(defface info-menu-5 +(defface info-title-1 + '((((type tty pc) (class color) (background light)) + :foreground "green" :weight bold) + (((type tty pc) (class color) (background dark)) + :foreground "yellow" :weight bold) + (t :height 1.2 :inherit info-title-2)) + "Face for info titles at level 1." + :group 'info) +;; backward-compatibility alias +(put 'Info-title-1-face 'face-alias 'info-title-1) + +(defface info-title-2 + '((((type tty pc) (class color)) :foreground "lightblue" :weight bold) + (t :height 1.2 :inherit info-title-3)) + "Face for info titles at level 2." + :group 'info) +;; backward-compatibility alias +(put 'Info-title-2-face 'face-alias 'info-title-2) + +(defface info-title-3 + '((((type tty pc) (class color)) :weight bold) + (t :height 1.2 :inherit info-title-4)) + "Face for info titles at level 3." + :group 'info) +;; backward-compatibility alias +(put 'Info-title-3-face 'face-alias 'info-title-3) + +(defface info-title-4 + '((((type tty pc) (class color)) :weight bold) + (t :weight bold :inherit variable-pitch)) + "Face for info titles at level 4." + :group 'info) +;; backward-compatibility alias +(put 'Info-title-4-face 'face-alias 'info-title-4) + +(defface info-menu-header + '((((type tty pc)) + :underline t + :weight bold) + (t + :inherit variable-pitch + :weight bold)) + "Face for headers in Info menus." + :group 'info) + +(defface info-menu-star '((((class color)) :foreground "red1") (t :underline t)) "Face for every third `*' in an Info menu." :group 'info) +(put 'info-menu-5 'face-alias 'info-menu-star) (defface info-xref '((((min-colors 88) @@ -101,7 +147,7 @@ The Lisp code is executed when the node is selected.") :group 'info) (defcustom Info-fontify-visited-nodes t - "*Non-nil means to fontify visited nodes in a different face." + "*Non-nil to fontify references to visited nodes in `info-xref-visited' face." :version "22.1" :type 'boolean :group 'info) @@ -165,6 +211,7 @@ These directories are searched after those in `Info-directory-list'." (defcustom Info-scroll-prefer-subnodes nil "*If non-nil, \\<Info-mode-map>\\[Info-scroll-up] in a menu visits subnodes. + If this is non-nil, and you scroll far enough in a node that its menu appears on the screen, the next \\<Info-mode-map>\\[Info-scroll-up] moves to a subnode indicated by the following menu item. This means @@ -180,7 +227,8 @@ when you hit the end of the current node." (defcustom Info-hide-note-references t "*If non-nil, hide the tag and section reference in *note and * menu items. If value is non-nil but not `hide', also replaces the \"*note\" with \"see\". -If value is non-nil but not t or `hide', the reference section is still shown." +If value is non-nil but not t or `hide', the reference section is still shown. +`nil' completely disables this feature." :version "22.1" :type '(choice (const :tag "No hiding" nil) (const :tag "Replace tag and hide reference" t) @@ -190,7 +238,7 @@ If value is non-nil but not t or `hide', the reference section is still shown." (defcustom Info-refill-paragraphs nil "*If non-nil, attempt to refill paragraphs with hidden references. -This refilling may accidentally remove explicit line breaks in the info +This refilling may accidentally remove explicit line breaks in the Info file, so be prepared for a few surprises if you enable this feature." :version "22.1" :type 'boolean @@ -247,7 +295,7 @@ Can also be t when using `Info-on-current-buffer'.") (defvar Info-current-subfile nil "Info subfile that is actually in the *info* buffer now. -nil if current info file is not split into subfiles.") +nil if current Info file is not split into subfiles.") (defvar Info-current-node nil "Name of node that Info is now looking at, or nil.") @@ -357,7 +405,7 @@ be last in the list.") (not (file-directory-p filename)))) (defun info-insert-file-contents (filename &optional visit) - "Insert the contents of an info file in the current buffer. + "Insert the contents of an Info file in the current buffer. Do the right thing if the file has been compressed or zipped." (let* ((tail Info-suffix-list) (lfn (if (fboundp 'msdos-long-file-names) @@ -632,12 +680,12 @@ just return nil (no error)." filename))) (defun Info-find-node (filename nodename &optional no-going-back) - "Go to an info node specified as separate FILENAME and NODENAME. + "Go to an Info node specified as separate FILENAME and NODENAME. NO-GOING-BACK is non-nil if recovering from an error in this function; it says do not attempt further (recursive) error recovery." (info-initialize) (setq filename (Info-find-file filename)) - ;; Go into info buffer. + ;; Go into Info buffer. (or (eq major-mode 'Info-mode) (pop-to-buffer "*info*")) ;; Record the node we are leaving. (if (and Info-current-file (not no-going-back)) @@ -647,7 +695,7 @@ it says do not attempt further (recursive) error recovery." (Info-find-node-2 filename nodename no-going-back)) (defun Info-on-current-buffer (&optional nodename) - "Use the `Info-mode' to browse the current info buffer. + "Use the `Info-mode' to browse the current Info buffer. If a prefix arg is provided, it queries for the NODENAME which else defaults to \"Top\"." (interactive @@ -665,7 +713,7 @@ else defaults to \"Top\"." ;; makeinfo-buffer) out of the way of normal operations. ;; (defun Info-revert-find-node (filename nodename) - "Go to an info node FILENAME and NODENAME, re-reading disk contents. + "Go to an Info node FILENAME and NODENAME, re-reading disk contents. When *info* is already displaying FILENAME and NODENAME, the window position is preserved, if possible." (pop-to-buffer "*info*") @@ -1028,7 +1076,7 @@ a case-insensitive match is tried." ;; Insert the entire original dir file as a start; note that we've ;; already saved its default directory to use as the default ;; directory for the whole concatenation. - (insert-buffer buffer) + (save-excursion (insert-buffer-substring buffer)) ;; Look at each of the other buffers one by one. (dolist (other others) @@ -1157,8 +1205,9 @@ a case-insensitive match is tried." (goto-char start) (while (re-search-forward "^* \\([^:\n]+:\\(:\\|[^.\n]+\\).\\)" limit 'move) - (let ((x (match-string 1))) - (if (member-ignore-case x seen) + ;; Fold case straight away; `member-ignore-case' here wasteful. + (let ((x (downcase (match-string 1)))) + (if (member x seen) (delete-region (match-beginning 0) (progn (re-search-forward "^[^ \t]" nil t) (match-beginning 0))) @@ -1286,7 +1335,7 @@ any double quotes or backslashes must be escaped (\\\",\\\\)." (set-buffer-modified-p nil))) (defun Info-select-node () - "Select the info node that point is in." + "Select the Info node that point is in." ;; Bind this in case the user sets it to nil. (let ((case-fold-search t)) (save-excursion @@ -1342,20 +1391,20 @@ any double quotes or backslashes must be escaped (\\\",\\\\)." ") " (or Info-current-node "")))))) -;; Go to an info node specified with a filename-and-nodename string +;; Go to an Info node specified with a filename-and-nodename string ;; of the sort that is found in pointers in nodes. ;; Don't autoload this function: the correct entry point for other packages ;; to use is `info'. --Stef ;; ;;;###autoload (defun Info-goto-node (nodename &optional fork) - "Go to info node named NODENAME. Give just NODENAME or (FILENAME)NODENAME. + "Go to Info node named NODENAME. Give just NODENAME or (FILENAME)NODENAME. If NODENAME is of the form (FILENAME)NODENAME, the node is in the Info file FILENAME; otherwise, NODENAME should be in the current Info file (or one of its sub-files). Completion is available, but only for node names in the current Info file. If FORK is non-nil (interactively with a prefix arg), show the node in -a new info buffer. +a new Info buffer. If FORK is a string, it is the name to use for the new buffer." (interactive (list (Info-read-node-name "Go to node: ") current-prefix-arg)) (info-initialize) @@ -1401,7 +1450,7 @@ PATH-AND-SUFFIXES is a pair of lists, (DIRECTORIES . SUFFIXES)." ;; include it. (and (or (null (file-name-extension file)) (string-match suffix file)) - ;; But exclude subfiles of split info files. + ;; But exclude subfiles of split Info files. (not (string-match "-[0-9]+\\'" file)) ;; And exclude backup files. (not (string-match "~\\'" file)) @@ -1721,9 +1770,11 @@ If DIRECTION is `backward', search in the reverse direction." (lambda (string &optional bound noerror count) (if isearch-word (Info-search (concat "\\b" (replace-regexp-in-string - "\\W+" "\\\\W+" + "\\W+" "\\W+" (replace-regexp-in-string - "^\\W+\\|\\W+$" "" string)) "\\b") + "^\\W+\\|\\W+$" "" string) + nil t) + "\\b") bound noerror count (unless isearch-forward 'backward)) (Info-search (if isearch-regexp string (regexp-quote string)) @@ -1821,7 +1872,7 @@ If SAME-FILE is non-nil, do not move to a different Info file." (concat "\n\\* +\\(" (regexp-quote old-node) ":\\|[^:]+: +" (regexp-quote old-node) "\\)")) nil t)) - (beginning-of-line) + (progn (beginning-of-line) (if (looking-at "^\\* ") (forward-char 2))) (goto-char p) (Info-restore-point Info-history)))) @@ -2010,7 +2061,7 @@ Table of contents is created from the tree structure of menus." "Follow cross reference named FOOTNOTENAME to the node it refers to. FOOTNOTENAME may be an abbreviation of the reference name. If FORK is non-nil (interactively with a prefix arg), show the node in -a new info buffer. If FORK is a string, it is the name to use for the +a new Info buffer. If FORK is a string, it is the name to use for the new buffer." (interactive (let ((completion-ignore-case t) @@ -2221,7 +2272,7 @@ Because of ambiguities, this should be concatenated with something like The menu item should one of those listed in the current node's menu. Completion is allowed, and the default menu item is the one point is on. If FORK is non-nil (interactively with a prefix arg), show the node in -a new info buffer. If FORK is a string, it is the name to use for the +a new Info buffer. If FORK is a string, it is the name to use for the new buffer." (interactive (let ((completions '()) @@ -2546,7 +2597,9 @@ parent node." (if (looking-at "\\* Menu:") (if recur (error "No cross references in this node") - (Info-next-reference t))))) + (Info-next-reference t)) + (if (looking-at "^\\* ") + (forward-char 2))))) (defun Info-prev-reference (&optional recur) "Move cursor to the previous cross-reference or menu item in the node." @@ -2565,7 +2618,9 @@ parent node." (if (looking-at "\\* Menu:") (if recur (error "No cross references in this node") - (Info-prev-reference t))))) + (Info-prev-reference t)) + (if (looking-at "^\\* ") + (forward-char 2))))) (defvar Info-index-nodes nil "Alist of cached index node names of visited Info files. @@ -2799,25 +2854,29 @@ Build a menu of the possible matches." (goto-char (point-min)) (re-search-forward "\\* Menu: *\n" nil t) (while (re-search-forward "\\*.*: *(\\([^)]+\\))" nil t) - (add-to-list 'manuals (match-string 1))) - (dolist (manual manuals) + (setq manuals (cons (match-string 1) manuals))) + (dolist (manual (nreverse manuals)) (message "Searching %s" manual) - (if (setq nodes (Info-index-nodes (Info-find-file manual))) - (condition-case nil + (condition-case err + (if (setq nodes (Info-index-nodes (Info-find-file manual))) (save-excursion (Info-find-node manual (car nodes)) (while (progn (goto-char (point-min)) (while (re-search-forward pattern nil t) - (add-to-list 'matches - (list manual - (match-string-no-properties 1) - (match-string-no-properties 2) - (match-string-no-properties 3)))) + (setq matches + (cons (list manual + (match-string-no-properties 1) + (match-string-no-properties 2) + (match-string-no-properties 3)) + matches))) (setq nodes (cdr nodes) node (car nodes))) - (Info-goto-node node))) - (error nil))))) + (Info-goto-node node)))) + (error + (message "%s" (if (eq (car-safe err) 'error) + (nth 1 err) err)) + (sit-for 1 t))))) (Info-goto-node (concat "(" current-file ")" current-node)) (setq Info-history ohist Info-history-list ohist-list) @@ -2827,8 +2886,8 @@ Build a menu of the possible matches." (with-current-buffer (get-buffer-create " *info-apropos*") (erase-buffer) (insert "\n\^_\nFile: apropos, Node: Index, Up: (dir)\n") - (insert "* Menu: \nNodes whose indices contain \"" string "\"\n\n") - (dolist (entry matches) + (insert "* Menu: \nNodes whose indices contain `" string "':\n\n") + (dolist (entry (nreverse matches)) (insert (format "* %-38s (%s)%s.%s\n" (concat (nth 1 entry) " [" (nth 0 entry) "]:") @@ -3001,7 +3060,6 @@ if point is in a menu item description, follow that menu item." (define-key Info-mode-map "<" 'Info-top-node) (define-key Info-mode-map ">" 'Info-final-node) (define-key Info-mode-map "b" 'beginning-of-buffer) - (define-key Info-mode-map "c" 'Info-copy-current-node-name) (define-key Info-mode-map "d" 'Info-directory) (define-key Info-mode-map "e" 'Info-edit) (define-key Info-mode-map "f" 'Info-follow-reference) @@ -3023,8 +3081,11 @@ if point is in a menu item description, follow that menu item." (define-key Info-mode-map "t" 'Info-top-node) (define-key Info-mode-map "T" 'Info-toc) (define-key Info-mode-map "u" 'Info-up) - ;; For consistency with dired-copy-filename-as-kill. + ;; `w' for consistency with `dired-copy-filename-as-kill'. (define-key Info-mode-map "w" 'Info-copy-current-node-name) + (define-key Info-mode-map "c" 'Info-copy-current-node-name) + ;; `^' for consistency with `dired-up-directory'. + (define-key Info-mode-map "^" 'Info-up) (define-key Info-mode-map "," 'Info-index-next) (define-key Info-mode-map "\177" 'Info-scroll-down) (define-key Info-mode-map [mouse-2] 'Info-mouse-follow-nearest-node) @@ -3039,7 +3100,7 @@ if point is in a menu item description, follow that menu item." (easy-menu-define Info-mode-menu Info-mode-map - "Menu for info files." + "Menu for Info files." '("Info" ["Up" Info-up :active (Info-check-pointer "up") :help "Go up in the Info tree"] @@ -3061,8 +3122,6 @@ if point is in a menu item description, follow that menu item." ("Reference" ["You should never see this" report-emacs-bug t]) ["Search..." Info-search :help "Search for regular expression in this Info file"] - ["Search Case-Sensitively..." Info-search-case-sensitively - :help "Search for regular expression case sensitively"] ["Search Next" Info-search-next :help "Search for another occurrence of regular expression"] ["Go to Node..." Info-goto-node @@ -3174,12 +3233,12 @@ if point is in a menu item description, follow that menu item." (defun Info-copy-current-node-name (&optional arg) - "Put the name of the current info node into the kill ring. -The name of the info file is prepended to the node name in parentheses. + "Put the name of the current Info node into the kill ring. +The name of the Info file is prepended to the node name in parentheses. With a zero prefix arg, put the name inside a function call to `info'." (interactive "P") (unless Info-current-node - (error "No current info node")) + (error "No current Info node")) (let ((node (concat "(" (file-name-nondirectory (or (and (stringp Info-current-file) Info-current-file) @@ -3198,6 +3257,8 @@ With a zero prefix arg, put the name inside a function call to `info'." (defvar tool-bar-map) +;; Autoload cookie needed by desktop.el +;;;###autoload (defun Info-mode () "Info mode provides commands for browsing through the Info documentation tree. Documentation in Info is divided into \"nodes\", each of which discusses @@ -3245,7 +3306,7 @@ Moving within a node: \\[beginning-of-buffer] Go to beginning of node. Advanced commands: -\\[Info-copy-current-node-name] Put name of current info node in the kill ring. +\\[Info-copy-current-node-name] Put name of current Info node in the kill ring. \\[clone-buffer] Select a new cloned Info buffer in another window. \\[Info-edit] Edit contents of selected node. 1 .. 9 Pick first ... ninth item in node's menu. @@ -3355,7 +3416,7 @@ which returns to Info mode for browsing. Allowed only if variable `Info-enable-edit' is non-nil." (interactive) (or Info-enable-edit - (error "Editing info nodes is not enabled")) + (error "Editing Info nodes is not enabled")) (Info-edit-mode) (message "%s" (substitute-command-keys "Editing: Type \\<Info-edit-map>\\[Info-cease-edit] to return to info"))) @@ -3417,7 +3478,7 @@ in the first element of the returned list (which is treated specially in "\\( <[0-9]+>\\)?:\\s *\\(.*\\)\\." "\\(?:[ \t\n]+(line +\\([0-9]+\\))\\)?")) (info-file "emacs")) ;default - ;; Determine which info file this command is documented in. + ;; Determine which Info file this command is documented in. (if (get command 'info-file) (setq info-file (get command 'info-file)) ;; If it doesn't say explicitly, test its name against @@ -3526,72 +3587,6 @@ the variable `Info-file-list-for-emacs'." (t (Info-goto-emacs-command-node command))))) -(defface info-title-1 - '((((type tty pc) (class color) (background light)) - :foreground "green" :weight bold) - (((type tty pc) (class color) (background dark)) - :foreground "yellow" :weight bold) - (t :height 1.2 :inherit info-title-2)) - "Face for info titles at level 1." - :group 'info) -;; backward-compatibility alias -(put 'Info-title-1-face 'face-alias 'info-title-1) - -(defface info-title-2 - '((((type tty pc) (class color)) :foreground "lightblue" :weight bold) - (t :height 1.2 :inherit info-title-3)) - "Face for info titles at level 2." - :group 'info) -;; backward-compatibility alias -(put 'Info-title-2-face 'face-alias 'info-title-2) - -(defface info-title-3 - '((((type tty pc) (class color)) :weight bold) - (t :height 1.2 :inherit info-title-4)) - "Face for info titles at level 3." - :group 'info) -;; backward-compatibility alias -(put 'Info-title-3-face 'face-alias 'info-title-3) - -(defface info-title-4 - '((((type tty pc) (class color)) :weight bold) - (t :weight bold :inherit variable-pitch)) - "Face for info titles at level 4." - :group 'info) -;; backward-compatibility alias -(put 'Info-title-4-face 'face-alias 'info-title-4) - -(defface info-menu-header - '((((type tty pc)) - :underline t - :weight bold) - (t - :inherit variable-pitch - :weight bold)) - "Face for headers in Info menus." - :group 'info) - -(defun Info-escape-percent (string) - "Double all occurrences of `%' in STRING. - -Return a new string with all `%' characters replaced by `%%'. -Preserve text properties." - (let ((start 0) - (end (length string)) - mb me m matches) - (save-match-data - (while (and (< start end) (string-match "%" string start)) - (setq mb (match-beginning 0) - me (1+ mb) - m (substring string mb me) - matches (cons m - (cons m - (cons (substring string start mb) - matches))) - start me)) - (push (substring string start end) matches) - (apply #'concat (nreverse matches))))) - (defvar Info-next-link-keymap (let ((keymap (make-sparse-keymap))) (define-key keymap [header-line mouse-1] 'Info-next) @@ -3683,7 +3678,11 @@ Preserve text properties." (buffer-substring (point) header-end))) (setq header (buffer-substring (point) header-end)))) (put-text-property (point-min) (1+ (point-min)) - 'header-line (Info-escape-percent header)) + 'header-line + (replace-regexp-in-string + "%" + ;; Preserve text properties on duplicated `%'. + (lambda (s) (concat s s)) header)) ;; Hide the part of the first line ;; that is in the header, if it is just part. (unless (bobp) @@ -3867,7 +3866,7 @@ Preserve text properties." (if (and (<= n 9) (zerop (% n 3))) ; visual aids to help with 1-9 keys (put-text-property (match-beginning 0) (1+ (match-beginning 0)) - 'font-lock-face 'info-menu-5))) + 'font-lock-face 'info-menu-star))) (when not-fontified-p (add-text-properties (match-beginning 1) (match-end 1) @@ -3961,7 +3960,7 @@ Preserve text properties." ;;; Speedbar support: ;; These functions permit speedbar to display the "tags" in the -;; current info node. +;; current Info node. (eval-when-compile (require 'speedbar)) (defvar Info-speedbar-key-map nil @@ -4003,7 +4002,7 @@ Preserve text properties." ;;; Info hierarchy display method ;;;###autoload (defun Info-speedbar-browser () - "Initialize speedbar to display an info node browser. + "Initialize speedbar to display an Info node browser. This will add a speedbar major display mode." (interactive) (require 'speedbar) @@ -4144,7 +4143,7 @@ BUFFER is the buffer speedbar is requesting buttons for." "^No `.*' in index$" "^No cross-reference named" "^No cross.references in this node$" - "^No current info node$" + "^No current Info node$" "^No menu in this node$" "^No more items in menu$" "^No more nodes$" @@ -4167,11 +4166,10 @@ BUFFER is the buffer speedbar is requesting buttons for." (if (not (member Info-current-file '("apropos" "history" "toc"))) (list Info-current-file Info-current-node))) -;;;###autoload (defun Info-restore-desktop-buffer (desktop-buffer-file-name desktop-buffer-name desktop-buffer-misc) - "Restore an info buffer specified in a desktop file." + "Restore an Info buffer specified in a desktop file." (let ((first (nth 0 desktop-buffer-misc)) (second (nth 1 desktop-buffer-misc))) (when (and first second) @@ -4181,6 +4179,9 @@ BUFFER is the buffer speedbar is requesting buttons for." (Info-find-node first second) (current-buffer)))) +(add-to-list 'desktop-buffer-mode-handlers + '(Info-mode . Info-restore-desktop-buffer)) + (provide 'info) ;; arch-tag: f2480fe2-2139-40c1-a49b-6314991164ac diff --git a/lisp/informat.el b/lisp/informat.el index f3688cb3668..c9198d93191 100644 --- a/lisp/informat.el +++ b/lisp/informat.el @@ -1,6 +1,6 @@ ;;; informat.el --- info support functions package for Emacs -;; Copyright (C) 1986 Free Software Foundation, Inc. +;; Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: help diff --git a/lisp/isearch.el b/lisp/isearch.el index e72b011fc40..904deffab42 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -1,7 +1,7 @@ ;;; isearch.el --- incremental search minor mode -;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1999, -;; 2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1999, 2000, +;; 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> ;; Maintainer: FSF @@ -1068,7 +1068,11 @@ If first char entered is \\[isearch-yank-word-or-char], then do word search inst (if isearch-nonincremental (progn ;; (sit-for 1) ;; needed if isearch-done does: (message "") - (isearch-done)))) + (isearch-done) + ;; The search done message is confusing when the string + ;; is empty, so erase it. + (if (equal isearch-string "") + (message ""))))) (quit ; handle abort-recursive-edit (isearch-abort) ;; outside of let to restore outside global values @@ -1143,7 +1147,8 @@ Use `isearch-exit' to quit without signaling." (funcall isearch-wrap-function) (goto-char (if isearch-forward (point-min) (point-max))))))) ;; C-s in reverse or C-r in forward, change direction. - (setq isearch-forward (not isearch-forward))) + (setq isearch-forward (not isearch-forward) + isearch-success t)) (setq isearch-barrier (point)) ; For subsequent \| if regexp. diff --git a/lisp/isearchb.el b/lisp/isearchb.el index 3665311aaf6..0e7a20a57ec 100644 --- a/lisp/isearchb.el +++ b/lisp/isearchb.el @@ -1,6 +1,6 @@ ;;; isearchb --- a marriage between iswitchb and isearch -;; Copyright (C) 2004 John Wiegley +;; Copyright (C) 2004, 2005 John Wiegley ;; Author: John Wiegley <johnw@gnu.org> ;; Created: 16 Apr 2004 diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el index 408b17c9332..c2e08d3a466 100644 --- a/lisp/iswitchb.el +++ b/lisp/iswitchb.el @@ -1,7 +1,7 @@ ;;; iswitchb.el --- switch between buffers using substrings -;; Copyright (C) 1996, 1997, 2000, 2001, 2003, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Stephen Eglen <stephen@gnu.org> ;; Maintainer: Stephen Eglen <stephen@gnu.org> diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el index d98e8791124..2f8fcba91d1 100644 --- a/lisp/jit-lock.el +++ b/lisp/jit-lock.el @@ -1,6 +1,7 @@ ;;; jit-lock.el --- just-in-time fontification -;; Copyright (C) 1998, 2000, 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Gerd Moellmann <gerd@gnu.org> ;; Keywords: faces files diff --git a/lisp/jka-cmpr-hook.el b/lisp/jka-cmpr-hook.el index 36775a25470..1967a5d6c1d 100644 --- a/lisp/jka-cmpr-hook.el +++ b/lisp/jka-cmpr-hook.el @@ -1,6 +1,7 @@ ;;; jka-cmpr-hook.el --- preloaded code to enable jka-compr.el -;; Copyright (C) 1993, 1994, 1995, 1997, 1999, 2000, 2003, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 1997, 1999, 2000, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: jka@ece.cmu.edu (Jay K. Adams) ;; Maintainer: FSF diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index db18903e21f..b25d3865668 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -1,6 +1,7 @@ ;;; jka-compr.el --- reading/writing/loading compressed files -;; Copyright (C) 1993, 1994, 1995, 1997, 1999, 2000, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 1997, 1999, 2000, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: jka@ece.cmu.edu (Jay K. Adams) ;; Maintainer: FSF diff --git a/lisp/kermit.el b/lisp/kermit.el index 1b22df1dbe2..73cac8f3bc8 100644 --- a/lisp/kermit.el +++ b/lisp/kermit.el @@ -1,6 +1,6 @@ ;;; kermit.el --- additions to shell mode for use with kermit -;; Copyright (C) 1988 Free Software Foundation, Inc. +;; Copyright (C) 1988, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Jeff Norden <jeff@colgate.csnet> ;; Maintainer: FSF diff --git a/lisp/kmacro.el b/lisp/kmacro.el index 28e2c17c2a8..6bb1ab6f58d 100644 --- a/lisp/kmacro.el +++ b/lisp/kmacro.el @@ -1,6 +1,6 @@ ;;; kmacro.el --- enhanced keyboard macros -;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Kim F. Storm <storm@cua.dk> ;; Keywords: keyboard convenience diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index 75ae5e0d3f3..030bd646669 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -4,7 +4,7 @@ ;;;### (autoloads (5x5-crack 5x5-crack-xor-mutate 5x5-crack-mutating-best ;;;;;; 5x5-crack-mutating-current 5x5-crack-randomly 5x5) "5x5" -;;;;;; "play/5x5.el" (16775 26715)) +;;;;;; "play/5x5.el" (17134 16310)) ;;; Generated autoloads from play/5x5.el (autoload (quote 5x5) "5x5" "\ @@ -64,15 +64,15 @@ should return a grid vector array that is the new solution. ;;;*** ;;;### (autoloads (ada-mode ada-add-extensions) "ada-mode" "progmodes/ada-mode.el" -;;;;;; (16858 50933)) +;;;;;; (17135 27233)) ;;; Generated autoloads from progmodes/ada-mode.el (autoload (quote ada-add-extensions) "ada-mode" "\ Define SPEC and BODY as being valid extensions for Ada files. Going from body to spec with `ff-find-other-file' used these extensions. -SPEC and BODY are two regular expressions that must match against the file -name +SPEC and BODY are two regular expressions that must match against +the file name. \(fn SPEC BODY)" nil nil) @@ -106,7 +106,7 @@ Comments are handled using standard GNU Emacs conventions, including: Continue comment on next line '\\[indent-new-comment-line]' If you use imenu.el: - Display index-menu of functions & procedures '\\[imenu]' + Display index-menu of functions and procedures '\\[imenu]' If you use find-file.el: Switch to other file (Body <-> Spec) '\\[ff-find-other-file]' @@ -125,7 +125,7 @@ If you use ada-xref.el: ;;;*** ;;;### (autoloads (ada-header) "ada-stmt" "progmodes/ada-stmt.el" -;;;;;; (16507 41097)) +;;;;;; (17134 4416)) ;;; Generated autoloads from progmodes/ada-stmt.el (autoload (quote ada-header) "ada-stmt" "\ @@ -136,7 +136,7 @@ Insert a descriptive header at the top of the file. ;;;*** ;;;### (autoloads (ada-find-file) "ada-xref" "progmodes/ada-xref.el" -;;;;;; (16783 21522)) +;;;;;; (17134 4420)) ;;; Generated autoloads from progmodes/ada-xref.el (autoload (quote ada-find-file) "ada-xref" "\ @@ -151,7 +151,7 @@ Completion is available. ;;;;;; change-log-mode add-change-log-entry-other-window add-change-log-entry ;;;;;; find-change-log prompt-for-change-log-name add-log-mailing-address ;;;;;; add-log-full-name add-log-current-defun-function) "add-log" -;;;;;; "add-log.el" (16958 58756)) +;;;;;; "add-log.el" (17141 22195)) ;;; Generated autoloads from add-log.el (defvar add-log-current-defun-function nil "\ @@ -168,7 +168,7 @@ This defaults to the value returned by the function `user-full-name'.") (custom-autoload (quote add-log-full-name) "add-log") (defvar add-log-mailing-address nil "\ -*Electronic mail addresses of user, for inclusion in ChangeLog headers. +*Email addresses of user, for inclusion in ChangeLog headers. This defaults to the value of `user-mail-address'. In addition to being a simple string, this value can also be a list. All elements will be recognized as referring to the same user; when creating a new @@ -186,10 +186,10 @@ Find a change log file for \\[add-change-log-entry] and return the name. Optional arg FILE-NAME specifies the file to use. If FILE-NAME is nil, use the value of `change-log-default-name'. -If 'change-log-default-name' is nil, behave as though it were 'ChangeLog' +If `change-log-default-name' is nil, behave as though it were 'ChangeLog' \(or whatever we use on this operating system). -If 'change-log-default-name' contains a leading directory component, then +If `change-log-default-name' contains a leading directory component, then simply find it in the current directory. Otherwise, search in the current directory and its successive parents for a file so named. @@ -270,7 +270,7 @@ Has a preference of looking backwards. \(fn)" nil nil) (autoload (quote change-log-merge) "add-log" "\ -Merge the contents of ChangeLog file OTHER-LOG with this buffer. +Merge the contents of change log file OTHER-LOG with this buffer. Both must be found in Change Log mode (since the merging depends on the appropriate motion commands). OTHER-LOG can be either a file name or a buffer. @@ -288,8 +288,8 @@ Fix any old-style date entries in the current log file to default format. ;;;*** ;;;### (autoloads (defadvice ad-add-advice ad-default-compilation-action -;;;;;; ad-redefinition-action) "advice" "emacs-lisp/advice.el" (16775 -;;;;;; 26709)) +;;;;;; ad-redefinition-action) "advice" "emacs-lisp/advice.el" (17140 +;;;;;; 65503)) ;;; Generated autoloads from emacs-lisp/advice.el (defvar ad-redefinition-action (quote warn) "\ @@ -388,7 +388,7 @@ See Info node `(elisp)Advising Functions' for comprehensive documentation. ;;;### (autoloads (align-newline-and-indent align-unhighlight-rule ;;;;;; align-highlight-rule align-current align-entire align-regexp -;;;;;; align) "align" "align.el" (16942 52925)) +;;;;;; align) "align" "align.el" (17144 57913)) ;;; Generated autoloads from align.el (autoload (quote align) "align" "\ @@ -477,7 +477,7 @@ A replacement function for `newline-and-indent', aligning as it goes. ;;;*** -;;;### (autoloads (allout-init) "allout" "allout.el" (16908 33360)) +;;;### (autoloads (allout-init) "allout" "allout.el" (17141 22210)) ;;; Generated autoloads from allout.el (autoload (quote allout-init) "allout" "\ @@ -513,7 +513,7 @@ the following two lines in your Emacs init file: ;;;*** ;;;### (autoloads (ange-ftp-hook-function ange-ftp-reread-dir) "ange-ftp" -;;;;;; "net/ange-ftp.el" (16908 33362)) +;;;;;; "net/ange-ftp.el" (17145 6065)) ;;; Generated autoloads from net/ange-ftp.el (defalias (quote ange-ftp-re-read-dir) (quote ange-ftp-reread-dir)) @@ -535,7 +535,7 @@ Not documented ;;;*** ;;;### (autoloads (animate-birthday-present animate-sequence animate-string) -;;;;;; "animate" "play/animate.el" (16944 24675)) +;;;;;; "animate" "play/animate.el" (17134 16310)) ;;; Generated autoloads from play/animate.el (autoload (quote animate-string) "animate" "\ @@ -563,7 +563,7 @@ You can specify the one's name by NAME; the default value is \"Sarah\". ;;;*** ;;;### (autoloads (ansi-color-process-output ansi-color-for-comint-mode-on) -;;;;;; "ansi-color" "ansi-color.el" (16858 50906)) +;;;;;; "ansi-color" "ansi-color.el" (17144 6168)) ;;; Generated autoloads from ansi-color.el (autoload (quote ansi-color-for-comint-mode-on) "ansi-color" "\ @@ -589,7 +589,7 @@ This is a good function to put in `comint-output-filter-functions'. ;;;*** ;;;### (autoloads (antlr-set-tabs antlr-mode antlr-show-makefile-rules) -;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (16858 50933)) +;;;;;; "antlr-mode" "progmodes/antlr-mode.el" (17134 4426)) ;;; Generated autoloads from progmodes/antlr-mode.el (autoload (quote antlr-show-makefile-rules) "antlr-mode" "\ @@ -628,7 +628,7 @@ Used in `antlr-mode'. Also a useful function in `java-mode-hook'. ;;;### (autoloads (appt-activate appt-make-list appt-delete appt-add ;;;;;; appt-display-diary appt-display-duration appt-display-mode-line ;;;;;; appt-msg-window appt-visible appt-audible appt-message-warning-time -;;;;;; appt-issue-message) "appt" "calendar/appt.el" (16925 43112)) +;;;;;; appt-issue-message) "appt" "calendar/appt.el" (17097 29966)) ;;; Generated autoloads from calendar/appt.el (defvar appt-issue-message t "\ @@ -679,7 +679,7 @@ This will occur at midnight when the appointment list is updated.") (custom-autoload (quote appt-display-diary) "appt") (autoload (quote appt-add) "appt" "\ -Add an appointment for the day at NEW-APPT-TIME and issue message NEW-APPT-MSG. +Add an appointment for today at NEW-APPT-TIME with message NEW-APPT-MSG. The time should be in either 24 hour format or am/pm format. \(fn NEW-APPT-TIME NEW-APPT-MSG)" t nil) @@ -700,6 +700,9 @@ They specify the range of dates that the diary is being processed for. Any appointments made with `appt-add' are not affected by this function. +For backwards compatibility, this function activates the +appointment package (if it is not already active). + \(fn)" nil nil) (autoload (quote appt-activate) "appt" "\ @@ -713,7 +716,7 @@ ARG is positive, otherwise off. ;;;### (autoloads (apropos-documentation apropos-value apropos apropos-documentation-property ;;;;;; apropos-command apropos-variable) "apropos" "apropos.el" -;;;;;; (16942 52925)) +;;;;;; (17141 22213)) ;;; Generated autoloads from apropos.el (autoload (quote apropos-variable) "apropos" "\ @@ -767,8 +770,8 @@ Returns list of symbols and documentation found. ;;;*** -;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (16534 -;;;;;; 3807)) +;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (17141 +;;;;;; 22215)) ;;; Generated autoloads from arc-mode.el (autoload (quote archive-mode) "arc-mode" "\ @@ -788,7 +791,7 @@ archive. ;;;*** -;;;### (autoloads (array-mode) "array" "array.el" (16213 43267)) +;;;### (autoloads (array-mode) "array" "array.el" (17141 22216)) ;;; Generated autoloads from array.el (autoload (quote array-mode) "array" "\ @@ -801,7 +804,7 @@ NOT recognized as integers or real numbers. The array MUST reside at the top of the buffer. TABs are not respected, and may be converted into spaces at any time. -Setting the variable 'array-respect-tabs to non-nil will prevent TAB conversion, +Setting the variable `array-respect-tabs' to non-nil will prevent TAB conversion, but will cause many functions to give errors if they encounter one. Upon entering array mode, you will be prompted for the values of @@ -859,8 +862,8 @@ Entering array mode calls the function `array-mode-hook'. ;;;*** -;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (16858 -;;;;;; 50939)) +;;;### (autoloads (artist-mode) "artist" "textmodes/artist.el" (17141 +;;;;;; 99)) ;;; Generated autoloads from textmodes/artist.el (autoload (quote artist-mode) "artist" "\ @@ -1065,8 +1068,8 @@ Keymap summary ;;;*** -;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (16908 -;;;;;; 33362)) +;;;### (autoloads (asm-mode) "asm-mode" "progmodes/asm-mode.el" (17134 +;;;;;; 4426)) ;;; Generated autoloads from progmodes/asm-mode.el (autoload (quote asm-mode) "asm-mode" "\ @@ -1110,17 +1113,17 @@ This command is obsolete. ;;;*** ;;;### (autoloads (autoarg-kp-mode autoarg-mode) "autoarg" "autoarg.el" -;;;;;; (16213 43267)) +;;;;;; (17141 22218)) ;;; Generated autoloads from autoarg.el (defvar autoarg-mode nil "\ Non-nil if Autoarg mode is enabled. -See the command `autoarg-mode' for a description of this minor-mode. -Setting this variable directly does not take effect; -use either \\[customize] or the function `autoarg-mode'.") +See the command `autoarg-mode' for a description of this minor-mode.") (custom-autoload (quote autoarg-mode) "autoarg") +(put (quote autoarg-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote autoarg-mode) "autoarg" "\ Toggle Autoarg minor mode globally. With ARG, turn Autoarg mode on if ARG is positive, off otherwise. @@ -1151,6 +1154,8 @@ use either \\[customize] or the function `autoarg-kp-mode'.") (custom-autoload (quote autoarg-kp-mode) "autoarg") +(put (quote autoarg-kp-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote autoarg-kp-mode) "autoarg" "\ Toggle Autoarg-KP minor mode globally. With ARG, turn Autoarg mode on if ARG is positive, off otherwise. @@ -1165,7 +1170,7 @@ This is similar to \\[autoarg-mode] but rebinds the keypad keys `kp-1' ;;;*** ;;;### (autoloads (autoconf-mode) "autoconf" "progmodes/autoconf.el" -;;;;;; (16775 26716)) +;;;;;; (17134 4426)) ;;; Generated autoloads from progmodes/autoconf.el (autoload (quote autoconf-mode) "autoconf" "\ @@ -1176,7 +1181,7 @@ Major mode for editing Autoconf configure.in files. ;;;*** ;;;### (autoloads (auto-insert-mode define-auto-insert auto-insert) -;;;;;; "autoinsert" "autoinsert.el" (16793 54109)) +;;;;;; "autoinsert" "autoinsert.el" (17141 22218)) ;;; Generated autoloads from autoinsert.el (autoload (quote auto-insert) "autoinsert" "\ @@ -1200,6 +1205,8 @@ use either \\[customize] or the function `auto-insert-mode'.") (custom-autoload (quote auto-insert-mode) "autoinsert") +(put (quote auto-insert-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote auto-insert-mode) "autoinsert" "\ Toggle Auto-insert mode. With prefix ARG, turn Auto-insert mode on if and only if ARG is positive. @@ -1214,7 +1221,7 @@ insert a template for the file depending on the mode of the buffer. ;;;### (autoloads (batch-update-autoloads update-directory-autoloads ;;;;;; update-file-autoloads) "autoload" "emacs-lisp/autoload.el" -;;;;;; (16866 20010)) +;;;;;; (17140 65506)) ;;; Generated autoloads from emacs-lisp/autoload.el (autoload (quote update-file-autoloads) "autoload" "\ @@ -1249,7 +1256,7 @@ Calls `update-directory-autoloads' on the command line arguments. ;;;### (autoloads (global-auto-revert-mode turn-on-auto-revert-tail-mode ;;;;;; auto-revert-tail-mode turn-on-auto-revert-mode auto-revert-mode) -;;;;;; "autorevert" "autorevert.el" (16923 3604)) +;;;;;; "autorevert" "autorevert.el" (17144 6170)) ;;; Generated autoloads from autorevert.el (autoload (quote auto-revert-mode) "autorevert" "\ @@ -1305,6 +1312,8 @@ use either \\[customize] or the function `global-auto-revert-mode'.") (custom-autoload (quote global-auto-revert-mode) "autorevert") +(put (quote global-auto-revert-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote global-auto-revert-mode) "autorevert" "\ Revert any buffer when file on disk changes. @@ -1317,7 +1326,7 @@ Use `auto-revert-mode' to revert a particular buffer. ;;;*** ;;;### (autoloads (mouse-avoidance-mode mouse-avoidance-mode) "avoid" -;;;;;; "avoid.el" (16680 26001)) +;;;;;; "avoid.el" (17141 22221)) ;;; Generated autoloads from avoid.el (defvar mouse-avoidance-mode nil "\ @@ -1358,7 +1367,7 @@ definition of \"random distance\".) ;;;*** ;;;### (autoloads (backquote) "backquote" "emacs-lisp/backquote.el" -;;;;;; (16484 6599)) +;;;;;; (17140 65506)) ;;; Generated autoloads from emacs-lisp/backquote.el (autoload (quote backquote) "backquote" "\ @@ -1383,7 +1392,7 @@ Vectors work just like lists. Nested backquotes are permitted. ;;;*** ;;;### (autoloads (display-battery-mode battery) "battery" "battery.el" -;;;;;; (16861 9525)) +;;;;;; (17141 22221)) ;;; Generated autoloads from battery.el (put 'battery-mode-line-string 'risky-local-variable t) @@ -1402,6 +1411,8 @@ use either \\[customize] or the function `display-battery-mode'.") (custom-autoload (quote display-battery-mode) "battery") +(put (quote display-battery-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote display-battery-mode) "battery" "\ Display battery status information in the mode line. The text being displayed in the mode line is controlled by the variables @@ -1414,7 +1425,7 @@ seconds. ;;;*** ;;;### (autoloads (benchmark benchmark-run-compiled benchmark-run) -;;;;;; "benchmark" "emacs-lisp/benchmark.el" (16213 43272)) +;;;;;; "benchmark" "emacs-lisp/benchmark.el" (17140 65506)) ;;; Generated autoloads from emacs-lisp/benchmark.el (autoload (quote benchmark-run) "benchmark" "\ @@ -1446,8 +1457,8 @@ non-interactive use see also `benchmark-run' and ;;;*** -;;;### (autoloads (bibtex-mode) "bibtex" "textmodes/bibtex.el" (16887 -;;;;;; 27628)) +;;;### (autoloads (bibtex-mode) "bibtex" "textmodes/bibtex.el" (17141 +;;;;;; 112)) ;;; Generated autoloads from textmodes/bibtex.el (autoload (quote bibtex-mode) "bibtex" "\ @@ -1466,7 +1477,7 @@ works only with buffers containing valid (syntactical correct) and sorted entries. This is usually the case, if you have created a buffer completely with BibTeX mode and finished every new entry with \\[bibtex-clean-entry]. -For third party BibTeX files, call the function `bibtex-convert-alien' +For third party BibTeX files, call the command \\[bibtex-convert-alien] to fully take advantage of all features of BibTeX mode. @@ -1509,7 +1520,7 @@ if that value is non-nil. ;;;### (autoloads (binhex-decode-region binhex-decode-region-external ;;;;;; binhex-decode-region-internal) "binhex" "gnus/binhex.el" -;;;;;; (16908 33361)) +;;;;;; (17141 6631)) ;;; Generated autoloads from gnus/binhex.el (defconst binhex-begin-line "^:...............................................................$") @@ -1532,8 +1543,8 @@ Binhex decode region between START and END. ;;;*** -;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (16704 -;;;;;; 8186)) +;;;### (autoloads (blackbox) "blackbox" "play/blackbox.el" (17134 +;;;;;; 16310)) ;;; Generated autoloads from play/blackbox.el (autoload (quote blackbox) "blackbox" "\ @@ -1655,7 +1666,7 @@ a reflection. ;;;### (autoloads (bookmark-bmenu-list bookmark-load bookmark-save ;;;;;; bookmark-write bookmark-delete bookmark-insert bookmark-rename ;;;;;; bookmark-insert-location bookmark-relocate bookmark-jump -;;;;;; bookmark-set) "bookmark" "bookmark.el" (16858 50906)) +;;;;;; bookmark-set) "bookmark" "bookmark.el" (17144 6174)) ;;; Generated autoloads from bookmark.el (define-key ctl-x-map "rb" 'bookmark-jump) (define-key ctl-x-map "rm" 'bookmark-set) @@ -1714,7 +1725,7 @@ bookmarks. See help on function `bookmark-load' for more about this. If the file pointed to by BOOKMARK no longer exists, you will be asked -if you wish to give the bookmark a new location, and bookmark-jump +if you wish to give the bookmark a new location, and `bookmark-jump' will then jump to the new location, as well as recording it in place of the old one in the permanent bookmark record. @@ -1784,8 +1795,8 @@ Saves by default in the file defined by the variable `bookmark-default-file'. With a prefix arg, save it in file FILE \(second argument). -If you are calling this from Lisp, the two arguments are PREFIX-ARG -and FILE, and if you just want it to write to the default file, then +If you are calling this from Lisp, the two arguments are PARG and +FILE, and if you just want it to write to the default file, then pass no arguments. Or pass in nil and FILE, and it will save in FILE instead. If you pass in one argument, and it is non-nil, then the user will be interactively queried for a file to save in. @@ -1830,7 +1841,7 @@ deletion, or > if it is flagged for displaying. (defalias (quote edit-bookmarks) (quote bookmark-bmenu-list)) -(defvar menu-bar-bookmark-map (let ((map (make-sparse-keymap "Bookmark functions"))) (define-key map [load] (quote ("Load a Bookmark File..." . bookmark-load))) (define-key map [write] (quote ("Save Bookmarks As..." . bookmark-write))) (define-key map [save] (quote ("Save Bookmarks" . bookmark-save))) (define-key map [edit] (quote ("Edit Bookmark List" . bookmark-bmenu-list))) (define-key map [delete] (quote ("Delete Bookmark" . bookmark-delete))) (define-key map [rename] (quote ("Rename Bookmark" . bookmark-rename))) (define-key map [locate] (quote ("Insert Location" . bookmark-locate))) (define-key map [insert] (quote ("Insert Contents" . bookmark-insert))) (define-key map [set] (quote ("Set Bookmark" . bookmark-set))) (define-key map [jump] (quote ("Jump to Bookmark" . bookmark-jump))) map)) +(defvar menu-bar-bookmark-map (let ((map (make-sparse-keymap "Bookmark functions"))) (define-key map [load] (quote ("Load a Bookmark File..." . bookmark-load))) (define-key map [write] (quote ("Save Bookmarks As..." . bookmark-write))) (define-key map [save] (quote ("Save Bookmarks" . bookmark-save))) (define-key map [edit] (quote ("Edit Bookmark List" . bookmark-bmenu-list))) (define-key map [delete] (quote ("Delete Bookmark..." . bookmark-delete))) (define-key map [rename] (quote ("Rename Bookmark..." . bookmark-rename))) (define-key map [locate] (quote ("Insert Location..." . bookmark-locate))) (define-key map [insert] (quote ("Insert Contents..." . bookmark-insert))) (define-key map [set] (quote ("Set Bookmark..." . bookmark-set))) (define-key map [jump] (quote ("Jump to Bookmark..." . bookmark-jump))) map)) (defalias (quote menu-bar-bookmark-map) menu-bar-bookmark-map) @@ -1840,12 +1851,12 @@ deletion, or > if it is flagged for displaying. ;;;;;; browse-url-mmm browse-url-lynx-emacs browse-url-lynx-xterm ;;;;;; browse-url-w3-gnudoit browse-url-w3 browse-url-iximosaic ;;;;;; browse-url-cci browse-url-grail browse-url-mosaic browse-url-gnome-moz -;;;;;; browse-url-galeon browse-url-mozilla browse-url-netscape +;;;;;; browse-url-galeon browse-url-firefox browse-url-mozilla browse-url-netscape ;;;;;; browse-url-default-browser browse-url-at-mouse browse-url-at-point ;;;;;; browse-url browse-url-of-region browse-url-of-dired-file ;;;;;; browse-url-of-buffer browse-url-of-file browse-url-url-at-point -;;;;;; browse-url-browser-function) "browse-url" "net/browse-url.el" -;;;;;; (16944 24675)) +;;;;;; browse-url-galeon-program browse-url-firefox-program browse-url-browser-function) +;;;;;; "browse-url" "net/browse-url.el" (17134 16279)) ;;; Generated autoloads from net/browse-url.el (defvar browse-url-browser-function (cond ((memq system-type (quote (windows-nt ms-dos cygwin))) (quote browse-url-default-windows-browser)) ((memq system-type (quote (darwin))) (quote browse-url-default-macosx-browser)) (t (quote browse-url-default-browser))) "\ @@ -1861,6 +1872,16 @@ regexp should probably be \".\" to specify a default browser.") (custom-autoload (quote browse-url-browser-function) "browse-url") +(defvar browse-url-firefox-program "firefox" "\ +*The name by which to invoke Firefox.") + +(custom-autoload (quote browse-url-firefox-program) "browse-url") + +(defvar browse-url-galeon-program "galeon" "\ +*The name by which to invoke Galeon.") + +(custom-autoload (quote browse-url-galeon-program) "browse-url") + (autoload (quote browse-url-url-at-point) "browse-url" "\ Not documented @@ -1928,9 +1949,9 @@ the effect of `browse-url-new-window-flag'. When called non-interactively, optional second argument NEW-WINDOW is used instead of `browse-url-new-window-flag'. -The order attempted is gnome-moz-remote, Mozilla, Galeon, -Konqueror, Netscape, Mosaic, IXI Mosaic, Lynx in an xterm, MMM, -and then W3. +The order attempted is gnome-moz-remote, Mozilla, Firefox, +Galeon, Konqueror, Netscape, Mosaic, IXI Mosaic, Lynx in an +xterm, MMM, and then W3. \(fn URL &rest ARGS)" nil nil) @@ -1972,6 +1993,34 @@ used instead of `browse-url-new-window-flag'. \(fn URL &optional NEW-WINDOW)" t nil) +(autoload (quote browse-url-firefox) "browse-url" "\ +Ask the Firefox WWW browser to load URL. +Default to the URL around or before point. The strings in +variable `browse-url-firefox-arguments' are also passed to +Firefox. + +When called interactively, if variable +`browse-url-new-window-flag' is non-nil, load the document in a +new Firefox window, otherwise use a random existing one. A +non-nil interactive prefix argument reverses the effect of +`browse-url-new-window-flag'. + +If `browse-url-firefox-new-window-is-tab' is non-nil, then +whenever a document would otherwise be loaded in a new window, it +is loaded in a new tab in an existing window instead. + +When called non-interactively, optional second argument +NEW-WINDOW is used instead of `browse-url-new-window-flag'. + +On MS-Windows systems the optional `new-window' parameter is +ignored. Firefox for Windows does not support the \"-remote\" +command line parameter. Therefore, the +`browse-url-new-window-flag' and `browse-url-firefox-new-window-is-tab' +are ignored as well. Firefox on Windows will always open the requested +URL in a new window. + +\(fn URL &optional NEW-WINDOW)" t nil) + (autoload (quote browse-url-galeon) "browse-url" "\ Ask the Galeon WWW browser to load URL. Default to the URL around or before point. The strings in variable @@ -2138,8 +2187,8 @@ Default to the URL around or before point. ;;;*** -;;;### (autoloads (snarf-bruces bruce) "bruce" "play/bruce.el" (16213 -;;;;;; 43281)) +;;;### (autoloads (snarf-bruces bruce) "bruce" "play/bruce.el" (17134 +;;;;;; 16310)) ;;; Generated autoloads from play/bruce.el (autoload (quote bruce) "bruce" "\ @@ -2155,7 +2204,7 @@ Return a vector containing the lines from `bruce-phrases-file'. ;;;*** ;;;### (autoloads (bs-show bs-customize bs-cycle-previous bs-cycle-next) -;;;;;; "bs" "bs.el" (16704 8186)) +;;;;;; "bs" "bs.el" (17141 22228)) ;;; Generated autoloads from bs.el (autoload (quote bs-cycle-next) "bs" "\ @@ -2196,8 +2245,8 @@ name of buffer configuration. ;;;*** ;;;### (autoloads (insert-text-button make-text-button insert-button -;;;;;; make-button define-button-type) "button" "button.el" (16934 -;;;;;; 57456)) +;;;;;; make-button define-button-type) "button" "button.el" (17141 +;;;;;; 22233)) ;;; Generated autoloads from button.el (defvar button-map (let ((map (make-sparse-keymap))) (define-key map "
" (quote push-button)) (define-key map [mouse-2] (quote push-button)) map) "\ @@ -2285,7 +2334,7 @@ Also see `make-text-button'. ;;;;;; batch-byte-compile-if-not-done display-call-tree byte-compile ;;;;;; compile-defun byte-compile-file byte-recompile-directory ;;;;;; byte-force-recompile) "bytecomp" "emacs-lisp/bytecomp.el" -;;;;;; (16942 52931)) +;;;;;; (17140 65522)) ;;; Generated autoloads from emacs-lisp/bytecomp.el (autoload (quote byte-force-recompile) "bytecomp" "\ @@ -2377,7 +2426,7 @@ For example, invoke `emacs -batch -f batch-byte-recompile-directory .'. ;;;*** -;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (16630 17322)) +;;;### (autoloads nil "cal-dst" "calendar/cal-dst.el" (17097 29969)) ;;; Generated autoloads from calendar/cal-dst.el (put (quote calendar-daylight-savings-starts) (quote risky-local-variable) t) @@ -2387,7 +2436,7 @@ For example, invoke `emacs -batch -f batch-byte-recompile-directory .'. ;;;*** ;;;### (autoloads (list-yahrzeit-dates) "cal-hebrew" "calendar/cal-hebrew.el" -;;;;;; (16436 34880)) +;;;;;; (17097 29972)) ;;; Generated autoloads from calendar/cal-hebrew.el (autoload (quote list-yahrzeit-dates) "cal-hebrew" "\ @@ -2401,12 +2450,14 @@ from the cursor position. ;;;### (autoloads (defmath calc-embedded-activate calc-embedded calc-grab-rectangle ;;;;;; calc-grab-region full-calc-keypad calc-keypad calc-eval quick-calc -;;;;;; full-calc calc calc-dispatch) "calc" "calc/calc.el" (16949 -;;;;;; 24050)) +;;;;;; full-calc calc calc-dispatch calc-settings-file) "calc" "calc/calc.el" +;;;;;; (17110 50514)) ;;; Generated autoloads from calc/calc.el (defvar calc-settings-file (convert-standard-filename "~/.calc.el") "\ *File in which to record permanent settings.") + +(custom-autoload (quote calc-settings-file) "calc") (global-set-key "\e#" 'calc-dispatch) (autoload (quote calc-dispatch) "calc" "\ @@ -2478,8 +2529,8 @@ Not documented ;;;*** -;;;### (autoloads (calculator) "calculator" "calculator.el" (16858 -;;;;;; 50907)) +;;;### (autoloads (calculator) "calculator" "calculator.el" (17141 +;;;;;; 22234)) ;;; Generated autoloads from calculator.el (autoload (quote calculator) "calculator" "\ @@ -2507,7 +2558,7 @@ See the documentation for `calculator-mode' for more information. ;;;;;; mark-holidays-in-calendar view-calendar-holidays-initially ;;;;;; calendar-remove-frame-by-deleting mark-diary-entries-in-calendar ;;;;;; number-of-diary-entries view-diary-entries-initially calendar-offset) -;;;;;; "calendar" "calendar/calendar.el" (16953 20625)) +;;;;;; "calendar" "calendar/calendar.el" (17144 57990)) ;;; Generated autoloads from calendar/calendar.el (defvar calendar-offset 0 "\ @@ -3098,7 +3149,7 @@ movement commands will not work correctly.") ;;;*** ;;;### (autoloads (canlock-verify canlock-insert-header) "canlock" -;;;;;; "gnus/canlock.el" (16822 52985)) +;;;;;; "gnus/canlock.el" (17141 6632)) ;;; Generated autoloads from gnus/canlock.el (autoload (quote canlock-insert-header) "canlock" "\ @@ -3115,9 +3166,21 @@ it fails. ;;;*** +;;;### (autoloads (c-guess-basic-syntax) "cc-engine" "progmodes/cc-engine.el" +;;;;;; (17144 58026)) +;;; Generated autoloads from progmodes/cc-engine.el + +(autoload (quote c-guess-basic-syntax) "cc-engine" "\ +Return the syntactic context of the current line. +This function does not do any hidden buffer changes. + +\(fn)" nil nil) + +;;;*** + ;;;### (autoloads (pike-mode idl-mode java-mode objc-mode c++-mode ;;;;;; c-mode c-initialize-cc-mode) "cc-mode" "progmodes/cc-mode.el" -;;;;;; (16858 50934)) +;;;;;; (17134 4484)) ;;; Generated autoloads from progmodes/cc-mode.el (autoload (quote c-initialize-cc-mode) "cc-mode" "\ @@ -3275,7 +3338,7 @@ Key bindings: ;;;*** ;;;### (autoloads (c-set-offset c-add-style c-set-style) "cc-styles" -;;;;;; "progmodes/cc-styles.el" (16667 39430)) +;;;;;; "progmodes/cc-styles.el" (17134 4487)) ;;; Generated autoloads from progmodes/cc-styles.el (autoload (quote c-set-style) "cc-styles" "\ @@ -3332,7 +3395,7 @@ and exists only for compatibility reasons. ;;;### (autoloads (ccl-execute-with-args check-ccl-program define-ccl-program ;;;;;; declare-ccl-program ccl-dump ccl-compile) "ccl" "international/ccl.el" -;;;;;; (16942 52931)) +;;;;;; (17097 30239)) ;;; Generated autoloads from international/ccl.el (autoload (quote ccl-compile) "ccl" "\ @@ -3591,7 +3654,7 @@ See the documentation of `define-ccl-program' for the detail of CCL program. ;;;*** ;;;### (autoloads (cfengine-mode) "cfengine" "progmodes/cfengine.el" -;;;;;; (16908 33362)) +;;;;;; (17134 4489)) ;;; Generated autoloads from progmodes/cfengine.el (autoload (quote cfengine-mode) "cfengine" "\ @@ -3613,7 +3676,7 @@ to the action header. ;;;;;; checkdoc-comments checkdoc-continue checkdoc-start checkdoc-current-buffer ;;;;;; checkdoc-eval-current-buffer checkdoc-message-interactive ;;;;;; checkdoc-interactive checkdoc) "checkdoc" "emacs-lisp/checkdoc.el" -;;;;;; (16829 43426)) +;;;;;; (17140 65527)) ;;; Generated autoloads from emacs-lisp/checkdoc.el (autoload (quote checkdoc) "checkdoc" "\ @@ -3796,8 +3859,8 @@ checking of documentation strings. ;;;*** ;;;### (autoloads (encode-hz-buffer encode-hz-region decode-hz-buffer -;;;;;; decode-hz-region) "china-util" "language/china-util.el" (16213 -;;;;;; 43280)) +;;;;;; decode-hz-region) "china-util" "language/china-util.el" (17097 +;;;;;; 30338)) ;;; Generated autoloads from language/china-util.el (autoload (quote decode-hz-region) "china-util" "\ @@ -3825,7 +3888,7 @@ Encode the text in the current buffer to HZ. ;;;*** ;;;### (autoloads (command-history list-command-history repeat-matching-complex-command) -;;;;;; "chistory" "chistory.el" (16213 43267)) +;;;;;; "chistory" "chistory.el" (17141 22235)) ;;; Generated autoloads from chistory.el (autoload (quote repeat-matching-complex-command) "chistory" "\ @@ -3864,7 +3927,7 @@ and runs the normal hook `command-history-hook'. ;;;*** -;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (16764 51520)) +;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (17140 65533)) ;;; Generated autoloads from emacs-lisp/cl.el (defvar custom-print-functions nil "\ @@ -3880,7 +3943,7 @@ a future Emacs interpreter will be able to use it.") ;;;*** ;;;### (autoloads (common-lisp-indent-function) "cl-indent" "emacs-lisp/cl-indent.el" -;;;;;; (16680 26003)) +;;;;;; (17140 65530)) ;;; Generated autoloads from emacs-lisp/cl-indent.el (autoload (quote common-lisp-indent-function) "cl-indent" "\ @@ -3891,7 +3954,7 @@ Not documented ;;;*** ;;;### (autoloads (c-macro-expand) "cmacexp" "progmodes/cmacexp.el" -;;;;;; (16213 43281)) +;;;;;; (17134 4489)) ;;; Generated autoloads from progmodes/cmacexp.el (autoload (quote c-macro-expand) "cmacexp" "\ @@ -3900,8 +3963,9 @@ Normally display output in temp buffer, but prefix arg means replace the region with it. `c-macro-preprocessor' specifies the preprocessor to use. -Prompt for arguments to the preprocessor (e.g. `-DDEBUG -I ./include') -if the user option `c-macro-prompt-flag' is non-nil. +Tf the user option `c-macro-prompt-flag' is non-nil +prompt for arguments to the preprocessor (e.g. `-DDEBUG -I ./include'), +otherwise use `c-macro-cppflags'. Noninteractive args are START, END, SUBST. For use inside Lisp programs, see also `c-macro-expansion'. @@ -3910,16 +3974,20 @@ For use inside Lisp programs, see also `c-macro-expansion'. ;;;*** -;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (16718 -;;;;;; 40975)) +;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (17143 +;;;;;; 40901)) ;;; Generated autoloads from cmuscheme.el (autoload (quote run-scheme) "cmuscheme" "\ -Run an inferior Scheme process, input and output via buffer *scheme*. +Run an inferior Scheme process, input and output via buffer `*scheme*'. If there is a process already running in `*scheme*', switch to that buffer. With argument, allows you to edit the command line (default is value -of `scheme-program-name'). Runs the hooks `inferior-scheme-mode-hook' -\(after the `comint-mode-hook' is run). +of `scheme-program-name'). +If a file `~/.emacs_SCHEMENAME' exists, it is given as initial input. +Note that this may lose due to a timing error if the Scheme processor +discards input when it starts up. +Runs the hook `inferior-scheme-mode-hook' (after the `comint-mode-hook' +is run). \(Type \\[describe-mode] in the process buffer for a list of commands.) \(fn CMD)" t nil) @@ -3929,7 +3997,7 @@ of `scheme-program-name'). Runs the hooks `inferior-scheme-mode-hook' ;;;### (autoloads (codepage-setup cp-supported-codepages cp-offset-for-codepage ;;;;;; cp-language-for-codepage cp-charset-for-codepage cp-make-coding-systems-for-codepage) -;;;;;; "codepage" "international/codepage.el" (16216 22162)) +;;;;;; "codepage" "international/codepage.el" (17097 30244)) ;;; Generated autoloads from international/codepage.el (autoload (quote cp-make-coding-systems-for-codepage) "codepage" "\ @@ -3988,16 +4056,31 @@ read/written by MS-DOS software, or for display on the MS-DOS terminal. ;;;### (autoloads (comint-redirect-results-list-from-process comint-redirect-results-list ;;;;;; comint-redirect-send-command-to-process comint-redirect-send-command ;;;;;; comint-run make-comint make-comint-in-buffer) "comint" "comint.el" -;;;;;; (16908 33360)) +;;;;;; (17144 57920)) ;;; Generated autoloads from comint.el +(defvar comint-output-filter-functions (quote (comint-postoutput-scroll-to-bottom comint-watch-for-password-prompt)) "\ +Functions to call after output is inserted into the buffer. +One possible function is `comint-postoutput-scroll-to-bottom'. +These functions get one argument, a string containing the text as originally +inserted. Note that this might not be the same as the buffer contents between +`comint-last-output-start' and the buffer's `process-mark', if other filter +functions have already modified the buffer. + +See also `comint-preoutput-filter-functions'. + +You can use `add-hook' to add functions to this list +either globally or locally.") + +(define-obsolete-variable-alias (quote comint-use-prompt-regexp-instead-of-fields) (quote comint-use-prompt-regexp) "22.1") + (autoload (quote make-comint-in-buffer) "comint" "\ Make a Comint process NAME in BUFFER, running PROGRAM. If BUFFER is nil, it defaults to NAME surrounded by `*'s. PROGRAM should be either a string denoting an executable program to create via `start-process', or a cons pair of the form (HOST . SERVICE) denoting a TCP connection to be opened via `open-network-stream'. If there is already a -running process in that buffer, it is not restarted. Optional third arg +running process in that buffer, it is not restarted. Optional fourth arg STARTFILE is the name of a file to send the contents of to the process. If PROGRAM is a string, any more args are arguments to PROGRAM. @@ -4058,8 +4141,8 @@ REGEXP-GROUP is the regular expression group in REGEXP to use. ;;;*** -;;;### (autoloads (compare-windows) "compare-w" "compare-w.el" (16810 -;;;;;; 63790)) +;;;### (autoloads (compare-windows) "compare-w" "compare-w.el" (17141 +;;;;;; 22246)) ;;; Generated autoloads from compare-w.el (autoload (quote compare-windows) "compare-w" "\ @@ -4095,11 +4178,11 @@ on third call it again advances points to the next difference and so on. ;;;### (autoloads (compilation-next-error-function compilation-minor-mode ;;;;;; compilation-shell-minor-mode compilation-mode compile compilation-search-path ;;;;;; compilation-ask-about-save compilation-window-height compilation-mode-hook) -;;;;;; "compile" "progmodes/compile.el" (16939 44105)) +;;;;;; "compile" "progmodes/compile.el" (17145 8109)) ;;; Generated autoloads from progmodes/compile.el (defvar compilation-mode-hook nil "\ -*List of hook functions run by `compilation-mode' (see `run-hooks').") +*List of hook functions run by `compilation-mode' (see `run-mode-hooks').") (custom-autoload (quote compilation-mode-hook) "compile") @@ -4179,7 +4262,7 @@ Major mode for compilation log buffers. move point to the error message line and type \\[compile-goto-error]. To kill the compilation, type \\[kill-compilation]. -Runs `compilation-mode-hook' with `run-hooks' (which see). +Runs `compilation-mode-hook' with `run-mode-hooks' (which see). \\{compilation-mode-map} @@ -4205,14 +4288,17 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'. \(fn &optional ARG)" t nil) (autoload (quote compilation-next-error-function) "compile" "\ -Not documented +Advance to the next error message and visit the file where the error was. +This is the value of `next-error-function' in Compilation buffers. \(fn N &optional RESET)" t nil) +(add-to-list (quote auto-mode-alist) (quote ("\\.gcov\\'" . compilation-mode))) + ;;;*** ;;;### (autoloads (partial-completion-mode) "complete" "complete.el" -;;;;;; (16377 12871)) +;;;;;; (17141 22246)) ;;; Generated autoloads from complete.el (defvar partial-completion-mode nil "\ @@ -4223,6 +4309,8 @@ use either \\[customize] or the function `partial-completion-mode'.") (custom-autoload (quote partial-completion-mode) "complete") +(put (quote partial-completion-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote partial-completion-mode) "complete" "\ Toggle Partial Completion mode. With prefix ARG, turn Partial Completion mode on if ARG is positive. @@ -4247,7 +4335,7 @@ See also the variable `PC-include-file-path'. ;;;*** ;;;### (autoloads (dynamic-completion-mode) "completion" "completion.el" -;;;;;; (16581 41633)) +;;;;;; (17144 6189)) ;;; Generated autoloads from completion.el (autoload (quote dynamic-completion-mode) "completion" "\ @@ -4260,7 +4348,7 @@ Enable dynamic word-completion. ;;;### (autoloads (decompose-composite-char compose-last-chars compose-chars-after ;;;;;; find-composition compose-chars decompose-string compose-string ;;;;;; decompose-region compose-region encode-composition-rule) -;;;;;; "composite" "composite.el" (16702 49512)) +;;;;;; "composite" "composite.el" (17118 19755)) ;;; Generated autoloads from composite.el (defconst reference-point-alist (quote ((tl . 0) (tc . 1) (tr . 2) (Bl . 3) (Bc . 4) (Br . 5) (bl . 6) (bc . 7) (br . 8) (cl . 9) (cc . 10) (cr . 11) (top-left . 0) (top-center . 1) (top-right . 2) (base-left . 3) (base-center . 4) (base-right . 5) (bottom-left . 6) (bottom-center . 7) (bottom-right . 8) (center-left . 9) (center-center . 10) (center-right . 11) (ml . 3) (mc . 10) (mr . 5) (mid-left . 3) (mid-center . 10) (mid-right . 5))) "\ @@ -4305,7 +4393,7 @@ follows (the point `*' corresponds to both reference points): (autoload (quote encode-composition-rule) "composite" "\ Encode composition rule RULE into an integer value. RULE is a cons of global and new reference point symbols -\(see reference-point-alist). +\(see `reference-point-alist'). \(fn RULE)" nil nil) @@ -4359,7 +4447,7 @@ The return value is STRING where `composition' property is put on all the characters in it. Optional 2nd and 3rd arguments START and END specify the range of -STRING to be composed. They defaults to the beginning and the end of +STRING to be composed. They default to the beginning and the end of STRING respectively. Optional 4th argument COMPONENTS, if non-nil, is a character or a @@ -4456,11 +4544,11 @@ The argument is a parameterized event of the form where N is the number of characters before point to compose, COMPONENTS, if non-nil, is the same as the argument to `compose-region' \(which see). If it is nil, `compose-chars-after' is called, -and that function find a proper rule to compose the target characters. +and that function finds a proper rule to compose the target characters. This function is intended to be used from input methods. The global keymap binds special event `compose-last-chars' to this function. Input method may generate an event (compose-last-chars N COMPONENTS) -after a sequence character events. +after a sequence of character events. \(fn ARGS)" t nil) (global-set-key [compose-last-chars] 'compose-last-chars) @@ -4481,7 +4569,7 @@ Optional 3rd arg WITH-COMPOSITION-RULE is ignored. ;;;### (autoloads (conf-xdefaults-mode conf-ppd-mode conf-colon-mode ;;;;;; conf-space-mode conf-javaprop-mode conf-windows-mode conf-unix-mode -;;;;;; conf-mode) "conf-mode" "textmodes/conf-mode.el" (16908 33363)) +;;;;;; conf-mode) "conf-mode" "textmodes/conf-mode.el" (17141 112)) ;;; Generated autoloads from textmodes/conf-mode.el (autoload (quote conf-mode) "conf-mode" "\ @@ -4631,7 +4719,7 @@ For details see `conf-mode'. Example: ;;;*** ;;;### (autoloads (shuffle-vector cookie-snarf cookie-insert cookie) -;;;;;; "cookie1" "play/cookie1.el" (16213 43281)) +;;;;;; "cookie1" "play/cookie1.el" (17134 16310)) ;;; Generated autoloads from play/cookie1.el (autoload (quote cookie) "cookie1" "\ @@ -4663,7 +4751,7 @@ Randomly permute the elements of VECTOR (all permutations equally likely). ;;;*** ;;;### (autoloads (copyright copyright-fix-years copyright-update) -;;;;;; "copyright" "emacs-lisp/copyright.el" (16932 19775)) +;;;;;; "copyright" "emacs-lisp/copyright.el" (17141 0)) ;;; Generated autoloads from emacs-lisp/copyright.el (autoload (quote copyright-update) "copyright" "\ @@ -4691,7 +4779,7 @@ Insert a copyright by $ORGANIZATION notice at cursor. ;;;*** ;;;### (autoloads (cperl-mode) "cperl-mode" "progmodes/cperl-mode.el" -;;;;;; (16858 50935)) +;;;;;; (17134 4520)) ;;; Generated autoloads from progmodes/cperl-mode.el (autoload (quote cperl-mode) "cperl-mode" "\ @@ -4749,7 +4837,7 @@ you type it inside the inline block of control construct, like and you are on a boundary of a statement inside braces, it will transform the construct into a multiline and will place you into an appropriately indented blank line. If you need a usual -`newline-and-indent' behaviour, it is on \\[newline-and-indent], +`newline-and-indent' behavior, it is on \\[newline-and-indent], see documentation on `cperl-electric-linefeed'. Use \\[cperl-invert-if-unless] to change a construction of the form @@ -4864,7 +4952,7 @@ or as help on variables `cperl-tips', `cperl-problems', ;;;*** ;;;### (autoloads (cpp-parse-edit cpp-highlight-buffer) "cpp" "progmodes/cpp.el" -;;;;;; (16213 43281)) +;;;;;; (17134 4522)) ;;; Generated autoloads from progmodes/cpp.el (autoload (quote cpp-highlight-buffer) "cpp" "\ @@ -4883,7 +4971,7 @@ Edit display information for cpp conditionals. ;;;*** ;;;### (autoloads (crisp-mode crisp-mode) "crisp" "emulation/crisp.el" -;;;;;; (16213 43273)) +;;;;;; (17134 16189)) ;;; Generated autoloads from emulation/crisp.el (defvar crisp-mode nil "\ @@ -4907,7 +4995,7 @@ With ARG, turn CRiSP mode on if ARG is positive, off otherwise. ;;;*** ;;;### (autoloads (completing-read-multiple) "crm" "emacs-lisp/crm.el" -;;;;;; (16213 43272)) +;;;;;; (17141 0)) ;;; Generated autoloads from emacs-lisp/crm.el (autoload (quote completing-read-multiple) "crm" "\ @@ -4942,8 +5030,8 @@ INHERIT-INPUT-METHOD. ;;;*** -;;;### (autoloads (cua-mode) "cua-base" "emulation/cua-base.el" (16942 -;;;;;; 52931)) +;;;### (autoloads (cua-selection-mode cua-mode) "cua-base" "emulation/cua-base.el" +;;;;;; (17134 16192)) ;;; Generated autoloads from emulation/cua-base.el (defvar cua-mode nil "\ @@ -4954,22 +5042,46 @@ use either \\[customize] or the function `cua-mode'.") (custom-autoload (quote cua-mode) "cua-base") +(put (quote cua-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote cua-mode) "cua-base" "\ Toggle CUA key-binding mode. -When enabled, using shifted movement keys will activate the region (and -highlight the region using `transient-mark-mode'), and typed text replaces -the active selection. C-z, C-x, C-c, and C-v will undo, cut, copy, and -paste (in addition to the normal emacs bindings). +When enabled, using shifted movement keys will activate the +region (and highlight the region using `transient-mark-mode'), +and typed text replaces the active selection. + +Also when enabled, you can use C-z, C-x, C-c, and C-v to undo, +cut, copy, and paste in addition to the normal Emacs bindings. +The C-x and C-c keys only do cut and copy when the region is +active, so in most cases, they do not conflict with the normal +function of these prefix keys. + +If you really need to perform a command which starts with one of +the prefix keys even when the region is active, you have three +options: +- press the prefix key twice very quickly (within 0.2 seconds), +- press the prefix key and the following key within 0.2 seconds, or +- use the SHIFT key with the prefix key, i.e. C-S-x or C-S-c. + +You can customize `cua-enable-cua-keys' to completely disable the +CUA bindings, or `cua-prefix-override-inhibit-delay' to change +the prefix fallback behavior. \(fn &optional ARG)" t nil) + +(autoload (quote cua-selection-mode) "cua-base" "\ +Enable CUA selection mode without the C-z/C-x/C-c/C-v bindings. + +\(fn ARG)" t nil) (eval-after-load 'CUA-mode '(error (concat "\n\n" "CUA-mode is now part of the standard GNU Emacs distribution,\n" "so you may now enable and customize CUA via the Options menu.\n\n" - "Your " (file-name-nondirectory user-init-file) " loads an older version of CUA-mode which does\n" - "not work correctly with this version of GNU Emacs.\n" + "You have loaded an older version of CUA-mode which does\n" + "not work correctly with this version of GNU Emacs.\n\n" + (if user-init-file (concat "To correct this, remove the loading and customization of the\n" - "old version from the " user-init-file " file.\n\n"))) + "old version from the " user-init-file " file.\n\n"))))) ;;;*** @@ -4981,7 +5093,7 @@ paste (in addition to the normal emacs bindings). ;;;;;; customize-face customize-changed-options customize-option-other-window ;;;;;; customize-option customize-group-other-window customize-group ;;;;;; customize-mode customize customize-save-variable customize-set-variable -;;;;;; customize-set-value) "cus-edit" "cus-edit.el" (16930 25645)) +;;;;;; customize-set-value) "cus-edit" "cus-edit.el" (17141 22258)) ;;; Generated autoloads from cus-edit.el (add-hook 'same-window-regexps "\\`\\*Customiz.*\\*\\'") @@ -5092,7 +5204,8 @@ version. (autoload (quote customize-face) "cus-edit" "\ Customize FACE, which should be a face name or nil. -If FACE is nil, customize all faces. +If FACE is nil, customize all faces. If FACE is actually a +face-alias, customize the face it is aliased to. Interactively, when point is on text which has a face specified, suggest to customize that face, if it's customizable. @@ -5101,6 +5214,7 @@ suggest to customize that face, if it's customizable. (autoload (quote customize-face-other-window) "cus-edit" "\ Show customization buffer for face FACE in other window. +If FACE is actually a face-alias, customize the face it is aliased to. Interactively, when point is on text which has a face specified, suggest to customize that face, if it's customizable. @@ -5233,9 +5347,8 @@ The format is suitable for use with `easy-menu-define'. ;;;*** -;;;### (autoloads (custom-reset-faces custom-theme-reset-faces custom-theme-face-value -;;;;;; custom-set-faces custom-declare-face) "cus-face" "cus-face.el" -;;;;;; (16861 9526)) +;;;### (autoloads (custom-reset-faces custom-theme-reset-faces custom-set-faces +;;;;;; custom-declare-face) "cus-face" "cus-face.el" (17141 22259)) ;;; Generated autoloads from cus-face.el (autoload (quote custom-declare-face) "cus-face" "\ @@ -5243,6 +5356,24 @@ Like `defface', but FACE is evaluated as a normal argument. \(fn FACE SPEC DOC &rest ARGS)" nil nil) +(defconst custom-face-attributes (quote ((:family (string :tag "Font Family" :help-echo "Font family or fontset alias name.")) (:width (choice :tag "Width" :help-echo "Font width." :value normal (const :tag "compressed" condensed) (const :tag "condensed" condensed) (const :tag "demiexpanded" semi-expanded) (const :tag "expanded" expanded) (const :tag "extracondensed" extra-condensed) (const :tag "extraexpanded" extra-expanded) (const :tag "medium" normal) (const :tag "narrow" condensed) (const :tag "normal" normal) (const :tag "regular" normal) (const :tag "semicondensed" semi-condensed) (const :tag "semiexpanded" semi-expanded) (const :tag "ultracondensed" ultra-condensed) (const :tag "ultraexpanded" ultra-expanded) (const :tag "wide" extra-expanded))) (:height (choice :tag "Height" :help-echo "Face's font height." :value 1.0 (integer :tag "Height in 1/10 pt") (number :tag "Scale" 1.0))) (:weight (choice :tag "Weight" :help-echo "Font weight." :value normal (const :tag "black" ultra-bold) (const :tag "bold" bold) (const :tag "book" semi-light) (const :tag "demibold" semi-bold) (const :tag "extralight" extra-light) (const :tag "extrabold" extra-bold) (const :tag "heavy" extra-bold) (const :tag "light" light) (const :tag "medium" normal) (const :tag "normal" normal) (const :tag "regular" normal) (const :tag "semibold" semi-bold) (const :tag "semilight" semi-light) (const :tag "ultralight" ultra-light) (const :tag "ultrabold" ultra-bold))) (:slant (choice :tag "Slant" :help-echo "Font slant." :value normal (const :tag "italic" italic) (const :tag "oblique" oblique) (const :tag "normal" normal))) (:underline (choice :tag "Underline" :help-echo "Control text underlining." (const :tag "Off" nil) (const :tag "On" t) (color :tag "Colored"))) (:overline (choice :tag "Overline" :help-echo "Control text overlining." (const :tag "Off" nil) (const :tag "On" t) (color :tag "Colored"))) (:strike-through (choice :tag "Strike-through" :help-echo "Control text strike-through." (const :tag "Off" nil) (const :tag "On" t) (color :tag "Colored"))) (:box (choice :tag "Box around text" :help-echo "Control box around text." (const :tag "Off" nil) (list :tag "Box" :value (:line-width 2 :color "grey75" :style released-button) (const :format "" :value :line-width) (integer :tag "Width") (const :format "" :value :color) (choice :tag "Color" (const :tag "*" nil) color) (const :format "" :value :style) (choice :tag "Style" (const :tag "Raised" released-button) (const :tag "Sunken" pressed-button) (const :tag "None" nil)))) (lambda (real-value) (and real-value (let ((lwidth (or (and (consp real-value) (plist-get real-value :line-width)) (and (integerp real-value) real-value) 1)) (color (or (and (consp real-value) (plist-get real-value :color)) (and (stringp real-value) real-value) nil)) (style (and (consp real-value) (plist-get real-value :style)))) (list :line-width lwidth :color color :style style)))) (lambda (cus-value) (and cus-value (let ((lwidth (plist-get cus-value :line-width)) (color (plist-get cus-value :color)) (style (plist-get cus-value :style))) (cond ((and (null color) (null style)) lwidth) ((and (null lwidth) (null style)) color) (t (nconc (and lwidth (\` (:line-width (\, lwidth)))) (and color (\` (:color (\, color)))) (and style (\` (:style (\, style))))))))))) (:inverse-video (choice :tag "Inverse-video" :help-echo "Control whether text should be in inverse-video." (const :tag "Off" nil) (const :tag "On" t))) (:foreground (color :tag "Foreground" :help-echo "Set foreground color (name or #RRGGBB hex spec).")) (:background (color :tag "Background" :help-echo "Set background color (name or #RRGGBB hex spec).")) (:stipple (choice :tag "Stipple" :help-echo "Background bit-mask" (const :tag "None" nil) (file :tag "File" :help-echo "Name of bitmap file." :must-match t))) (:inherit (repeat :tag "Inherit" :help-echo "List of faces to inherit attributes from." (face :Tag "Face" default)) (lambda (real-value) (cond ((or (null real-value) (eq real-value (quote unspecified))) nil) ((symbolp real-value) (list real-value)) (t real-value))) (lambda (cus-value) (if (and (consp cus-value) (null (cdr cus-value))) (car cus-value) cus-value))))) "\ +Alist of face attributes. + +The elements are of the form (KEY TYPE PRE-FILTER POST-FILTER), +where KEY is the name of the attribute, TYPE is a widget type for +editing the attribute, PRE-FILTER is a function to make the attribute's +value suitable for the customization widget, and POST-FILTER is a +function to make the customized value suitable for storing. PRE-FILTER +and POST-FILTER are optional. + +The PRE-FILTER should take a single argument, the attribute value as +stored, and should return a value for customization (using the +customization type TYPE). + +The POST-FILTER should also take a single argument, the value after +being customized, and should return a value suitable for setting the +given face attribute.") + (autoload (quote custom-set-faces) "cus-face" "\ Initialize faces according to user preferences. This associates the settings with the `user' theme. @@ -5262,38 +5393,32 @@ COMMENT is a string comment about FACE. \(fn &rest ARGS)" nil nil) -(autoload (quote custom-theme-face-value) "cus-face" "\ -Return spec of FACE in THEME if THEME modifies FACE. -Value is nil otherwise. The association between theme and spec for FACE -is stored in FACE's property `theme-face'. The appropriate face -is retrieved using `custom-theme-value'. - -\(fn FACE THEME)" nil nil) - (autoload (quote custom-theme-reset-faces) "cus-face" "\ -Reset the value of the face to values previously defined. -Associate this setting with THEME. +Reset the specs in THEME of some faces to their specs in other themes. +Each of the arguments ARGS has this form: -ARGS is a list of lists of the form + (FACE FROM-THEME) - (FACE TO-THEME) - -This means reset FACE to its value in TO-THEME. +This means reset FACE to its value in FROM-THEME. \(fn THEME &rest ARGS)" nil nil) (autoload (quote custom-reset-faces) "cus-face" "\ -Reset the value of the face to values previously saved. -This is the setting assosiated the `user' theme. +Reset the specs of some faces to their specs in specified themes. +This creates settings in the `user' theme. + +Each of the arguments ARGS has this form: + + (FACE FROM-THEME) -ARGS is defined as for `custom-theme-reset-faces' +This means reset FACE to its value in FROM-THEME. \(fn &rest ARGS)" nil nil) ;;;*** ;;;### (autoloads (customize-create-theme) "cus-theme" "cus-theme.el" -;;;;;; (16213 43267)) +;;;;;; (17141 22261)) ;;; Generated autoloads from cus-theme.el (autoload (quote customize-create-theme) "cus-theme" "\ @@ -5304,7 +5429,7 @@ Create a custom theme. ;;;*** ;;;### (autoloads (cvs-status-mode) "cvs-status" "cvs-status.el" -;;;;;; (16788 34908)) +;;;;;; (17141 22264)) ;;; Generated autoloads from cvs-status.el (autoload (quote cvs-status-mode) "cvs-status" "\ @@ -5315,7 +5440,7 @@ Mode used for cvs status output. ;;;*** ;;;### (autoloads (global-cwarn-mode turn-on-cwarn-mode cwarn-mode) -;;;;;; "cwarn" "progmodes/cwarn.el" (16213 43281)) +;;;;;; "cwarn" "progmodes/cwarn.el" (17134 4522)) ;;; Generated autoloads from progmodes/cwarn.el (autoload (quote cwarn-mode) "cwarn" "\ @@ -5345,6 +5470,8 @@ use either \\[customize] or the function `global-cwarn-mode'.") (custom-autoload (quote global-cwarn-mode) "cwarn") +(put (quote global-cwarn-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote global-cwarn-mode) "cwarn" "\ Toggle Cwarn mode in every buffer. With prefix ARG, turn Global-Cwarn mode on if and only if ARG is positive. @@ -5357,7 +5484,7 @@ in which `turn-on-cwarn-mode-if-enabled' turns it on. ;;;### (autoloads (standard-display-cyrillic-translit cyrillic-encode-alternativnyj-char ;;;;;; cyrillic-encode-koi8-r-char) "cyril-util" "language/cyril-util.el" -;;;;;; (16213 43280)) +;;;;;; (17097 30339)) ;;; Generated autoloads from language/cyril-util.el (autoload (quote cyrillic-encode-koi8-r-char) "cyril-util" "\ @@ -5386,7 +5513,7 @@ If the argument is nil, we return the display table to its standard state. ;;;*** ;;;### (autoloads (dabbrev-expand dabbrev-completion) "dabbrev" "dabbrev.el" -;;;;;; (16908 33360)) +;;;;;; (17141 22267)) ;;; Generated autoloads from dabbrev.el (define-key esc-map "/" 'dabbrev-expand) (define-key esc-map [?\C-/] 'dabbrev-completion) @@ -5433,8 +5560,8 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]. ;;;*** -;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (16958 -;;;;;; 58759)) +;;;### (autoloads (dcl-mode) "dcl-mode" "progmodes/dcl-mode.el" (17134 +;;;;;; 4526)) ;;; Generated autoloads from progmodes/dcl-mode.el (autoload (quote dcl-mode) "dcl-mode" "\ @@ -5561,7 +5688,7 @@ There is some minimal font-lock support (see vars ;;;*** ;;;### (autoloads (cancel-debug-on-entry debug-on-entry debug) "debug" -;;;;;; "emacs-lisp/debug.el" (16953 20625)) +;;;;;; "emacs-lisp/debug.el" (17141 4)) ;;; Generated autoloads from emacs-lisp/debug.el (setq debugger (quote debug)) @@ -5579,9 +5706,16 @@ first will be printed into the backtrace buffer. (autoload (quote debug-on-entry) "debug" "\ Request FUNCTION to invoke debugger each time it is called. -If you tell the debugger to continue, FUNCTION's execution proceeds. -This works by modifying the definition of FUNCTION, -which must be written in Lisp, not predefined. + +When called interactively, prompt for FUNCTION in the minibuffer. + +This works by modifying the definition of FUNCTION. If you tell the +debugger to continue, FUNCTION's execution proceeds. If FUNCTION is a +normal function or a macro written in Lisp, you can also step through +its execution. FUNCTION can also be a primitive that is not a special +form, in which case stepping is not possible. Break-on-entry for +primitive functions only works when that function is called from Lisp. + Use \\[cancel-debug-on-entry] to cancel the effect of this command. Redefining FUNCTION also cancels it. @@ -5589,14 +5723,16 @@ Redefining FUNCTION also cancels it. (autoload (quote cancel-debug-on-entry) "debug" "\ Undo effect of \\[debug-on-entry] on FUNCTION. -If argument is nil or an empty string, cancel for all functions. +If FUNCTION is nil, cancel debug-on-entry for all functions. +When called interactively, prompt for FUNCTION in the minibuffer. +To specify a nil argument interactively, exit with an empty minibuffer. \(fn &optional FUNCTION)" t nil) ;;;*** ;;;### (autoloads (decipher-mode decipher) "decipher" "play/decipher.el" -;;;;;; (16876 58220)) +;;;;;; (17134 16312)) ;;; Generated autoloads from play/decipher.el (autoload (quote decipher) "decipher" "\ @@ -5625,8 +5761,8 @@ The most useful commands are: ;;;*** ;;;### (autoloads (delimit-columns-rectangle delimit-columns-region -;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (16462 -;;;;;; 53446)) +;;;;;; delimit-columns-customize) "delim-col" "delim-col.el" (17141 +;;;;;; 22267)) ;;; Generated autoloads from delim-col.el (autoload (quote delimit-columns-customize) "delim-col" "\ @@ -5650,8 +5786,8 @@ START and END delimits the corners of text rectangle. ;;;*** -;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (16507 -;;;;;; 41097)) +;;;### (autoloads (delphi-mode) "delphi" "progmodes/delphi.el" (17134 +;;;;;; 4532)) ;;; Generated autoloads from progmodes/delphi.el (autoload (quote delphi-mode) "delphi" "\ @@ -5701,8 +5837,8 @@ no args, if that value is non-nil. ;;;*** -;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (16764 -;;;;;; 51517)) +;;;### (autoloads (delete-selection-mode) "delsel" "delsel.el" (17141 +;;;;;; 22267)) ;;; Generated autoloads from delsel.el (defalias (quote pending-delete-mode) (quote delete-selection-mode)) @@ -5715,6 +5851,8 @@ use either \\[customize] or the function `delete-selection-mode'.") (custom-autoload (quote delete-selection-mode) "delsel") +(put (quote delete-selection-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote delete-selection-mode) "delsel" "\ Toggle Delete Selection mode. With prefix ARG, turn Delete Selection mode on if and only if ARG is @@ -5730,7 +5868,7 @@ any selection. ;;;*** ;;;### (autoloads (derived-mode-init-mode-variables define-derived-mode) -;;;;;; "derived" "emacs-lisp/derived.el" (16908 33361)) +;;;;;; "derived" "emacs-lisp/derived.el" (17141 4)) ;;; Generated autoloads from emacs-lisp/derived.el (autoload (quote define-derived-mode) "derived" "\ @@ -5751,6 +5889,7 @@ BODY can start with a bunch of keyword arguments. The following keyword arguments are currently understood: :group GROUP Declare the customization group that corresponds to this mode. + The command `customize-mode' uses this. :syntax-table TABLE Use TABLE instead of the default. A nil value means to simply use the same syntax-table as the parent. @@ -5779,10 +5918,12 @@ been generated automatically, with a reference to the keymap. The new mode runs the hook constructed by the function `derived-mode-hook-name'. +See Info node `(elisp)Derived Modes' for more details. + \(fn CHILD PARENT NAME &optional DOCSTRING &rest BODY)" nil (quote macro)) (autoload (quote derived-mode-init-mode-variables) "derived" "\ -Initialise variables for a new MODE. +Initialize variables for a new MODE. Right now, if they don't already exist, set up a blank keymap, an empty syntax table, and an empty abbrev table -- these will be merged the first time the mode is used. @@ -5792,7 +5933,7 @@ the first time the mode is used. ;;;*** ;;;### (autoloads (describe-char describe-text-properties) "descr-text" -;;;;;; "descr-text.el" (16908 33360)) +;;;;;; "descr-text.el" (17141 22270)) ;;; Generated autoloads from descr-text.el (autoload (quote describe-text-properties) "descr-text" "\ @@ -5816,18 +5957,18 @@ as well as widgets, buttons, overlays, and text properties. ;;;*** ;;;### (autoloads (desktop-revert desktop-save-in-desktop-dir desktop-change-dir -;;;;;; desktop-load-default desktop-read desktop-save-mode) "desktop" -;;;;;; "desktop.el" (16908 33360)) +;;;;;; desktop-load-default desktop-read desktop-locals-to-save +;;;;;; desktop-save-mode) "desktop" "desktop.el" (17146 26025)) ;;; Generated autoloads from desktop.el (defvar desktop-save-mode nil "\ Non-nil if Desktop-Save mode is enabled. -See the command `desktop-save-mode' for a description of this minor-mode. -Setting this variable directly does not take effect; -use either \\[customize] or the function `desktop-save-mode'.") +See the command `desktop-save-mode' for a description of this minor-mode.") (custom-autoload (quote desktop-save-mode) "desktop") +(put (quote desktop-save-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote desktop-save-mode) "desktop" "\ Toggle desktop saving mode. With numeric ARG, turn desktop saving on if ARG is positive, off @@ -5836,26 +5977,112 @@ desktop is saved. \(fn &optional ARG)" t nil) +(defvar desktop-locals-to-save (quote (desktop-locals-to-save truncate-lines case-fold-search case-replace fill-column overwrite-mode change-log-default-name line-number-mode column-number-mode size-indication-mode buffer-file-coding-system indent-tabs-mode indicate-buffer-boundaries indicate-empty-lines show-trailing-whitespace)) "\ +List of local variables to save for each buffer. +The variables are saved only when they really are local. Conventional minor +modes are restored automatically; they should not be listed here.") + +(custom-autoload (quote desktop-locals-to-save) "desktop") + (defvar desktop-save-buffer nil "\ When non-nil, save buffer status in desktop file. This variable becomes buffer local when set. -If the value is a function, it called by `desktop-save' with argument -DESKTOP-DIRNAME to obtain auxiliary information to saved in the desktop +If the value is a function, it is called by `desktop-save' with argument +DESKTOP-DIRNAME to obtain auxiliary information to save in the desktop file along with the state of the buffer for which it was called. When file names are returned, they should be formatted using the call \"(desktop-file-name FILE-NAME DESKTOP-DIRNAME)\". -Later, when `desktop-read' calls a function in `desktop-buffer-mode-handlers' -to restore the buffer, the auxiliary information is passed as the argument -DESKTOP-BUFFER-MISC.") +Later, when `desktop-read' evaluates the desktop file, auxiliary information +is passed as the argument DESKTOP-BUFFER-MISC to functions in +`desktop-buffer-mode-handlers'.") + +(defvar desktop-buffer-mode-handlers nil "\ +Alist of major mode specific functions to restore a desktop buffer. +Functions listed are called by `desktop-create-buffer' when `desktop-read' +evaluates the desktop file. List elements must have the form + + (MAJOR-MODE . RESTORE-BUFFER-FUNCTION). + +Buffers with a major mode not specified here, are restored by the default +handler `desktop-restore-file-buffer'. + +Handlers are called with argument list + + (DESKTOP-BUFFER-FILE-NAME DESKTOP-BUFFER-NAME DESKTOP-BUFFER-MISC) + +Furthermore, they may use the following variables: + + desktop-file-version + desktop-buffer-major-mode + desktop-buffer-minor-modes + desktop-buffer-point + desktop-buffer-mark + desktop-buffer-read-only + desktop-buffer-locals + +If a handler returns a buffer, then the saved mode settings +and variable values for that buffer are copied into it. + +Modules that define a major mode that needs a special handler should contain +code like + + (defun foo-restore-desktop-buffer + ... + (add-to-list 'desktop-buffer-mode-handlers + '(foo-mode . foo-restore-desktop-buffer)) + +Furthermore the major mode function must be autoloaded.") + +(defvar desktop-minor-mode-handlers nil "\ +Alist of functions to restore non-standard minor modes. +Functions are called by `desktop-create-buffer' to restore minor modes. +List elements must have the form + + (MINOR-MODE . RESTORE-FUNCTION). + +Minor modes not specified here, are restored by the standard minor mode +function. + +Handlers are called with argument list + + (DESKTOP-BUFFER-LOCALS) + +Furthermore, they may use the following variables: + + desktop-file-version + desktop-buffer-file-name + desktop-buffer-name + desktop-buffer-major-mode + desktop-buffer-minor-modes + desktop-buffer-point + desktop-buffer-mark + desktop-buffer-read-only + desktop-buffer-misc + +When a handler is called, the buffer has been created and the major mode has +been set, but local variables listed in desktop-buffer-locals has not yet been +created and set. + +Modules that define a minor mode that needs a special handler should contain +code like + + (defun foo-desktop-restore + ... + (add-to-list 'desktop-minor-mode-handlers + '(foo-mode . foo-desktop-restore)) + +Furthermore the minor mode function must be autoloaded. + +See also `desktop-minor-mode-table'.") (autoload (quote desktop-read) "desktop" "\ Read and process the desktop file in directory DIRNAME. Look for a desktop file in DIRNAME, or if DIRNAME is omitted, look in directories listed in `desktop-path'. If a desktop file is found, it -is processed and `desktop-after-read-hook' is run. If no desktop file +is processed and `desktop-after-read-hook' is run. If no desktop file is found, clear the desktop and run `desktop-no-desktop-file-hook'. This function is a no-op when Emacs is running in batch mode. It returns t if a desktop file was loaded, nil otherwise. @@ -5892,7 +6119,7 @@ Revert to the last loaded desktop. ;;;;;; gnus-article-outlook-repair-attribution gnus-article-outlook-unwrap-lines ;;;;;; gnus-outlook-display-hook gnus-outlook-deuglify-unwrap-max ;;;;;; gnus-outlook-deuglify-unwrap-min) "deuglify" "gnus/deuglify.el" -;;;;;; (16908 33361)) +;;;;;; (17097 40253)) ;;; Generated autoloads from gnus/deuglify.el (defvar gnus-outlook-deuglify-unwrap-min 45 "\ @@ -5941,7 +6168,7 @@ Deuglify broken Outlook (Express) articles and redisplay. ;;;*** ;;;### (autoloads (devanagari-post-read-conversion devanagari-compose-region) -;;;;;; "devan-util" "language/devan-util.el" (16585 28857)) +;;;;;; "devan-util" "language/devan-util.el" (17097 30341)) ;;; Generated autoloads from language/devan-util.el (defconst devanagari-consonant "[\x51ad5-\x51af9\x51b38-\x51b3f]") @@ -5959,7 +6186,7 @@ Not documented ;;;*** ;;;### (autoloads (diary-mode diary-mail-entries diary) "diary-lib" -;;;;;; "calendar/diary-lib.el" (16953 20625)) +;;;;;; "calendar/diary-lib.el" (17097 30004)) ;;; Generated autoloads from calendar/diary-lib.el (autoload (quote diary) "diary-lib" "\ @@ -6005,7 +6232,7 @@ Major mode for editing the diary file. ;;;*** ;;;### (autoloads (diff-backup diff diff-command diff-switches) "diff" -;;;;;; "diff.el" (16534 3807)) +;;;;;; "diff.el" (17141 22272)) ;;; Generated autoloads from diff.el (defvar diff-switches "-c" "\ @@ -6039,7 +6266,7 @@ With prefix arg, prompt for diff switches. ;;;*** ;;;### (autoloads (diff-minor-mode diff-mode) "diff-mode" "diff-mode.el" -;;;;;; (16746 18215)) +;;;;;; (17141 22272)) ;;; Generated autoloads from diff-mode.el (autoload (quote diff-mode) "diff-mode" "\ @@ -6047,7 +6274,7 @@ Major mode for viewing/editing context diffs. Supports unified and context diffs as well as (to a lesser extent) normal diffs. When the buffer is read-only, the ESC prefix is not necessary. -IF you edit the buffer manually, diff-mode will try to update the hunk +If you edit the buffer manually, diff-mode will try to update the hunk headers for you on-the-fly. You can also switch between context diff and unified diff with \\[diff-context->unified], @@ -6064,21 +6291,21 @@ Minor mode for viewing/editing context diffs. ;;;*** -;;;### (autoloads (dired-restore-desktop-buffer dired-noselect dired-other-frame -;;;;;; dired-other-window dired dired-copy-preserve-time dired-dwim-target -;;;;;; dired-keep-marker-symlink dired-keep-marker-hardlink dired-keep-marker-copy -;;;;;; dired-keep-marker-rename dired-trivial-filenames dired-ls-F-marks-symlinks -;;;;;; dired-listing-switches) "dired" "dired.el" (16915 11400)) +;;;### (autoloads (dired-mode dired-noselect dired-other-frame dired-other-window +;;;;;; dired dired-copy-preserve-time dired-dwim-target dired-keep-marker-symlink +;;;;;; dired-keep-marker-hardlink dired-keep-marker-copy dired-keep-marker-rename +;;;;;; dired-trivial-filenames dired-ls-F-marks-symlinks dired-listing-switches) +;;;;;; "dired" "dired.el" (17146 26034)) ;;; Generated autoloads from dired.el (defvar dired-listing-switches "-al" "\ -*Switches passed to `ls' for dired. MUST contain the `l' option. +*Switches passed to `ls' for Dired. MUST contain the `l' option. May contain all other options that don't contradict `-l'; may contain even `F', `b', `i' and `s'. See also the variable `dired-ls-F-marks-symlinks' concerning the `F' switch. On systems such as MS-DOS and MS-Windows, which use `ls' emulation in Lisp, some of the `ls' switches are not supported; see the doc string of -`insert-directory' on ls-lisp.el for more details.") +`insert-directory' on `ls-lisp.el' for more details.") (custom-autoload (quote dired-listing-switches) "dired") @@ -6086,7 +6313,7 @@ some of the `ls' switches are not supported; see the doc string of Name of chown command (usually `chown' or `/etc/chown').") (defvar dired-ls-F-marks-symlinks nil "\ -*Informs dired about how `ls -lF' marks symbolic links. +*Informs Dired about how `ls -lF' marks symbolic links. Set this to t if `ls' (or whatever program is specified by `insert-directory-program') with `-lF' marks the symbolic link itself with a trailing @ (usually the case under Ultrix). @@ -6138,7 +6365,7 @@ If a character, new links are unconditionally marked with that character.") (custom-autoload (quote dired-keep-marker-symlink) "dired") (defvar dired-dwim-target nil "\ -*If non-nil, dired tries to guess a default target directory. +*If non-nil, Dired tries to guess a default target directory. This means: if there is a dired buffer displayed in the next window, use its current subdir, instead of the current subdir of this dired buffer. @@ -6153,7 +6380,7 @@ The target is used in the prompt for file copy, rename etc.") (custom-autoload (quote dired-copy-preserve-time) "dired") (defvar dired-directory nil "\ -The directory name or wildcard spec that this Dired directory lists. +The directory name or wildcard spec that this dired directory lists. Local to each dired buffer. May be a list, in which case the car is the directory name and the cdr is the list of files to mention. The directory name must be absolute, but need not be fully expanded.") @@ -6170,7 +6397,7 @@ list of files to make directory entries for. \\<dired-mode-map>You can move around in it with the usual commands. You can flag files for deletion with \\[dired-flag-file-deletion] and then delete them by typing \\[dired-do-flagged-delete]. -Type \\[describe-mode] after entering dired for more info. +Type \\[describe-mode] after entering Dired for more info. If DIRNAME is already in a dired buffer, that buffer is used without refresh. @@ -6192,12 +6419,71 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh. Like `dired' but returns the dired buffer as value, does not select it. \(fn DIR-OR-LIST &optional SWITCHES)" nil nil) - (put 'dired-find-alternate-file 'disabled t) - -(autoload (quote dired-restore-desktop-buffer) "dired" "\ -Restore a dired buffer specified in a desktop file. -\(fn DESKTOP-BUFFER-FILE-NAME DESKTOP-BUFFER-NAME DESKTOP-BUFFER-MISC)" nil nil) +(autoload (quote dired-mode) "dired" "\ +Mode for \"editing\" directory listings. +In Dired, you are \"editing\" a list of the files in a directory and + (optionally) its subdirectories, in the format of `ls -lR'. + Each directory is a page: use \\[backward-page] and \\[forward-page] to move pagewise. +\"Editing\" means that you can run shell commands on files, visit, + compress, load or byte-compile them, change their file attributes + and insert subdirectories into the same buffer. You can \"mark\" + files for later commands or \"flag\" them for deletion, either file + by file or all files matching certain criteria. +You can move using the usual cursor motion commands.\\<dired-mode-map> +Letters no longer insert themselves. Digits are prefix arguments. +Instead, type \\[dired-flag-file-deletion] to flag a file for Deletion. +Type \\[dired-mark] to Mark a file or subdirectory for later commands. + Most commands operate on the marked files and use the current file + if no files are marked. Use a numeric prefix argument to operate on + the next ARG (or previous -ARG if ARG<0) files, or just `1' + to operate on the current file only. Prefix arguments override marks. + Mark-using commands display a list of failures afterwards. Type \\[dired-summary] + to see why something went wrong. +Type \\[dired-unmark] to Unmark a file or all files of a subdirectory. +Type \\[dired-unmark-backward] to back up one line and unflag. +Type \\[dired-do-flagged-delete] to eXecute the deletions requested. +Type \\[dired-advertised-find-file] to Find the current line's file + (or dired it in another buffer, if it is a directory). +Type \\[dired-find-file-other-window] to find file or dired directory in Other window. +Type \\[dired-maybe-insert-subdir] to Insert a subdirectory in this buffer. +Type \\[dired-do-rename] to Rename a file or move the marked files to another directory. +Type \\[dired-do-copy] to Copy files. +Type \\[dired-sort-toggle-or-edit] to toggle Sorting by name/date or change the `ls' switches. +Type \\[revert-buffer] to read all currently expanded directories aGain. + This retains all marks and hides subdirs again that were hidden before. +SPC and DEL can be used to move down and up by lines. + +If Dired ever gets confused, you can either type \\[revert-buffer] to read the +directories again, type \\[dired-do-redisplay] to relist a single or the marked files or a +subdirectory, or type \\[dired-build-subdir-alist] to parse the buffer +again for the directory tree. + +Customization variables (rename this buffer and type \\[describe-variable] on each line +for more info): + + `dired-listing-switches' + `dired-trivial-filenames' + `dired-shrink-to-fit' + `dired-marker-char' + `dired-del-marker' + `dired-keep-marker-rename' + `dired-keep-marker-copy' + `dired-keep-marker-hardlink' + `dired-keep-marker-symlink' + +Hooks (use \\[describe-variable] to see their documentation): + + `dired-before-readin-hook' + `dired-after-readin-hook' + `dired-mode-hook' + `dired-load-hook' + +Keybindings: +\\{dired-mode-map} + +\(fn &optional DIRNAME SWITCHES)" nil nil) + (put 'dired-find-alternate-file 'disabled t) ;;;*** @@ -6213,8 +6499,8 @@ Restore a dired buffer specified in a desktop file. ;;;;;; dired-do-compress dired-query dired-compress-file dired-do-kill-lines ;;;;;; dired-run-shell-command dired-do-shell-command dired-clean-directory ;;;;;; dired-do-print dired-do-touch dired-do-chown dired-do-chgrp -;;;;;; dired-do-chmod dired-backup-diff dired-diff) "dired-aux" -;;;;;; "dired-aux.el" (16804 23129)) +;;;;;; dired-do-chmod dired-compare-directories dired-backup-diff +;;;;;; dired-diff) "dired-aux" "dired-aux.el" (17145 8097)) ;;; Generated autoloads from dired-aux.el (autoload (quote dired-diff) "dired-aux" "\ @@ -6236,6 +6522,34 @@ With prefix arg, prompt for argument SWITCHES which is options for `diff'. \(fn &optional SWITCHES)" t nil) +(autoload (quote dired-compare-directories) "dired-aux" "\ +Mark files with different file attributes in two dired buffers. +Compare file attributes of files in the current directory +with file attributes in directory DIR2 using PREDICATE on pairs of files +with the same name. Mark files for which PREDICATE returns non-nil. +Mark files with different names if PREDICATE is nil (or interactively +with empty input at the predicate prompt). + +PREDICATE is a Lisp expression that can refer to the following variables: + + size1, size2 - file size in bytes + mtime1, mtime2 - last modification time in seconds, as a float + fa1, fa2 - list of file attributes + returned by function `file-attributes' + + where 1 refers to attribute of file in the current dired buffer + and 2 to attribute of file in second dired buffer. + +Examples of PREDICATE: + + (> mtime1 mtime2) - mark newer files + (not (= size1 size2)) - mark files with different sizes + (not (string= (nth 8 fa1) (nth 8 fa2))) - mark files with different modes + (not (and (= (nth 2 fa1) (nth 2 fa2)) - mark files with different UID + (= (nth 3 fa1) (nth 3 fa2)))) and GID. + +\(fn DIR2 PREDICATE)" t nil) + (autoload (quote dired-do-chmod) "dired-aux" "\ Change the mode of the marked (or next ARG) files. This calls chmod, thus symbolic modes like `g+w' are allowed. @@ -6594,13 +6908,13 @@ true then the type of the file linked to by FILE is printed instead. ;;;*** -;;;### (autoloads (dired-jump) "dired-x" "dired-x.el" (16589 26258)) +;;;### (autoloads (dired-jump) "dired-x" "dired-x.el" (17141 22694)) ;;; Generated autoloads from dired-x.el (autoload (quote dired-jump) "dired-x" "\ Jump to dired buffer corresponding to current buffer. If in a file, dired the current directory and move to file's line. -If in dired already, pop up a level and goto old directory's line. +If in Dired already, pop up a level and goto old directory's line. In case the proper dired file line cannot be found, refresh the dired buffer and try again. @@ -6608,7 +6922,7 @@ buffer and try again. ;;;*** -;;;### (autoloads (dirtrack) "dirtrack" "dirtrack.el" (16213 43267)) +;;;### (autoloads (dirtrack) "dirtrack" "dirtrack.el" (17141 22702)) ;;; Generated autoloads from dirtrack.el (autoload (quote dirtrack) "dirtrack" "\ @@ -6627,8 +6941,8 @@ You can enable directory tracking by adding this function to ;;;*** -;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (16519 -;;;;;; 44982)) +;;;### (autoloads (disassemble) "disass" "emacs-lisp/disass.el" (17141 +;;;;;; 7)) ;;; Generated autoloads from emacs-lisp/disass.el (autoload (quote disassemble) "disass" "\ @@ -6646,7 +6960,7 @@ redefine OBJECT if it is a symbol. ;;;;;; standard-display-graphic standard-display-g1 standard-display-ascii ;;;;;; standard-display-default standard-display-8bit describe-current-display-table ;;;;;; describe-display-table set-display-table-slot display-table-slot -;;;;;; make-display-table) "disp-table" "disp-table.el" (16814 63075)) +;;;;;; make-display-table) "disp-table" "disp-table.el" (17141 22702)) ;;; Generated autoloads from disp-table.el (autoload (quote make-display-table) "disp-table" "\ @@ -6747,7 +7061,7 @@ for users who call this function in `.emacs'. ;;;*** ;;;### (autoloads (dissociated-press) "dissociate" "play/dissociate.el" -;;;;;; (16213 43281)) +;;;;;; (17134 16312)) ;;; Generated autoloads from play/dissociate.el (autoload (quote dissociated-press) "dissociate" "\ @@ -6763,8 +7077,28 @@ Default is 2. ;;;*** +;;;### (autoloads (dnd-protocol-alist) "dnd" "dnd.el" (17141 22705)) +;;; Generated autoloads from dnd.el + +(defvar dnd-protocol-alist (quote (("^file:///" . dnd-open-local-file) ("^file://" . dnd-open-file) ("^file:" . dnd-open-local-file))) "\ +The functions to call for different protocols when a drop is made. +This variable is used by `dnd-handle-one-url' and `dnd-handle-file-name'. +The list contains of (REGEXP . FUNCTION) pairs. +The functions shall take two arguments, URL, which is the URL dropped and +ACTION which is the action to be performed for the drop (move, copy, link, +private or ask). +If no match is found here, and the value of `browse-url-browser-function' +is a pair of (REGEXP . FUNCTION), those regexps are tried for a match. +If no match is found, the URL is inserted as text by calling `dnd-insert-text'. +The function shall return the action done (move, copy, link or private) +if some action was made, or nil if the URL is ignored.") + +(custom-autoload (quote dnd-protocol-alist) "dnd") + +;;;*** + ;;;### (autoloads (dns-mode-soa-increment-serial dns-mode) "dns-mode" -;;;;;; "textmodes/dns-mode.el" (16710 53610)) +;;;;;; "textmodes/dns-mode.el" (17141 112)) ;;; Generated autoloads from textmodes/dns-mode.el (autoload (quote dns-mode) "dns-mode" "\ @@ -6787,7 +7121,7 @@ Locate SOA record and increment the serial field. ;;;*** -;;;### (autoloads (doctor) "doctor" "play/doctor.el" (16213 43281)) +;;;### (autoloads (doctor) "doctor" "play/doctor.el" (17135 27224)) ;;; Generated autoloads from play/doctor.el (autoload (quote doctor) "doctor" "\ @@ -6798,7 +7132,7 @@ Switch to *doctor* buffer and start giving psychotherapy. ;;;*** ;;;### (autoloads (double-mode double-mode) "double" "double.el" -;;;;;; (16932 19773)) +;;;;;; (17141 22705)) ;;; Generated autoloads from double.el (defvar double-mode nil "\ @@ -6819,7 +7153,7 @@ when pressed twice. See variable `double-map' for details. ;;;*** -;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (16213 43281)) +;;;### (autoloads (dunnet) "dunnet" "play/dunnet.el" (17134 16321)) ;;; Generated autoloads from play/dunnet.el (autoload (quote dunnet) "dunnet" "\ @@ -6830,7 +7164,7 @@ Switch to *dungeon* buffer and start game. ;;;*** ;;;### (autoloads (gnus-earcon-display) "earcon" "gnus/earcon.el" -;;;;;; (16698 21927)) +;;;;;; (17141 6633)) ;;; Generated autoloads from gnus/earcon.el (autoload (quote gnus-earcon-display) "earcon" "\ @@ -6841,8 +7175,8 @@ Play sounds in message buffers. ;;;*** ;;;### (autoloads (easy-mmode-defsyntax easy-mmode-defmap easy-mmode-define-keymap -;;;;;; easy-mmode-define-global-mode define-minor-mode) "easy-mmode" -;;;;;; "emacs-lisp/easy-mmode.el" (16775 26710)) +;;;;;; define-global-minor-mode define-minor-mode) "easy-mmode" +;;;;;; "emacs-lisp/easy-mmode.el" (17116 17255)) ;;; Generated autoloads from emacs-lisp/easy-mmode.el (defalias (quote easy-mmode-define-minor-mode) (quote define-minor-mode)) @@ -6850,7 +7184,7 @@ Play sounds in message buffers. (autoload (quote define-minor-mode) "easy-mmode" "\ Define a new minor mode MODE. This function defines the associated control variable MODE, keymap MODE-map, -toggle command MODE, and hook MODE-hook. +and toggle command MODE. DOC is the documentation for the mode toggle command. Optional INIT-VALUE is the initial value of the mode's variable. @@ -6863,14 +7197,17 @@ The above three arguments can be skipped if keyword arguments are used (see below). BODY contains code that will be executed each time the mode is (dis)activated. - It will be executed after any toggling but before running the hooks. - Before the actual body code, you can write - keyword arguments (alternating keywords and values). - These following keyword arguments are supported (other keywords - will be passed to `defcustom' if the minor mode is global): + It will be executed after any toggling but before running the hook variable + `mode-HOOK'. + Before the actual body code, you can write keyword arguments (alternating + keywords and values). These following keyword arguments are supported (other + keywords will be passed to `defcustom' if the minor mode is global): :group GROUP Custom group name to use in all generated `defcustom' forms. + Defaults to MODE without the possible trailing \"-mode\". + Don't use this default group name unless you have written a + `defgroup' to define that group properly. :global GLOBAL If non-nil specifies that the minor mode is not meant to be - buffer-local, so don't make the variable MODE buffer-local. + buffer-local, so don't make the variable MODE buffer-local. By default, the mode is buffer-local. :init-value VAL Same as the INIT-VALUE argument. :lighter SPEC Same as the LIGHTER argument. @@ -6884,13 +7221,21 @@ For example, you could write \(fn MODE DOC &optional INIT-VALUE LIGHTER KEYMAP &rest BODY)" nil (quote macro)) -(autoload (quote easy-mmode-define-global-mode) "easy-mmode" "\ +(defalias (quote easy-mmode-define-global-mode) (quote define-global-minor-mode)) + +(autoload (quote define-global-minor-mode) "easy-mmode" "\ Make GLOBAL-MODE out of the buffer-local minor MODE. TURN-ON is a function that will be called with no args in every buffer and that should try to turn MODE on if applicable for that buffer. KEYS is a list of CL-style keyword arguments: :group to specify the custom group. +If MODE's set-up depends on the major mode in effect when it was +enabled, then disabling and reenabling MODE should make MODE work +correctly with the current major mode. This is important to +prevent problems with derived modes, that is, major modes that +call another major mode in their body. + \(fn GLOBAL-MODE MODE TURN-ON &rest KEYS)" nil (quote macro)) (autoload (quote easy-mmode-define-keymap) "easy-mmode" "\ @@ -6917,8 +7262,8 @@ CSS contains a list of syntax specifications of the form (CHAR . SYNTAX). ;;;*** ;;;### (autoloads (easy-menu-change easy-menu-create-menu easy-menu-do-define -;;;;;; easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (16787 -;;;;;; 16350)) +;;;;;; easy-menu-define) "easymenu" "emacs-lisp/easymenu.el" (17141 +;;;;;; 7)) ;;; Generated autoloads from emacs-lisp/easymenu.el (put (quote easy-menu-define) (quote lisp-indent-function) (quote defun)) @@ -6941,7 +7286,7 @@ It returns the remaining items of the displayed menu. :visible INCLUDE INCLUDE is an expression; this menu is only visible if this -expression has a non-nil value. `:include' is an alias for `:visible'. +expression has a non-nil value. `:included' is an alias for `:visible'. :active ENABLE @@ -6986,10 +7331,10 @@ keyboard equivalent. ENABLE is an expression; the item is enabled for selection whenever this expression's value is non-nil. - :included INCLUDE + :visible INCLUDE INCLUDE is an expression; this item is only visible if this -expression has a non-nil value. +expression has a non-nil value. `:included' is an alias for `:visible'. :suffix FORM @@ -7063,7 +7408,7 @@ to implement dynamic menus. ;;;;;; ebnf-eps-directory ebnf-spool-region ebnf-spool-buffer ebnf-spool-file ;;;;;; ebnf-spool-directory ebnf-print-region ebnf-print-buffer ;;;;;; ebnf-print-file ebnf-print-directory ebnf-customize) "ebnf2ps" -;;;;;; "progmodes/ebnf2ps.el" (16801 58033)) +;;;;;; "progmodes/ebnf2ps.el" (17097 30648)) ;;; Generated autoloads from progmodes/ebnf2ps.el (autoload (quote ebnf-customize) "ebnf2ps" "\ @@ -7322,8 +7667,8 @@ See `ebnf-style-database' documentation. ;;;;;; ebrowse-tags-find-declaration-other-window ebrowse-tags-find-definition ;;;;;; ebrowse-tags-view-definition ebrowse-tags-find-declaration ;;;;;; ebrowse-tags-view-declaration ebrowse-member-mode ebrowse-electric-choose-tree -;;;;;; ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (16875 -;;;;;; 35928)) +;;;;;; ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (17134 +;;;;;; 4544)) ;;; Generated autoloads from progmodes/ebrowse.el (autoload (quote ebrowse-tree-mode) "ebrowse" "\ @@ -7474,7 +7819,7 @@ Display statistics for a class tree. ;;;*** ;;;### (autoloads (electric-buffer-list) "ebuff-menu" "ebuff-menu.el" -;;;;;; (16868 63463)) +;;;;;; (17144 6193)) ;;; Generated autoloads from ebuff-menu.el (autoload (quote electric-buffer-list) "ebuff-menu" "\ @@ -7499,7 +7844,7 @@ Run hooks in `electric-buffer-menu-mode-hook' on entry. ;;;*** ;;;### (autoloads (Electric-command-history-redo-expression) "echistory" -;;;;;; "echistory.el" (16213 43267)) +;;;;;; "echistory.el" (17141 22708)) ;;; Generated autoloads from echistory.el (autoload (quote Electric-command-history-redo-expression) "echistory" "\ @@ -7511,11 +7856,11 @@ With prefix arg NOCONFIRM, execute current line as-is without editing. ;;;*** ;;;### (autoloads (edebug-eval-top-level-form def-edebug-spec edebug-all-forms -;;;;;; edebug-all-defs) "edebug" "emacs-lisp/edebug.el" (16810 63791)) +;;;;;; edebug-all-defs) "edebug" "emacs-lisp/edebug.el" (17141 14)) ;;; Generated autoloads from emacs-lisp/edebug.el (defvar edebug-all-defs nil "\ -*If non-nil, evaluation of any defining forms will instrument for Edebug. +*If non-nil, evaluating defining forms instruments for Edebug. This applies to `eval-defun', `eval-region', `eval-buffer', and `eval-current-buffer'. `eval-region' is also called by `eval-last-sexp', and `eval-print-last-sexp'. @@ -7574,7 +7919,7 @@ already is one.) ;;;;;; ediff-merge-directory-revisions ediff-merge-directories-with-ancestor ;;;;;; ediff-merge-directories ediff-directories3 ediff-directory-revisions ;;;;;; ediff-directories ediff-buffers3 ediff-buffers ediff-backup -;;;;;; ediff-files3 ediff-files) "ediff" "ediff.el" (16923 3605)) +;;;;;; ediff-files3 ediff-files) "ediff" "ediff.el" (17141 22731)) ;;; Generated autoloads from ediff.el (autoload (quote ediff-files) "ediff" "\ @@ -7773,11 +8118,13 @@ buffer. If odd -- assume it is in a file. \(fn &optional ARG PATCH-BUF)" t nil) (autoload (quote ediff-patch-buffer) "ediff" "\ -Run Ediff by patching BUFFER-NAME. -Without prefix argument: asks if the patch is in some buffer and prompts for -the buffer or a file, depending on the answer. -With prefix arg=1: assumes the patch is in a file and prompts for the file. -With prefix arg=2: assumes the patch is in a buffer and prompts for the buffer. +Run Ediff by patching the buffer specified at prompt. +Without the optional prefix ARG, asks if the patch is in some buffer and +prompts for the buffer or a file, depending on the answer. +With ARG=1, assumes the patch is in a file and prompts for the file. +With ARG=2, assumes the patch is in a buffer and prompts for the buffer. +PATCH-BUF is an optional argument, which specifies the buffer that contains the +patch. If not given, the user is prompted according to the prefix argument. \(fn &optional ARG PATCH-BUF)" t nil) @@ -7810,7 +8157,7 @@ With optional NODE, goes to that node. ;;;*** ;;;### (autoloads (ediff-customize) "ediff-help" "ediff-help.el" -;;;;;; (16213 43267)) +;;;;;; (17141 22711)) ;;; Generated autoloads from ediff-help.el (autoload (quote ediff-customize) "ediff-help" "\ @@ -7820,7 +8167,7 @@ Not documented ;;;*** -;;;### (autoloads nil "ediff-hook" "ediff-hook.el" (16213 43267)) +;;;### (autoloads nil "ediff-hook" "ediff-hook.el" (17141 22711)) ;;; Generated autoloads from ediff-hook.el (defvar ediff-window-setup-function) @@ -7828,12 +8175,12 @@ Not documented (ediff-cond-compile-for-xemacs-or-emacs (defun ediff-xemacs-init-menus nil (if (featurep (quote menubar)) (progn (add-submenu (quote ("Tools")) ediff-menu "OO-Browser...") (add-submenu (quote ("Tools")) ediff-merge-menu "OO-Browser...") (add-submenu (quote ("Tools")) epatch-menu "OO-Browser...") (add-submenu (quote ("Tools")) ediff-misc-menu "OO-Browser...") (add-menu-button (quote ("Tools")) "-------" "OO-Browser...")))) nil) -(ediff-cond-compile-for-xemacs-or-emacs (progn (defvar ediff-menu (quote ("Compare" ["Two Files..." ediff-files t] ["Two Buffers..." ediff-buffers t] ["Three Files..." ediff-files3 t] ["Three Buffers..." ediff-buffers3 t] "---" ["Two Directories..." ediff-directories t] ["Three Directories..." ediff-directories3 t] "---" ["File with Revision..." ediff-revision t] ["Directory Revisions..." ediff-directory-revisions t] "---" ["Windows Word-by-word..." ediff-windows-wordwise t] ["Windows Line-by-line..." ediff-windows-linewise t] "---" ["Regions Word-by-word..." ediff-regions-wordwise t] ["Regions Line-by-line..." ediff-regions-linewise t]))) (defvar ediff-merge-menu (quote ("Merge" ["Files..." ediff-merge-files t] ["Files with Ancestor..." ediff-merge-files-with-ancestor t] ["Buffers..." ediff-merge-buffers t] ["Buffers with Ancestor..." ediff-merge-buffers-with-ancestor t] "---" ["Directories..." ediff-merge-directories t] ["Directories with Ancestor..." ediff-merge-directories-with-ancestor t] "---" ["Revisions..." ediff-merge-revisions t] ["Revisions with Ancestor..." ediff-merge-revisions-with-ancestor t] ["Directory Revisions..." ediff-merge-directory-revisions t] ["Directory Revisions with Ancestor..." ediff-merge-directory-revisions-with-ancestor t]))) (defvar epatch-menu (quote ("Apply Patch" ["To a file..." ediff-patch-file t] ["To a buffer..." ediff-patch-buffer t]))) (defvar ediff-misc-menu (quote ("Ediff Miscellanea" ["Ediff Manual..." ediff-documentation t] ["Customize Ediff..." ediff-customize t] ["List Ediff Sessions..." ediff-show-registry t] ["Use separate frame for Ediff control buffer..." ediff-toggle-multiframe :style toggle :selected (if (and (featurep (quote ediff-util)) (boundp (quote ediff-window-setup-function))) (eq ediff-window-setup-function (quote ediff-setup-windows-multiframe)))] ["Use a toolbar with Ediff control buffer" ediff-toggle-use-toolbar :style toggle :selected (if (featurep (quote ediff-tbar)) (ediff-use-toolbar-p))]))) (if (and (featurep (quote menubar)) (not (featurep (quote infodock))) (not (featurep (quote ediff-hook)))) (ediff-xemacs-init-menus))) (if (featurep (quote menu-bar)) (progn (defvar menu-bar-ediff-misc-menu (make-sparse-keymap "Ediff Miscellanea")) (fset (quote menu-bar-ediff-misc-menu) (symbol-value (quote menu-bar-ediff-misc-menu))) (defvar menu-bar-epatch-menu (make-sparse-keymap "Apply Patch")) (fset (quote menu-bar-epatch-menu) (symbol-value (quote menu-bar-epatch-menu))) (defvar menu-bar-ediff-merge-menu (make-sparse-keymap "Merge")) (fset (quote menu-bar-ediff-merge-menu) (symbol-value (quote menu-bar-ediff-merge-menu))) (defvar menu-bar-ediff-menu (make-sparse-keymap "Compare")) (fset (quote menu-bar-ediff-menu) (symbol-value (quote menu-bar-ediff-menu))) (define-key menu-bar-ediff-menu [window] (quote ("This Window and Next Window" . compare-windows))) (define-key menu-bar-ediff-menu [ediff-windows-linewise] (quote ("Windows Line-by-line..." . ediff-windows-linewise))) (define-key menu-bar-ediff-menu [ediff-windows-wordwise] (quote ("Windows Word-by-word..." . ediff-windows-wordwise))) (define-key menu-bar-ediff-menu [separator-ediff-windows] (quote ("--"))) (define-key menu-bar-ediff-menu [ediff-regions-linewise] (quote ("Regions Line-by-line..." . ediff-regions-linewise))) (define-key menu-bar-ediff-menu [ediff-regions-wordwise] (quote ("Regions Word-by-word..." . ediff-regions-wordwise))) (define-key menu-bar-ediff-menu [separator-ediff-regions] (quote ("--"))) (define-key menu-bar-ediff-menu [ediff-dir-revision] (quote ("Directory Revisions..." . ediff-directory-revisions))) (define-key menu-bar-ediff-menu [ediff-revision] (quote ("File with Revision..." . ediff-revision))) (define-key menu-bar-ediff-menu [separator-ediff-directories] (quote ("--"))) (define-key menu-bar-ediff-menu [ediff-directories3] (quote ("Three Directories..." . ediff-directories3))) (define-key menu-bar-ediff-menu [ediff-directories] (quote ("Two Directories..." . ediff-directories))) (define-key menu-bar-ediff-menu [separator-ediff-files] (quote ("--"))) (define-key menu-bar-ediff-menu [ediff-buffers3] (quote ("Three Buffers..." . ediff-buffers3))) (define-key menu-bar-ediff-menu [ediff-files3] (quote ("Three Files..." . ediff-files3))) (define-key menu-bar-ediff-menu [ediff-buffers] (quote ("Two Buffers..." . ediff-buffers))) (define-key menu-bar-ediff-menu [ediff-files] (quote ("Two Files..." . ediff-files))) (define-key menu-bar-ediff-merge-menu [ediff-merge-dir-revisions-with-ancestor] (quote ("Directory Revisions with Ancestor..." . ediff-merge-directory-revisions-with-ancestor))) (define-key menu-bar-ediff-merge-menu [ediff-merge-dir-revisions] (quote ("Directory Revisions..." . ediff-merge-directory-revisions))) (define-key menu-bar-ediff-merge-menu [ediff-merge-revisions-with-ancestor] (quote ("Revisions with Ancestor..." . ediff-merge-revisions-with-ancestor))) (define-key menu-bar-ediff-merge-menu [ediff-merge-revisions] (quote ("Revisions..." . ediff-merge-revisions))) (define-key menu-bar-ediff-merge-menu [separator-ediff-merge] (quote ("--"))) (define-key menu-bar-ediff-merge-menu [ediff-merge-directories-with-ancestor] (quote ("Directories with Ancestor..." . ediff-merge-directories-with-ancestor))) (define-key menu-bar-ediff-merge-menu [ediff-merge-directories] (quote ("Directories..." . ediff-merge-directories))) (define-key menu-bar-ediff-merge-menu [separator-ediff-merge-dirs] (quote ("--"))) (define-key menu-bar-ediff-merge-menu [ediff-merge-buffers-with-ancestor] (quote ("Buffers with Ancestor..." . ediff-merge-buffers-with-ancestor))) (define-key menu-bar-ediff-merge-menu [ediff-merge-buffers] (quote ("Buffers..." . ediff-merge-buffers))) (define-key menu-bar-ediff-merge-menu [ediff-merge-files-with-ancestor] (quote ("Files with Ancestor..." . ediff-merge-files-with-ancestor))) (define-key menu-bar-ediff-merge-menu [ediff-merge-files] (quote ("Files..." . ediff-merge-files))) (define-key menu-bar-epatch-menu [ediff-patch-buffer] (quote ("To a Buffer..." . ediff-patch-buffer))) (define-key menu-bar-epatch-menu [ediff-patch-file] (quote ("To a File..." . ediff-patch-file))) (define-key menu-bar-ediff-misc-menu [emultiframe] (quote ("Toggle use of separate control buffer frame..." . ediff-toggle-multiframe))) (define-key menu-bar-ediff-misc-menu [eregistry] (quote ("List Ediff Sessions..." . ediff-show-registry))) (define-key menu-bar-ediff-misc-menu [ediff-cust] (quote ("Customize Ediff..." . ediff-customize))) (define-key menu-bar-ediff-misc-menu [ediff-doc] (quote ("Ediff Manual..." . ediff-documentation)))))) +(ediff-cond-compile-for-xemacs-or-emacs (progn (defvar ediff-menu (quote ("Compare" ["Two Files..." ediff-files t] ["Two Buffers..." ediff-buffers t] ["Three Files..." ediff-files3 t] ["Three Buffers..." ediff-buffers3 t] "---" ["Two Directories..." ediff-directories t] ["Three Directories..." ediff-directories3 t] "---" ["File with Revision..." ediff-revision t] ["Directory Revisions..." ediff-directory-revisions t] "---" ["Windows Word-by-word..." ediff-windows-wordwise t] ["Windows Line-by-line..." ediff-windows-linewise t] "---" ["Regions Word-by-word..." ediff-regions-wordwise t] ["Regions Line-by-line..." ediff-regions-linewise t]))) (defvar ediff-merge-menu (quote ("Merge" ["Files..." ediff-merge-files t] ["Files with Ancestor..." ediff-merge-files-with-ancestor t] ["Buffers..." ediff-merge-buffers t] ["Buffers with Ancestor..." ediff-merge-buffers-with-ancestor t] "---" ["Directories..." ediff-merge-directories t] ["Directories with Ancestor..." ediff-merge-directories-with-ancestor t] "---" ["Revisions..." ediff-merge-revisions t] ["Revisions with Ancestor..." ediff-merge-revisions-with-ancestor t] ["Directory Revisions..." ediff-merge-directory-revisions t] ["Directory Revisions with Ancestor..." ediff-merge-directory-revisions-with-ancestor t]))) (defvar epatch-menu (quote ("Apply Patch" ["To a file..." ediff-patch-file t] ["To a buffer..." ediff-patch-buffer t]))) (defvar ediff-misc-menu (quote ("Ediff Miscellanea" ["Ediff Manual" ediff-documentation t] ["Customize Ediff" ediff-customize t] ["List Ediff Sessions" ediff-show-registry t] ["Use separate frame for Ediff control buffer" ediff-toggle-multiframe :style toggle :selected (if (and (featurep (quote ediff-util)) (boundp (quote ediff-window-setup-function))) (eq ediff-window-setup-function (quote ediff-setup-windows-multiframe)))] ["Use a toolbar with Ediff control buffer" ediff-toggle-use-toolbar :style toggle :selected (if (featurep (quote ediff-tbar)) (ediff-use-toolbar-p))]))) (if (and (featurep (quote menubar)) (not (featurep (quote infodock))) (not (featurep (quote ediff-hook)))) (ediff-xemacs-init-menus))) (if (featurep (quote menu-bar)) (progn (defvar menu-bar-ediff-misc-menu (make-sparse-keymap "Ediff Miscellanea")) (fset (quote menu-bar-ediff-misc-menu) (symbol-value (quote menu-bar-ediff-misc-menu))) (defvar menu-bar-epatch-menu (make-sparse-keymap "Apply Patch")) (fset (quote menu-bar-epatch-menu) (symbol-value (quote menu-bar-epatch-menu))) (defvar menu-bar-ediff-merge-menu (make-sparse-keymap "Merge")) (fset (quote menu-bar-ediff-merge-menu) (symbol-value (quote menu-bar-ediff-merge-menu))) (defvar menu-bar-ediff-menu (make-sparse-keymap "Compare")) (fset (quote menu-bar-ediff-menu) (symbol-value (quote menu-bar-ediff-menu))) (define-key menu-bar-ediff-menu [window] (quote ("This Window and Next Window" . compare-windows))) (define-key menu-bar-ediff-menu [ediff-windows-linewise] (quote ("Windows Line-by-line..." . ediff-windows-linewise))) (define-key menu-bar-ediff-menu [ediff-windows-wordwise] (quote ("Windows Word-by-word..." . ediff-windows-wordwise))) (define-key menu-bar-ediff-menu [separator-ediff-windows] (quote ("--"))) (define-key menu-bar-ediff-menu [ediff-regions-linewise] (quote ("Regions Line-by-line..." . ediff-regions-linewise))) (define-key menu-bar-ediff-menu [ediff-regions-wordwise] (quote ("Regions Word-by-word..." . ediff-regions-wordwise))) (define-key menu-bar-ediff-menu [separator-ediff-regions] (quote ("--"))) (define-key menu-bar-ediff-menu [ediff-dir-revision] (quote ("Directory Revisions..." . ediff-directory-revisions))) (define-key menu-bar-ediff-menu [ediff-revision] (quote ("File with Revision..." . ediff-revision))) (define-key menu-bar-ediff-menu [separator-ediff-directories] (quote ("--"))) (define-key menu-bar-ediff-menu [ediff-directories3] (quote ("Three Directories..." . ediff-directories3))) (define-key menu-bar-ediff-menu [ediff-directories] (quote ("Two Directories..." . ediff-directories))) (define-key menu-bar-ediff-menu [separator-ediff-files] (quote ("--"))) (define-key menu-bar-ediff-menu [ediff-buffers3] (quote ("Three Buffers..." . ediff-buffers3))) (define-key menu-bar-ediff-menu [ediff-files3] (quote ("Three Files..." . ediff-files3))) (define-key menu-bar-ediff-menu [ediff-buffers] (quote ("Two Buffers..." . ediff-buffers))) (define-key menu-bar-ediff-menu [ediff-files] (quote ("Two Files..." . ediff-files))) (define-key menu-bar-ediff-merge-menu [ediff-merge-dir-revisions-with-ancestor] (quote ("Directory Revisions with Ancestor..." . ediff-merge-directory-revisions-with-ancestor))) (define-key menu-bar-ediff-merge-menu [ediff-merge-dir-revisions] (quote ("Directory Revisions..." . ediff-merge-directory-revisions))) (define-key menu-bar-ediff-merge-menu [ediff-merge-revisions-with-ancestor] (quote ("Revisions with Ancestor..." . ediff-merge-revisions-with-ancestor))) (define-key menu-bar-ediff-merge-menu [ediff-merge-revisions] (quote ("Revisions..." . ediff-merge-revisions))) (define-key menu-bar-ediff-merge-menu [separator-ediff-merge] (quote ("--"))) (define-key menu-bar-ediff-merge-menu [ediff-merge-directories-with-ancestor] (quote ("Directories with Ancestor..." . ediff-merge-directories-with-ancestor))) (define-key menu-bar-ediff-merge-menu [ediff-merge-directories] (quote ("Directories..." . ediff-merge-directories))) (define-key menu-bar-ediff-merge-menu [separator-ediff-merge-dirs] (quote ("--"))) (define-key menu-bar-ediff-merge-menu [ediff-merge-buffers-with-ancestor] (quote ("Buffers with Ancestor..." . ediff-merge-buffers-with-ancestor))) (define-key menu-bar-ediff-merge-menu [ediff-merge-buffers] (quote ("Buffers..." . ediff-merge-buffers))) (define-key menu-bar-ediff-merge-menu [ediff-merge-files-with-ancestor] (quote ("Files with Ancestor..." . ediff-merge-files-with-ancestor))) (define-key menu-bar-ediff-merge-menu [ediff-merge-files] (quote ("Files..." . ediff-merge-files))) (define-key menu-bar-epatch-menu [ediff-patch-buffer] (quote ("To a Buffer..." . ediff-patch-buffer))) (define-key menu-bar-epatch-menu [ediff-patch-file] (quote ("To a File..." . ediff-patch-file))) (define-key menu-bar-ediff-misc-menu [emultiframe] (quote ("Toggle use of separate control buffer frame" . ediff-toggle-multiframe))) (define-key menu-bar-ediff-misc-menu [eregistry] (quote ("List Ediff Sessions" . ediff-show-registry))) (define-key menu-bar-ediff-misc-menu [ediff-cust] (quote ("Customize Ediff" . ediff-customize))) (define-key menu-bar-ediff-misc-menu [ediff-doc] (quote ("Ediff Manual" . ediff-documentation)))))) ;;;*** ;;;### (autoloads (ediff-show-registry) "ediff-mult" "ediff-mult.el" -;;;;;; (16923 3605)) +;;;;;; (17141 22720)) ;;; Generated autoloads from ediff-mult.el (autoload (quote ediff-show-registry) "ediff-mult" "\ @@ -7846,7 +8193,7 @@ Display Ediff's registry. ;;;*** ;;;### (autoloads (ediff-toggle-use-toolbar ediff-toggle-multiframe) -;;;;;; "ediff-util" "ediff-util.el" (16442 4953)) +;;;;;; "ediff-util" "ediff-util.el" (17141 22727)) ;;; Generated autoloads from ediff-util.el (autoload (quote ediff-toggle-multiframe) "ediff-util" "\ @@ -7867,7 +8214,7 @@ To change the default, set the variable `ediff-use-toolbar-p', which see. ;;;### (autoloads (format-kbd-macro read-kbd-macro edit-named-kbd-macro ;;;;;; edit-last-kbd-macro edit-kbd-macro) "edmacro" "edmacro.el" -;;;;;; (16822 52984)) +;;;;;; (17141 22734)) ;;; Generated autoloads from edmacro.el (defvar edmacro-eight-bits nil "\ @@ -7920,7 +8267,7 @@ or nil, use a compact 80-column format. ;;;*** ;;;### (autoloads (edt-emulation-on edt-set-scroll-margins) "edt" -;;;;;; "emulation/edt.el" (16213 43273)) +;;;;;; "emulation/edt.el" (17134 16203)) ;;; Generated autoloads from emulation/edt.el (autoload (quote edt-set-scroll-margins) "edt" "\ @@ -7938,7 +8285,7 @@ Turn on EDT Emulation. ;;;*** ;;;### (autoloads (electric-helpify with-electric-help) "ehelp" "ehelp.el" -;;;;;; (16775 26706)) +;;;;;; (17141 22734)) ;;; Generated autoloads from ehelp.el (autoload (quote with-electric-help) "ehelp" "\ @@ -7976,7 +8323,7 @@ Not documented ;;;*** ;;;### (autoloads (turn-on-eldoc-mode eldoc-mode eldoc-minor-mode-string) -;;;;;; "eldoc" "emacs-lisp/eldoc.el" (16507 41097)) +;;;;;; "eldoc" "emacs-lisp/eldoc.el" (17141 17)) ;;; Generated autoloads from emacs-lisp/eldoc.el (defvar eldoc-minor-mode-string " ElDoc" "\ @@ -7986,16 +8333,11 @@ Not documented (autoload (quote eldoc-mode) "eldoc" "\ Toggle ElDoc mode on or off. -Show the defined parameters for the elisp function near point. - -For the emacs lisp function at the beginning of the sexp which point is -within, show the defined parameters for the function in the echo area. -This information is extracted directly from the function or macro if it is -in pure lisp. If the emacs function is a subr, the parameters are obtained -from the documentation string if possible. - -If point is over a documented variable, print that variable's docstring -instead. +In ElDoc mode, the echo area displays information about a +function or variable in the text where point is. If point is +on a documented variable, it displays the first line of that +variable's doc string. Otherwise it displays the argument list +of the function called in the expression point is on. With prefix ARG, turn ElDoc mode on if and only if ARG is positive. @@ -8006,10 +8348,21 @@ Unequivocally turn on eldoc-mode (see variable documentation). \(fn)" t nil) +(defvar eldoc-documentation-function nil "\ +If non-nil, function to call to return doc string. +The function of no args should return a one-line string for displaying +doc about a function etc. appropriate to the context around point. +It should return nil if there's no doc appropriate for the context. +Typically doc is returned if point is on a function-like name or in its +arg list. + +This variable is expected to be made buffer-local by modes (other than +Emacs Lisp mode) that support Eldoc.") + ;;;*** -;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (16768 -;;;;;; 48631)) +;;;### (autoloads (elide-head) "elide-head" "elide-head.el" (17141 +;;;;;; 22737)) ;;; Generated autoloads from elide-head.el (autoload (quote elide-head) "elide-head" "\ @@ -8025,7 +8378,7 @@ This is suitable as an entry on `find-file-hook' or appropriate mode hooks. ;;;*** ;;;### (autoloads (elint-initialize) "elint" "emacs-lisp/elint.el" -;;;;;; (16870 21079)) +;;;;;; (17141 20)) ;;; Generated autoloads from emacs-lisp/elint.el (autoload (quote elint-initialize) "elint" "\ @@ -8036,8 +8389,8 @@ Initialize elint. ;;;*** ;;;### (autoloads (elp-results elp-instrument-package elp-instrument-list -;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (16783 -;;;;;; 21522)) +;;;;;; elp-instrument-function) "elp" "emacs-lisp/elp.el" (17141 +;;;;;; 20)) ;;; Generated autoloads from emacs-lisp/elp.el (autoload (quote elp-instrument-function) "elp" "\ @@ -8071,7 +8424,7 @@ displayed. ;;;*** ;;;### (autoloads (report-emacs-bug) "emacsbug" "mail/emacsbug.el" -;;;;;; (16804 23129)) +;;;;;; (17141 4113)) ;;; Generated autoloads from mail/emacsbug.el (autoload (quote report-emacs-bug) "emacsbug" "\ @@ -8086,7 +8439,7 @@ Prompts for bug subject. Leaves you in a mail buffer. ;;;;;; emerge-revisions emerge-files-with-ancestor-remote emerge-files-remote ;;;;;; emerge-files-with-ancestor-command emerge-files-command emerge-buffers-with-ancestor ;;;;;; emerge-buffers emerge-files-with-ancestor emerge-files) "emerge" -;;;;;; "emerge.el" (16381 6707)) +;;;;;; "emerge.el" (17032 41176)) ;;; Generated autoloads from emerge.el (defvar menu-bar-emerge-menu (make-sparse-keymap "Emerge")) @@ -8164,7 +8517,7 @@ Not documented ;;;*** ;;;### (autoloads (encoded-kbd-mode) "encoded-kb" "international/encoded-kb.el" -;;;;;; (16884 52115)) +;;;;;; (17097 30244)) ;;; Generated autoloads from international/encoded-kb.el (defvar encoded-kbd-mode nil "\ @@ -8175,6 +8528,8 @@ use either \\[customize] or the function `encoded-kbd-mode'.") (custom-autoload (quote encoded-kbd-mode) "encoded-kb") +(put (quote encoded-kbd-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote encoded-kbd-mode) "encoded-kb" "\ Toggle Encoded-kbd minor mode. With arg, turn Encoded-kbd mode on if and only if arg is positive. @@ -8192,7 +8547,7 @@ as a multilingual text encoded in a coding system set by ;;;*** ;;;### (autoloads (enriched-decode enriched-encode enriched-mode) -;;;;;; "enriched" "textmodes/enriched.el" (16738 29931)) +;;;;;; "enriched" "textmodes/enriched.el" (17141 115)) ;;; Generated autoloads from textmodes/enriched.el (autoload (quote enriched-mode) "enriched" "\ @@ -8222,8 +8577,8 @@ Not documented ;;;*** -;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (16777 -;;;;;; 65418)) +;;;### (autoloads (eshell-mode) "esh-mode" "eshell/esh-mode.el" (17134 +;;;;;; 16257)) ;;; Generated autoloads from eshell/esh-mode.el (autoload (quote eshell-mode) "esh-mode" "\ @@ -8235,8 +8590,8 @@ Emacs shell interactive mode. ;;;*** -;;;### (autoloads (eshell-test) "esh-test" "eshell/esh-test.el" (16858 -;;;;;; 50924)) +;;;### (autoloads (eshell-test) "esh-test" "eshell/esh-test.el" (17134 +;;;;;; 16260)) ;;; Generated autoloads from eshell/esh-test.el (autoload (quote eshell-test) "esh-test" "\ @@ -8247,7 +8602,7 @@ Test Eshell to verify that it works as expected. ;;;*** ;;;### (autoloads (eshell-report-bug eshell-command-result eshell-command -;;;;;; eshell) "eshell" "eshell/eshell.el" (16484 6599)) +;;;;;; eshell) "eshell" "eshell/eshell.el" (17144 57993)) ;;; Generated autoloads from eshell/eshell.el (autoload (quote eshell) "eshell" "\ @@ -8292,8 +8647,8 @@ Please include any configuration details that might be involved. ;;;;;; find-tag find-tag-noselect tags-table-files visit-tags-table-buffer ;;;;;; visit-tags-table find-tag-default-function find-tag-hook ;;;;;; tags-add-tables tags-compression-info-list tags-table-list -;;;;;; tags-case-fold-search) "etags" "progmodes/etags.el" (16746 -;;;;;; 18215)) +;;;;;; tags-case-fold-search) "etags" "progmodes/etags.el" (17134 +;;;;;; 4547)) ;;; Generated autoloads from progmodes/etags.el (defvar tags-file-name nil "\ @@ -8590,7 +8945,7 @@ for \\[find-tag] (which see). ;;;;;; ethio-fidel-to-sera-buffer ethio-fidel-to-sera-region ethio-sera-to-fidel-marker ;;;;;; ethio-sera-to-fidel-mail ethio-sera-to-fidel-mail-or-marker ;;;;;; ethio-sera-to-fidel-buffer ethio-sera-to-fidel-region setup-ethiopic-environment-internal) -;;;;;; "ethio-util" "language/ethio-util.el" (16953 20625)) +;;;;;; "ethio-util" "language/ethio-util.el" (17116 14490)) ;;; Generated autoloads from language/ethio-util.el (autoload (quote setup-ethiopic-environment-internal) "ethio-util" "\ @@ -8604,7 +8959,7 @@ The variable `ethio-primary-language' specifies the primary language and `ethio-secondary-language' specifies the secondary. If the 3rd parameter SECONDARY is given and non-nil, assume the region -begins begins with the secondary language; otherwise with the primary +begins with the secondary language; otherwise with the primary language. If the 4th parameter FORCE is given and non-nil, perform conversion @@ -8785,7 +9140,7 @@ Transcribe Ethiopic characters in ASCII depending on the file extension. ;;;### (autoloads (eudc-load-eudc eudc-query-form eudc-expand-inline ;;;;;; eudc-get-phone eudc-get-email eudc-set-server) "eudc" "net/eudc.el" -;;;;;; (16884 52115)) +;;;;;; (17134 16282)) ;;; Generated autoloads from net/eudc.el (autoload (quote eudc-set-server) "eudc" "\ @@ -8841,7 +9196,7 @@ This does nothing except loading eudc by autoload side-effect. ;;;### (autoloads (eudc-display-jpeg-as-button eudc-display-jpeg-inline ;;;;;; eudc-display-sound eudc-display-mail eudc-display-url eudc-display-generic-binary) -;;;;;; "eudc-bob" "net/eudc-bob.el" (16213 43280)) +;;;;;; "eudc-bob" "net/eudc-bob.el" (17134 16279)) ;;; Generated autoloads from net/eudc-bob.el (autoload (quote eudc-display-generic-binary) "eudc-bob" "\ @@ -8877,7 +9232,7 @@ Display a button for the JPEG DATA. ;;;*** ;;;### (autoloads (eudc-try-bbdb-insert eudc-insert-record-at-point-into-bbdb) -;;;;;; "eudc-export" "net/eudc-export.el" (16213 43280)) +;;;;;; "eudc-export" "net/eudc-export.el" (17134 16279)) ;;; Generated autoloads from net/eudc-export.el (autoload (quote eudc-insert-record-at-point-into-bbdb) "eudc-export" "\ @@ -8894,7 +9249,7 @@ Call `eudc-insert-record-at-point-into-bbdb' if on a record. ;;;*** ;;;### (autoloads (eudc-edit-hotlist) "eudc-hotlist" "net/eudc-hotlist.el" -;;;;;; (16213 43280)) +;;;;;; (17134 16279)) ;;; Generated autoloads from net/eudc-hotlist.el (autoload (quote eudc-edit-hotlist) "eudc-hotlist" "\ @@ -8906,8 +9261,8 @@ Edit the hotlist of directory servers in a specialized buffer. ;;;### (autoloads (executable-make-buffer-file-executable-if-script-p ;;;;;; executable-self-display executable-set-magic executable-interpret -;;;;;; executable-find executable-command-find-posix-p) "executable" -;;;;;; "progmodes/executable.el" (16858 50935)) +;;;;;; executable-command-find-posix-p) "executable" "progmodes/executable.el" +;;;;;; (17134 4551)) ;;; Generated autoloads from progmodes/executable.el (autoload (quote executable-command-find-posix-p) "executable" "\ @@ -8916,12 +9271,6 @@ If PROGRAM is non-nil, use that instead of \"find\". \(fn &optional PROGRAM)" nil nil) -(autoload (quote executable-find) "executable" "\ -Search for COMMAND in `exec-path' and return the absolute file name. -Return nil if COMMAND is not found anywhere in `exec-path'. - -\(fn COMMAND)" nil nil) - (autoload (quote executable-interpret) "executable" "\ Run script with user-specified args, and collect output in a buffer. While script runs asynchronously, you can use the \\[next-error] @@ -8955,7 +9304,7 @@ file modes. ;;;*** ;;;### (autoloads (expand-jump-to-next-slot expand-jump-to-previous-slot -;;;;;; expand-add-abbrevs) "expand" "expand.el" (16213 43267)) +;;;;;; expand-add-abbrevs) "expand" "expand.el" (17141 22737)) ;;; Generated autoloads from expand.el (autoload (quote expand-add-abbrevs) "expand" "\ @@ -8998,7 +9347,7 @@ This is used only in conjunction with `expand-add-abbrevs'. ;;;*** -;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (16858 50935)) +;;;### (autoloads (f90-mode) "f90" "progmodes/f90.el" (17134 4553)) ;;; Generated autoloads from progmodes/f90.el (autoload (quote f90-mode) "f90" "\ @@ -9067,7 +9416,7 @@ with no args, if that value is non-nil. ;;;;;; facemenu-remove-all facemenu-remove-face-props facemenu-set-read-only ;;;;;; facemenu-set-intangible facemenu-set-invisible facemenu-set-face-from-menu ;;;;;; facemenu-set-background facemenu-set-foreground facemenu-set-face) -;;;;;; "facemenu" "facemenu.el" (16942 52929)) +;;;;;; "facemenu" "facemenu.el" (17141 22739)) ;;; Generated autoloads from facemenu.el (define-key global-map "\M-o" 'facemenu-keymap) (autoload 'facemenu-keymap "facemenu" "Keymap for face-changing commands." t 'keymap) @@ -9160,16 +9509,19 @@ typing a character to insert cancels the specification. (autoload (quote facemenu-set-face-from-menu) "facemenu" "\ Set the FACE of the region or next character typed. -This function is designed to be called from a menu; the face to use -is the menu item's name. +This function is designed to be called from a menu; FACE is determined +using the event type of the menu entry. If FACE is a symbol whose +name starts with \"fg:\" or \"bg:\", then this functions sets the +foreground or background to the color specified by the rest of the +symbol's name. Any other symbol is considered the name of a face. If the region is active (normally true except in Transient Mark mode) and there is no prefix argument, this command sets the region to the requested face. Otherwise, this command specifies the face for the next character -inserted. Moving point or switching buffers before -typing a character to insert cancels the specification. +inserted. Moving point or switching buffers before typing a character +to insert cancels the specification. \(fn FACE START END)" t nil) @@ -9227,8 +9579,8 @@ argument BUFFER-NAME is nil, it defaults to *Colors*. ;;;*** ;;;### (autoloads (turn-on-fast-lock fast-lock-mode) "fast-lock" -;;;;;; "fast-lock.el" (16777 65418)) -;;; Generated autoloads from fast-lock.el +;;;;;; "obsolete/fast-lock.el" (17141 69)) +;;; Generated autoloads from obsolete/fast-lock.el (autoload (quote fast-lock-mode) "fast-lock" "\ Toggle Fast Lock mode. @@ -9268,7 +9620,7 @@ Unconditionally turn on Fast Lock mode. ;;;### (autoloads (feedmail-queue-reminder feedmail-run-the-queue ;;;;;; feedmail-run-the-queue-global-prompt feedmail-run-the-queue-no-prompts -;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (16213 43280)) +;;;;;; feedmail-send-it) "feedmail" "mail/feedmail.el" (17032 41292)) ;;; Generated autoloads from mail/feedmail.el (autoload (quote feedmail-send-it) "feedmail" "\ @@ -9322,7 +9674,7 @@ you can set feedmail-queue-reminder-alist to nil. ;;;*** ;;;### (autoloads (ffap-bindings dired-at-point ffap-at-mouse ffap-menu -;;;;;; find-file-at-point ffap-next) "ffap" "ffap.el" (16858 50909)) +;;;;;; find-file-at-point ffap-next) "ffap" "ffap.el" (17144 6198)) ;;; Generated autoloads from ffap.el (autoload (quote ffap-next) "ffap" "\ @@ -9381,7 +9733,7 @@ Evaluate the forms in variable `ffap-bindings'. ;;;*** ;;;### (autoloads (file-cache-minibuffer-complete) "filecache" "filecache.el" -;;;;;; (16830 50347)) +;;;;;; (17141 22748)) ;;; Generated autoloads from filecache.el (autoload (quote file-cache-minibuffer-complete) "filecache" "\ @@ -9399,9 +9751,21 @@ the name is considered already unique; only the second substitution ;;;*** +;;;### (autoloads (filesets-init) "filesets" "filesets.el" (17141 +;;;;;; 22763)) +;;; Generated autoloads from filesets.el + +(autoload (quote filesets-init) "filesets" "\ +Filesets initialization. +Set up hooks, load the cache file -- if existing -- and build the menu. + +\(fn)" nil nil) + +;;;*** + ;;;### (autoloads (find-grep-dired find-name-dired find-dired find-grep-options ;;;;;; find-ls-subdir-switches find-ls-option) "find-dired" "find-dired.el" -;;;;;; (16908 33360)) +;;;;;; (17141 22763)) ;;; Generated autoloads from find-dired.el (defvar find-ls-option (if (eq system-type (quote berkeley-unix)) (quote ("-ls" . "-gilsb")) (quote ("-exec ls -ld {} \\;" . "-ld"))) "\ @@ -9462,12 +9826,12 @@ Thus ARG can also contain additional grep options. ;;;### (autoloads (ff-mouse-find-other-file-other-window ff-mouse-find-other-file ;;;;;; ff-find-other-file ff-get-other-file) "find-file" "find-file.el" -;;;;;; (16767 25304)) +;;;;;; (17144 6205)) ;;; Generated autoloads from find-file.el (defvar ff-special-constructs (quote (("^#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]" lambda nil (setq fname (buffer-substring (match-beginning 2) (match-end 2)))))) "\ *A list of regular expressions for `ff-find-file'. -Specifies how to recognise special constructs such as include files +Specifies how to recognize special constructs such as include files etc. and an associated method for extracting the filename from that construct.") @@ -9508,7 +9872,7 @@ Variables of interest include: If non-nil, traces which directories are being searched. - `ff-special-constructs' - A list of regular expressions specifying how to recognise special + A list of regular expressions specifying how to recognize special constructs such as include files etc, and an associated method for extracting the filename from that construct. @@ -9554,7 +9918,7 @@ Visit the file you click on in another window. ;;;;;; find-variable find-variable-noselect find-function-other-frame ;;;;;; find-function-other-window find-function find-function-noselect ;;;;;; find-function-search-for-symbol find-library) "find-func" -;;;;;; "emacs-lisp/find-func.el" (16953 20625)) +;;;;;; "emacs-lisp/find-func.el" (17141 22)) ;;; Generated autoloads from emacs-lisp/find-func.el (autoload (quote find-library) "find-func" "\ @@ -9703,7 +10067,7 @@ Define some key bindings for the find-function family of functions. ;;;*** ;;;### (autoloads (find-lisp-find-dired-filter find-lisp-find-dired-subdirectories -;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (16213 43268)) +;;;;;; find-lisp-find-dired) "find-lisp" "find-lisp.el" (17141 22768)) ;;; Generated autoloads from find-lisp.el (autoload (quote find-lisp-find-dired) "find-lisp" "\ @@ -9724,7 +10088,7 @@ Change the filter on a find-lisp-find-dired buffer to REGEXP. ;;;*** ;;;### (autoloads (finder-by-keyword finder-commentary finder-list-keywords) -;;;;;; "finder" "finder.el" (16958 58756)) +;;;;;; "finder" "finder.el" (17141 22768)) ;;; Generated autoloads from finder.el (autoload (quote finder-list-keywords) "finder" "\ @@ -9746,7 +10110,7 @@ Find packages matching a given keyword. ;;;*** ;;;### (autoloads (enable-flow-control-on enable-flow-control) "flow-ctrl" -;;;;;; "flow-ctrl.el" (16213 43268)) +;;;;;; "flow-ctrl.el" (17141 22768)) ;;; Generated autoloads from flow-ctrl.el (autoload (quote enable-flow-control) "flow-ctrl" "\ @@ -9768,7 +10132,7 @@ to get the effect of a C-q. ;;;*** ;;;### (autoloads (fill-flowed fill-flowed-encode) "flow-fill" "gnus/flow-fill.el" -;;;;;; (16908 33361)) +;;;;;; (17141 6634)) ;;; Generated autoloads from gnus/flow-fill.el (autoload (quote fill-flowed-encode) "flow-fill" "\ @@ -9783,11 +10147,16 @@ Not documented ;;;*** -;;;### (autoloads (flymake-mode-off flymake-mode-on) "flymake" "progmodes/flymake.el" -;;;;;; (16808 48570)) +;;;### (autoloads (flymake-mode-off flymake-mode-on flymake-mode) +;;;;;; "flymake" "progmodes/flymake.el" (17134 4558)) ;;; Generated autoloads from progmodes/flymake.el -(unless (assq (quote flymake-mode) minor-mode-alist) (setq minor-mode-alist (cons (quote (flymake-mode flymake-mode-line)) minor-mode-alist))) +(autoload (quote flymake-mode) "flymake" "\ +Minor mode to do on-the-fly syntax checking. +When called interactively, toggles the minor mode. +With arg, turn Flymake mode on if and only if arg is positive. + +\(fn &optional ARG)" t nil) (autoload (quote flymake-mode-on) "flymake" "\ Turn flymake mode on. @@ -9802,25 +10171,15 @@ Turn flymake mode off. ;;;*** ;;;### (autoloads (flyspell-buffer flyspell-region flyspell-mode-off -;;;;;; flyspell-version flyspell-mode flyspell-prog-mode flyspell-mode-line-string) -;;;;;; "flyspell" "textmodes/flyspell.el" (16939 44105)) +;;;;;; flyspell-mode flyspell-prog-mode) "flyspell" "textmodes/flyspell.el" +;;;;;; (17141 125)) ;;; Generated autoloads from textmodes/flyspell.el -(defvar flyspell-mode-line-string " Fly" "\ -*String displayed on the modeline when flyspell is active. -Set this to nil if you don't want a modeline indicator.") - -(custom-autoload (quote flyspell-mode-line-string) "flyspell") - (autoload (quote flyspell-prog-mode) "flyspell" "\ Turn on `flyspell-mode' for comments and strings. \(fn)" t nil) -(defvar flyspell-mode nil) - -(defvar flyspell-mode-map (make-sparse-keymap)) - (autoload (quote flyspell-mode) "flyspell" "\ Minor mode performing on-the-fly spelling checking. This spawns a single Ispell process and checks each word. @@ -9831,7 +10190,8 @@ With a prefix argument ARG, turn Flyspell minor mode on iff ARG is positive. Bindings: \\[ispell-word]: correct words (using Ispell). \\[flyspell-auto-correct-word]: automatically correct word. -\\[flyspell-correct-word] (or mouse-2): popup correct words. +\\[flyspell-auto-correct-previous-word]: automatically correct the last misspelled word. +\\[flyspell-correct-word] (or down-mouse-2): popup correct words. Hooks: This runs `flyspell-mode-hook' after flyspell is entered. @@ -9851,13 +10211,6 @@ in your .emacs file. \(fn &optional ARG)" t nil) -(add-minor-mode (quote flyspell-mode) (quote flyspell-mode-line-string) flyspell-mode-map nil (quote flyspell-mode)) - -(autoload (quote flyspell-version) "flyspell" "\ -The flyspell version - -\(fn)" t nil) - (autoload (quote flyspell-mode-off) "flyspell" "\ Turn Flyspell mode off. @@ -9877,7 +10230,7 @@ Flyspell whole buffer. ;;;### (autoloads (follow-delete-other-windows-and-split follow-mode ;;;;;; turn-off-follow-mode turn-on-follow-mode) "follow" "follow.el" -;;;;;; (16534 3807)) +;;;;;; (17141 22775)) ;;; Generated autoloads from follow.el (autoload (quote turn-on-follow-mode) "follow" "\ @@ -9953,7 +10306,7 @@ in your `~/.emacs' file, replacing [f7] by your favourite key: ;;;### (autoloads (font-lock-fontify-buffer font-lock-remove-keywords ;;;;;; font-lock-add-keywords font-lock-mode-internal) "font-lock" -;;;;;; "font-lock.el" (16960 18194)) +;;;;;; "font-lock.el" (17141 22780)) ;;; Generated autoloads from font-lock.el (autoload (quote font-lock-mode-internal) "font-lock" "\ @@ -9963,6 +10316,7 @@ Not documented (autoload (quote font-lock-add-keywords) "font-lock" "\ Add highlighting KEYWORDS for MODE. + MODE should be a symbol, the major mode command name, such as `c-mode' or nil. If nil, highlighting keywords are added for the current buffer. KEYWORDS should be a list; see the variable `font-lock-keywords'. @@ -9980,9 +10334,22 @@ For example: adds two fontification patterns for C mode, to fontify `FIXME:' words, even in comments, and to fontify `and', `or' and `not' words as keywords. -When used from an elisp package (such as a minor mode), it is recommended -to use nil for MODE (and place the call in a loop or on a hook) to avoid -subtle problems due to details of the implementation. +The above procedure will only add the keywords for C mode, not +for modes derived from C mode. To add them for derived modes too, +pass nil for MODE and add the call to c-mode-hook. + +For example: + + (add-hook 'c-mode-hook + (lambda () + (font-lock-add-keywords nil + '((\"\\\\\\=<\\\\(FIXME\\\\):\" 1 font-lock-warning-face prepend) + (\"\\\\\\=<\\\\(and\\\\|or\\\\|not\\\\)\\\\\\=>\" . + font-lock-keyword-face))))) + +The above procedure may fail to add keywords to derived modes if +some involved major mode does not follow the standard conventions. +File a bug report if this happens, so the major mode can be corrected. Note that some modes have specialized support for additional patterns, e.g., see the variables `c-font-lock-extra-types', `c++-font-lock-extra-types', @@ -9996,9 +10363,11 @@ Remove highlighting KEYWORDS for MODE. MODE should be a symbol, the major mode command name, such as `c-mode' or nil. If nil, highlighting keywords are removed for the current buffer. -When used from an elisp package (such as a minor mode), it is recommended -to use nil for MODE (and place the call in a loop or on a hook) to avoid -subtle problems due to details of the implementation. +To make the removal apply to modes derived from MODE as well, +pass nil for MODE and add the call to MODE-hook. This may fail +for some derived modes if some involved major mode does not +follow the standard conventions. File a bug report if this +happens, so the major mode can be corrected. \(fn MODE KEYWORDS)" nil nil) @@ -10009,8 +10378,8 @@ Fontify the current buffer the way the function `font-lock-mode' would. ;;;*** -;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (16908 -;;;;;; 33362)) +;;;### (autoloads (footnote-mode) "footnote" "mail/footnote.el" (17141 +;;;;;; 4115)) ;;; Generated autoloads from mail/footnote.el (autoload (quote footnote-mode) "footnote" "\ @@ -10031,7 +10400,7 @@ key binding ;;;*** ;;;### (autoloads (forms-find-file-other-window forms-find-file forms-mode) -;;;;;; "forms" "forms.el" (16507 41097)) +;;;;;; "forms" "forms.el" (17141 22786)) ;;; Generated autoloads from forms.el (autoload (quote forms-mode) "forms" "\ @@ -10068,7 +10437,7 @@ Visit a file in Forms mode in other window. ;;;*** ;;;### (autoloads (fortran-mode fortran-tab-mode-default) "fortran" -;;;;;; "progmodes/fortran.el" (16908 33362)) +;;;;;; "progmodes/fortran.el" (17134 4564)) ;;; Generated autoloads from progmodes/fortran.el (defvar fortran-tab-mode-default nil "\ @@ -10093,7 +10462,7 @@ Key definitions: Variables controlling indentation style and extra features: -`comment-start' +`fortran-comment-line-start' To use comments starting with `!', set this to the string \"!\". `fortran-do-indent' Extra indentation within DO blocks (default 3). @@ -10154,7 +10523,7 @@ with no args, if that value is non-nil. ;;;*** ;;;### (autoloads (fortune fortune-to-signature fortune-compile fortune-from-region -;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (16775 26716)) +;;;;;; fortune-add-fortune) "fortune" "play/fortune.el" (17134 16321)) ;;; Generated autoloads from play/fortune.el (autoload (quote fortune-add-fortune) "fortune" "\ @@ -10203,8 +10572,8 @@ and choose the directory as the fortune-file. ;;;*** -;;;### (autoloads (fringe-indicators set-fringe-style fringe-mode -;;;;;; fringe-mode) "fringe" "fringe.el" (16908 33360)) +;;;### (autoloads (set-fringe-style fringe-mode fringe-mode) "fringe" +;;;;;; "fringe.el" (17141 22788)) ;;; Generated autoloads from fringe.el (defvar fringe-mode nil "\ @@ -10219,7 +10588,7 @@ To set this variable in a Lisp program, use `set-fringe-mode' to make it take real effect. Setting the variable with a customization buffer also takes effect. If you only want to modify the appearance of the fringe in one frame, -you can use the interactive function `toggle-fringe'") +you can use the interactive function `set-fringe-style'.") (custom-autoload (quote fringe-mode) "fringe") @@ -10272,15 +10641,10 @@ default appearance of fringes on all frames, see the command \(fn &optional MODE)" t nil) -(defvar fringe-indicators nil "\ -Visually indicate buffer boundaries and scrolling. -Setting this variable, changes `default-indicate-buffer-boundaries'.") - -(custom-autoload (quote fringe-indicators) "fringe") - ;;;*** -;;;### (autoloads (gdba) "gdb-ui" "progmodes/gdb-ui.el" (16960 18194)) +;;;### (autoloads (gdb-enable-debug-log gdba) "gdb-ui" "progmodes/gdb-ui.el" +;;;;;; (17134 20594)) ;;; Generated autoloads from progmodes/gdb-ui.el (autoload (quote gdba) "gdb-ui" "\ @@ -10289,7 +10653,7 @@ The directory containing FILE becomes the initial working directory and source-file directory for your debugger. If `gdb-many-windows' is nil (the default value) then gdb just -pops up the GUD buffer unless `gdb-show-main' is t. In this case +pops up the GUD buffer unless `gdb-show-main' is t. In this case it starts with two windows: one displaying the GUD buffer and the other with the source file with the main routine of the inferior. @@ -10335,11 +10699,17 @@ detailed description of this mode. \(fn COMMAND-LINE)" t nil) +(defvar gdb-enable-debug-log nil "\ +Non-nil means record the process input and output in `gdb-debug-log'.") + +(custom-autoload (quote gdb-enable-debug-log) "gdb-ui") + ;;;*** -;;;### (autoloads (generic-mode generic-mode-internal define-generic-mode) -;;;;;; "generic" "generic.el" (16960 18194)) -;;; Generated autoloads from generic.el +;;;### (autoloads (generic-make-keywords-list generic-mode generic-mode-internal +;;;;;; define-generic-mode) "generic" "emacs-lisp/generic.el" (17141 +;;;;;; 23)) +;;; Generated autoloads from emacs-lisp/generic.el (defvar generic-mode-list nil "\ A list of mode names for `generic-mode'. @@ -10349,33 +10719,34 @@ instead (which see).") (autoload (quote define-generic-mode) "generic" "\ Create a new generic mode MODE. -MODE is the name of the command for the generic mode; it need not -be quoted. The optional DOCSTRING is the documentation for the -mode command. If you do not supply it, a default documentation -string will be used instead. +MODE is the name of the command for the generic mode; don't quote it. +The optional DOCSTRING is the documentation for the mode command. If +you do not supply it, `define-generic-mode' uses a default +documentation string instead. -COMMENT-LIST is a list, whose entries are either a single -character, a one or two character string or a cons pair. If the -entry is a character or a string, it is added to the mode's -syntax table with `comment-start' syntax. If the entry is a cons -pair, the elements of the pair are considered to be -`comment-start' and `comment-end' respectively. (The latter -should be nil if you want comments to end at end of line.) Note -that Emacs has limitations regarding comment characters. +COMMENT-LIST is a list in which each element is either a character, a +string of one or two characters, or a cons cell. A character or a +string is set up in the mode's syntax table as a \"comment starter\". +If the entry is a cons cell, the `car' is set up as a \"comment +starter\" and the `cdr' as a \"comment ender\". (Use nil for the +latter if you want comments to end at the end of the line.) Note that +the syntax table has limitations about what comment starters and +enders are actually possible. KEYWORD-LIST is a list of keywords to highlight with `font-lock-keyword-face'. Each keyword should be a string. -FONT-LOCK-LIST is a list of additional expressions to highlight. -Each entry in the list should have the same form as an entry in +FONT-LOCK-LIST is a list of additional expressions to highlight. Each +element of this list should have the same form as an element of `font-lock-keywords'. AUTO-MODE-LIST is a list of regular expressions to add to -`auto-mode-alist'. These regexps are added to `auto-mode-alist' -as soon as `define-generic-mode' is called. +`auto-mode-alist'. These regular expressions are added when Emacs +runs the macro expansion. -FUNCTION-LIST is a list of functions to call to do some -additional setup. +FUNCTION-LIST is a list of functions to call to do some additional +setup. The mode command calls these functions just before it runs the +mode hook `MODE-hook'. See the file generic-x.el for some examples of `define-generic-mode'. @@ -10384,7 +10755,7 @@ See the file generic-x.el for some examples of `define-generic-mode'. (autoload (quote generic-mode-internal) "generic" "\ Go into the generic mode MODE. -\(fn MODE COMMENTS KEYWORDS FONT-LOCK-LIST FUNS)" nil nil) +\(fn MODE COMMENT-LIST KEYWORD-LIST FONT-LOCK-LIST FUNCTION-LIST)" nil nil) (autoload (quote generic-mode) "generic" "\ Enter generic mode MODE. @@ -10398,10 +10769,21 @@ Some generic modes are defined in `generic-x.el'. \(fn MODE)" t nil) +(autoload (quote generic-make-keywords-list) "generic" "\ +Return a `font-lock-keywords' construct that highlights KEYWORD-LIST. +KEYWORD-LIST is a list of keyword strings that should be +highlighted with face FACE. This function calculates a regular +expression that matches these keywords and concatenates it with +PREFIX and SUFFIX. Then it returns a construct based on this +regular expression that can be used as an element of +`font-lock-keywords'. + +\(fn KEYWORD-LIST FACE &optional PREFIX SUFFIX)" nil nil) + ;;;*** ;;;### (autoloads (glasses-mode) "glasses" "progmodes/glasses.el" -;;;;;; (16213 43281)) +;;;;;; (17097 30669)) ;;; Generated autoloads from progmodes/glasses.el (autoload (quote glasses-mode) "glasses" "\ @@ -10414,7 +10796,7 @@ at places they belong to. ;;;*** ;;;### (autoloads (gnus gnus-other-frame gnus-slave gnus-no-server -;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (16954 46150)) +;;;;;; gnus-slave-no-server) "gnus" "gnus/gnus.el" (17141 6750)) ;;; Generated autoloads from gnus/gnus.el (autoload (quote gnus-slave-no-server) "gnus" "\ @@ -10465,7 +10847,7 @@ prompt the user for the name of an NNTP server to use. ;;;;;; gnus-agent-get-undownloaded-list gnus-agent-delete-group ;;;;;; gnus-agent-rename-group gnus-agent-possibly-save-gcc gnus-agentize ;;;;;; gnus-slave-unplugged gnus-plugged gnus-unplugged) "gnus-agent" -;;;;;; "gnus/gnus-agent.el" (16908 33361)) +;;;;;; "gnus/gnus-agent.el" (17141 6642)) ;;; Generated autoloads from gnus/gnus-agent.el (autoload (quote gnus-unplugged) "gnus-agent" "\ @@ -10552,7 +10934,7 @@ If CLEAN, obsolete (ignore). ;;;*** ;;;### (autoloads (gnus-article-prepare-display) "gnus-art" "gnus/gnus-art.el" -;;;;;; (16954 46150)) +;;;;;; (17141 6655)) ;;; Generated autoloads from gnus/gnus-art.el (autoload (quote gnus-article-prepare-display) "gnus-art" "\ @@ -10563,7 +10945,7 @@ Make the current buffer look like a nice article. ;;;*** ;;;### (autoloads (gnus-audio-play) "gnus-audio" "gnus/gnus-audio.el" -;;;;;; (16698 21927)) +;;;;;; (17141 6658)) ;;; Generated autoloads from gnus/gnus-audio.el (autoload (quote gnus-audio-play) "gnus-audio" "\ @@ -10575,8 +10957,8 @@ Play a sound FILE through the speaker. ;;;### (autoloads (gnus-cache-delete-group gnus-cache-rename-group ;;;;;; gnus-cache-generate-nov-databases gnus-cache-generate-active -;;;;;; gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (16858 -;;;;;; 50925)) +;;;;;; gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el" (17141 +;;;;;; 6658)) ;;; Generated autoloads from gnus/gnus-cache.el (autoload (quote gnus-jog-cache) "gnus-cache" "\ @@ -10614,7 +10996,7 @@ next enabled. Depends upon the caller to determine whether group deletion is sup ;;;*** ;;;### (autoloads (gnus-delay-initialize gnus-delay-send-queue gnus-delay-article) -;;;;;; "gnus-delay" "gnus/gnus-delay.el" (16908 33361)) +;;;;;; "gnus-delay" "gnus/gnus-delay.el" (17141 6662)) ;;; Generated autoloads from gnus/gnus-delay.el (defgroup gnus-delay nil "Arrange for sending postings later." :version "22.1" :group (quote gnus)) @@ -10652,7 +11034,7 @@ Checking delayed messages is skipped if optional arg NO-CHECK is non-nil. ;;;*** ;;;### (autoloads (turn-on-gnus-dired-mode) "gnus-dired" "gnus/gnus-dired.el" -;;;;;; (16697 49031)) +;;;;;; (17141 6667)) ;;; Generated autoloads from gnus/gnus-dired.el (autoload (quote turn-on-gnus-dired-mode) "gnus-dired" "\ @@ -10663,7 +11045,7 @@ Convenience method to turn on gnus-dired-mode. ;;;*** ;;;### (autoloads (gnus-draft-reminder) "gnus-draft" "gnus/gnus-draft.el" -;;;;;; (16764 51520)) +;;;;;; (17141 6667)) ;;; Generated autoloads from gnus/gnus-draft.el (autoload (quote gnus-draft-reminder) "gnus-draft" "\ @@ -10675,8 +11057,8 @@ Reminder user if there are unsent drafts. ;;;### (autoloads (gnus-convert-png-to-face gnus-convert-face-to-png ;;;;;; gnus-face-from-file gnus-x-face-from-file gnus-insert-random-x-face-header -;;;;;; gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (16908 -;;;;;; 33361)) +;;;;;; gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el" (17141 +;;;;;; 6667)) ;;; Generated autoloads from gnus/gnus-fun.el (autoload (quote gnus-random-x-face) "gnus-fun" "\ @@ -10715,7 +11097,7 @@ FILE should be a PNG file that's 48x48 and smaller than or equal to ;;;*** ;;;### (autoloads (gnus-fetch-group-other-frame gnus-fetch-group) -;;;;;; "gnus-group" "gnus/gnus-group.el" (16927 493)) +;;;;;; "gnus-group" "gnus/gnus-group.el" (17141 6677)) ;;; Generated autoloads from gnus/gnus-group.el (autoload (quote gnus-fetch-group) "gnus-group" "\ @@ -10732,7 +11114,7 @@ Pop up a frame and enter GROUP. ;;;*** ;;;### (autoloads (gnus-batch-score) "gnus-kill" "gnus/gnus-kill.el" -;;;;;; (16698 21927)) +;;;;;; (17141 6680)) ;;; Generated autoloads from gnus/gnus-kill.el (defalias (quote gnus-batch-kill) (quote gnus-batch-score)) @@ -10747,7 +11129,7 @@ Usage: emacs -batch -l ~/.emacs -l gnus -f gnus-batch-score ;;;### (autoloads (gnus-mailing-list-mode gnus-mailing-list-insinuate ;;;;;; turn-on-gnus-mailing-list-mode) "gnus-ml" "gnus/gnus-ml.el" -;;;;;; (16698 21927)) +;;;;;; (17141 6682)) ;;; Generated autoloads from gnus/gnus-ml.el (autoload (quote turn-on-gnus-mailing-list-mode) "gnus-ml" "\ @@ -10772,7 +11154,7 @@ Minor mode for providing mailing-list commands. ;;;### (autoloads (gnus-group-split-fancy gnus-group-split gnus-group-split-update ;;;;;; gnus-group-split-setup) "gnus-mlspl" "gnus/gnus-mlspl.el" -;;;;;; (16698 21927)) +;;;;;; (17141 6682)) ;;; Generated autoloads from gnus/gnus-mlspl.el (autoload (quote gnus-group-split-setup) "gnus-mlspl" "\ @@ -10873,7 +11255,7 @@ Calling (gnus-group-split-fancy nil nil \"mail.others\") returns: ;;;*** ;;;### (autoloads (gnus-change-server) "gnus-move" "gnus/gnus-move.el" -;;;;;; (16213 43273)) +;;;;;; (17141 6682)) ;;; Generated autoloads from gnus/gnus-move.el (autoload (quote gnus-change-server) "gnus-move" "\ @@ -10885,7 +11267,7 @@ Update the .newsrc.eld file to reflect the change of nntp server. ;;;*** ;;;### (autoloads (gnus-button-reply gnus-button-mailto gnus-msg-mail) -;;;;;; "gnus-msg" "gnus/gnus-msg.el" (16923 3623)) +;;;;;; "gnus-msg" "gnus/gnus-msg.el" (17141 6686)) ;;; Generated autoloads from gnus/gnus-msg.el (autoload (quote gnus-msg-mail) "gnus-msg" "\ @@ -10911,7 +11293,7 @@ Like `message-reply'. ;;;### (autoloads (gnus-treat-newsgroups-picon gnus-treat-mail-picon ;;;;;; gnus-treat-from-picon) "gnus-picon" "gnus/gnus-picon.el" -;;;;;; (16730 31107)) +;;;;;; (17141 6686)) ;;; Generated autoloads from gnus/gnus-picon.el (autoload (quote gnus-treat-from-picon) "gnus-picon" "\ @@ -10938,7 +11320,7 @@ If picons are already displayed, remove them. ;;;;;; gnus-sorted-nintersection gnus-sorted-range-intersection ;;;;;; gnus-sorted-intersection gnus-intersection gnus-sorted-complement ;;;;;; gnus-sorted-ndifference gnus-sorted-difference) "gnus-range" -;;;;;; "gnus/gnus-range.el" (16764 51520)) +;;;;;; "gnus/gnus-range.el" (17141 6692)) ;;; Generated autoloads from gnus/gnus-range.el (autoload (quote gnus-sorted-difference) "gnus-range" "\ @@ -11006,7 +11388,7 @@ Add NUM into sorted LIST by side effect. ;;;*** ;;;### (autoloads (gnus-registry-install-hooks gnus-registry-initialize) -;;;;;; "gnus-registry" "gnus/gnus-registry.el" (16923 3623)) +;;;;;; "gnus-registry" "gnus/gnus-registry.el" (17141 6692)) ;;; Generated autoloads from gnus/gnus-registry.el (autoload (quote gnus-registry-initialize) "gnus-registry" "\ @@ -11022,8 +11404,8 @@ Install the registry hooks. ;;;*** ;;;### (autoloads (gnus-sieve-article-add-rule gnus-sieve-generate -;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (16697 -;;;;;; 49031)) +;;;;;; gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el" (17141 +;;;;;; 6701)) ;;; Generated autoloads from gnus/gnus-sieve.el (autoload (quote gnus-sieve-update) "gnus-sieve" "\ @@ -11051,7 +11433,7 @@ Not documented ;;;*** ;;;### (autoloads (gnus-batch-brew-soup) "gnus-soup" "gnus/gnus-soup.el" -;;;;;; (16698 21927)) +;;;;;; (17141 6701)) ;;; Generated autoloads from gnus/gnus-soup.el (autoload (quote gnus-batch-brew-soup) "gnus-soup" "\ @@ -11071,7 +11453,7 @@ Note -- this function hasn't been implemented yet. ;;;*** ;;;### (autoloads (gnus-update-format) "gnus-spec" "gnus/gnus-spec.el" -;;;;;; (16908 33361)) +;;;;;; (17141 6704)) ;;; Generated autoloads from gnus/gnus-spec.el (autoload (quote gnus-update-format) "gnus-spec" "\ @@ -11082,8 +11464,8 @@ Update the format specification near point. ;;;*** ;;;### (autoloads (gnus-fixup-nnimap-unread-after-getting-new-news -;;;;;; gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" (16908 -;;;;;; 33361)) +;;;;;; gnus-declare-backend) "gnus-start" "gnus/gnus-start.el" (17141 +;;;;;; 6710)) ;;; Generated autoloads from gnus/gnus-start.el (autoload (quote gnus-declare-backend) "gnus-start" "\ @@ -11099,7 +11481,7 @@ Not documented ;;;*** ;;;### (autoloads (gnus-add-configuration) "gnus-win" "gnus/gnus-win.el" -;;;;;; (16908 33361)) +;;;;;; (17141 6744)) ;;; Generated autoloads from gnus/gnus-win.el (autoload (quote gnus-add-configuration) "gnus-win" "\ @@ -11109,7 +11491,7 @@ Add the window configuration CONF to `gnus-buffer-configuration'. ;;;*** -;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (16213 43281)) +;;;### (autoloads (gomoku) "gomoku" "play/gomoku.el" (17134 16326)) ;;; Generated autoloads from play/gomoku.el (autoload (quote gomoku) "gomoku" "\ @@ -11135,17 +11517,11 @@ Use \\[describe-mode] for more info. ;;;*** -;;;### (autoloads (goto-address goto-address-at-point goto-address-at-mouse) -;;;;;; "goto-addr" "net/goto-addr.el" (16858 50931)) +;;;### (autoloads (goto-address goto-address-at-point) "goto-addr" +;;;;;; "net/goto-addr.el" (17134 16285)) ;;; Generated autoloads from net/goto-addr.el -(autoload (quote goto-address-at-mouse) "goto-addr" "\ -Send to the e-mail address or load the URL clicked with the mouse. -Send mail to address at position of mouse click. See documentation for -`goto-address-find-address-at-point'. If no address is found -there, then load the URL at or before the position of the mouse click. - -\(fn EVENT)" t nil) +(define-obsolete-function-alias (quote goto-address-at-mouse) (quote goto-address-at-point) "22.1") (autoload (quote goto-address-at-point) "goto-addr" "\ Send to the e-mail address or load the URL at point. @@ -11153,7 +11529,7 @@ Send mail to address at point. See documentation for `goto-address-find-address-at-point'. If no address is found there, then load the URL at or before point. -\(fn)" t nil) +\(fn &optional EVENT)" t nil) (autoload (quote goto-address) "goto-addr" "\ Sets up goto-address functionality in the current buffer. @@ -11168,9 +11544,9 @@ Also fontifies the buffer appropriately (see `goto-address-fontify-p' and ;;;*** -;;;### (autoloads (grep-tree grep-find grep grep-compute-defaults +;;;### (autoloads (grep-tree grep-find grep-mode grep grep-compute-defaults ;;;;;; grep-process-setup grep-setup-hook grep-find-command grep-command -;;;;;; grep-window-height) "grep" "progmodes/grep.el" (16908 33362)) +;;;;;; grep-window-height) "grep" "progmodes/grep.el" (17145 8110)) ;;; Generated autoloads from progmodes/grep.el (defvar grep-window-height nil "\ @@ -11201,7 +11577,7 @@ List of hook functions run by `grep-process-setup' (see `run-hooks').") (custom-autoload (quote grep-setup-hook) "grep") -(defvar grep-regexp-alist (quote (("^\\(.+?\\)[: ]+\\([0-9]+\\)\\([.:]?\\)\\([0-9]+\\)?\\(?:-\\(?:\\([0-9]+\\)\\3\\)?\\.?\\([0-9]+\\)?\\)?[: ]" 1 (2 . 5) (4 . 6)) ("^\\(.+?\\)[:(]+\\([0-9]+\\)\\([:)]\\).*?\\(\\[01;41m\\)\\(.*?\\)\\(\\[00m\\(\\[K\\)?\\)" 1 2 ((lambda nil (setq compilation-error-screen-columns nil) (- (match-beginning 5) (match-end 3) 8)) lambda nil (- (match-end 5) (match-end 3) 8))) ("^Binary file \\(.+\\) matches$" 1 nil nil 1))) "\ +(defvar grep-regexp-alist (quote (("^\\(.+?\\)\\(:[ ]*\\)\\([0-9]+\\)\\2" 1 3) ("^\\(\\(.+?\\):\\([0-9]+\\):\\).*?\\(\\[01;31m\\(?:\\[K\\)?\\)\\(.*?\\)\\(\\[[0-9]*m\\)" 2 3 ((lambda nil (setq compilation-error-screen-columns nil) (- (match-beginning 4) (match-end 1))) lambda nil (- (match-end 5) (match-end 1) (- (match-end 4) (match-beginning 4)))) nil 1) ("^Binary file \\(.+\\) matches$" 1 nil nil 0 1))) "\ Regexp used to match grep hits. See `compilation-error-regexp-alist'.") (defvar grep-program "grep" "\ @@ -11254,6 +11630,11 @@ temporarily highlight in visited source lines. \(fn COMMAND-ARGS &optional HIGHLIGHT-REGEXP)" t nil) +(autoload (quote grep-mode) "grep" "\ +Sets `grep-last-buffer' and `compilation-window-height'. + +\(fn)" nil nil) + (autoload (quote grep-find) "grep" "\ Run grep via find, with user-specified args COMMAND-ARGS. Collect output in a buffer. @@ -11289,7 +11670,7 @@ those sub directories of DIR. ;;;*** -;;;### (autoloads (gs-load-image) "gs" "gs.el" (16565 48734)) +;;;### (autoloads (gs-load-image) "gs" "gs.el" (17141 22791)) ;;; Generated autoloads from gs.el (autoload (quote gs-load-image) "gs" "\ @@ -11302,8 +11683,8 @@ the form \"WINDOW-ID PIXMAP-ID\". Value is non-nil if successful. ;;;*** -;;;### (autoloads (gdb-script-mode bashdb jdb pdb perldb xdb dbx -;;;;;; sdb gdb) "gud" "progmodes/gud.el" (16896 54110)) +;;;### (autoloads (gud-tooltip-mode gdb-script-mode bashdb jdb pdb +;;;;;; perldb xdb dbx sdb gdb) "gud" "progmodes/gud.el" (17134 4576)) ;;; Generated autoloads from progmodes/gud.el (autoload (quote gdb) "gud" "\ @@ -11332,7 +11713,7 @@ Run xdb on program FILE in buffer *gud-FILE*. The directory containing FILE becomes the initial working directory and source-file directory for your debugger. -You can set the variable 'gud-xdb-directories' to a list of program source +You can set the variable `gud-xdb-directories' to a list of program source directories if your program contains sources from more than one directory. \(fn COMMAND-LINE)" t nil) @@ -11382,10 +11763,25 @@ Major mode for editing GDB scripts \(fn)" t nil) +(defvar gud-tooltip-mode nil "\ +Non-nil if Gud-Tooltip mode is enabled. +See the command `gud-tooltip-mode' for a description of this minor-mode. +Setting this variable directly does not take effect; +use either \\[customize] or the function `gud-tooltip-mode'.") + +(custom-autoload (quote gud-tooltip-mode) "gud") + +(put (quote gud-tooltip-mode) (quote custom-set) (quote custom-set-minor-mode)) + +(autoload (quote gud-tooltip-mode) "gud" "\ +Toggle the display of GUD tooltips. + +\(fn &optional ARG)" t nil) + ;;;*** -;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (16377 -;;;;;; 12872)) +;;;### (autoloads (handwrite) "handwrite" "play/handwrite.el" (17134 +;;;;;; 16329)) ;;; Generated autoloads from play/handwrite.el (autoload (quote handwrite) "handwrite" "\ @@ -11433,7 +11829,7 @@ to be updated. ;;;### (autoloads (scan-buf-previous-region scan-buf-next-region ;;;;;; scan-buf-move-to-region help-at-pt-display-when-idle help-at-pt-set-timer ;;;;;; help-at-pt-cancel-timer display-local-help help-at-pt-kbd-string -;;;;;; help-at-pt-string) "help-at-pt" "help-at-pt.el" (16908 33360)) +;;;;;; help-at-pt-string) "help-at-pt" "help-at-pt.el" (17141 22791)) ;;; Generated autoloads from help-at-pt.el (autoload (quote help-at-pt-string) "help-at-pt" "\ @@ -11561,8 +11957,9 @@ different regions. With numeric argument ARG, behaves like ;;;*** ;;;### (autoloads (describe-categories describe-syntax describe-variable -;;;;;; variable-at-point describe-function-1 describe-function locate-library -;;;;;; help-with-tutorial) "help-fns" "help-fns.el" (16899 17454)) +;;;;;; variable-at-point describe-function-1 help-C-file-name describe-function +;;;;;; locate-library help-with-tutorial) "help-fns" "help-fns.el" +;;;;;; (17141 22794)) ;;; Generated autoloads from help-fns.el (autoload (quote help-with-tutorial) "help-fns" "\ @@ -11595,6 +11992,12 @@ Display the full documentation of FUNCTION (a symbol). \(fn FUNCTION)" t nil) +(autoload (quote help-C-file-name) "help-fns" "\ +Return the name of the C file where SUBR-OR-VAR is defined. +KIND should be `var' for a variable or `subr' for a subroutine. + +\(fn SUBR-OR-VAR KIND)" nil nil) + (defface help-argument-name (quote ((((supports :slant italic)) :inherit italic))) "Face to highlight argument names in *Help* buffers." :group (quote help)) (autoload (quote describe-function-1) "help-fns" "\ @@ -11635,7 +12038,7 @@ BUFFER should be a buffer or a buffer name. ;;;*** ;;;### (autoloads (three-step-help) "help-macro" "help-macro.el" -;;;;;; (16875 35928)) +;;;;;; (17141 22794)) ;;; Generated autoloads from help-macro.el (defvar three-step-help nil "\ @@ -11651,7 +12054,7 @@ A value of nil means skip the middle step, so that ;;;### (autoloads (help-xref-on-pp help-insert-xref-button help-xref-button ;;;;;; help-make-xrefs help-setup-xref help-mode-finish help-mode-setup -;;;;;; help-mode) "help-mode" "help-mode.el" (16939 44104)) +;;;;;; help-mode) "help-mode" "help-mode.el" (17141 22794)) ;;; Generated autoloads from help-mode.el (autoload (quote help-mode) "help-mode" "\ @@ -11734,7 +12137,7 @@ Add xrefs for symbols in `pp's output between FROM and TO. ;;;*** ;;;### (autoloads (Helper-help Helper-describe-bindings) "helper" -;;;;;; "emacs-lisp/helper.el" (16213 43273)) +;;;;;; "emacs-lisp/helper.el" (17141 26)) ;;; Generated autoloads from emacs-lisp/helper.el (autoload (quote Helper-describe-bindings) "helper" "\ @@ -11750,7 +12153,7 @@ Provide help for current mode. ;;;*** ;;;### (autoloads (hexlify-buffer hexl-find-file hexl-mode) "hexl" -;;;;;; "hexl.el" (16858 50912)) +;;;;;; "hexl.el" (17146 18111)) ;;; Generated autoloads from hexl.el (autoload (quote hexl-mode) "hexl" "\ @@ -11845,8 +12248,8 @@ This discards the buffer's undo information. ;;;### (autoloads (hi-lock-write-interactive-patterns hi-lock-unface-buffer ;;;;;; hi-lock-face-phrase-buffer hi-lock-face-buffer hi-lock-line-face-buffer -;;;;;; hi-lock-mode hi-lock-mode) "hi-lock" "hi-lock.el" (16898 -;;;;;; 6195)) +;;;;;; hi-lock-mode hi-lock-mode) "hi-lock" "hi-lock.el" (17141 +;;;;;; 22799)) ;;; Generated autoloads from hi-lock.el (defvar hi-lock-mode nil "\ @@ -11957,7 +12360,7 @@ be found in variable `hi-lock-interactive-patterns'. ;;;*** ;;;### (autoloads (hide-ifdef-lines hide-ifdef-read-only hide-ifdef-initially -;;;;;; hide-ifdef-mode) "hideif" "progmodes/hideif.el" (16924 23221)) +;;;;;; hide-ifdef-mode) "hideif" "progmodes/hideif.el" (17134 4576)) ;;; Generated autoloads from progmodes/hideif.el (autoload (quote hide-ifdef-mode) "hideif" "\ @@ -12012,7 +12415,7 @@ how the hiding is done: ;;;*** ;;;### (autoloads (hs-minor-mode hs-hide-comments-when-hiding-all) -;;;;;; "hideshow" "progmodes/hideshow.el" (16858 50936)) +;;;;;; "hideshow" "progmodes/hideshow.el" (17134 4579)) ;;; Generated autoloads from progmodes/hideshow.el (defvar hs-hide-comments-when-hiding-all t "\ @@ -12075,7 +12478,7 @@ Key bindings: ;;;;;; highlight-compare-buffers highlight-changes-rotate-faces ;;;;;; highlight-changes-previous-change highlight-changes-next-change ;;;;;; highlight-changes-mode highlight-changes-remove-highlight) -;;;;;; "hilit-chg" "hilit-chg.el" (16876 58220)) +;;;;;; "hilit-chg" "hilit-chg.el" (17146 26034)) ;;; Generated autoloads from hilit-chg.el (autoload (quote highlight-changes-remove-highlight) "hilit-chg" "\ @@ -12109,12 +12512,12 @@ Functions: buffer with the contents of a file \\[highlight-changes-remove-highlight] - remove the change face from the region \\[highlight-changes-rotate-faces] - rotate different \"ages\" of changes through - various faces. + various faces Hook variables: -`highlight-changes-enable-hook' - when enabling Highlight Changes mode. +`highlight-changes-enable-hook' - when enabling Highlight Changes mode `highlight-changes-toggle-hook' - when entering active or passive state -`highlight-changes-disable-hook' - when turning off Highlight Changes mode. +`highlight-changes-disable-hook' - when turning off Highlight Changes mode \(fn &optional ARG)" t nil) @@ -12136,11 +12539,11 @@ of `highlight-changes-face-list', one level older changes are shown in face described by the second element, and so on. Very old changes remain shown in the last face in the list. -You can automatically rotate colours when the buffer is saved -by adding the following to `local-write-file-hooks', by evaling it in the -buffer to be saved): +You can automatically rotate colors when the buffer is saved by adding +this function to `write-file-functions' as a buffer-local value. To do +this, eval the following in the buffer to be saved: - (add-hook 'local-write-file-hooks 'highlight-changes-rotate-faces) + (add-hook 'write-file-functions 'highlight-changes-rotate-faces nil t) \(fn)" t nil) @@ -12152,7 +12555,7 @@ The default is the current buffer and the one in the next window. If either buffer is modified and is visiting a file, you are prompted to save the file. -Unless the buffer is unmodified and visiting a file, the buffer is +Unless the buffer is unmodified and visiting a file, the buffer is written to a temporary file for comparison. If a buffer is read-only, differences will be highlighted but no property @@ -12205,7 +12608,7 @@ variable `highlight-changes-global-changes-existing-buffers' is non-nil). ;;;;;; hippie-expand-ignore-buffers hippie-expand-max-buffers hippie-expand-no-restriction ;;;;;; hippie-expand-dabbrev-as-symbol hippie-expand-dabbrev-skip-space ;;;;;; hippie-expand-verbose hippie-expand-try-functions-list) "hippie-exp" -;;;;;; "hippie-exp.el" (16213 43268)) +;;;;;; "hippie-exp.el" (17141 22805)) ;;; Generated autoloads from hippie-exp.el (defvar hippie-expand-try-functions-list (quote (try-complete-file-name-partially try-complete-file-name try-expand-all-abbrevs try-expand-list try-expand-line try-expand-dabbrev try-expand-dabbrev-all-buffers try-expand-dabbrev-from-kill try-complete-lisp-symbol-partially try-complete-lisp-symbol)) "\ @@ -12278,7 +12681,7 @@ argument VERBOSE non-nil makes the function verbose. ;;;*** ;;;### (autoloads (global-hl-line-mode hl-line-mode) "hl-line" "hl-line.el" -;;;;;; (16908 33360)) +;;;;;; (17141 22805)) ;;; Generated autoloads from hl-line.el (autoload (quote hl-line-mode) "hl-line" "\ @@ -12306,6 +12709,8 @@ use either \\[customize] or the function `global-hl-line-mode'.") (custom-autoload (quote global-hl-line-mode) "hl-line") +(put (quote global-hl-line-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote global-hl-line-mode) "hl-line" "\ Global minor mode to highlight the line about point in the current window. With ARG, turn Global-Hl-Line mode on if ARG is positive, off otherwise. @@ -12318,7 +12723,7 @@ Global-Hl-Line mode uses the functions `global-hl-line-unhighlight' and ;;;*** ;;;### (autoloads (list-holidays holidays) "holidays" "calendar/holidays.el" -;;;;;; (16822 52985)) +;;;;;; (17097 30004)) ;;; Generated autoloads from calendar/holidays.el (autoload (quote holidays) "holidays" "\ @@ -12342,7 +12747,7 @@ The optional LABEL is used to label the buffer created. ;;;*** ;;;### (autoloads (hscroll-global-mode hscroll-mode turn-on-hscroll) -;;;;;; "hscroll" "obsolete/hscroll.el" (16213 43281)) +;;;;;; "hscroll" "obsolete/hscroll.el" (17141 76)) ;;; Generated autoloads from obsolete/hscroll.el (autoload (quote turn-on-hscroll) "hscroll" "\ @@ -12368,8 +12773,8 @@ Also see `automatic-hscrolling'. ;;;*** -;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (16777 -;;;;;; 65418)) +;;;### (autoloads (html2text) "html2text" "gnus/html2text.el" (17141 +;;;;;; 6753)) ;;; Generated autoloads from gnus/html2text.el (autoload (quote html2text) "html2text" "\ @@ -12400,7 +12805,7 @@ Convert HTML to plain text in the current buffer. ;;;;;; ibuffer-backward-filter-group ibuffer-forward-filter-group ;;;;;; ibuffer-toggle-filter-group ibuffer-mouse-toggle-filter-group ;;;;;; ibuffer-interactive-filter-by-mode ibuffer-mouse-filter-by-mode -;;;;;; ibuffer-auto-mode) "ibuf-ext" "ibuf-ext.el" (16934 57456)) +;;;;;; ibuffer-auto-mode) "ibuf-ext" "ibuf-ext.el" (17141 22806)) ;;; Generated autoloads from ibuf-ext.el (autoload (quote ibuffer-auto-mode) "ibuf-ext" "\ @@ -12761,8 +13166,8 @@ defaults to one. ;;;*** ;;;### (autoloads (define-ibuffer-filter define-ibuffer-op define-ibuffer-sorter -;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (16544 -;;;;;; 33333)) +;;;;;; define-ibuffer-column) "ibuf-macs" "ibuf-macs.el" (17141 +;;;;;; 22806)) ;;; Generated autoloads from ibuf-macs.el (autoload (quote define-ibuffer-column) "ibuf-macs" "\ @@ -12848,7 +13253,7 @@ bound to the current value of the filter. ;;;*** ;;;### (autoloads (ibuffer ibuffer-other-window ibuffer-list-buffers) -;;;;;; "ibuffer" "ibuffer.el" (16908 33360)) +;;;;;; "ibuffer" "ibuffer.el" (17141 22811)) ;;; Generated autoloads from ibuffer.el (autoload (quote ibuffer-list-buffers) "ibuffer" "\ @@ -12866,22 +13271,22 @@ buffers which are visiting a file. \(fn &optional FILES-ONLY)" t nil) (autoload (quote ibuffer) "ibuffer" "\ -Begin using `ibuffer' to edit a list of buffers. +Begin using Ibuffer to edit a list of buffers. Type 'h' after entering ibuffer for more information. -Optional argument OTHER-WINDOW-P says to use another window. -Optional argument NAME specifies the name of the buffer; it defaults -to \"*Ibuffer*\". -Optional argument QUALIFIERS is an initial set of filtering qualifiers -to use; see `ibuffer-filtering-qualifiers'. -Optional argument NOSELECT means don't select the Ibuffer buffer. -Optional argument SHRINK means shrink the buffer to minimal size. The -special value `onewindow' means always use another window. -Optional argument FILTER-GROUPS is an initial set of filtering -groups to use; see `ibuffer-filter-groups'. -Optional argument FORMATS is the value to use for `ibuffer-formats'. -If specified, then the variable `ibuffer-formats' will have that value -locally in this buffer. +All arguments are optional. +OTHER-WINDOW-P says to use another window. +NAME specifies the name of the buffer (defaults to \"*Ibuffer*\"). +QUALIFIERS is an initial set of filtering qualifiers to use; + see `ibuffer-filtering-qualifiers'. +NOSELECT means don't select the Ibuffer buffer. +SHRINK means shrink the buffer to minimal size. The special + value `onewindow' means always use another window. +FILTER-GROUPS is an initial set of filtering groups to use; + see `ibuffer-filter-groups'. +FORMATS is the value to use for `ibuffer-formats'. + If specified, then the variable `ibuffer-formats' will have + that value locally in this buffer. \(fn &optional OTHER-WINDOW-P NAME QUALIFIERS NOSELECT SHRINK FILTER-GROUPS FORMATS)" t nil) @@ -12889,7 +13294,7 @@ locally in this buffer. ;;;### (autoloads (icalendar-import-buffer icalendar-import-file ;;;;;; icalendar-export-region icalendar-export-file) "icalendar" -;;;;;; "calendar/icalendar.el" (16939 44105)) +;;;;;; "calendar/icalendar.el" (17115 45491)) ;;; Generated autoloads from calendar/icalendar.el (autoload (quote icalendar-export-file) "icalendar" "\ @@ -12941,8 +13346,8 @@ buffer `*icalendar-errors*'. ;;;*** -;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (16960 -;;;;;; 18194)) +;;;### (autoloads (icomplete-mode) "icomplete" "icomplete.el" (17144 +;;;;;; 6205)) ;;; Generated autoloads from icomplete.el (defvar icomplete-mode nil "\ @@ -12953,6 +13358,8 @@ use either \\[customize] or the function `icomplete-mode'.") (custom-autoload (quote icomplete-mode) "icomplete") +(put (quote icomplete-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote icomplete-mode) "icomplete" "\ Toggle incremental minibuffer completion for this Emacs session. With a numeric argument, turn Icomplete mode on iff ARG is positive. @@ -12961,7 +13368,7 @@ With a numeric argument, turn Icomplete mode on iff ARG is positive. ;;;*** -;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (16858 50936)) +;;;### (autoloads (icon-mode) "icon" "progmodes/icon.el" (17134 4581)) ;;; Generated autoloads from progmodes/icon.el (autoload (quote icon-mode) "icon" "\ @@ -13002,7 +13409,7 @@ with no args, if that value is non-nil. ;;;*** ;;;### (autoloads (idlwave-shell) "idlw-shell" "progmodes/idlw-shell.el" -;;;;;; (16830 50350)) +;;;;;; (17144 58053)) ;;; Generated autoloads from progmodes/idlw-shell.el (autoload (quote idlwave-shell) "idlw-shell" "\ @@ -13028,11 +13435,11 @@ See also the variable `idlwave-shell-prompt-pattern'. ;;;*** ;;;### (autoloads (idlwave-mode) "idlwave" "progmodes/idlwave.el" -;;;;;; (16958 58759)) +;;;;;; (17097 30727)) ;;; Generated autoloads from progmodes/idlwave.el (autoload (quote idlwave-mode) "idlwave" "\ -Major mode for editing IDL source files (version 5.5). +Major mode for editing IDL source files (version 5.7_22). The main features of this mode are @@ -13112,7 +13519,7 @@ The main features of this mode are \\i IF statement template \\elif IF-ELSE statement template \\b BEGIN - + For a full list, use \\[idlwave-list-abbrevs]. Some templates also have direct keybindings - see the list of keybindings below. @@ -13164,13 +13571,13 @@ The main features of this mode are ;;;;;; ido-find-alternate-file ido-find-file-other-window ido-find-file ;;;;;; ido-find-file-in-dir ido-switch-buffer-other-frame ido-insert-buffer ;;;;;; ido-kill-buffer ido-display-buffer ido-switch-buffer-other-window -;;;;;; ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (16916 -;;;;;; 30957)) +;;;;;; ido-switch-buffer ido-mode ido-mode) "ido" "ido.el" (17141 +;;;;;; 22818)) ;;; Generated autoloads from ido.el (defvar ido-mode nil "\ Determines for which functional group (buffer and files) ido behavior -should be enabled. The following values are possible: +should be enabled. The following values are possible: - `buffer': Turn only on ido buffer behavior (switching, killing, displaying...) - `file': Turn only on ido file behavior (finding, writing, inserting...) @@ -13202,9 +13609,9 @@ in another frame. As you type in a string, all of the buffers matching the string are displayed if substring-matching is used (default). Look at -`ido-enable-prefix' and `ido-toggle-prefix'. When you have found the -buffer you want, it can then be selected. As you type, most keys have their -normal keybindings, except for the following: \\<ido-mode-map> +`ido-enable-prefix' and `ido-toggle-prefix'. When you have found the +buffer you want, it can then be selected. As you type, most keys have +their normal keybindings, except for the following: \\<ido-mode-map> RET Select the buffer at the front of the list of matches. If the list is empty, possibly prompt to create new buffer. @@ -13276,11 +13683,11 @@ The file is displayed according to `ido-default-file-method' -- the default is to show it in the same window, unless it is already visible in another frame. -The file name is selected interactively by typing a substring. As you type -in a string, all of the filenames matching the string are displayed if -substring-matching is used (default). Look at `ido-enable-prefix' and -`ido-toggle-prefix'. When you have found the filename you want, it can -then be selected. As you type, most keys have their normal keybindings, +The file name is selected interactively by typing a substring. As you +type in a string, all of the filenames matching the string are displayed +if substring-matching is used (default). Look at `ido-enable-prefix' and +`ido-toggle-prefix'. When you have found the filename you want, it can +then be selected. As you type, most keys have their normal keybindings, except for the following: \\<ido-mode-map> RET Select the file at the front of the list of matches. If the @@ -13388,7 +13795,7 @@ Ido replacement for the built-in `read-buffer'. Return the name of a buffer selected. PROMPT is the prompt to give to the user. DEFAULT if given is the default buffer to be selected, which will go to the front of the list. -If REQUIRE-MATCH is non-nil, an existing-buffer must be selected. +If REQUIRE-MATCH is non-nil, an existing buffer must be selected. \(fn PROMPT &optional DEFAULT REQUIRE-MATCH)" nil nil) @@ -13426,7 +13833,7 @@ DEF, if non-nil, is the default value. ;;;*** -;;;### (autoloads (ielm) "ielm" "ielm.el" (16908 33360)) +;;;### (autoloads (ielm) "ielm" "ielm.el" (17141 22821)) ;;; Generated autoloads from ielm.el (add-hook 'same-window-buffer-names "*ielm*") @@ -13439,7 +13846,7 @@ Switches to the buffer `*ielm*', or creates it if it does not exist. ;;;*** ;;;### (autoloads (iimage-mode turn-on-iimage-mode) "iimage" "iimage.el" -;;;;;; (16619 14967)) +;;;;;; (17141 22821)) ;;; Generated autoloads from iimage.el (autoload (quote turn-on-iimage-mode) "iimage" "\ @@ -13457,22 +13864,9 @@ Toggle inline image minor mode. ;;;### (autoloads (defimage find-image remove-images insert-sliced-image ;;;;;; insert-image put-image create-image image-type-available-p ;;;;;; image-type-from-file-header image-type-from-data) "image" -;;;;;; "image.el" (16954 46150)) +;;;;;; "image.el" (17141 22821)) ;;; Generated autoloads from image.el -(defvar image-library-alist nil "\ -Alist of image types vs external libraries needed to display them. - -Each element is a list (IMAGE-TYPE LIBRARY...), where the car is a symbol -representing a supported image type, and the rest are strings giving -alternate filenames for the corresponding external libraries. - -Emacs tries to load the libraries in the order they appear on the -list; if none is loaded, the running session of Emacs won't -support the image type. Types 'pbm and 'xbm don't need to be -listed; they're always supported.") - (put 'image-library-alist 'risky-local-variable t) - (autoload (quote image-type-from-data) "image" "\ Determine the image type from image data DATA. Value is a symbol specifying the image type or nil if type cannot @@ -13488,7 +13882,7 @@ be determined. \(fn FILE)" nil nil) (autoload (quote image-type-available-p) "image" "\ -Value is non-nil if image type TYPE is available. +Return non-nil if image type TYPE is available. Image types are symbols like `xbm' or `jpeg'. \(fn TYPE)" nil nil) @@ -13603,7 +13997,7 @@ Example: ;;;### (autoloads (auto-image-file-mode insert-image-file image-file-name-regexp ;;;;;; image-file-name-regexps image-file-name-extensions) "image-file" -;;;;;; "image-file.el" (16942 52930)) +;;;;;; "image-file.el" (17141 22821)) ;;; Generated autoloads from image-file.el (defvar image-file-name-extensions (quote ("png" "jpeg" "jpg" "gif" "tiff" "tif" "xbm" "xpm" "pbm" "pgm" "ppm" "pnm")) "\ @@ -13650,6 +14044,8 @@ use either \\[customize] or the function `auto-image-file-mode'.") (custom-autoload (quote auto-image-file-mode) "image-file") +(put (quote auto-image-file-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote auto-image-file-mode) "image-file" "\ Toggle visiting of image files as images. With prefix argument ARG, turn on if positive, otherwise off. @@ -13663,21 +14059,15 @@ Image files are those whose name has an extension in ;;;*** -;;;### (autoloads (image-mode) "image-mode" "image-mode.el" (16960 -;;;;;; 18194)) +;;;### (autoloads (image-mode-maybe image-minor-mode image-mode) +;;;;;; "image-mode" "image-mode.el" (17097 55485)) ;;; Generated autoloads from image-mode.el - (push '("\\.jpg\\'" . image-mode) auto-mode-alist) - (push '("\\.jpeg\\'" . image-mode) auto-mode-alist) - (push '("\\.gif\\'" . image-mode) auto-mode-alist) - (push '("\\.png\\'" . image-mode) auto-mode-alist) - (push '("\\.tiff\\'" . image-mode) auto-mode-alist) - (push '("\\.tif\\'" . image-mode) auto-mode-alist) - (push '("\\.xbm\\'" . image-mode) auto-mode-alist) - (push '("\\.xpm\\'" . image-mode) auto-mode-alist) - (push '("\\.pbm\\'" . image-mode) auto-mode-alist) - (push '("\\.pgm\\'" . image-mode) auto-mode-alist) - (push '("\\.ppm\\'" . image-mode) auto-mode-alist) - (push '("\\.pnm\\'" . image-mode) auto-mode-alist) + (push '("\\.jpe?g\\'" . image-mode) auto-mode-alist) + (push '("\\.png\\'" . image-mode) auto-mode-alist) + (push '("\\.gif\\'" . image-mode) auto-mode-alist) + (push '("\\.tiff?\\'" . image-mode) auto-mode-alist) + (push '("\\.p[bpgn]m\\'" . image-mode) auto-mode-alist) + (push '("\\.x[bp]m\\'" . image-mode-maybe) auto-mode-alist) (autoload (quote image-mode) "image-mode" "\ Major mode for image files. @@ -13686,10 +14076,29 @@ to toggle between display as an image and display as text. \(fn)" t nil) +(autoload (quote image-minor-mode) "image-mode" "\ +Toggle Image minor mode. +With arg, turn Image minor mode on if arg is positive, off otherwise. +See the command `image-mode' for more information on this mode. + +\(fn &optional ARG)" t nil) + +(autoload (quote image-mode-maybe) "image-mode" "\ +Set major or minor mode for image files. +Set Image major mode only when there are no other major modes +associated with a filename in `auto-mode-alist'. When an image +filename matches another major mode in `auto-mode-alist' then +set that major mode and Image minor mode. + +See commands `image-mode' and `image-minor-mode' for more +information on these modes. + +\(fn)" t nil) + ;;;*** ;;;### (autoloads (imenu imenu-add-menubar-index imenu-add-to-menubar -;;;;;; imenu-sort-function) "imenu" "imenu.el" (16908 33360)) +;;;;;; imenu-sort-function) "imenu" "imenu.el" (17141 22824)) ;;; Generated autoloads from imenu.el (defvar imenu-sort-function nil "\ @@ -13712,32 +14121,9 @@ element should come before the second. The arguments are cons cells; (defvar imenu-generic-expression nil "\ The regex pattern to use for creating a buffer index. -If non-nil this pattern is passed to `imenu--generic-function' -to create a buffer index. - -The value should be an alist with elements that look like this: - (MENU-TITLE REGEXP INDEX) -or like this: - (MENU-TITLE REGEXP INDEX FUNCTION ARGUMENTS...) -with zero or more ARGUMENTS. The former format creates a simple element in -the index alist when it matches; the latter creates a special element -of the form (NAME POSITION-MARKER FUNCTION ARGUMENTS...) -with FUNCTION and ARGUMENTS copied from `imenu-generic-expression'. - -MENU-TITLE is a string used as the title for the submenu or nil if the -entries are not nested. - -REGEXP is a regexp that should match a construct in the buffer that is -to be displayed in the menu; i.e., function or variable definitions, -etc. It contains a substring which is the name to appear in the -menu. See the info section on Regexps for more information. - -INDEX points to the substring in REGEXP that contains the name (of the -function, variable or type) that is to appear in the menu. - -The variable `imenu-case-fold-search' determines whether or not the -regexp matches are case sensitive, and `imenu-syntax-alist' can be -used to alter the syntax table for the search. +If non-nil this pattern is passed to `imenu--generic-function' to +create a buffer index. Look there for the documentation of this +pattern's structure. For example, see the value of `fortran-imenu-generic-expression' used by `fortran-mode' with `imenu-syntax-alist' set locally to give the @@ -13832,11 +14218,11 @@ for more information. ;;;### (autoloads (indian-char-glyph indian-glyph-char in-is13194-pre-write-conversion ;;;;;; in-is13194-post-read-conversion indian-compose-string indian-compose-region) -;;;;;; "ind-util" "language/ind-util.el" (16303 21394)) +;;;;;; "ind-util" "language/ind-util.el" (17097 30350)) ;;; Generated autoloads from language/ind-util.el (autoload (quote indian-compose-region) "ind-util" "\ -Compose the region according to `composition-function-table'. +Compose the region according to `composition-function-table'. \(fn FROM TO)" t nil) @@ -13873,8 +14259,9 @@ See also the function `indian-glyph-char'. ;;;*** -;;;### (autoloads (inferior-lisp) "inf-lisp" "progmodes/inf-lisp.el" -;;;;;; (16213 43282)) +;;;### (autoloads (inferior-lisp inferior-lisp-prompt inferior-lisp-load-command +;;;;;; inferior-lisp-program inferior-lisp-filter-regexp) "inf-lisp" +;;;;;; "progmodes/inf-lisp.el" (17134 4617)) ;;; Generated autoloads from progmodes/inf-lisp.el (defvar inferior-lisp-filter-regexp "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'" "\ @@ -13883,8 +14270,12 @@ Input matching this regexp is not saved on the input history in Inferior Lisp mode. Default is whitespace followed by 0 or 1 single-letter colon-keyword \(as in :a, :c, etc.)") +(custom-autoload (quote inferior-lisp-filter-regexp) "inf-lisp") + (defvar inferior-lisp-program "lisp" "\ -*Program name for invoking an inferior Lisp with for Inferior Lisp mode.") +*Program name for invoking an inferior Lisp in Inferior Lisp mode.") + +(custom-autoload (quote inferior-lisp-program) "inf-lisp") (defvar inferior-lisp-load-command "(load \"%s\")\n" "\ *Format-string for building a Lisp expression to load a file. @@ -13895,21 +14286,25 @@ The string \"(progn (load \\\"%s\\\" :verbose nil :print t) (values))\\n\" produces cosmetically superior output for this application, but it works only in Common Lisp.") +(custom-autoload (quote inferior-lisp-load-command) "inf-lisp") + (defvar inferior-lisp-prompt "^[^> \n]*>+:? *" "\ -Regexp to recognise prompts in the Inferior Lisp mode. +Regexp to recognize prompts in the Inferior Lisp mode. Defaults to \"^[^> \\n]*>+:? *\", which works pretty good for Lucid, kcl, and franz. This variable is used to initialize `comint-prompt-regexp' in the Inferior Lisp buffer. This variable is only used if the variable -`comint-use-prompt-regexp-instead-of-fields' is non-nil. +`comint-use-prompt-regexp' is non-nil. More precise choices: Lucid Common Lisp: \"^\\\\(>\\\\|\\\\(->\\\\)+\\\\) *\" franz: \"^\\\\(->\\\\|<[0-9]*>:\\\\) *\" kcl: \"^>+ *\" -This is a fine thing to set in your .emacs file.") +This is a fine thing to set in your .emacs file or through Custom.") + +(custom-autoload (quote inferior-lisp-prompt) "inf-lisp") (defvar inferior-lisp-mode-hook (quote nil) "\ *Hook for customising Inferior Lisp mode.") @@ -13930,11 +14325,10 @@ of `inferior-lisp-program'). Runs the hooks from ;;;*** -;;;### (autoloads (Info-restore-desktop-buffer Info-speedbar-browser -;;;;;; Info-goto-emacs-key-command-node Info-goto-emacs-command-node -;;;;;; info-apropos Info-index Info-directory Info-goto-node info-standalone -;;;;;; info-emacs-manual info info-other-window) "info" "info.el" -;;;;;; (16953 20624)) +;;;### (autoloads (Info-speedbar-browser Info-goto-emacs-key-command-node +;;;;;; Info-goto-emacs-command-node Info-mode info-apropos Info-index +;;;;;; Info-directory info-standalone info-emacs-manual info info-other-window) +;;;;;; "info" "info.el" (17146 26046)) ;;; Generated autoloads from info.el (autoload (quote info-other-window) "info" "\ @@ -13978,18 +14372,6 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself. \(fn)" nil nil) -(autoload (quote Info-goto-node) "info" "\ -Go to info node named NODENAME. Give just NODENAME or (FILENAME)NODENAME. -If NODENAME is of the form (FILENAME)NODENAME, the node is in the Info file -FILENAME; otherwise, NODENAME should be in the current Info file (or one of -its sub-files). -Completion is available, but only for node names in the current Info file. -If FORK is non-nil (interactively with a prefix arg), show the node in -a new info buffer. -If FORK is a string, it is the name to use for the new buffer. - -\(fn NODENAME &optional FORK)" t nil) - (autoload (quote Info-directory) "info" "\ Go to the Info directory node. @@ -14009,6 +14391,71 @@ Grovel indices of all known Info files on your system for STRING. Build a menu of the possible matches. \(fn STRING)" t nil) + +(autoload (quote Info-mode) "info" "\ +Info mode provides commands for browsing through the Info documentation tree. +Documentation in Info is divided into \"nodes\", each of which discusses +one topic and contains references to other nodes which discuss related +topics. Info has commands to follow the references and show you other nodes. + +\\<Info-mode-map>\\[Info-help] Invoke the Info tutorial. +\\[Info-exit] Quit Info: reselect previously selected buffer. + +Selecting other nodes: +\\[Info-mouse-follow-nearest-node] + Follow a node reference you click on. + This works with menu items, cross references, and + the \"next\", \"previous\" and \"up\", depending on where you click. +\\[Info-follow-nearest-node] Follow a node reference near point, like \\[Info-mouse-follow-nearest-node]. +\\[Info-next] Move to the \"next\" node of this node. +\\[Info-prev] Move to the \"previous\" node of this node. +\\[Info-up] Move \"up\" from this node. +\\[Info-menu] Pick menu item specified by name (or abbreviation). + Picking a menu item causes another node to be selected. +\\[Info-directory] Go to the Info directory node. +\\[Info-follow-reference] Follow a cross reference. Reads name of reference. +\\[Info-history-back] Move back in history to the last node you were at. +\\[Info-history-forward] Move forward in history to the node you returned from after using \\[Info-history-back]. +\\[Info-history] Go to menu of visited nodes. +\\[Info-toc] Go to table of contents of the current Info file. +\\[Info-top-node] Go to the Top node of this file. +\\[Info-final-node] Go to the final node in this file. +\\[Info-backward-node] Go backward one node, considering all nodes as forming one sequence. +\\[Info-forward-node] Go forward one node, considering all nodes as forming one sequence. +\\[Info-index] Look up a topic in this file's Index and move to that node. +\\[Info-index-next] (comma) Move to the next match from a previous \\<Info-mode-map>\\[Info-index] command. +\\[info-apropos] Look for a string in the indices of all manuals. + +Moving within a node: +\\[Info-scroll-up] Normally, scroll forward a full screen. + Once you scroll far enough in a node that its menu appears on the + screen but after point, the next scroll moves into its first + subnode. When after all menu items (or if there is no menu), + move up to the parent node. +\\[Info-scroll-down] Normally, scroll backward. If the beginning of the buffer is + already visible, try to go to the previous menu entry, or up + if there is none. +\\[beginning-of-buffer] Go to beginning of node. + +Advanced commands: +\\[Info-copy-current-node-name] Put name of current Info node in the kill ring. +\\[clone-buffer] Select a new cloned Info buffer in another window. +\\[Info-edit] Edit contents of selected node. +1 .. 9 Pick first ... ninth item in node's menu. + Every third `*' is highlighted to help pick the right number. +\\[Info-goto-node] Move to node specified by name. + You may include a filename as well, as (FILENAME)NODENAME. +\\[universal-argument] \\[info] Move to new Info file with completion. +\\[universal-argument] N \\[info] Select Info buffer with prefix number in the name *info*<N>. +\\[Info-search] Search through this Info file for specified regexp, + and select the node in which the next occurrence is found. +\\[Info-search-case-sensitively] Search through this Info file for specified regexp case-sensitively. +\\[Info-search-next] Search for another occurrence of regexp + from a previous \\<Info-mode-map>\\[Info-search] command. +\\[Info-next-reference] Move cursor to next cross-reference or menu item. +\\[Info-prev-reference] Move cursor to previous cross-reference or menu item. + +\(fn)" nil nil) (put 'Info-goto-emacs-command-node 'info-file "emacs") (autoload (quote Info-goto-emacs-command-node) "info" "\ @@ -14032,21 +14479,16 @@ the variable `Info-file-list-for-emacs'. \(fn KEY)" t nil) (autoload (quote Info-speedbar-browser) "info" "\ -Initialize speedbar to display an info node browser. +Initialize speedbar to display an Info node browser. This will add a speedbar major display mode. \(fn)" t nil) -(autoload (quote Info-restore-desktop-buffer) "info" "\ -Restore an info buffer specified in a desktop file. - -\(fn DESKTOP-BUFFER-FILE-NAME DESKTOP-BUFFER-NAME DESKTOP-BUFFER-MISC)" nil nil) - ;;;*** ;;;### (autoloads (info-complete-file info-complete-symbol info-lookup-file ;;;;;; info-lookup-symbol info-lookup-reset) "info-look" "info-look.el" -;;;;;; (16875 35928)) +;;;;;; (17141 22827)) ;;; Generated autoloads from info-look.el (autoload (quote info-lookup-reset) "info-look" "\ @@ -14094,7 +14536,7 @@ Perform completion on file preceding point. ;;;*** ;;;### (autoloads (info-xref-check-all-custom info-xref-check-all -;;;;;; info-xref-check) "info-xref" "info-xref.el" (16484 6598)) +;;;;;; info-xref-check) "info-xref" "info-xref.el" (17141 22827)) ;;; Generated autoloads from info-xref.el (autoload (quote info-xref-check) "info-xref" "\ @@ -14121,7 +14563,7 @@ quite a while. ;;;*** ;;;### (autoloads (batch-info-validate Info-validate Info-split Info-tagify) -;;;;;; "informat" "informat.el" (16213 43269)) +;;;;;; "informat" "informat.el" (17141 22836)) ;;; Generated autoloads from informat.el (autoload (quote Info-tagify) "informat" "\ @@ -14162,7 +14604,7 @@ For example, invoke \"emacs -batch -f batch-info-validate $info/ ~/*.info\" ;;;### (autoloads (isearch-process-search-multibyte-characters isearch-toggle-input-method ;;;;;; isearch-toggle-specified-input-method) "isearch-x" "international/isearch-x.el" -;;;;;; (16829 43426)) +;;;;;; (17116 14485)) ;;; Generated autoloads from international/isearch-x.el (autoload (quote isearch-toggle-specified-input-method) "isearch-x" "\ @@ -14182,8 +14624,8 @@ Not documented ;;;*** -;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (16541 -;;;;;; 47351)) +;;;### (autoloads (isearchb-activate) "isearchb" "isearchb.el" (17141 +;;;;;; 22843)) ;;; Generated autoloads from isearchb.el (autoload (quote isearchb-activate) "isearchb" "\ @@ -14196,9 +14638,9 @@ accessed via isearchb. ;;;*** -;;;### (autoloads (iso-accents-mode) "iso-acc" "international/iso-acc.el" -;;;;;; (16927 496)) -;;; Generated autoloads from international/iso-acc.el +;;;### (autoloads (iso-accents-mode) "iso-acc" "obsolete/iso-acc.el" +;;;;;; (17141 76)) +;;; Generated autoloads from obsolete/iso-acc.el (autoload (quote iso-accents-mode) "iso-acc" "\ Toggle ISO Accents mode, in which accents modify the following letter. @@ -14230,7 +14672,7 @@ and a negative argument disables it. ;;;### (autoloads (iso-cvt-define-menu iso-cvt-write-only iso-cvt-read-only ;;;;;; iso-sgml2iso iso-iso2sgml iso-iso2duden iso-iso2gtex iso-gtex2iso ;;;;;; iso-tex2iso iso-iso2tex iso-german iso-spanish) "iso-cvt" -;;;;;; "international/iso-cvt.el" (16795 7139)) +;;;;;; "international/iso-cvt.el" (17097 30247)) ;;; Generated autoloads from international/iso-cvt.el (autoload (quote iso-spanish) "iso-cvt" "\ @@ -14314,7 +14756,7 @@ Add submenus to the File menu, to convert to and from various formats. ;;;*** ;;;### (autoloads nil "iso-transl" "international/iso-transl.el" -;;;;;; (16213 43274)) +;;;;;; (17097 30250)) ;;; Generated autoloads from international/iso-transl.el (or key-translation-map (setq key-translation-map (make-sparse-keymap))) (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map) @@ -14327,7 +14769,7 @@ Add submenus to the File menu, to convert to and from various formats. ;;;;;; ispell-region ispell-change-dictionary ispell-kill-ispell ;;;;;; ispell-help ispell-pdict-save ispell-word ispell-local-dictionary-alist ;;;;;; ispell-personal-dictionary) "ispell" "textmodes/ispell.el" -;;;;;; (16954 46151)) +;;;;;; (17144 58097)) ;;; Generated autoloads from textmodes/ispell.el (defvar ispell-personal-dictionary nil "\ @@ -14357,7 +14799,7 @@ re-start emacs.") (setq ispell-dictionary-alist-5 (quote (("norsk" "[A-Za-z\305\306\307\310\311\322\324\330\345\346\347\350\351\362\364\370]" "[^A-Za-z\305\306\307\310\311\322\324\330\345\346\347\350\351\362\364\370]" "[\"]" nil nil "~list" iso-8859-1) ("norsk7-tex" "[A-Za-z{}\\'^`]" "[^A-Za-z{}\\'^`]" "[\"]" nil ("-d" "norsk") "~plaintex" iso-8859-1) ("polish" "[A-Za-z\241\243\246\254\257\261\263\266\274\277\306\312\321\323\346\352\361\363]" "[^A-Za-z\241\243\246\254\257\261\263\266\274\277\306\312\321\323\346\352\361\363]" "" nil nil nil iso-8859-2) ("portugues" "[a-zA-Z\301\302\311\323\340\341\342\351\352\355\363\343\372]" "[^a-zA-Z\301\302\311\323\340\341\342\351\352\355\363\343\372]" "[']" t ("-C") "~latin1" iso-8859-1)))) -(setq ispell-dictionary-alist-6 (quote (("russian" "[\341\342\367\347\344\345\263\366\372\351\352\353\354\355\356\357\360\362\363\364\365\346\350\343\376\373\375\370\371\377\374\340\361\301\302\327\307\304\305\243\326\332\311\312\313\314\315\316\317\320\322\323\324\325\306\310\303\336\333\335\330\331\337\334\300\321]" "[^\341\342\367\347\344\345\263\366\372\351\352\353\354\355\356\357\360\362\363\364\365\346\350\343\376\373\375\370\371\377\374\340\361\301\302\327\307\304\305\243\326\332\311\312\313\314\315\316\317\320\322\323\324\325\306\310\303\336\333\335\330\331\337\334\300\321]" "" nil nil nil koi8-r) ("russianw" "[\300\301\302\303\304\305\250\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\334\333\332\335\336\337\340\341\342\343\344\345\270\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\374\373\372\375\376\377]" "[^\300\301\302\303\304\305\250\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\334\333\332\335\336\337\340\341\342\343\344\345\270\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\374\373\372\375\376\377]" "" nil nil nil windows-1251) ("slovak" "[A-Za-z\301\304\311\315\323\332\324\300\305\245\335\256\251\310\317\253\322\341\344\351\355\363\372\364\340\345\265\375\276\271\350\357\273\362]" "[^A-Za-z\301\304\311\315\323\332\324\300\305\245\335\256\251\310\317\253\322\341\344\351\355\363\372\364\340\345\265\375\276\271\350\357\273\362]" "" nil ("-B") nil iso-8859-2) ("svenska" "[A-Za-z\345\344\366\351\340\374\350\346\370\347\305\304\326\311\300\334\310\306\330\307]" "[^A-Za-z\345\344\366\351\340\374\350\346\370\347\305\304\326\311\300\334\310\306\330\307]" "[']" nil ("-C") "~list" iso-8859-1)))) +(setq ispell-dictionary-alist-6 (quote (("russian" "[\341\342\367\347\344\345\263\366\372\351\352\353\354\355\356\357\360\362\363\364\365\346\350\343\376\373\375\370\371\377\374\340\361\301\302\327\307\304\305\243\326\332\311\312\313\314\315\316\317\320\322\323\324\325\306\310\303\336\333\335\330\331\337\334\300\321]" "[^\341\342\367\347\344\345\263\366\372\351\352\353\354\355\356\357\360\362\363\364\365\346\350\343\376\373\375\370\371\377\374\340\361\301\302\327\307\304\305\243\326\332\311\312\313\314\315\316\317\320\322\323\324\325\306\310\303\336\333\335\330\331\337\334\300\321]" "" nil nil nil koi8-r) ("russianw" "[\300\301\302\303\304\305\250\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\334\333\332\335\336\337\340\341\342\343\344\345\270\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\374\373\372\375\376\377]" "[^\300\301\302\303\304\305\250\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\334\333\332\335\336\337\340\341\342\343\344\345\270\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\374\373\372\375\376\377]" "" nil nil nil windows-1251) ("slovak" "[A-Za-z\301\304\311\315\323\332\324\300\305\245\335\256\251\310\317\253\322\341\344\351\355\363\372\364\340\345\265\375\276\271\350\357\273\362]" "[^A-Za-z\301\304\311\315\323\332\324\300\305\245\335\256\251\310\317\253\322\341\344\351\355\363\372\364\340\345\265\375\276\271\350\357\273\362]" "" nil ("-B") nil iso-8859-2) ("slovenian" "[A-Za-z\301\304\311\315\323\332\324\300\305\245\335\256\251\310\317\253\322\341\344\351\355\363\372\364\340\345\265\375\276\271\350\357\273\362]" "[^A-Za-z\301\304\311\315\323\332\324\300\305\245\335\256\251\310\317\253\322\341\344\351\355\363\372\364\340\345\265\375\276\271\350\357\273\362]" "" nil ("-B" "-d" "slovenian") nil iso-8859-2) ("svenska" "[A-Za-z\345\344\366\351\340\374\350\346\370\347\305\304\326\311\300\334\310\306\330\307]" "[^A-Za-z\345\344\366\351\340\374\350\346\370\347\305\304\326\311\300\334\310\306\330\307]" "[']" nil ("-C") "~list" iso-8859-1)))) (defvar ispell-dictionary-alist (append ispell-dictionary-alist-1 ispell-dictionary-alist-2 ispell-dictionary-alist-3 ispell-dictionary-alist-4 ispell-dictionary-alist-5 ispell-dictionary-alist-6) "\ An alist of dictionaries and their associated parameters. @@ -14423,9 +14865,7 @@ and added as a submenu of the \"Edit\" menu.") (defvar ispell-menu-map-needed (and (not ispell-menu-map) (not (featurep (quote xemacs))) (quote reload))) -(if ispell-menu-map-needed (let ((dicts (if (fboundp (quote ispell-valid-dictionary-list)) (ispell-valid-dictionary-list) (mapcar (lambda (x) (or (car x) "default")) ispell-dictionary-alist))) (dict-map (make-sparse-keymap "Dictionaries"))) (setq ispell-menu-map (make-sparse-keymap "Spell")) (if (not dicts) (define-key ispell-menu-map [default] (quote ("Select Default Dict" "Dictionary for which Ispell was configured" lambda nil (interactive) (ispell-change-dictionary "default"))))) (fset (quote ispell-dict-map) dict-map) (define-key ispell-menu-map [dictionaries] (\` (menu-item "Select Dict" ispell-dict-map))) (dolist (name dicts) (define-key dict-map (vector (intern name)) (cons (concat "Select " (capitalize name) " Dict") (\` (lambda nil (interactive) (ispell-change-dictionary (\, name))))))))) - -(if ispell-menu-map-needed (progn (define-key ispell-menu-map [ispell-change-dictionary] (quote (menu-item "Change Dictionary..." ispell-change-dictionary :help "Supply explicit dictionary file name"))) (define-key ispell-menu-map [ispell-kill-ispell] (quote (menu-item "Kill Process" ispell-kill-ispell :enable (and (boundp (quote ispell-process)) ispell-process (eq (ispell-process-status) (quote run))) :help "Terminate Ispell subprocess"))) (define-key ispell-menu-map [ispell-pdict-save] (quote (menu-item "Save Dictionary" (lambda nil (interactive) (ispell-pdict-save t t)) :help "Save personal dictionary"))) (define-key ispell-menu-map [ispell-customize] (quote (menu-item "Customize..." (lambda nil (interactive) (customize-group (quote ispell))) :help "Customize spell checking options"))) (define-key ispell-menu-map [ispell-help] (quote (menu-item "Help" (lambda nil (interactive) (describe-function (quote ispell-help))) :help "Show standard Ispell keybindings and commands"))) (define-key ispell-menu-map [flyspell-mode] (quote (menu-item "Automatic spell checking (Flyspell)" flyspell-mode :help "Check spelling while you edit the text" :button (:toggle . flyspell-mode)))) (define-key ispell-menu-map [ispell-complete-word] (quote (menu-item "Complete Word" ispell-complete-word :help "Complete word at cursor using dictionary"))) (define-key ispell-menu-map [ispell-complete-word-interior-frag] (quote (menu-item "Complete Word Fragment" ispell-complete-word-interior-frag :help "Complete word fragment at cursor"))))) +(if ispell-menu-map-needed (progn (setq ispell-menu-map (make-sparse-keymap "Spell")) (define-key ispell-menu-map [ispell-change-dictionary] (quote (menu-item "Change Dictionary..." ispell-change-dictionary :help "Supply explicit dictionary file name"))) (define-key ispell-menu-map [ispell-kill-ispell] (quote (menu-item "Kill Process" ispell-kill-ispell :enable (and (boundp (quote ispell-process)) ispell-process (eq (ispell-process-status) (quote run))) :help "Terminate Ispell subprocess"))) (define-key ispell-menu-map [ispell-pdict-save] (quote (menu-item "Save Dictionary" (lambda nil (interactive) (ispell-pdict-save t t)) :help "Save personal dictionary"))) (define-key ispell-menu-map [ispell-customize] (quote (menu-item "Customize..." (lambda nil (interactive) (customize-group (quote ispell))) :help "Customize spell checking options"))) (define-key ispell-menu-map [ispell-help] (quote (menu-item "Help" (lambda nil (interactive) (describe-function (quote ispell-help))) :help "Show standard Ispell keybindings and commands"))) (define-key ispell-menu-map [flyspell-mode] (quote (menu-item "Automatic spell checking (Flyspell)" flyspell-mode :help "Check spelling while you edit the text" :button (:toggle bound-and-true-p flyspell-mode)))) (define-key ispell-menu-map [ispell-complete-word] (quote (menu-item "Complete Word" ispell-complete-word :help "Complete word at cursor using dictionary"))) (define-key ispell-menu-map [ispell-complete-word-interior-frag] (quote (menu-item "Complete Word Fragment" ispell-complete-word-interior-frag :help "Complete word fragment at cursor"))))) (if ispell-menu-map-needed (progn (define-key ispell-menu-map [ispell-continue] (quote (menu-item "Continue Spell-Checking" ispell-continue :enable (and (boundp (quote ispell-region-end)) (marker-position ispell-region-end) (equal (marker-buffer ispell-region-end) (current-buffer))) :help "Continue spell checking last region"))) (define-key ispell-menu-map [ispell-word] (quote (menu-item "Spell-Check Word" ispell-word :help "Spell-check word at cursor"))) (define-key ispell-menu-map [ispell-comments-and-strings] (quote (menu-item "Spell-Check Comments" ispell-comments-and-strings :help "Spell-check only comments and strings"))))) @@ -14615,8 +15055,8 @@ You can bind this to the key C-c i in GNUS or mail by adding to ;;;*** -;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (16681 -;;;;;; 45592)) +;;;### (autoloads (iswitchb-mode) "iswitchb" "iswitchb.el" (17141 +;;;;;; 22847)) ;;; Generated autoloads from iswitchb.el (defvar iswitchb-mode nil "\ @@ -14627,6 +15067,8 @@ use either \\[customize] or the function `iswitchb-mode'.") (custom-autoload (quote iswitchb-mode) "iswitchb") +(put (quote iswitchb-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote iswitchb-mode) "iswitchb" "\ Toggle Iswitchb global minor mode. With arg, turn Iswitchb mode on if and only iff ARG is positive. @@ -14640,7 +15082,7 @@ This mode enables switching between buffers using substrings. See ;;;### (autoloads (read-hiragana-string japanese-zenkaku-region japanese-hankaku-region ;;;;;; japanese-hiragana-region japanese-katakana-region japanese-zenkaku ;;;;;; japanese-hankaku japanese-hiragana japanese-katakana setup-japanese-environment-internal) -;;;;;; "japan-util" "language/japan-util.el" (16213 43280)) +;;;;;; "japan-util" "language/japan-util.el" (17097 30350)) ;;; Generated autoloads from language/japan-util.el (autoload (quote setup-japanese-environment-internal) "japan-util" "\ @@ -14717,8 +15159,8 @@ If non-nil, second arg INITIAL-INPUT is a string to insert before reading. ;;;*** -;;;### (autoloads (jit-lock-register) "jit-lock" "jit-lock.el" (16939 -;;;;;; 44104)) +;;;### (autoloads (jit-lock-register) "jit-lock" "jit-lock.el" (17141 +;;;;;; 22847)) ;;; Generated autoloads from jit-lock.el (autoload (quote jit-lock-register) "jit-lock" "\ @@ -14731,35 +15173,33 @@ If non-nil, CONTEXTUAL means that a contextual fontification would be useful. ;;;*** -;;;### (autoloads (with-auto-compression-mode auto-compression-mode) -;;;;;; "jka-compr" "jka-compr.el" (16960 18194)) +;;;### (autoloads (jka-compr-uninstall jka-compr-handler) "jka-compr" +;;;;;; "jka-compr.el" (17141 22848)) ;;; Generated autoloads from jka-compr.el -(defvar auto-compression-mode nil "\ -Non-nil if Auto-Compression mode is enabled. -See the command `auto-compression-mode' for a description of this minor-mode. -Setting this variable directly does not take effect; -use either \\[customize] or the function `auto-compression-mode'.") - -(custom-autoload (quote auto-compression-mode) "jka-compr") +(defvar jka-compr-inhibit nil "\ +Non-nil means inhibit automatic uncompression temporarily. +Lisp programs can bind this to t to do that. +It is not recommended to set this variable permanently to anything but nil.") -(autoload (quote auto-compression-mode) "jka-compr" "\ -Toggle automatic file compression and uncompression. -With prefix argument ARG, turn auto compression on if positive, else off. -Returns the new status of auto compression (non-nil means on). +(autoload (quote jka-compr-handler) "jka-compr" "\ +Not documented -\(fn &optional ARG)" t nil) +\(fn OPERATION &rest ARGS)" nil nil) -(autoload (quote with-auto-compression-mode) "jka-compr" "\ -Evalute BODY with automatic file compression and uncompression enabled. +(autoload (quote jka-compr-uninstall) "jka-compr" "\ +Uninstall jka-compr. +This removes the entries in `file-name-handler-alist' and `auto-mode-alist' +and `inhibit-first-line-modes-suffixes' that were added +by `jka-compr-installed'. -\(fn &rest BODY)" nil (quote macro)) +\(fn)" nil nil) ;;;*** ;;;### (autoloads (keypad-setup keypad-numlock-shifted-setup keypad-shifted-setup ;;;;;; keypad-numlock-setup keypad-setup) "keypad" "emulation/keypad.el" -;;;;;; (16908 33361)) +;;;;;; (17134 16203)) ;;; Generated autoloads from emulation/keypad.el (defvar keypad-setup nil "\ @@ -14815,7 +15255,7 @@ the decimal key on the keypad is mapped to DECIMAL instead of `.' ;;;*** ;;;### (autoloads (kinsoku) "kinsoku" "international/kinsoku.el" -;;;;;; (16213 43274)) +;;;;;; (17097 30250)) ;;; Generated autoloads from international/kinsoku.el (autoload (quote kinsoku) "kinsoku" "\ @@ -14836,8 +15276,8 @@ the context of text formatting. ;;;*** -;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (16213 -;;;;;; 43274)) +;;;### (autoloads (kkc-region) "kkc" "international/kkc.el" (17097 +;;;;;; 30252)) ;;; Generated autoloads from international/kkc.el (defvar kkc-after-update-conversion-functions nil "\ @@ -14862,7 +15302,7 @@ and the return value is the length of the conversion. ;;;### (autoloads (kmacro-end-call-mouse kmacro-end-and-call-macro ;;;;;; kmacro-end-or-call-macro kmacro-start-macro-or-insert-counter ;;;;;; kmacro-call-macro kmacro-end-macro kmacro-start-macro) "kmacro" -;;;;;; "kmacro.el" (16908 33360)) +;;;;;; "kmacro.el" (17141 22852)) ;;; Generated autoloads from kmacro.el (global-set-key "\C-x(" 'kmacro-start-macro) (global-set-key "\C-x)" 'kmacro-end-macro) @@ -14916,7 +15356,7 @@ A prefix argument serves as a repeat count. Zero means repeat until error. When you call the macro, you can call the macro again by repeating just the last key in the key sequence that you used to call this command. See `kmacro-call-repeat-key' and `kmacro-call-repeat-with-arg' -for details on how to adjust or disable this behaviour. +for details on how to adjust or disable this behavior. To make a macro permanent so you can call it even after defining others, use \\[kmacro-name-last-macro]. @@ -14969,7 +15409,7 @@ If kbd macro currently being defined end it before activating it. ;;;### (autoloads (kannada-post-read-conversion kannada-compose-string ;;;;;; kannada-compose-region) "knd-util" "language/knd-util.el" -;;;;;; (16303 15430)) +;;;;;; (17097 30352)) ;;; Generated autoloads from language/knd-util.el (defconst kannada-consonant "[\x51f75-\x51fb9]") @@ -14992,7 +15432,7 @@ Not documented ;;;*** ;;;### (autoloads (setup-korean-environment-internal) "korea-util" -;;;;;; "language/korea-util.el" (16213 43280)) +;;;;;; "language/korea-util.el" (17097 30352)) ;;; Generated autoloads from language/korea-util.el (defvar default-korean-keyboard (if (string-match "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) "3" "") "\ @@ -15007,7 +15447,7 @@ Not documented ;;;*** ;;;### (autoloads (lm lm-test-run) "landmark" "play/landmark.el" -;;;;;; (16478 51573)) +;;;;;; (17134 16334)) ;;; Generated autoloads from play/landmark.el (defalias (quote landmark-repeat) (quote lm-test-run)) @@ -15041,8 +15481,8 @@ Use \\[describe-mode] for more info. ;;;### (autoloads (lao-compose-region lao-composition-function lao-post-read-conversion ;;;;;; lao-transcribe-roman-to-lao-string lao-transcribe-single-roman-syllable-to-lao -;;;;;; lao-compose-string) "lao-util" "language/lao-util.el" (16213 -;;;;;; 43280)) +;;;;;; lao-compose-string) "lao-util" "language/lao-util.el" (17097 +;;;;;; 30352)) ;;; Generated autoloads from language/lao-util.el (autoload (quote lao-compose-string) "lao-util" "\ @@ -15089,8 +15529,40 @@ Not documented ;;;*** +;;;### (autoloads (latexenc-find-file-coding-system latexenc-coding-system-to-inputenc +;;;;;; latexenc-inputenc-to-coding-system latex-inputenc-coding-alist) +;;;;;; "latexenc" "international/latexenc.el" (17097 30252)) +;;; Generated autoloads from international/latexenc.el + +(defvar latex-inputenc-coding-alist (quote (("ansinew" . windows-1252) ("applemac" . mac-roman) ("ascii" . us-ascii) ("cp1250" . windows-1250) ("cp1252" . windows-1252) ("cp1257" . cp1257) ("cp437de" . cp437) ("cp437" . cp437) ("cp850" . cp850) ("cp852" . cp852) ("cp865" . cp865) ("latin1" . iso-8859-1) ("latin2" . iso-8859-2) ("latin3" . iso-8859-3) ("latin4" . iso-8859-4) ("latin5" . iso-8859-5) ("latin9" . iso-8859-15) ("next" . next) ("utf8" . utf-8) ("utf8x" . utf-8))) "\ +Mapping from encoding names used by LaTeX's \"inputenc.sty\" to Emacs coding systems. +Used by the function `latexenc-find-file-coding-system'.") + +(custom-autoload (quote latex-inputenc-coding-alist) "latexenc") + +(autoload (quote latexenc-inputenc-to-coding-system) "latexenc" "\ +Return the corresponding coding-system for the specified input encoding. +Return nil if no matching coding system can be found. + +\(fn INPUTENC)" nil nil) + +(autoload (quote latexenc-coding-system-to-inputenc) "latexenc" "\ +Return the corresponding input encoding for the specified coding system. +Return nil if no matching input encoding can be found. + +\(fn CS)" nil nil) + +(autoload (quote latexenc-find-file-coding-system) "latexenc" "\ +Determine the coding system of a LaTeX file if it uses \"inputenc.sty\". +The mapping from LaTeX's \"inputenc.sty\" encoding names to Emacs +coding system names is determined from `latex-inputenc-coding-alist'. + +\(fn ARG-LIST)" nil nil) + +;;;*** + ;;;### (autoloads (latin1-display-ucs-per-lynx latin1-display latin1-display) -;;;;;; "latin1-disp" "international/latin1-disp.el" (16908 33362)) +;;;;;; "latin1-disp" "international/latin1-disp.el" (17097 30256)) ;;; Generated autoloads from international/latin1-disp.el (defvar latin1-display nil "\ @@ -15134,8 +15606,8 @@ use either \\[customize] or the function `latin1-display'.") ;;;*** ;;;### (autoloads (turn-on-lazy-lock lazy-lock-mode) "lazy-lock" -;;;;;; "lazy-lock.el" (16213 43269)) -;;; Generated autoloads from lazy-lock.el +;;;;;; "obsolete/lazy-lock.el" (17141 78)) +;;; Generated autoloads from obsolete/lazy-lock.el (autoload (quote lazy-lock-mode) "lazy-lock" "\ Toggle Lazy Lock mode. @@ -15181,7 +15653,7 @@ When Lazy Lock mode is enabled, fontification can be lazy in a number of ways: been idle for `lazy-lock-stealth-time' seconds, while Emacs remains idle. This is useful if any buffer has any deferred fontification. -Basic Font Lock mode on-the-fly fontification behaviour fontifies modified +Basic Font Lock mode on-the-fly fontification behavior fontifies modified lines only. Thus, if `lazy-lock-defer-contextually' is non-nil, Lazy Lock mode on-the-fly fontification may fontify differently, albeit correctly. In any event, to refontify some lines you can use \\[font-lock-fontify-block]. @@ -15202,7 +15674,7 @@ Unconditionally turn on Lazy Lock mode. ;;;*** ;;;### (autoloads (ld-script-mode) "ld-script" "progmodes/ld-script.el" -;;;;;; (16239 25259)) +;;;;;; (17134 4617)) ;;; Generated autoloads from progmodes/ld-script.el (add-to-list (quote auto-mode-alist) (quote ("\\.lds" . ld-script-mode))) @@ -15215,7 +15687,7 @@ A major mode to edit GNU ld script files ;;;*** ;;;### (autoloads (ledit-from-lisp-mode ledit-mode) "ledit" "ledit.el" -;;;;;; (16213 43269)) +;;;;;; (17141 22852)) ;;; Generated autoloads from ledit.el (defconst ledit-save-files t "\ @@ -15249,7 +15721,7 @@ Not documented ;;;*** -;;;### (autoloads (life) "life" "play/life.el" (16793 54110)) +;;;### (autoloads (life) "life" "play/life.el" (17134 16334)) ;;; Generated autoloads from play/life.el (autoload (quote life) "life" "\ @@ -15262,8 +15734,8 @@ generations (this defaults to 1). ;;;*** -;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (16858 -;;;;;; 50917)) +;;;### (autoloads (unload-feature) "loadhist" "loadhist.el" (17141 +;;;;;; 22852)) ;;; Generated autoloads from loadhist.el (autoload (quote unload-feature) "loadhist" "\ @@ -15286,7 +15758,7 @@ such as redefining an Emacs function. ;;;*** ;;;### (autoloads (locate-with-filter locate locate-ls-subdir-switches) -;;;;;; "locate" "locate.el" (16908 33360)) +;;;;;; "locate" "locate.el" (17141 22855)) ;;; Generated autoloads from locate.el (defvar locate-ls-subdir-switches "-al" "\ @@ -15311,7 +15783,7 @@ shown; this is often useful to constrain a big search. ;;;*** -;;;### (autoloads (log-edit) "log-edit" "log-edit.el" (16908 33360)) +;;;### (autoloads (log-edit) "log-edit" "log-edit.el" (17141 22855)) ;;; Generated autoloads from log-edit.el (autoload (quote log-edit) "log-edit" "\ @@ -15332,8 +15804,8 @@ If BUFFER is non-nil `log-edit' will jump to that buffer, use it to edit the ;;;*** -;;;### (autoloads (log-view-mode) "log-view" "log-view.el" (16923 -;;;;;; 3606)) +;;;### (autoloads (log-view-mode) "log-view" "log-view.el" (17141 +;;;;;; 22855)) ;;; Generated autoloads from log-view.el (autoload (quote log-view-mode) "log-view" "\ @@ -15343,9 +15815,30 @@ Major mode for browsing CVS log output. ;;;*** +;;;### (autoloads (longlines-mode) "longlines" "longlines.el" (17141 +;;;;;; 22857)) +;;; Generated autoloads from longlines.el + +(autoload (quote longlines-mode) "longlines" "\ +Toggle Long Lines mode. +In Long Lines mode, long lines are wrapped if they extend beyond +`fill-column'. The soft newlines used for line wrapping will not +show up when the text is yanked or saved to disk. + +If the variable `longlines-auto-wrap' is non-nil, lines are automatically +wrapped whenever the buffer is changed. You can always call +`fill-paragraph' to fill individual paragraphs. + +If the variable `longlines-show-hard-newlines' is non-nil, hard newlines +are indicated with a symbol. + +\(fn &optional ARG)" t nil) + +;;;*** + ;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer -;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (16213 -;;;;;; 43269)) +;;;;;; lpr-command lpr-switches printer-name) "lpr" "lpr.el" (17141 +;;;;;; 22857)) ;;; Generated autoloads from lpr.el (defvar lpr-windows-system (memq system-type (quote (emx win32 w32 mswindows ms-dos windows-nt)))) @@ -15439,7 +15932,7 @@ for further customization of the printer command. ;;;*** ;;;### (autoloads (ls-lisp-support-shell-wildcards) "ls-lisp" "ls-lisp.el" -;;;;;; (16727 56921)) +;;;;;; (17141 22857)) ;;; Generated autoloads from ls-lisp.el (defvar ls-lisp-support-shell-wildcards t "\ @@ -15450,8 +15943,8 @@ Otherwise they are treated as Emacs regexps (for backward compatibility).") ;;;*** -;;;### (autoloads (phases-of-moon) "lunar" "calendar/lunar.el" (16213 -;;;;;; 43272)) +;;;### (autoloads (phases-of-moon) "lunar" "calendar/lunar.el" (17097 +;;;;;; 30010)) ;;; Generated autoloads from calendar/lunar.el (autoload (quote phases-of-moon) "lunar" "\ @@ -15464,8 +15957,8 @@ This function is suitable for execution in a .emacs file. ;;;*** -;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (16213 -;;;;;; 43282)) +;;;### (autoloads (m4-mode) "m4-mode" "progmodes/m4-mode.el" (17134 +;;;;;; 4617)) ;;; Generated autoloads from progmodes/m4-mode.el (autoload (quote m4-mode) "m4-mode" "\ @@ -15477,7 +15970,7 @@ A major mode to edit m4 macro files. ;;;*** ;;;### (autoloads (macroexpand-all) "macroexp" "emacs-lisp/macroexp.el" -;;;;;; (16424 14687)) +;;;;;; (17141 33)) ;;; Generated autoloads from emacs-lisp/macroexp.el (autoload (quote macroexpand-all) "macroexp" "\ @@ -15491,7 +15984,7 @@ definitions to shadow the loaded ones for use in file byte-compilation. ;;;*** ;;;### (autoloads (apply-macro-to-region-lines kbd-macro-query insert-kbd-macro -;;;;;; name-last-kbd-macro) "macros" "macros.el" (16810 63790)) +;;;;;; name-last-kbd-macro) "macros" "macros.el" (17141 22860)) ;;; Generated autoloads from macros.el (autoload (quote name-last-kbd-macro) "macros" "\ @@ -15580,7 +16073,7 @@ and then select the region of un-tablified names and use ;;;*** ;;;### (autoloads (what-domain mail-extract-address-components) "mail-extr" -;;;;;; "mail/mail-extr.el" (16908 33362)) +;;;;;; "mail/mail-extr.el" (17141 4120)) ;;; Generated autoloads from mail/mail-extr.el (autoload (quote mail-extract-address-components) "mail-extr" "\ @@ -15611,7 +16104,7 @@ Convert mail domain DOMAIN to the country it corresponds to. ;;;### (autoloads (mail-hist-put-headers-into-history mail-hist-keep-history ;;;;;; mail-hist-enable mail-hist-define-keys) "mail-hist" "mail/mail-hist.el" -;;;;;; (16213 43280)) +;;;;;; (17141 4121)) ;;; Generated autoloads from mail/mail-hist.el (autoload (quote mail-hist-define-keys) "mail-hist" "\ @@ -15642,8 +16135,8 @@ This function normally would be called when the message is sent. ;;;### (autoloads (mail-fetch-field mail-unquote-printable-region ;;;;;; mail-unquote-printable mail-quote-printable mail-file-babyl-p -;;;;;; mail-use-rfc822) "mail-utils" "mail/mail-utils.el" (16456 -;;;;;; 21757)) +;;;;;; mail-use-rfc822) "mail-utils" "mail/mail-utils.el" (17141 +;;;;;; 4123)) ;;; Generated autoloads from mail/mail-utils.el (defvar mail-use-rfc822 nil "\ @@ -15695,7 +16188,7 @@ If 4th arg LIST is non-nil, return a list of all such fields. ;;;*** ;;;### (autoloads (define-mail-abbrev build-mail-abbrevs mail-abbrevs-setup) -;;;;;; "mailabbrev" "mail/mailabbrev.el" (16858 50930)) +;;;;;; "mailabbrev" "mail/mailabbrev.el" (17141 4124)) ;;; Generated autoloads from mail/mailabbrev.el (autoload (quote mail-abbrevs-setup) "mailabbrev" "\ @@ -15718,8 +16211,8 @@ If DEFINITION contains multiple addresses, separate them with commas. ;;;*** ;;;### (autoloads (mail-complete define-mail-alias expand-mail-aliases -;;;;;; mail-complete-style) "mailalias" "mail/mailalias.el" (16213 -;;;;;; 43280)) +;;;;;; mail-complete-style) "mailalias" "mail/mailalias.el" (17141 +;;;;;; 4125)) ;;; Generated autoloads from mail/mailalias.el (defvar mail-complete-style (quote angles) "\ @@ -15764,13 +16257,25 @@ current header, calls `mail-complete-function' and passes prefix arg if any. ;;;*** -;;;### (autoloads (makefile-mode) "make-mode" "progmodes/make-mode.el" -;;;;;; (16719 60888)) +;;;### (autoloads (makefile-bsdmake-mode makefile-makepp-mode makefile-gmake-mode +;;;;;; makefile-automake-mode makefile-mode) "make-mode" "progmodes/make-mode.el" +;;;;;; (17134 4623)) ;;; Generated autoloads from progmodes/make-mode.el (autoload (quote makefile-mode) "make-mode" "\ -Major mode for editing Makefiles. -This function ends by invoking the function(s) `makefile-mode-hook'. +Major mode for editing standard Makefiles. + +If you are editing a file for a different make, try one of the +variants `makefile-automake-mode', `makefile-gmake-mode', +`makefile-makepp-mode' or `makefile-bsdmake-mode'. All but the +last should be correctly chosen based on the file name, except if +it is *.mk. This function ends by invoking the function(s) +`makefile-mode-hook'. + +It is strongly recommended to use `font-lock-mode', because that +provides additional parsing information. This is used for +example to see that a rule action `echo foo: bar' is a not rule +dependency, despite the colon. \\{makefile-mode-map} @@ -15844,10 +16349,30 @@ Makefile mode can be configured by modifying the following variables: \(fn)" t nil) +(autoload (quote makefile-automake-mode) "make-mode" "\ +An adapted `makefile-mode' that knows about automake. + +\(fn)" t nil) + +(autoload (quote makefile-gmake-mode) "make-mode" "\ +An adapted `makefile-mode' that knows about gmake. + +\(fn)" t nil) + +(autoload (quote makefile-makepp-mode) "make-mode" "\ +An adapted `makefile-mode' that knows about makepp. + +\(fn)" t nil) + +(autoload (quote makefile-bsdmake-mode) "make-mode" "\ +An adapted `makefile-mode' that knows about BSD make. + +\(fn)" t nil) + ;;;*** -;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (16213 -;;;;;; 43269)) +;;;### (autoloads (make-command-summary) "makesum" "makesum.el" (17141 +;;;;;; 22860)) ;;; Generated autoloads from makesum.el (autoload (quote make-command-summary) "makesum" "\ @@ -15858,7 +16383,7 @@ Previous contents of that buffer are killed first. ;;;*** -;;;### (autoloads (man-follow man) "man" "man.el" (16958 58756)) +;;;### (autoloads (man-follow man) "man" "man.el" (17141 22861)) ;;; Generated autoloads from man.el (defalias (quote manual-entry) (quote man)) @@ -15885,7 +16410,7 @@ Get a Un*x manual page of the item under point and put it in a buffer. ;;;*** -;;;### (autoloads (master-mode) "master" "master.el" (16213 43269)) +;;;### (autoloads (master-mode) "master" "master.el" (17141 22861)) ;;; Generated autoloads from master.el (autoload (quote master-mode) "master" "\ @@ -15907,8 +16432,8 @@ yourself the value of `master-of' by calling `master-show-slave'. ;;;*** -;;;### (autoloads (menu-bar-mode) "menu-bar" "menu-bar.el" (16939 -;;;;;; 44104)) +;;;### (autoloads (menu-bar-mode) "menu-bar" "menu-bar.el" (17146 +;;;;;; 18389)) ;;; Generated autoloads from menu-bar.el (put (quote menu-bar-mode) (quote standard-value) (quote (t))) @@ -15921,6 +16446,8 @@ use either \\[customize] or the function `menu-bar-mode'.") (custom-autoload (quote menu-bar-mode) "menu-bar") +(put (quote menu-bar-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote menu-bar-mode) "menu-bar" "\ Toggle display of a menu bar on each frame. This command applies to all frames that exist and frames to be @@ -15945,7 +16472,7 @@ turn on menu bars; otherwise, turn off menu bars. ;;;;;; message-signature message-indent-citation-function message-cite-function ;;;;;; message-yank-prefix message-citation-line-function message-send-mail-function ;;;;;; message-user-organization-file message-signature-separator -;;;;;; message-from-style) "message" "gnus/message.el" (16953 20625)) +;;;;;; message-from-style) "message" "gnus/message.el" (17142 44975)) ;;; Generated autoloads from gnus/message.el (defvar message-from-style (quote default) "\ @@ -16251,7 +16778,7 @@ which specify the range to operate on. ;;;*** ;;;### (autoloads (metapost-mode metafont-mode) "meta-mode" "progmodes/meta-mode.el" -;;;;;; (16923 3630)) +;;;;;; (17134 4623)) ;;; Generated autoloads from progmodes/meta-mode.el (autoload (quote metafont-mode) "meta-mode" "\ @@ -16278,7 +16805,7 @@ Turning on MetaPost mode calls the value of the variable ;;;### (autoloads (metamail-region metamail-buffer metamail-interpret-body ;;;;;; metamail-interpret-header) "metamail" "mail/metamail.el" -;;;;;; (16507 41097)) +;;;;;; (17141 4126)) ;;; Generated autoloads from mail/metamail.el (autoload (quote metamail-interpret-header) "metamail" "\ @@ -16322,8 +16849,8 @@ redisplayed as output is inserted. ;;;*** ;;;### (autoloads (mh-letter-mode mh-smail-other-window mh-user-agent-compose -;;;;;; mh-smail-batch mh-smail) "mh-comp" "mh-e/mh-comp.el" (16684 -;;;;;; 26435)) +;;;;;; mh-smail-batch mh-smail) "mh-comp" "mh-e/mh-comp.el" (17097 +;;;;;; 30407)) ;;; Generated autoloads from mh-e/mh-comp.el (autoload (quote mh-smail) "mh-comp" "\ @@ -16394,12 +16921,11 @@ When a message is composed, the hooks `text-mode-hook' and \\{mh-letter-mode-map} \(fn)" t nil) -(add-to-list 'auto-mode-alist '("/drafts/[0-9]+\\'" . mh-letter-mode)) ;;;*** -;;;### (autoloads (mh-restore-desktop-buffer mh-version mh-nmail -;;;;;; mh-rmail) "mh-e" "mh-e/mh-e.el" (16684 26435)) +;;;### (autoloads (mh-folder-mode mh-version mh-nmail mh-rmail) "mh-e" +;;;;;; "mh-e/mh-e.el" (17146 26082)) ;;; Generated autoloads from mh-e/mh-e.el (autoload (quote mh-rmail) "mh-e" "\ @@ -16421,18 +16947,63 @@ Display version information about MH-E and the MH mail handling system. \(fn)" t nil) -(autoload (quote mh-restore-desktop-buffer) "mh-e" "\ -Restore an MH folder buffer specified in a desktop file. -When desktop creates a buffer, DESKTOP-BUFFER-FILE-NAME holds the file name to -visit, DESKTOP-BUFFER-NAME holds the desired buffer name, and -DESKTOP-BUFFER-MISC holds a list of miscellaneous info used by the -`desktop-buffer-handlers' functions. +(autoload (quote mh-folder-mode) "mh-e" "\ +Major MH-E mode for \"editing\" an MH folder scan listing.\\<mh-folder-mode-map> + +You can show the message the cursor is pointing to, and step through the +messages. Messages can be marked for deletion or refiling into another +folder; these commands are executed all at once with a separate command. + +Options that control this mode can be changed with \\[customize-group]; +specify the \"mh\" group. In particular, please see the `mh-scan-format-file' +option if you wish to modify scan's format. + +When a folder is visited, the hook `mh-folder-mode-hook' is run. + +Ranges +====== +Many commands that operate on individual messages, such as `mh-forward' or +`mh-refile-msg' take a RANGE argument. This argument can be used in several +ways. -\(fn DESKTOP-BUFFER-FILE-NAME DESKTOP-BUFFER-NAME DESKTOP-BUFFER-MISC)" nil nil) +If you provide the prefix argument (\\[universal-argument]) to these commands, +then you will be prompted for the message range. This can be any valid MH +range which can include messages, sequences, and the abbreviations (described +in the mh(1) man page): + +<num1>-<num2> + Indicates all messages in the range <num1> to <num2>, inclusive. The range + must be nonempty. + +`<num>:N' +`<num>:+N' +`<num>:-N' + Up to N messages beginning with (or ending with) message num. Num may be + any of the pre-defined symbols: first, prev, cur, next or last. + +`first:N' +`prev:N' +`next:N' +`last:N' + The first, previous, next or last messages, if they exist. + +`all' + All of the messages. + +For example, a range that shows all of these things is `1 2 3 5-10 last:5 +unseen'. + +If the option `transient-mark-mode' is set to t and you set a region in the +MH-Folder buffer, then the MH-E command will perform the operation on all +messages in that region. + +\\{mh-folder-mode-map} + +\(fn)" t nil) ;;;*** -;;;### (autoloads nil "mh-init" "mh-e/mh-init.el" (16684 26435)) +;;;### (autoloads nil "mh-init" "mh-e/mh-init.el" (17097 30424)) ;;; Generated autoloads from mh-e/mh-init.el (put (quote mh-progs) (quote risky-local-variable) t) @@ -16444,7 +17015,7 @@ DESKTOP-BUFFER-MISC holds a list of miscellaneous info used by the ;;;*** ;;;### (autoloads (midnight-delay-set clean-buffer-list) "midnight" -;;;;;; "midnight.el" (16423 23568)) +;;;;;; "midnight.el" (17141 22866)) ;;; Generated autoloads from midnight.el (autoload (quote clean-buffer-list) "midnight" "\ @@ -16471,7 +17042,7 @@ to its second argument TM. ;;;*** ;;;### (autoloads (minibuffer-electric-default-mode) "minibuf-eldef" -;;;;;; "minibuf-eldef.el" (16575 1356)) +;;;;;; "minibuf-eldef.el" (17141 22866)) ;;; Generated autoloads from minibuf-eldef.el (defvar minibuffer-electric-default-mode nil "\ @@ -16482,6 +17053,8 @@ use either \\[customize] or the function `minibuffer-electric-default-mode'.") (custom-autoload (quote minibuffer-electric-default-mode) "minibuf-eldef") +(put (quote minibuffer-electric-default-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote minibuffer-electric-default-mode) "minibuf-eldef" "\ Toggle Minibuffer Electric Default mode. When active, minibuffer prompts that show a default value only show the @@ -16498,7 +17071,7 @@ Returns non-nil if the new state is enabled. ;;;*** ;;;### (autoloads (mixal-mode) "mixal-mode" "progmodes/mixal-mode.el" -;;;;;; (16858 50936)) +;;;;;; (17134 4626)) ;;; Generated autoloads from progmodes/mixal-mode.el (autoload (quote mixal-mode) "mixal-mode" "\ @@ -16513,7 +17086,7 @@ Major mode for the mixal asm language. ;;;### (autoloads (malayalam-composition-function malayalam-post-read-conversion ;;;;;; malayalam-compose-region) "mlm-util" "language/mlm-util.el" -;;;;;; (16233 29568)) +;;;;;; (17097 30355)) ;;; Generated autoloads from language/mlm-util.el (autoload (quote malayalam-compose-region) "mlm-util" "\ @@ -16528,7 +17101,7 @@ Not documented (autoload (quote malayalam-composition-function) "mlm-util" "\ Compose Malayalam characters in REGION, or STRING if specified. -Assume that the REGION or STRING must fully match the composable +Assume that the REGION or STRING must fully match the composable PATTERN regexp. \(fn FROM TO PATTERN &optional STRING)" nil nil) @@ -16536,7 +17109,7 @@ PATTERN regexp. ;;;*** ;;;### (autoloads (mm-inline-external-body) "mm-extern" "gnus/mm-extern.el" -;;;;;; (16697 49031)) +;;;;;; (17141 6779)) ;;; Generated autoloads from gnus/mm-extern.el (autoload (quote mm-inline-external-body) "mm-extern" "\ @@ -16550,7 +17123,7 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing. ;;;*** ;;;### (autoloads (mm-inline-partial) "mm-partial" "gnus/mm-partial.el" -;;;;;; (16698 21928)) +;;;;;; (17141 6779)) ;;; Generated autoloads from gnus/mm-partial.el (autoload (quote mm-inline-partial) "mm-partial" "\ @@ -16564,7 +17137,7 @@ If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing. ;;;*** ;;;### (autoloads (mm-url-insert-file-contents-external mm-url-insert-file-contents) -;;;;;; "mm-url" "gnus/mm-url.el" (16954 46150)) +;;;;;; "mm-url" "gnus/mm-url.el" (17141 6779)) ;;; Generated autoloads from gnus/mm-url.el (autoload (quote mm-url-insert-file-contents) "mm-url" "\ @@ -16580,8 +17153,8 @@ Insert file contents of URL using `mm-url-program'. ;;;*** -;;;### (autoloads (mm-uu-dissect) "mm-uu" "gnus/mm-uu.el" (16908 -;;;;;; 33361)) +;;;### (autoloads (mm-uu-dissect) "mm-uu" "gnus/mm-uu.el" (17141 +;;;;;; 6782)) ;;; Generated autoloads from gnus/mm-uu.el (autoload (quote mm-uu-dissect) "mm-uu" "\ @@ -16592,7 +17165,7 @@ Dissect the current buffer and return a list of uu handles. ;;;*** ;;;### (autoloads (mml1991-sign mml1991-encrypt) "mml1991" "gnus/mml1991.el" -;;;;;; (16697 49031)) +;;;;;; (17141 6788)) ;;; Generated autoloads from gnus/mml1991.el (autoload (quote mml1991-encrypt) "mml1991" "\ @@ -16609,7 +17182,7 @@ Not documented ;;;### (autoloads (mml2015-self-encrypt mml2015-sign mml2015-encrypt ;;;;;; mml2015-verify-test mml2015-verify mml2015-decrypt-test mml2015-decrypt) -;;;;;; "mml2015" "gnus/mml2015.el" (16908 33361)) +;;;;;; "mml2015" "gnus/mml2015.el" (17142 44976)) ;;; Generated autoloads from gnus/mml2015.el (autoload (quote mml2015-decrypt) "mml2015" "\ @@ -16650,7 +17223,7 @@ Not documented ;;;*** ;;;### (autoloads (modula-2-mode) "modula2" "progmodes/modula2.el" -;;;;;; (16858 50936)) +;;;;;; (17073 44110)) ;;; Generated autoloads from progmodes/modula2.el (autoload (quote modula-2-mode) "modula2" "\ @@ -16682,7 +17255,7 @@ followed by the first character of the construct. ;;;*** ;;;### (autoloads (unmorse-region morse-region) "morse" "play/morse.el" -;;;;;; (16442 4954)) +;;;;;; (17134 16334)) ;;; Generated autoloads from play/morse.el (autoload (quote morse-region) "morse" "\ @@ -16697,8 +17270,8 @@ Convert morse coded text in region to ordinary ASCII text. ;;;*** -;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (16770 -;;;;;; 10720)) +;;;### (autoloads (mouse-sel-mode) "mouse-sel" "mouse-sel.el" (17141 +;;;;;; 22869)) ;;; Generated autoloads from mouse-sel.el (defvar mouse-sel-mode nil "\ @@ -16709,6 +17282,8 @@ use either \\[customize] or the function `mouse-sel-mode'.") (custom-autoload (quote mouse-sel-mode) "mouse-sel") +(put (quote mouse-sel-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote mouse-sel-mode) "mouse-sel" "\ Toggle Mouse Sel mode. With prefix ARG, turn Mouse Sel mode on if and only if ARG is positive. @@ -16749,7 +17324,7 @@ primary selection and region. ;;;*** -;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (16213 43281)) +;;;### (autoloads (mpuz) "mpuz" "play/mpuz.el" (17134 16334)) ;;; Generated autoloads from play/mpuz.el (autoload (quote mpuz) "mpuz" "\ @@ -16759,7 +17334,7 @@ Multiplication puzzle with GNU Emacs. ;;;*** -;;;### (autoloads (msb-mode) "msb" "msb.el" (16764 51518)) +;;;### (autoloads (msb-mode) "msb" "msb.el" (17141 22875)) ;;; Generated autoloads from msb.el (defvar msb-mode nil "\ @@ -16770,6 +17345,8 @@ use either \\[customize] or the function `msb-mode'.") (custom-autoload (quote msb-mode) "msb") +(put (quote msb-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote msb-mode) "msb" "\ Toggle Msb mode. With arg, turn Msb mode on if and only if arg is positive. @@ -16785,7 +17362,7 @@ different buffer menu using the function `msb'. ;;;;;; describe-current-coding-system describe-current-coding-system-briefly ;;;;;; describe-coding-system describe-character-set list-charset-chars ;;;;;; read-charset list-character-sets) "mule-diag" "international/mule-diag.el" -;;;;;; (16515 33869)) +;;;;;; (17097 30270)) ;;; Generated autoloads from international/mule-diag.el (defvar non-iso-charset-alist (\` ((mac-roman (ascii latin-iso8859-1 mule-unicode-2500-33ff mule-unicode-0100-24ff mule-unicode-e000-ffff) mac-roman-decoder ((0 255))) (viscii (ascii vietnamese-viscii-lower vietnamese-viscii-upper) viet-viscii-nonascii-translation-table ((0 255))) (vietnamese-tcvn (ascii vietnamese-viscii-lower vietnamese-viscii-upper) viet-tcvn-nonascii-translation-table ((0 255))) (koi8-r (ascii cyrillic-iso8859-5) cyrillic-koi8-r-nonascii-translation-table ((32 255))) (alternativnyj (ascii cyrillic-iso8859-5) cyrillic-alternativnyj-nonascii-translation-table ((32 255))) (koi8-u (ascii cyrillic-iso8859-5 mule-unicode-0100-24ff) cyrillic-koi8-u-nonascii-translation-table ((32 255))) (big5 (ascii chinese-big5-1 chinese-big5-2) decode-big5-char ((32 127) ((161 254) 64 126 161 254))) (sjis (ascii katakana-jisx0201 japanese-jisx0208) decode-sjis-char ((32 127 161 223) ((129 159 224 239) 64 126 128 252))))) "\ @@ -16958,7 +17535,7 @@ system which uses fontsets). ;;;;;; coding-system-translation-table-for-decode coding-system-pre-write-conversion ;;;;;; coding-system-post-read-conversion lookup-nested-alist set-nested-alist ;;;;;; truncate-string-to-width store-substring string-to-sequence) -;;;;;; "mule-util" "international/mule-util.el" (16908 33362)) +;;;;;; "mule-util" "international/mule-util.el" (17097 30270)) ;;; Generated autoloads from international/mule-util.el (autoload (quote string-to-sequence) "mule-util" "\ @@ -17006,10 +17583,6 @@ defaults to \"...\". \(fn STR END-COLUMN &optional START-COLUMN PADDING ELLIPSIS)" nil nil) -(defalias (quote truncate-string) (quote truncate-string-to-width)) - -(make-obsolete (quote truncate-string) (quote truncate-string-to-width) "20.1") - (defsubst nested-alist-p (obj) "\ Return t if OBJ is a nested alist. @@ -17091,7 +17664,7 @@ basis, this may not be accurate. ;;;*** ;;;### (autoloads (mwheel-install mouse-wheel-mode) "mwheel" "mwheel.el" -;;;;;; (16788 34909)) +;;;;;; (17141 22878)) ;;; Generated autoloads from mwheel.el (defvar mouse-wheel-mode nil "\ @@ -17102,6 +17675,8 @@ use either \\[customize] or the function `mouse-wheel-mode'.") (custom-autoload (quote mouse-wheel-mode) "mwheel") +(put (quote mouse-wheel-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote mouse-wheel-mode) "mwheel" "\ Toggle mouse wheel support. With prefix argument ARG, turn on if positive, otherwise off. @@ -17117,9 +17692,9 @@ Enable mouse wheel support. ;;;*** ;;;### (autoloads (network-connection network-connection-to-service -;;;;;; whois-reverse-lookup whois finger ftp dig dns-lookup-host +;;;;;; whois-reverse-lookup whois finger ftp run-dig dns-lookup-host ;;;;;; nslookup nslookup-host route arp netstat ipconfig ping traceroute) -;;;;;; "net-utils" "net/net-utils.el" (16719 60888)) +;;;;;; "net-utils" "net/net-utils.el" (17144 6947)) ;;; Generated autoloads from net/net-utils.el (autoload (quote traceroute) "net-utils" "\ @@ -17171,7 +17746,7 @@ Lookup the DNS information for HOST (name or IP address). \(fn HOST)" t nil) -(autoload (quote dig) "net-utils" "\ +(autoload (quote run-dig) "net-utils" "\ Run dig program. \(fn HOST)" t nil) @@ -17215,7 +17790,7 @@ Open a network connection to HOST on PORT. ;;;;;; comment-kill comment-set-column comment-indent comment-indent-default ;;;;;; comment-normalize-vars comment-multi-line comment-padding ;;;;;; comment-style comment-column) "newcomment" "newcomment.el" -;;;;;; (16764 51518)) +;;;;;; (17145 6052)) ;;; Generated autoloads from newcomment.el (defalias (quote indent-for-comment) (quote comment-indent)) @@ -17397,7 +17972,7 @@ unless optional argument SOFT is non-nil. ;;;*** ;;;### (autoloads (nndiary-generate-nov-databases) "nndiary" "gnus/nndiary.el" -;;;;;; (16908 33361)) +;;;;;; (17141 6794)) ;;; Generated autoloads from gnus/nndiary.el (autoload (quote nndiary-generate-nov-databases) "nndiary" "\ @@ -17407,8 +17982,8 @@ Generate NOV databases in all nndiary directories. ;;;*** -;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (16698 -;;;;;; 21928)) +;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el" (17141 +;;;;;; 6794)) ;;; Generated autoloads from gnus/nndoc.el (autoload (quote nndoc-add-type) "nndoc" "\ @@ -17423,7 +17998,7 @@ symbol in the alist. ;;;*** ;;;### (autoloads (nnfolder-generate-active-file) "nnfolder" "gnus/nnfolder.el" -;;;;;; (16927 494)) +;;;;;; (17141 6800)) ;;; Generated autoloads from gnus/nnfolder.el (autoload (quote nnfolder-generate-active-file) "nnfolder" "\ @@ -17435,7 +18010,7 @@ This command does not work if you use short group names. ;;;*** ;;;### (autoloads (nnkiboze-generate-groups) "nnkiboze" "gnus/nnkiboze.el" -;;;;;; (16698 21928)) +;;;;;; (17141 6805)) ;;; Generated autoloads from gnus/nnkiboze.el (autoload (quote nnkiboze-generate-groups) "nnkiboze" "\ @@ -17447,7 +18022,7 @@ Finds out what articles are to be part of the nnkiboze groups. ;;;*** ;;;### (autoloads (nnml-generate-nov-databases) "nnml" "gnus/nnml.el" -;;;;;; (16792 36614)) +;;;;;; (17141 6814)) ;;; Generated autoloads from gnus/nnml.el (autoload (quote nnml-generate-nov-databases) "nnml" "\ @@ -17458,7 +18033,7 @@ Generate NOV databases in all nnml directories. ;;;*** ;;;### (autoloads (nnsoup-revert-variables nnsoup-set-variables nnsoup-pack-replies) -;;;;;; "nnsoup" "gnus/nnsoup.el" (16698 21929)) +;;;;;; "nnsoup" "gnus/nnsoup.el" (17141 6817)) ;;; Generated autoloads from gnus/nnsoup.el (autoload (quote nnsoup-pack-replies) "nnsoup" "\ @@ -17479,15 +18054,14 @@ Revert posting and mailing methods to the standard Emacs methods. ;;;*** ;;;### (autoloads (disable-command enable-command disabled-command-function) -;;;;;; "novice" "novice.el" (16939 44104)) +;;;;;; "novice" "novice.el" (17141 22879)) ;;; Generated autoloads from novice.el (defvar disabled-command-function (quote disabled-command-function) "\ Function to call to handle disabled commands. If nil, the feature is disabled, i.e., all commands work normally.") -(defvaralias (quote disabled-command-hook) (quote disabled-command-function)) - (make-obsolete-variable 'disabled-command-hook 'disabled-command-function "22.1") +(define-obsolete-variable-alias (quote disabled-command-hook) (quote disabled-command-function) "22.1") (autoload (quote disabled-command-function) "novice" "\ Not documented @@ -17513,7 +18087,7 @@ to future sessions. ;;;*** ;;;### (autoloads (nroff-mode) "nroff-mode" "textmodes/nroff-mode.el" -;;;;;; (16213 43283)) +;;;;;; (17141 135)) ;;; Generated autoloads from textmodes/nroff-mode.el (autoload (quote nroff-mode) "nroff-mode" "\ @@ -17528,7 +18102,7 @@ closing requests for requests that are used in matched pairs. ;;;*** ;;;### (autoloads (octave-help) "octave-hlp" "progmodes/octave-hlp.el" -;;;;;; (16213 43282)) +;;;;;; (17134 4626)) ;;; Generated autoloads from progmodes/octave-hlp.el (autoload (quote octave-help) "octave-hlp" "\ @@ -17542,7 +18116,7 @@ If KEY is not a string, prompt for it with completion. ;;;*** ;;;### (autoloads (inferior-octave) "octave-inf" "progmodes/octave-inf.el" -;;;;;; (16288 58564)) +;;;;;; (17134 4626)) ;;; Generated autoloads from progmodes/octave-inf.el (autoload (quote inferior-octave) "octave-inf" "\ @@ -17565,7 +18139,7 @@ startup file, `~/.emacs-octave'. ;;;*** ;;;### (autoloads (octave-mode) "octave-mod" "progmodes/octave-mod.el" -;;;;;; (16284 63121)) +;;;;;; (17134 4632)) ;;; Generated autoloads from progmodes/octave-mod.el (autoload (quote octave-mode) "octave-mod" "\ @@ -17664,7 +18238,7 @@ including a reproducible test case and send the message. ;;;*** ;;;### (autoloads (edit-options list-options) "options" "obsolete/options.el" -;;;;;; (16213 43281)) +;;;;;; (17141 82)) ;;; Generated autoloads from obsolete/options.el (autoload (quote list-options) "options" "\ @@ -17687,12 +18261,12 @@ The Custom feature is intended to make this obsolete. ;;;### (autoloads (orgtbl-mode turn-on-orgtbl org-remember-handler ;;;;;; org-remember-annotation org-store-link org-diary org-agenda -;;;;;; org-agenda-mode org-mode) "org" "textmodes/org.el" (16876 -;;;;;; 58220)) +;;;;;; org-agenda-mode org-mode) "org" "textmodes/org.el" (17141 +;;;;;; 159)) ;;; Generated autoloads from textmodes/org.el (autoload (quote org-mode) "org" "\ -Outline-based notes management and organizer, alias +Outline-based notes management and organizer, alias \"Carstens outline-mode for keeping track of everything.\" Org-mode develops organizational tasks around a NOTES file which @@ -17704,13 +18278,13 @@ calendar. Tables are easily created with a built-in table editor. Plain text URL-like links connect to websites, emails (VM), Usenet messages (Gnus), BBDB entries, and any files related to the project. For printing and sharing of notes, an Org-mode file (or a part of it) -can be exported as a well-structured ASCII or HTML file. +can be exported as a structured ASCII or HTML file. The following commands are available: \\{org-mode-map} -\(fn &optional ARG)" t nil) +\(fn)" t nil) (autoload (quote org-agenda-mode) "org" "\ Mode for time-sorted view on action items in Org-mode files. @@ -17725,7 +18299,7 @@ The following commands are available: Produce a weekly view from all files in variable `org-agenda-files'. The view will be for the current week, but from the overview buffer you will be able to go to other weeks. -With one C-u prefix argument INCLUDE-ALL, all unfinished TODO items will +With one \\[universal-argument] prefix argument INCLUDE-ALL, all unfinished TODO items will also be shown, under the current date. START-DAY defaults to TODAY, or to the most recent match for the weekday given in `org-agenda-start-on-weekday'. @@ -17734,29 +18308,29 @@ NDAYS defaults to `org-agenda-ndays'. \(fn &optional INCLUDE-ALL START-DAY NDAYS)" t nil) (autoload (quote org-diary) "org" "\ -Returns diary information from org-files. -This function can be used in an \"sexp\" diary entry in the Emacs calendar. +Return diary information from org-files. +This function can be used in a \"sexp\" diary entry in the Emacs calendar. It accesses org files and extracts information from those files to be listed in the diary. The function accepts arguments specifying what items should be listed. The following arguments are allowed: :timestamp List the headlines of items containing a date stamp or - date range matching the selected date. Deadlines will - also be listed, on the expiration day. + date range matching the selected date. Deadlines will + also be listed, on the expiration day. :deadline List any deadlines past due, or due within - `org-deadline-warning-days'. The listing occurs only - in the diary for *today*, not at any other date. If - an entry is marked DONE, it is no longer listed. + `org-deadline-warning-days'. The listing occurs only + in the diary for *today*, not at any other date. If + an entry is marked DONE, it is no longer listed. :scheduled List all items which are scheduled for the given date. - The diary for *today* also contains items which were - scheduled earlier and are not yet marked DONE. + The diary for *today* also contains items which were + scheduled earlier and are not yet marked DONE. :todo List all TODO items from the org-file. This may be a - long list - so this is not turned on by default. - Like deadlines, these entires only show up in the - diary for *today*, not at any other date. + long list - so this is not turned on by default. + Like deadlines, these entries only show up in the + diary for *today*, not at any other date. The call in the diary file should look like this: @@ -17812,7 +18386,7 @@ Key Cursor position Note gets inserted RET buffer-start as level 2 heading at end of file RET on headline as sublevel of the heading at cursor RET no heading at cursor position, level taken from context. - Or use prefix arg to specify level manually. + Or use prefix arg to specify level manually. <left> on headline as same level, before current heading <right> on headline as same level, after current heading @@ -17834,19 +18408,19 @@ See also the variable `org-reverse-note-order'. \(fn)" nil nil) (autoload (quote turn-on-orgtbl) "org" "\ -Unconditionally turn on orgtbl-mode. +Unconditionally turn on `orgtbl-mode'. \(fn)" nil nil) (autoload (quote orgtbl-mode) "org" "\ -The org-mode table editor as a minor mode for use in other modes. +The `org-mode' table editor as a minor mode for use in other modes. \(fn &optional ARG)" t nil) ;;;*** ;;;### (autoloads (outline-minor-mode outline-mode) "outline" "outline.el" -;;;;;; (16780 55376)) +;;;;;; (17141 22882)) ;;; Generated autoloads from outline.el (autoload (quote outline-mode) "outline" "\ @@ -17901,7 +18475,7 @@ See the command `outline-mode' for more information on this mode. ;;;*** -;;;### (autoloads (show-paren-mode) "paren" "paren.el" (16821 35887)) +;;;### (autoloads (show-paren-mode) "paren" "paren.el" (17141 22882)) ;;; Generated autoloads from paren.el (defvar show-paren-mode nil "\ @@ -17912,6 +18486,8 @@ use either \\[customize] or the function `show-paren-mode'.") (custom-autoload (quote show-paren-mode) "paren") +(put (quote show-paren-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote show-paren-mode) "paren" "\ Toggle Show Paren mode. With prefix ARG, turn Show Paren mode on if and only if ARG is positive. @@ -17925,7 +18501,7 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time. ;;;*** ;;;### (autoloads (parse-time-string) "parse-time" "calendar/parse-time.el" -;;;;;; (16243 62806)) +;;;;;; (17097 30010)) ;;; Generated autoloads from calendar/parse-time.el (autoload (quote parse-time-string) "parse-time" "\ @@ -17937,8 +18513,8 @@ unknown are returned as nil. ;;;*** -;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (16213 -;;;;;; 43282)) +;;;### (autoloads (pascal-mode) "pascal" "progmodes/pascal.el" (17134 +;;;;;; 4635)) ;;; Generated autoloads from progmodes/pascal.el (autoload (quote pascal-mode) "pascal" "\ @@ -17991,7 +18567,7 @@ no args, if that value is non-nil. ;;;*** ;;;### (autoloads (pc-bindings-mode) "pc-mode" "emulation/pc-mode.el" -;;;;;; (16213 43273)) +;;;;;; (17134 16203)) ;;; Generated autoloads from emulation/pc-mode.el (autoload (quote pc-bindings-mode) "pc-mode" "\ @@ -18009,7 +18585,7 @@ C-Escape does list-buffers. ;;;*** ;;;### (autoloads (pc-selection-mode pc-selection-mode) "pc-select" -;;;;;; "emulation/pc-select.el" (16589 26258)) +;;;;;; "emulation/pc-select.el" (17134 16203)) ;;; Generated autoloads from emulation/pc-select.el (defvar pc-selection-mode nil "\ @@ -18020,8 +18596,10 @@ use either \\[customize] or the function `pc-selection-mode'.") (custom-autoload (quote pc-selection-mode) "pc-select") +(put (quote pc-selection-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote pc-selection-mode) "pc-select" "\ -Change mark behaviour to emulate Motif, MAC or MS-Windows cut and paste style. +Change mark behavior to emulate Motif, MAC or MS-Windows cut and paste style. This mode enables Delete Selection mode and Transient Mark mode. @@ -18074,7 +18652,7 @@ but before calling PC Selection mode): (defvar pc-selection-mode nil "\ Toggle PC Selection mode. -Change mark behaviour to emulate Motif, MAC or MS-Windows cut and paste style, +Change mark behavior to emulate Motif, MAC or MS-Windows cut and paste style, and cursor movement commands. This mode enables Delete Selection mode and Transient Mark mode. Setting this variable directly does not take effect; @@ -18084,8 +18662,8 @@ you must modify it using \\[customize] or \\[pc-selection-mode].") ;;;*** -;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (16213 -;;;;;; 43269)) +;;;### (autoloads (pcomplete/cvs) "pcmpl-cvs" "pcmpl-cvs.el" (17141 +;;;;;; 22882)) ;;; Generated autoloads from pcmpl-cvs.el (autoload (quote pcomplete/cvs) "pcmpl-cvs" "\ @@ -18096,7 +18674,7 @@ Completion rules for the `cvs' command. ;;;*** ;;;### (autoloads (pcomplete/tar pcomplete/make pcomplete/bzip2 pcomplete/gzip) -;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (16213 43269)) +;;;;;; "pcmpl-gnu" "pcmpl-gnu.el" (17141 22882)) ;;; Generated autoloads from pcmpl-gnu.el (autoload (quote pcomplete/gzip) "pcmpl-gnu" "\ @@ -18124,7 +18702,7 @@ Completion for the GNU tar utility. ;;;*** ;;;### (autoloads (pcomplete/mount pcomplete/umount pcomplete/kill) -;;;;;; "pcmpl-linux" "pcmpl-linux.el" (16213 43269)) +;;;;;; "pcmpl-linux" "pcmpl-linux.el" (17141 22882)) ;;; Generated autoloads from pcmpl-linux.el (autoload (quote pcomplete/kill) "pcmpl-linux" "\ @@ -18144,8 +18722,8 @@ Completion for GNU/Linux `mount'. ;;;*** -;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (16213 -;;;;;; 43269)) +;;;### (autoloads (pcomplete/rpm) "pcmpl-rpm" "pcmpl-rpm.el" (17141 +;;;;;; 22882)) ;;; Generated autoloads from pcmpl-rpm.el (autoload (quote pcomplete/rpm) "pcmpl-rpm" "\ @@ -18161,7 +18739,7 @@ You can use \\[eshell-report-bug] to do so. ;;;### (autoloads (pcomplete/chgrp pcomplete/chown pcomplete/which ;;;;;; pcomplete/xargs pcomplete/rm pcomplete/rmdir pcomplete/cd) -;;;;;; "pcmpl-unix" "pcmpl-unix.el" (16213 43269)) +;;;;;; "pcmpl-unix" "pcmpl-unix.el" (17141 22882)) ;;; Generated autoloads from pcmpl-unix.el (autoload (quote pcomplete/cd) "pcmpl-unix" "\ @@ -18207,8 +18785,8 @@ Completion for the `chgrp' command. ;;;### (autoloads (pcomplete-shell-setup pcomplete-comint-setup pcomplete-list ;;;;;; pcomplete-help pcomplete-expand pcomplete-continue pcomplete-expand-and-complete -;;;;;; pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (16880 -;;;;;; 58563)) +;;;;;; pcomplete-reverse pcomplete) "pcomplete" "pcomplete.el" (17141 +;;;;;; 22885)) ;;; Generated autoloads from pcomplete.el (autoload (quote pcomplete) "pcomplete" "\ @@ -18267,7 +18845,7 @@ Setup shell-mode to use pcomplete. ;;;### (autoloads (cvs-dired-use-hook cvs-dired-action cvs-status ;;;;;; cvs-update cvs-examine cvs-quickdir cvs-checkout) "pcvs" -;;;;;; "pcvs.el" (16953 20624)) +;;;;;; "pcvs.el" (17141 22894)) ;;; Generated autoloads from pcvs.el (autoload (quote cvs-checkout) "pcvs" "\ @@ -18277,7 +18855,7 @@ and run `cvs-mode' on it. With a prefix argument, prompt for cvs FLAGS to use. -\(fn MODULES DIR FLAGS)" t nil) +\(fn MODULES DIR FLAGS &optional ROOT)" t nil) (autoload (quote cvs-quickdir) "pcvs" "\ Open a *cvs* buffer on DIR without running cvs. @@ -18344,7 +18922,7 @@ The exact behavior is determined also by `cvs-dired-use-hook'." (when (stringp d ;;;*** -;;;### (autoloads nil "pcvs-defs" "pcvs-defs.el" (16858 50918)) +;;;### (autoloads nil "pcvs-defs" "pcvs-defs.el" (17141 22888)) ;;; Generated autoloads from pcvs-defs.el (defvar cvs-global-menu (let ((m (make-sparse-keymap "PCL-CVS"))) (define-key m [status] (quote (menu-item "Directory Status" cvs-status :help "A more verbose status of a workarea"))) (define-key m [checkout] (quote (menu-item "Checkout Module" cvs-checkout :help "Check out a module from the repository"))) (define-key m [update] (quote (menu-item "Update Directory" cvs-update :help "Fetch updates from the repository"))) (define-key m [examine] (quote (menu-item "Examine Directory" cvs-examine :help "Examine the current state of a workarea"))) (fset (quote cvs-global-menu) m))) @@ -18352,7 +18930,7 @@ The exact behavior is determined also by `cvs-dired-use-hook'." (when (stringp d ;;;*** ;;;### (autoloads (perl-mode) "perl-mode" "progmodes/perl-mode.el" -;;;;;; (16958 58759)) +;;;;;; (17134 4639)) ;;; Generated autoloads from progmodes/perl-mode.el (autoload (quote perl-mode) "perl-mode" "\ @@ -18410,7 +18988,7 @@ Turning on Perl mode runs the normal hook `perl-mode-hook'. ;;;### (autoloads (pgg-snarf-keys pgg-snarf-keys-region pgg-insert-key ;;;;;; pgg-verify pgg-verify-region pgg-sign pgg-sign-region pgg-decrypt ;;;;;; pgg-decrypt-region pgg-encrypt pgg-encrypt-region) "pgg" -;;;;;; "gnus/pgg.el" (16697 49031)) +;;;;;; "gnus/pgg.el" (17141 6830)) ;;; Generated autoloads from gnus/pgg.el (autoload (quote pgg-encrypt-region) "pgg" "\ @@ -18498,7 +19076,7 @@ Import public keys in the current buffer. ;;;*** ;;;### (autoloads (picture-mode) "picture" "textmodes/picture.el" -;;;;;; (16534 3822)) +;;;;;; (17141 162)) ;;; Generated autoloads from textmodes/picture.el (autoload (quote picture-mode) "picture" "\ @@ -18553,7 +19131,7 @@ You can manipulate rectangles with these commands: C-c C-r Draw a rectangular box around mark and point. \\[copy-rectangle-to-register] Copies a rectangle to a register. \\[advertised-undo] Can undo effects of rectangle overlay commands - commands if invoked soon enough. + if invoked soon enough. You can return to the previous mode with: C-c C-c Which also strips trailing whitespace from every line. Stripping is suppressed by supplying an argument. @@ -18570,7 +19148,7 @@ they are not defaultly assigned to keys. ;;;*** ;;;### (autoloads (po-find-file-coding-system) "po" "textmodes/po.el" -;;;;;; (16213 43283)) +;;;;;; (17141 162)) ;;; Generated autoloads from textmodes/po.el (autoload (quote po-find-file-coding-system) "po" "\ @@ -18581,7 +19159,7 @@ Called through `file-coding-system-alist', before the file is visited for real. ;;;*** -;;;### (autoloads (pong) "pong" "play/pong.el" (16213 43281)) +;;;### (autoloads (pong) "pong" "play/pong.el" (17134 16334)) ;;; Generated autoloads from play/pong.el (autoload (quote pong) "pong" "\ @@ -18598,7 +19176,7 @@ pong-mode keybindings:\\<pong-mode-map> ;;;*** ;;;### (autoloads (pp-eval-last-sexp pp-eval-expression pp pp-buffer -;;;;;; pp-to-string) "pp" "emacs-lisp/pp.el" (16609 26453)) +;;;;;; pp-to-string) "pp" "emacs-lisp/pp.el" (17141 35)) ;;; Generated autoloads from emacs-lisp/pp.el (autoload (quote pp-to-string) "pp" "\ @@ -18656,7 +19234,7 @@ Ignores leading comment characters. ;;;;;; pr-ps-buffer-print pr-ps-buffer-using-ghostscript pr-ps-buffer-preview ;;;;;; pr-ps-directory-ps-print pr-ps-directory-print pr-ps-directory-using-ghostscript ;;;;;; pr-ps-directory-preview pr-interface) "printing" "printing.el" -;;;;;; (16801 58022)) +;;;;;; (17141 22904)) ;;; Generated autoloads from printing.el (autoload (quote pr-interface) "printing" "\ @@ -19244,7 +19822,7 @@ are both set to t. ;;;*** ;;;### (autoloads (run-prolog prolog-mode) "prolog" "progmodes/prolog.el" -;;;;;; (16814 63075)) +;;;;;; (17134 4639)) ;;; Generated autoloads from progmodes/prolog.el (autoload (quote prolog-mode) "prolog" "\ @@ -19264,7 +19842,7 @@ Run an inferior Prolog process, input and output via buffer *prolog*. ;;;*** -;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (16213 43271)) +;;;### (autoloads nil "ps-bdf" "ps-bdf.el" (17127 36411)) ;;; Generated autoloads from ps-bdf.el (defvar bdf-directory-list (if (memq system-type (quote (ms-dos windows-nt))) (list (expand-file-name "fonts/bdf" installation-directory)) (quote ("/usr/local/share/emacs/fonts/bdf"))) "\ @@ -19273,8 +19851,8 @@ The default value is '(\"/usr/local/share/emacs/fonts/bdf\").") ;;;*** -;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (16213 -;;;;;; 43282)) +;;;### (autoloads (ps-mode) "ps-mode" "progmodes/ps-mode.el" (17134 +;;;;;; 4640)) ;;; Generated autoloads from progmodes/ps-mode.el (autoload (quote ps-mode) "ps-mode" "\ @@ -19323,7 +19901,7 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number ;;;### (autoloads (ps-mule-begin-page ps-mule-begin-job ps-mule-encode-header-string ;;;;;; ps-mule-initialize ps-mule-plot-composition ps-mule-plot-string ;;;;;; ps-mule-set-ascii-font ps-mule-prepare-ascii-font ps-multibyte-buffer) -;;;;;; "ps-mule" "ps-mule.el" (16923 3608)) +;;;;;; "ps-mule" "ps-mule.el" (17141 22908)) ;;; Generated autoloads from ps-mule.el (defvar ps-multibyte-buffer nil "\ @@ -19444,8 +20022,8 @@ Not documented ;;;;;; ps-spool-region ps-spool-buffer-with-faces ps-spool-buffer ;;;;;; ps-print-region-with-faces ps-print-region ps-print-buffer-with-faces ;;;;;; ps-print-buffer ps-print-customize ps-print-color-p ps-paper-type -;;;;;; ps-page-dimensions-database) "ps-print" "ps-print.el" (16958 -;;;;;; 58756)) +;;;;;; ps-page-dimensions-database) "ps-print" "ps-print.el" (17141 +;;;;;; 22919)) ;;; Generated autoloads from ps-print.el (defvar ps-page-dimensions-database (list (list (quote a4) (/ (* 72 21.0) 2.54) (/ (* 72 29.7) 2.54) "A4") (list (quote a3) (/ (* 72 29.7) 2.54) (/ (* 72 42.0) 2.54) "A3") (list (quote letter) (* 72 8.5) (* 72 11.0) "Letter") (list (quote legal) (* 72 8.5) (* 72 14.0) "Legal") (list (quote letter-small) (* 72 7.68) (* 72 10.16) "LetterSmall") (list (quote tabloid) (* 72 11.0) (* 72 17.0) "Tabloid") (list (quote ledger) (* 72 17.0) (* 72 11.0) "Ledger") (list (quote statement) (* 72 5.5) (* 72 8.5) "Statement") (list (quote executive) (* 72 7.5) (* 72 10.0) "Executive") (list (quote a4small) (* 72 7.47) (* 72 10.85) "A4Small") (list (quote b4) (* 72 10.125) (* 72 14.33) "B4") (list (quote b5) (* 72 7.16) (* 72 10.125) "B5")) "\ @@ -19598,10 +20176,10 @@ Extend face in ALIST-SYM. If optional MERGE-P is non-nil, extensions in FACE-EXTENSION-LIST are merged with face extension in ALIST-SYM; otherwise, overrides. -If optional ALIST-SYM is nil, it's used `ps-print-face-extension-alist'; +If optional ALIST-SYM is nil, `ps-print-face-extension-alist' is used; otherwise, it should be an alist symbol. -The elements in FACE-EXTENSION-LIST is like those for `ps-extend-face'. +The elements in FACE-EXTENSION-LIST are like those for `ps-extend-face'. See `ps-extend-face' for documentation. @@ -19613,7 +20191,7 @@ Extend face in ALIST-SYM. If optional MERGE-P is non-nil, extensions in FACE-EXTENSION list are merged with face extensions in ALIST-SYM; otherwise, overrides. -If optional ALIST-SYM is nil, it's used `ps-print-face-extension-alist'; +If optional ALIST-SYM is nil, `ps-print-face-extension-alist' is used; otherwise, it should be an alist symbol. The elements of FACE-EXTENSION list have the form: @@ -19642,7 +20220,7 @@ If EXTENSION is any other symbol, it is ignored. ;;;*** ;;;### (autoloads (jython-mode python-mode run-python) "python" "progmodes/python.el" -;;;;;; (16908 33362)) +;;;;;; (17097 30752)) ;;; Generated autoloads from progmodes/python.el (add-to-list (quote interpreter-mode-alist) (quote ("jython" . jython-mode))) @@ -19706,7 +20284,7 @@ Runs `jython-mode-hook' after `python-mode-hook'. ;;;*** ;;;### (autoloads (quoted-printable-decode-region) "qp" "gnus/qp.el" -;;;;;; (16698 21929)) +;;;;;; (17141 6833)) ;;; Generated autoloads from gnus/qp.el (autoload (quote quoted-printable-decode-region) "qp" "\ @@ -19729,7 +20307,7 @@ them into characters should be done separately. ;;;;;; quail-defrule quail-install-decode-map quail-install-map ;;;;;; quail-define-rules quail-show-keyboard-layout quail-set-keyboard-layout ;;;;;; quail-define-package quail-use-package quail-title) "quail" -;;;;;; "international/quail.el" (16954 46150)) +;;;;;; "international/quail.el" (17097 30282)) ;;; Generated autoloads from international/quail.el (autoload (quote quail-title) "quail" "\ @@ -19960,8 +20538,8 @@ of each directory. ;;;### (autoloads (quickurl-list quickurl-list-mode quickurl-edit-urls ;;;;;; quickurl-browse-url-ask quickurl-browse-url quickurl-add-url -;;;;;; quickurl-ask quickurl) "quickurl" "net/quickurl.el" (16543 -;;;;;; 16567)) +;;;;;; quickurl-ask quickurl) "quickurl" "net/quickurl.el" (17134 +;;;;;; 16286)) ;;; Generated autoloads from net/quickurl.el (defconst quickurl-reread-hook-postfix "\n;; Local Variables:\n;; eval: (progn (require 'quickurl) (add-hook 'local-write-file-hooks (lambda () (quickurl-read) nil)))\n;; End:\n" "\ @@ -20032,8 +20610,8 @@ Display `quickurl-list' as a formatted list using `quickurl-list-mode'. ;;;*** -;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (16213 -;;;;;; 43280)) +;;;### (autoloads (remote-compile) "rcompile" "net/rcompile.el" (17134 +;;;;;; 16288)) ;;; Generated autoloads from net/rcompile.el (autoload (quote remote-compile) "rcompile" "\ @@ -20044,14 +20622,11 @@ See \\[compile]. ;;;*** -;;;### (autoloads (re-builder regexp-builder) "re-builder" "emacs-lisp/re-builder.el" -;;;;;; (16930 25649)) +;;;### (autoloads (re-builder) "re-builder" "emacs-lisp/re-builder.el" +;;;;;; (17141 35)) ;;; Generated autoloads from emacs-lisp/re-builder.el -(autoload (quote regexp-builder) "re-builder" "\ -Alias for `re-builder': Construct a regexp interactively. - -\(fn)" t nil) +(defalias (quote regexp-builder) (quote re-builder)) (autoload (quote re-builder) "re-builder" "\ Construct a regexp interactively. @@ -20060,7 +20635,7 @@ Construct a regexp interactively. ;;;*** -;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (16958 58756)) +;;;### (autoloads (recentf-mode) "recentf" "recentf.el" (17141 22921)) ;;; Generated autoloads from recentf.el (defvar recentf-mode nil "\ @@ -20071,6 +20646,8 @@ use either \\[customize] or the function `recentf-mode'.") (custom-autoload (quote recentf-mode) "recentf") +(put (quote recentf-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote recentf-mode) "recentf" "\ Toggle recentf mode. With prefix argument ARG, turn on if positive, otherwise off. @@ -20086,8 +20663,8 @@ that were operated on recently. ;;;### (autoloads (clear-rectangle string-insert-rectangle string-rectangle ;;;;;; delete-whitespace-rectangle open-rectangle insert-rectangle ;;;;;; yank-rectangle kill-rectangle extract-rectangle delete-extract-rectangle -;;;;;; delete-rectangle move-to-column-force) "rect" "rect.el" (16894 -;;;;;; 3339)) +;;;;;; delete-rectangle move-to-column-force) "rect" "rect.el" (17141 +;;;;;; 22921)) ;;; Generated autoloads from rect.el (autoload (quote move-to-column-force) "rect" "\ @@ -20209,8 +20786,8 @@ rectangle which were empty. ;;;*** -;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (16884 -;;;;;; 52115)) +;;;### (autoloads (refill-mode) "refill" "textmodes/refill.el" (17141 +;;;;;; 166)) ;;; Generated autoloads from textmodes/refill.el (autoload (quote refill-mode) "refill" "\ @@ -20226,7 +20803,7 @@ refilling if they would cause auto-filling. ;;;*** ;;;### (autoloads (reftex-reset-scanning-information reftex-mode -;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (16896 54112)) +;;;;;; turn-on-reftex) "reftex" "textmodes/reftex.el" (17141 212)) ;;; Generated autoloads from textmodes/reftex.el (autoload (quote turn-on-reftex) "reftex" "\ @@ -20276,7 +20853,7 @@ This enforces rescanning the buffer on next use. ;;;*** ;;;### (autoloads (reftex-citation) "reftex-cite" "textmodes/reftex-cite.el" -;;;;;; (16913 6364)) +;;;;;; (17141 169)) ;;; Generated autoloads from textmodes/reftex-cite.el (autoload (quote reftex-citation) "reftex-cite" "\ @@ -20306,11 +20883,9 @@ While entering the regexp, completion on knows citation keys is possible. ;;;*** ;;;### (autoloads (reftex-isearch-minor-mode) "reftex-global" "textmodes/reftex-global.el" -;;;;;; (16887 27629)) +;;;;;; (17141 170)) ;;; Generated autoloads from textmodes/reftex-global.el -(defvar reftex-isearch-minor-mode nil) - (autoload (quote reftex-isearch-minor-mode) "reftex-global" "\ When on, isearch searches the whole document, not only the current file. This minor mode allows isearch to search through all the files of @@ -20325,7 +20900,7 @@ With no argument, this command toggles ;;;*** ;;;### (autoloads (reftex-index-phrases-mode) "reftex-index" "textmodes/reftex-index.el" -;;;;;; (16875 35929)) +;;;;;; (17141 177)) ;;; Generated autoloads from textmodes/reftex-index.el (autoload (quote reftex-index-phrases-mode) "reftex-index" "\ @@ -20358,7 +20933,7 @@ Here are all local bindings. ;;;*** ;;;### (autoloads (reftex-all-document-files) "reftex-parse" "textmodes/reftex-parse.el" -;;;;;; (16875 35929)) +;;;;;; (17141 184)) ;;; Generated autoloads from textmodes/reftex-parse.el (autoload (quote reftex-all-document-files) "reftex-parse" "\ @@ -20371,7 +20946,7 @@ of master file. ;;;*** ;;;### (autoloads (regexp-opt-depth regexp-opt) "regexp-opt" "emacs-lisp/regexp-opt.el" -;;;;;; (16821 35887)) +;;;;;; (17141 35)) ;;; Generated autoloads from emacs-lisp/regexp-opt.el (autoload (quote regexp-opt) "regexp-opt" "\ @@ -20392,13 +20967,13 @@ by \\=\\< and \\>. (autoload (quote regexp-opt-depth) "regexp-opt" "\ Return the depth of REGEXP. This means the number of non-shy regexp grouping constructs -\(parenthesised expressions) in REGEXP. +\(parenthesized expressions) in REGEXP. \(fn REGEXP)" nil nil) ;;;*** -;;;### (autoloads (repeat) "repeat" "repeat.el" (16213 43271)) +;;;### (autoloads (repeat) "repeat" "repeat.el" (17141 22924)) ;;; Generated autoloads from repeat.el (autoload (quote repeat) "repeat" "\ @@ -20416,7 +20991,7 @@ can be modified by the global variable `repeat-on-final-keystroke'. ;;;*** ;;;### (autoloads (reporter-submit-bug-report) "reporter" "mail/reporter.el" -;;;;;; (16213 43280)) +;;;;;; (17144 6941)) ;;; Generated autoloads from mail/reporter.el (autoload (quote reporter-submit-bug-report) "reporter" "\ @@ -20448,7 +21023,7 @@ mail-sending package is used for editing and sending the message. ;;;*** ;;;### (autoloads (reposition-window) "reposition" "reposition.el" -;;;;;; (16213 43271)) +;;;;;; (17141 22927)) ;;; Generated autoloads from reposition.el (autoload (quote reposition-window) "reposition" "\ @@ -20475,8 +21050,8 @@ first comment line visible (if point is in a comment). ;;;*** -;;;### (autoloads (resume-suspend-hook) "resume" "resume.el" (16213 -;;;;;; 43271)) +;;;### (autoloads (resume-suspend-hook) "resume" "resume.el" (17141 +;;;;;; 22927)) ;;; Generated autoloads from resume.el (autoload (quote resume-suspend-hook) "resume" "\ @@ -20487,7 +21062,7 @@ Clear out the file used for transmitting args when Emacs resumes. ;;;*** ;;;### (autoloads (global-reveal-mode reveal-mode) "reveal" "reveal.el" -;;;;;; (16942 52930)) +;;;;;; (17141 22927)) ;;; Generated autoloads from reveal.el (autoload (quote reveal-mode) "reveal" "\ @@ -20508,6 +21083,8 @@ use either \\[customize] or the function `global-reveal-mode'.") (custom-autoload (quote global-reveal-mode) "reveal") +(put (quote global-reveal-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote global-reveal-mode) "reveal" "\ Toggle Reveal mode in all buffers on or off. Reveal mode renders invisible text around point visible again. @@ -20522,7 +21099,7 @@ With zero or negative ARG turn mode off. ;;;### (autoloads (file-name-shadow-mode file-name-shadow-tty-properties ;;;;;; file-name-shadow-properties) "rfn-eshadow" "rfn-eshadow.el" -;;;;;; (16213 43271)) +;;;;;; (17141 22927)) ;;; Generated autoloads from rfn-eshadow.el (defvar file-name-shadow-properties (quote (face file-name-shadow field shadow)) "\ @@ -20549,6 +21126,8 @@ use either \\[customize] or the function `file-name-shadow-mode'.") (custom-autoload (quote file-name-shadow-mode) "rfn-eshadow") +(put (quote file-name-shadow-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote file-name-shadow-mode) "rfn-eshadow" "\ Toggle File-Name Shadow mode. When active, any part of a filename being read in the minibuffer @@ -20565,7 +21144,7 @@ Returns non-nil if the new state is enabled. ;;;*** ;;;### (autoloads (make-ring ring-p) "ring" "emacs-lisp/ring.el" -;;;;;; (16213 43273)) +;;;;;; (17141 39)) ;;; Generated autoloads from emacs-lisp/ring.el (autoload (quote ring-p) "ring" "\ @@ -20580,7 +21159,7 @@ Make a ring that can contain SIZE elements. ;;;*** -;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (16507 41097)) +;;;### (autoloads (rlogin) "rlogin" "net/rlogin.el" (17134 16288)) ;;; Generated autoloads from net/rlogin.el (add-hook 'same-window-regexps "^\\*rlogin-.*\\*\\(\\|<[0-9]+>\\)") @@ -20625,14 +21204,14 @@ variable. ;;;*** -;;;### (autoloads (rmail-restore-desktop-buffer rmail-set-remote-password -;;;;;; rmail-input rmail-mode rmail rmail-enable-mime rmail-show-message-hook -;;;;;; rmail-confirm-expunge rmail-secondary-file-regexp rmail-secondary-file-directory +;;;### (autoloads (rmail-set-remote-password rmail-input rmail-mode +;;;;;; rmail rmail-enable-mime rmail-show-message-hook rmail-confirm-expunge +;;;;;; rmail-secondary-file-regexp rmail-secondary-file-directory ;;;;;; rmail-mail-new-frame rmail-primary-inbox-list rmail-delete-after-output ;;;;;; rmail-highlight-face rmail-highlighted-headers rmail-retry-ignored-headers ;;;;;; rmail-displayed-headers rmail-ignored-headers rmail-dont-reply-to-names -;;;;;; rmail-movemail-variant-p) "rmail" "mail/rmail.el" (16954 -;;;;;; 46150)) +;;;;;; rmail-movemail-variant-p) "rmail" "mail/rmail.el" (17146 +;;;;;; 26052)) ;;; Generated autoloads from mail/rmail.el (autoload (quote rmail-movemail-variant-p) "rmail" "\ @@ -20655,7 +21234,7 @@ variable `rmail-dont-reply-to-names', for when the user does not set value is the user's email address and name.) It is useful to set this variable in the site customization file.") -(defvar rmail-ignored-headers (concat "^via:\\|^mail-from:\\|^origin:\\|^references:" "\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:" "\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:" "\\|^\\(resent-\\|\\)message-id:\\|^summary-line:\\|^resent-date:" "\\|^nntp-posting-host:\\|^path:\\|^x-char.*:\\|^x-face:\\|^face:" "\\|^x-mailer:\\|^delivered-to:\\|^lines:\\|^mime-version:" "\\|^content-transfer-encoding:\\|^x-coding-system:" "\\|^return-path:\\|^errors-to:\\|^return-receipt-to:" "\\|^x-sign:\\|^x-beenthere:\\|^x-mailman-version:" "\\|^precedence:\\|^list-help:\\|^list-post:\\|^list-subscribe:" "\\|^list-id:\\|^list-unsubscribe:\\|^list-archive:" "\\|^content-type:\\|^content-length:" "\\|^x-attribution:\\|^x-disclaimer:\\|^x-trace:" "\\|^x-complaints-to:\\|^nntp-posting-date:\\|^user-agent" "\\|^importance:\\|^envelope-to:\\|^delivery-date" "\\|^x.*-priority:\\|^x-mimeole:") "\ +(defvar rmail-ignored-headers (concat "^via:\\|^mail-from:\\|^origin:\\|^references:\\|^sender:" "\\|^status:\\|^received:\\|^x400-originator:\\|^x400-recipients:" "\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:" "\\|^\\(resent-\\|\\)message-id:\\|^summary-line:\\|^resent-date:" "\\|^nntp-posting-host:\\|^path:\\|^x-char.*:\\|^x-face:\\|^face:" "\\|^x-mailer:\\|^delivered-to:\\|^lines:" "\\|^content-transfer-encoding:\\|^x-coding-system:" "\\|^return-path:\\|^errors-to:\\|^return-receipt-to:" "\\|^x-sign:\\|^x-beenthere:\\|^x-mailman-version:\\|^x-mailman-copy:" "\\|^precedence:\\|^list-help:\\|^list-post:\\|^list-subscribe:" "\\|^list-id:\\|^list-unsubscribe:\\|^list-archive:" "\\|^content-length:" "\\|^x-attribution:\\|^x-disclaimer:\\|^x-trace:" "\\|^x-complaints-to:\\|^nntp-posting-date:\\|^user-agent" "\\|^importance:\\|^envelope-to:\\|^delivery-date" "\\|^x.*-priority:\\|^x-mimeole:\\|^x-archive:" "\\|^resent-face:\\|^resent-x.*:\\|^resent-organization\\|^resent-openpgp" "\\|^openpgp:\\|^x-request-pgp:\\|^x-original.*:" "\\|^x-virus-scanned:\\|^x-spam-[^s].*:") "\ *Regexp to match header fields that Rmail should normally hide. This variable is used for reformatting the message header, which normally happens once for each message, @@ -20885,15 +21464,10 @@ Set PASSWORD to be used for retrieving mail from a POP or IMAP server. \(fn PASSWORD)" t nil) -(autoload (quote rmail-restore-desktop-buffer) "rmail" "\ -Restore an rmail buffer specified in a desktop file. - -\(fn DESKTOP-BUFFER-FILE-NAME DESKTOP-BUFFER-NAME DESKTOP-BUFFER-MISC)" nil nil) - ;;;*** ;;;### (autoloads (rmail-edit-current-message) "rmailedit" "mail/rmailedit.el" -;;;;;; (16213 43280)) +;;;;;; (17141 4160)) ;;; Generated autoloads from mail/rmailedit.el (autoload (quote rmail-edit-current-message) "rmailedit" "\ @@ -20905,7 +21479,7 @@ Edit the contents of this message. ;;;### (autoloads (rmail-next-labeled-message rmail-previous-labeled-message ;;;;;; rmail-read-label rmail-kill-label rmail-add-label) "rmailkwd" -;;;;;; "mail/rmailkwd.el" (16213 43280)) +;;;;;; "mail/rmailkwd.el" (17141 4160)) ;;; Generated autoloads from mail/rmailkwd.el (autoload (quote rmail-add-label) "rmailkwd" "\ @@ -20944,7 +21518,7 @@ With prefix argument N moves forward N messages with these labels. ;;;*** ;;;### (autoloads (set-rmail-inbox-list) "rmailmsc" "mail/rmailmsc.el" -;;;;;; (16213 43280)) +;;;;;; (17141 4160)) ;;; Generated autoloads from mail/rmailmsc.el (autoload (quote set-rmail-inbox-list) "rmailmsc" "\ @@ -20958,7 +21532,7 @@ If FILE-NAME is empty, remove any existing inbox list. ;;;### (autoloads (rmail-output-body-to-file rmail-output rmail-fields-not-to-output ;;;;;; rmail-output-to-rmail-file rmail-output-file-alist) "rmailout" -;;;;;; "mail/rmailout.el" (16213 43280)) +;;;;;; "mail/rmailout.el" (17141 4160)) ;;; Generated autoloads from mail/rmailout.el (defvar rmail-output-file-alist nil "\ @@ -21025,8 +21599,8 @@ FILE-NAME defaults, interactively, from the Subject field of the message. ;;;### (autoloads (rmail-sort-by-labels rmail-sort-by-lines rmail-sort-by-correspondent ;;;;;; rmail-sort-by-recipient rmail-sort-by-author rmail-sort-by-subject -;;;;;; rmail-sort-by-date) "rmailsort" "mail/rmailsort.el" (16213 -;;;;;; 43280)) +;;;;;; rmail-sort-by-date) "rmailsort" "mail/rmailsort.el" (17141 +;;;;;; 4160)) ;;; Generated autoloads from mail/rmailsort.el (autoload (quote rmail-sort-by-date) "rmailsort" "\ @@ -21078,7 +21652,7 @@ KEYWORDS is a comma-separated list of labels. ;;;;;; rmail-summary-by-senders rmail-summary-by-topic rmail-summary-by-regexp ;;;;;; rmail-summary-by-recipients rmail-summary-by-labels rmail-summary ;;;;;; rmail-summary-line-count-flag rmail-summary-scroll-between-messages) -;;;;;; "rmailsum" "mail/rmailsum.el" (16294 21153)) +;;;;;; "rmailsum" "mail/rmailsum.el" (17141 4162)) ;;; Generated autoloads from mail/rmailsum.el (defvar rmail-summary-scroll-between-messages t "\ @@ -21160,7 +21734,7 @@ Setting this variable has an effect only before reading a mail.") ;;;*** ;;;### (autoloads (news-post-news) "rnewspost" "obsolete/rnewspost.el" -;;;;;; (16213 43281)) +;;;;;; (17141 85)) ;;; Generated autoloads from obsolete/rnewspost.el (autoload (quote news-post-news) "rnewspost" "\ @@ -21173,7 +21747,7 @@ If NOQUERY is non-nil, we do not query before doing the work. ;;;*** ;;;### (autoloads (toggle-rot13-mode rot13-other-window rot13-region -;;;;;; rot13-string rot13) "rot13" "rot13.el" (16213 43271)) +;;;;;; rot13-string rot13) "rot13" "rot13.el" (17141 22928)) ;;; Generated autoloads from rot13.el (autoload (quote rot13) "rot13" "\ @@ -21214,7 +21788,7 @@ Toggle the use of rot 13 encoding for the current window. ;;;;;; resize-minibuffer-frame-max-height resize-minibuffer-frame ;;;;;; resize-minibuffer-window-exactly resize-minibuffer-window-max-height ;;;;;; resize-minibuffer-mode) "rsz-mini" "obsolete/rsz-mini.el" -;;;;;; (16507 41097)) +;;;;;; (17141 85)) ;;; Generated autoloads from obsolete/rsz-mini.el (defvar resize-minibuffer-mode nil "\ @@ -21254,8 +21828,8 @@ This function is obsolete. ;;;*** -;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (16908 -;;;;;; 33360)) +;;;### (autoloads (ruler-mode) "ruler-mode" "ruler-mode.el" (17097 +;;;;;; 55605)) ;;; Generated autoloads from ruler-mode.el (autoload (quote ruler-mode) "ruler-mode" "\ @@ -21265,8 +21839,8 @@ Display a ruler in the header line if ARG > 0. ;;;*** -;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (16534 -;;;;;; 3808)) +;;;### (autoloads (rx rx-to-string) "rx" "emacs-lisp/rx.el" (17141 +;;;;;; 39)) ;;; Generated autoloads from emacs-lisp/rx.el (autoload (quote rx-to-string) "rx" "\ @@ -21574,7 +22148,7 @@ enclosed in `(and ...)'. ;;;*** ;;;### (autoloads (dsssl-mode scheme-mode) "scheme" "progmodes/scheme.el" -;;;;;; (16923 3630)) +;;;;;; (17134 4642)) ;;; Generated autoloads from progmodes/scheme.el (autoload (quote scheme-mode) "scheme" "\ @@ -21616,7 +22190,7 @@ that variable's value is a string. ;;;*** ;;;### (autoloads (gnus-score-mode) "score-mode" "gnus/score-mode.el" -;;;;;; (16698 21929)) +;;;;;; (17141 6834)) ;;; Generated autoloads from gnus/score-mode.el (autoload (quote gnus-score-mode) "score-mode" "\ @@ -21629,8 +22203,8 @@ This mode is an extended emacs-lisp mode. ;;;*** -;;;### (autoloads (scribe-mode) "scribe" "obsolete/scribe.el" (16213 -;;;;;; 43281)) +;;;### (autoloads (scribe-mode) "scribe" "obsolete/scribe.el" (17141 +;;;;;; 85)) ;;; Generated autoloads from obsolete/scribe.el (autoload (quote scribe-mode) "scribe" "\ @@ -21655,7 +22229,7 @@ Interesting variables: ;;;*** ;;;### (autoloads (scroll-all-mode) "scroll-all" "scroll-all.el" -;;;;;; (16213 43271)) +;;;;;; (17141 22930)) ;;; Generated autoloads from scroll-all.el (defvar scroll-all-mode nil "\ @@ -21666,6 +22240,8 @@ use either \\[customize] or the function `scroll-all-mode'.") (custom-autoload (quote scroll-all-mode) "scroll-all") +(put (quote scroll-all-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote scroll-all-mode) "scroll-all" "\ Toggle Scroll-All minor mode. With ARG, turn Scroll-All minor mode on if ARG is positive, off otherwise. @@ -21682,7 +22258,7 @@ apply to all visible windows in the same frame. ;;;;;; mail-archive-file-name mail-header-separator send-mail-function ;;;;;; mail-yank-ignored-headers mail-interactive mail-self-blind ;;;;;; mail-specify-envelope-from mail-from-style) "sendmail" "mail/sendmail.el" -;;;;;; (16954 46150)) +;;;;;; (17144 6947)) ;;; Generated autoloads from mail/sendmail.el (defvar mail-from-style (quote angles) "\ @@ -21913,7 +22489,7 @@ Like `mail' command, but display mail buffer in another frame. ;;;*** ;;;### (autoloads (server-mode server-start) "server" "server.el" -;;;;;; (16908 33360)) +;;;;;; (17141 22933)) ;;; Generated autoloads from server.el (autoload (quote server-start) "server" "\ @@ -21935,6 +22511,8 @@ use either \\[customize] or the function `server-mode'.") (custom-autoload (quote server-mode) "server") +(put (quote server-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote server-mode) "server" "\ Toggle Server mode. With ARG, turn Server mode on if ARG is positive, off otherwise. @@ -21945,7 +22523,7 @@ Server mode runs a process that accepts commands from the ;;;*** -;;;### (autoloads (ses-mode) "ses" "ses.el" (16923 3608)) +;;;### (autoloads (ses-mode) "ses" "ses.el" (17141 22939)) ;;; Generated autoloads from ses.el (autoload (quote ses-mode) "ses" "\ @@ -21964,7 +22542,7 @@ These are active only in the minibuffer, when entering or editing a formula: ;;;*** ;;;### (autoloads (html-mode sgml-mode) "sgml-mode" "textmodes/sgml-mode.el" -;;;;;; (16942 52931)) +;;;;;; (17141 218)) ;;; Generated autoloads from textmodes/sgml-mode.el (autoload (quote sgml-mode) "sgml-mode" "\ @@ -22010,7 +22588,7 @@ have <h1>Very Major Headlines</h1> through <h6>Very Minor Headlines</h6> <p>Paragraphs only need an opening tag. Line breaks and multiple spaces are ignored unless the text is <pre>preformatted.</pre> Text can be marked as -<b>bold</b>, <i>italic</i> or <u>underlined</u> using the normal M-g or +<b>bold</b>, <i>italic</i> or <u>underlined</u> using the normal M-o or Edit/Text Properties/Face commands. Pages can have <a name=\"SOMENAME\">named points</a> and can link other points @@ -22032,7 +22610,7 @@ To work around that, do: ;;;*** ;;;### (autoloads (sh-mode) "sh-script" "progmodes/sh-script.el" -;;;;;; (16878 27292)) +;;;;;; (17109 3772)) ;;; Generated autoloads from progmodes/sh-script.el (autoload (quote sh-mode) "sh-script" "\ @@ -22095,7 +22673,7 @@ with your script for an edit-interpret-debug cycle. ;;;*** -;;;### (autoloads (sha1) "sha1" "gnus/sha1.el" (16908 33361)) +;;;### (autoloads (sha1) "sha1" "gnus/sha1.el" (17141 6836)) ;;; Generated autoloads from gnus/sha1.el (autoload (quote sha1) "sha1" "\ @@ -22110,7 +22688,7 @@ If BINARY is non-nil, return a string in binary form. ;;;*** ;;;### (autoloads (list-load-path-shadows) "shadow" "emacs-lisp/shadow.el" -;;;;;; (16377 12872)) +;;;;;; (17141 39)) ;;; Generated autoloads from emacs-lisp/shadow.el (autoload (quote list-load-path-shadows) "shadow" "\ @@ -22157,8 +22735,8 @@ buffer called `*Shadows*'. Shadowings are located by calling the ;;;*** ;;;### (autoloads (shadow-initialize shadow-define-regexp-group shadow-define-literal-group -;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (16768 -;;;;;; 48631)) +;;;;;; shadow-define-cluster) "shadowfile" "shadowfile.el" (17141 +;;;;;; 22940)) ;;; Generated autoloads from shadowfile.el (autoload (quote shadow-define-cluster) "shadowfile" "\ @@ -22197,7 +22775,7 @@ Set up file shadowing. ;;;*** ;;;### (autoloads (shell shell-dumb-shell-regexp) "shell" "shell.el" -;;;;;; (16377 12872)) +;;;;;; (17141 22941)) ;;; Generated autoloads from shell.el (defvar shell-dumb-shell-regexp "cmd\\(proxy\\)?\\.exe" "\ @@ -22244,7 +22822,7 @@ Otherwise, one argument `-i' is passed to the shell. ;;;*** ;;;### (autoloads (sieve-upload-and-bury sieve-upload sieve-manage) -;;;;;; "sieve" "gnus/sieve.el" (16908 33361)) +;;;;;; "sieve" "gnus/sieve.el" (17141 6839)) ;;; Generated autoloads from gnus/sieve.el (autoload (quote sieve-manage) "sieve" "\ @@ -22265,7 +22843,7 @@ Not documented ;;;*** ;;;### (autoloads (sieve-mode) "sieve-mode" "gnus/sieve-mode.el" -;;;;;; (16697 49031)) +;;;;;; (17141 6839)) ;;; Generated autoloads from gnus/sieve-mode.el (autoload (quote sieve-mode) "sieve-mode" "\ @@ -22280,8 +22858,8 @@ Turning on Sieve mode runs `sieve-mode-hook'. ;;;*** -;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (16858 -;;;;;; 50937)) +;;;### (autoloads (simula-mode) "simula" "progmodes/simula.el" (17134 +;;;;;; 4645)) ;;; Generated autoloads from progmodes/simula.el (autoload (quote simula-mode) "simula" "\ @@ -22330,7 +22908,7 @@ with no arguments, if that value is non-nil. ;;;*** ;;;### (autoloads (skeleton-pair-insert-maybe skeleton-insert skeleton-proxy-new -;;;;;; define-skeleton) "skeleton" "skeleton.el" (16213 43271)) +;;;;;; define-skeleton) "skeleton" "skeleton.el" (17141 22955)) ;;; Generated autoloads from skeleton.el (defvar skeleton-filter (quote identity) "\ @@ -22351,7 +22929,7 @@ on `skeleton-autowrap'. An ARG of M-0 will prevent this just for once. This command can also be an abbrev expansion (3rd and 4th columns in \\[edit-abbrevs] buffer: \"\" command-name). -Optional first argument STR may also be a string which will be the value +Optional second argument STR may also be a string which will be the value of `str' whereas the skeleton's interactor is then ignored. \(fn SKELETON &optional STR ARG)" nil nil) @@ -22440,7 +23018,7 @@ symmetrical ones, and the same character twice for the others. ;;;*** ;;;### (autoloads (smerge-mode smerge-ediff) "smerge-mode" "smerge-mode.el" -;;;;;; (16534 3808)) +;;;;;; (17141 22955)) ;;; Generated autoloads from smerge-mode.el (autoload (quote smerge-ediff) "smerge-mode" "\ @@ -22459,7 +23037,7 @@ Minor mode to simplify editing output from the diff3 program. ;;;*** ;;;### (autoloads (smiley-buffer smiley-region) "smiley" "gnus/smiley.el" -;;;;;; (16912 31021)) +;;;;;; (17141 6839)) ;;; Generated autoloads from gnus/smiley.el (autoload (quote smiley-region) "smiley" "\ @@ -22477,7 +23055,7 @@ interactively. If there's no argument, do it at the current buffer ;;;*** ;;;### (autoloads (smtpmail-send-queued-mail smtpmail-send-it) "smtpmail" -;;;;;; "mail/smtpmail.el" (16908 33362)) +;;;;;; "mail/smtpmail.el" (17114 31645)) ;;; Generated autoloads from mail/smtpmail.el (autoload (quote smtpmail-send-it) "smtpmail" "\ @@ -22492,7 +23070,7 @@ Send mail that was queued as a result of setting `smtpmail-queue-mail'. ;;;*** -;;;### (autoloads (snake) "snake" "play/snake.el" (16213 43281)) +;;;### (autoloads (snake) "snake" "play/snake.el" (17134 16334)) ;;; Generated autoloads from play/snake.el (autoload (quote snake) "snake" "\ @@ -22516,7 +23094,7 @@ Snake mode keybindings: ;;;*** ;;;### (autoloads (snmpv2-mode snmp-mode) "snmp-mode" "net/snmp-mode.el" -;;;;;; (16858 50931)) +;;;;;; (17134 16291)) ;;; Generated autoloads from net/snmp-mode.el (autoload (quote snmp-mode) "snmp-mode" "\ @@ -22547,7 +23125,7 @@ then `snmpv2-mode-hook'. ;;;### (autoloads (solar-equinoxes-solstices sunrise-sunset calendar-location-name ;;;;;; calendar-longitude calendar-latitude calendar-time-display-form) -;;;;;; "solar" "calendar/solar.el" (16213 43272)) +;;;;;; "solar" "calendar/solar.el" (17097 30014)) ;;; Generated autoloads from calendar/solar.el (defvar calendar-time-display-form (quote (12-hours ":" minutes am-pm (if time-zone " (") time-zone (if time-zone ")"))) "\ @@ -22618,8 +23196,8 @@ Requires floating point. ;;;*** -;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (16213 -;;;;;; 43281)) +;;;### (autoloads (solitaire) "solitaire" "play/solitaire.el" (17134 +;;;;;; 16335)) ;;; Generated autoloads from play/solitaire.el (autoload (quote solitaire) "solitaire" "\ @@ -22696,7 +23274,7 @@ Pick your favourite shortcuts: ;;;### (autoloads (reverse-region sort-columns sort-regexp-fields ;;;;;; sort-fields sort-numeric-fields sort-pages sort-paragraphs -;;;;;; sort-lines sort-subr) "sort" "sort.el" (16460 18645)) +;;;;;; sort-lines sort-subr) "sort" "sort.el" (17141 22957)) ;;; Generated autoloads from sort.el (autoload (quote sort-subr) "sort" "\ @@ -22838,8 +23416,8 @@ From a program takes two point or marker arguments, BEG and END. ;;;*** -;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (16908 -;;;;;; 33362)) +;;;### (autoloads (spam-initialize) "spam" "gnus/spam.el" (17141 +;;;;;; 6845)) ;;; Generated autoloads from gnus/spam.el (autoload (quote spam-initialize) "spam" "\ @@ -22849,8 +23427,52 @@ Install the spam.el hooks and do other initialization ;;;*** +;;;### (autoloads (spam-report-deagentize spam-report-agentize spam-report-url-to-file +;;;;;; spam-report-url-ping-mm-url spam-report-process-queue) "spam-report" +;;;;;; "gnus/spam-report.el" (17141 6839)) +;;; Generated autoloads from gnus/spam-report.el + +(autoload (quote spam-report-process-queue) "spam-report" "\ +Report all queued requests from `spam-report-requests-file'. + +If FILE is given, use it instead of `spam-report-requests-file'. +If KEEP is t, leave old requests in the file. If KEEP is the +symbol `ask', query before flushing the queue file. + +\(fn &optional FILE KEEP)" t nil) + +(autoload (quote spam-report-url-ping-mm-url) "spam-report" "\ +Ping a host through HTTP, addressing a specific GET resource. Use +the external program specified in `mm-url-program' to connect to +server. + +\(fn HOST REPORT)" nil nil) + +(autoload (quote spam-report-url-to-file) "spam-report" "\ +Collect spam report requests in `spam-report-requests-file'. +Customize `spam-report-url-ping-function' to use this function. + +\(fn HOST REPORT)" nil nil) + +(autoload (quote spam-report-agentize) "spam-report" "\ +Add spam-report support to the Agent. +Spam reports will be queued with \\[spam-report-url-to-file] when +the Agent is unplugged, and will be submitted in a batch when the +Agent is plugged. + +\(fn)" t nil) + +(autoload (quote spam-report-deagentize) "spam-report" "\ +Remove spam-report support from the Agent. +Spam reports will be queued with the method used when +\\[spam-report-agentize] was run. + +\(fn)" t nil) + +;;;*** + ;;;### (autoloads (speedbar-get-focus speedbar-frame-mode) "speedbar" -;;;;;; "speedbar.el" (16931 6984)) +;;;;;; "speedbar.el" (17141 22965)) ;;; Generated autoloads from speedbar.el (defalias (quote speedbar) (quote speedbar-frame-mode)) @@ -22875,7 +23497,7 @@ selected. If the speedbar frame is active, then select the attached frame. ;;;*** ;;;### (autoloads (spell-string spell-region spell-word spell-buffer) -;;;;;; "spell" "textmodes/spell.el" (16213 43284)) +;;;;;; "spell" "textmodes/spell.el" (17141 218)) ;;; Generated autoloads from textmodes/spell.el (put (quote spell-filter) (quote risky-local-variable) t) @@ -22911,8 +23533,8 @@ Check spelling of string supplied as argument. ;;;*** -;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (16213 -;;;;;; 43281)) +;;;### (autoloads (snarf-spooks spook) "spook" "play/spook.el" (17134 +;;;;;; 16337)) ;;; Generated autoloads from play/spook.el (autoload (quote spook) "spook" "\ @@ -22930,8 +23552,8 @@ Return a vector containing the lines from `spook-phrases-file'. ;;;### (autoloads (sql-linter sql-db2 sql-interbase sql-postgres ;;;;;; sql-ms sql-ingres sql-solid sql-mysql sql-sqlite sql-informix ;;;;;; sql-sybase sql-oracle sql-product-interactive sql-mode sql-help -;;;;;; sql-add-product-keywords) "sql" "progmodes/sql.el" (16908 -;;;;;; 33362)) +;;;;;; sql-add-product-keywords) "sql" "progmodes/sql.el" (17144 +;;;;;; 58058)) ;;; Generated autoloads from progmodes/sql.el (autoload (quote sql-add-product-keywords) "sql" "\ @@ -23362,8 +23984,8 @@ input. See `sql-interactive-mode'. ;;;;;; strokes-mode strokes-list-strokes strokes-load-user-strokes ;;;;;; strokes-help strokes-describe-stroke strokes-do-complex-stroke ;;;;;; strokes-do-stroke strokes-read-complex-stroke strokes-read-stroke -;;;;;; strokes-global-set-stroke) "strokes" "strokes.el" (16768 -;;;;;; 48632)) +;;;;;; strokes-global-set-stroke) "strokes" "strokes.el" (17141 +;;;;;; 22973)) ;;; Generated autoloads from strokes.el (autoload (quote strokes-global-set-stroke) "strokes" "\ @@ -23383,7 +24005,7 @@ Optional PROMPT in minibuffer displays before and during stroke reading. This function will display the stroke interactively as it is being entered in the strokes buffer if the variable `strokes-use-strokes-buffer' is non-nil. -Optional EVENT is acceptable as the starting event of the stroke +Optional EVENT is acceptable as the starting event of the stroke. \(fn &optional PROMPT EVENT)" nil nil) @@ -23393,7 +24015,7 @@ Optional PROMPT in minibuffer displays before and during stroke reading. Note that a complex stroke allows the user to pen-up and pen-down. This is implemented by allowing the user to paint with button 1 or button 2 and then complete the stroke with button 3. -Optional EVENT is acceptable as the starting event of the stroke +Optional EVENT is acceptable as the starting event of the stroke. \(fn &optional PROMPT EVENT)" nil nil) @@ -23415,7 +24037,7 @@ Displays the command which STROKE maps to, reading STROKE interactively. \(fn STROKE)" t nil) (autoload (quote strokes-help) "strokes" "\ -Get instruction on using the `strokes' package. +Get instruction on using the Strokes package. \(fn)" t nil) @@ -23440,6 +24062,8 @@ use either \\[customize] or the function `strokes-mode'.") (custom-autoload (quote strokes-mode) "strokes") +(put (quote strokes-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote strokes-mode) "strokes" "\ Toggle Strokes global minor mode.\\<strokes-mode-map> With ARG, turn strokes on if and only if ARG is positive. @@ -23493,7 +24117,7 @@ Studlify-case the current buffer. ;;;*** ;;;### (autoloads (sc-cite-original) "supercite" "mail/supercite.el" -;;;;;; (16830 50349)) +;;;;;; (17144 58011)) ;;; Generated autoloads from mail/supercite.el (autoload (quote sc-cite-original) "supercite" "\ @@ -23525,8 +24149,8 @@ before, and `sc-post-hook' is run after the guts of this function. ;;;*** -;;;### (autoloads (syntax-ppss) "syntax" "emacs-lisp/syntax.el" (16213 -;;;;;; 43273)) +;;;### (autoloads (syntax-ppss) "syntax" "emacs-lisp/syntax.el" (17141 +;;;;;; 42)) ;;; Generated autoloads from emacs-lisp/syntax.el (autoload (quote syntax-ppss) "syntax" "\ @@ -23539,7 +24163,7 @@ Point is at POS when this function returns. ;;;*** -;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (16213 43271)) +;;;### (autoloads (tabify untabify) "tabify" "tabify.el" (17141 22983)) ;;; Generated autoloads from tabify.el (autoload (quote untabify) "tabify" "\ @@ -23574,7 +24198,7 @@ The variable `tab-width' controls the spacing of tab stops. ;;;;;; table-recognize table-insert-row-column table-insert-column ;;;;;; table-insert-row table-insert table-point-left-cell-hook ;;;;;; table-point-entered-cell-hook table-load-hook table-cell-map-hook) -;;;;;; "table" "textmodes/table.el" (16958 58759)) +;;;;;; "table" "textmodes/table.el" (17141 228)) ;;; Generated autoloads from textmodes/table.el (defvar table-cell-map-hook nil "\ @@ -24162,7 +24786,7 @@ converts a table into plain text without frames. It is a companion to ;;;*** -;;;### (autoloads (talk-connect) "talk" "talk.el" (16213 43271)) +;;;### (autoloads (talk-connect) "talk" "talk.el" (17141 22983)) ;;; Generated autoloads from talk.el (autoload (quote talk-connect) "talk" "\ @@ -24172,7 +24796,7 @@ Connect to display DISPLAY for the Emacs talk group. ;;;*** -;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (16954 46150)) +;;;### (autoloads (tar-mode) "tar-mode" "tar-mode.el" (17141 22984)) ;;; Generated autoloads from tar-mode.el (autoload (quote tar-mode) "tar-mode" "\ @@ -24196,7 +24820,7 @@ See also: variables `tar-update-datestamp' and `tar-anal-blocksize'. ;;;*** ;;;### (autoloads (tcl-help-on-word inferior-tcl tcl-mode) "tcl" -;;;;;; "progmodes/tcl.el" (16808 48570)) +;;;;;; "progmodes/tcl.el" (17097 30772)) ;;; Generated autoloads from progmodes/tcl.el (autoload (quote tcl-mode) "tcl" "\ @@ -24247,7 +24871,7 @@ Prefix argument means invert sense of `tcl-use-smart-word-finder'. ;;;*** -;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (16548 34615)) +;;;### (autoloads (rsh telnet) "telnet" "net/telnet.el" (17134 16291)) ;;; Generated autoloads from net/telnet.el (add-hook 'same-window-regexps "\\*telnet-.*\\*\\(\\|<[0-9]+>\\)") @@ -24274,8 +24898,8 @@ Normally input is edited in Emacs and sent a line at a time. ;;;*** -;;;### (autoloads (ansi-term term make-term) "term" "term.el" (16829 -;;;;;; 43426)) +;;;### (autoloads (ansi-term term make-term) "term" "term.el" (17141 +;;;;;; 22995)) ;;; Generated autoloads from term.el (autoload (quote make-term) "term" "\ @@ -24303,8 +24927,8 @@ Start a terminal-emulator in a new buffer. ;;;*** -;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (16698 -;;;;;; 21926)) +;;;### (autoloads (terminal-emulator) "terminal" "terminal.el" (17141 +;;;;;; 22997)) ;;; Generated autoloads from terminal.el (autoload (quote terminal-emulator) "terminal" "\ @@ -24327,7 +24951,7 @@ This escape character may be changed using the variable `terminal-escape-char'. `Meta' characters may not currently be sent through the terminal emulator. -Here is a list of some of the variables which control the behaviour +Here is a list of some of the variables which control the behavior of the emulator -- see their documentation for more information: terminal-escape-char, terminal-scrolling, terminal-more-processing, terminal-redisplay-interval. @@ -24341,7 +24965,7 @@ subprocess started. ;;;*** ;;;### (autoloads (testcover-this-defun) "testcover" "emacs-lisp/testcover.el" -;;;;;; (16635 35907)) +;;;;;; (17141 46)) ;;; Generated autoloads from emacs-lisp/testcover.el (autoload (quote testcover-this-defun) "testcover" "\ @@ -24351,7 +24975,7 @@ Start coverage on function under point. ;;;*** -;;;### (autoloads (tetris) "tetris" "play/tetris.el" (16213 43281)) +;;;### (autoloads (tetris) "tetris" "play/tetris.el" (17134 16337)) ;;; Generated autoloads from play/tetris.el (autoload (quote tetris) "tetris" "\ @@ -24382,7 +25006,7 @@ tetris-mode keybindings: ;;;;;; tex-start-commands tex-start-options slitex-run-command latex-run-command ;;;;;; tex-run-command tex-offer-save tex-main-file tex-first-line-header-regexp ;;;;;; tex-directory tex-shell-file-name) "tex-mode" "textmodes/tex-mode.el" -;;;;;; (16958 58759)) +;;;;;; (17141 234)) ;;; Generated autoloads from textmodes/tex-mode.el (defvar tex-shell-file-name nil "\ @@ -24684,7 +25308,7 @@ Major mode to edit DocTeX files. ;;;*** ;;;### (autoloads (texi2info texinfo-format-region texinfo-format-buffer) -;;;;;; "texinfmt" "textmodes/texinfmt.el" (16939 44105)) +;;;;;; "texinfmt" "textmodes/texinfmt.el" (17141 241)) ;;; Generated autoloads from textmodes/texinfmt.el (autoload (quote texinfo-format-buffer) "texinfmt" "\ @@ -24724,7 +25348,7 @@ if large. You can use Info-split to do this manually. ;;;*** ;;;### (autoloads (texinfo-mode texinfo-close-quote texinfo-open-quote) -;;;;;; "texinfo" "textmodes/texinfo.el" (16858 50941)) +;;;;;; "texinfo" "textmodes/texinfo.el" (17141 243)) ;;; Generated autoloads from textmodes/texinfo.el (defvar texinfo-open-quote "``" "\ @@ -24811,7 +25435,7 @@ value of `texinfo-mode-hook'. ;;;### (autoloads (thai-auto-composition-mode thai-composition-function ;;;;;; thai-post-read-conversion thai-compose-buffer thai-compose-string ;;;;;; thai-compose-region) "thai-util" "language/thai-util.el" -;;;;;; (16954 46150)) +;;;;;; (17097 30355)) ;;; Generated autoloads from language/thai-util.el (autoload (quote thai-compose-region) "thai-util" "\ @@ -24855,7 +25479,7 @@ Minor mode for automatically correct Thai character composition. ;;;### (autoloads (list-at-point number-at-point symbol-at-point ;;;;;; sexp-at-point thing-at-point bounds-of-thing-at-point forward-thing) -;;;;;; "thingatpt" "thingatpt.el" (16213 43271)) +;;;;;; "thingatpt" "thingatpt.el" (17141 22998)) ;;; Generated autoloads from thingatpt.el (autoload (quote forward-thing) "thingatpt" "\ @@ -24912,7 +25536,7 @@ Not documented ;;;### (autoloads (thumbs-dired-setroot thumbs-dired-show-all thumbs-dired-show-marked ;;;;;; thumbs-show-all-from-dir thumbs-find-thumb) "thumbs" "thumbs.el" -;;;;;; (16908 33361)) +;;;;;; (17141 23000)) ;;; Generated autoloads from thumbs.el (autoload (quote thumbs-find-thumb) "thumbs" "\ @@ -24928,7 +25552,7 @@ and SAME-WINDOW to show thumbs in the same window. \(fn DIR &optional REG SAME-WINDOW)" t nil) (autoload (quote thumbs-dired-show-marked) "thumbs" "\ -In Dired, make a thumbs buffer with all marked files. +In dired, make a thumbs buffer with all marked files. \(fn)" t nil) @@ -24940,7 +25564,7 @@ In dired, make a thumbs buffer with all files in current directory. (defalias (quote thumbs) (quote thumbs-show-all-from-dir)) (autoload (quote thumbs-dired-setroot) "thumbs" "\ -In dired, Call the setroot program on the image at point. +In dired, call the setroot program on the image at point. \(fn)" t nil) @@ -24951,7 +25575,7 @@ In dired, Call the setroot program on the image at point. ;;;;;; tibetan-composition-function tibetan-decompose-string tibetan-decompose-region ;;;;;; tibetan-compose-region tibetan-compose-string tibetan-transcription-to-tibetan ;;;;;; tibetan-tibetan-to-transcription tibetan-char-p) "tibet-util" -;;;;;; "language/tibet-util.el" (16213 43280)) +;;;;;; "language/tibet-util.el" (17097 30355)) ;;; Generated autoloads from language/tibet-util.el (autoload (quote tibetan-char-p) "tibet-util" "\ @@ -25030,7 +25654,7 @@ Not documented ;;;*** ;;;### (autoloads (tildify-buffer tildify-region) "tildify" "textmodes/tildify.el" -;;;;;; (16213 43284)) +;;;;;; (17141 248)) ;;; Generated autoloads from textmodes/tildify.el (autoload (quote tildify-region) "tildify" "\ @@ -25054,7 +25678,7 @@ This function performs no refilling of the changed text. ;;;*** ;;;### (autoloads (display-time-mode display-time display-time-day-and-date) -;;;;;; "time" "time.el" (16908 33361)) +;;;;;; "time" "time.el" (17145 29719)) ;;; Generated autoloads from time.el (defvar display-time-day-and-date nil "\ @@ -25079,6 +25703,8 @@ use either \\[customize] or the function `display-time-mode'.") (custom-autoload (quote display-time-mode) "time") +(put (quote display-time-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote display-time-mode) "time" "\ Toggle display of time, load level, and mail flag in mode lines. With a numeric arg, enable this display if arg is positive. @@ -25095,8 +25721,8 @@ This runs the normal hook `display-time-hook' after each update. ;;;### (autoloads (safe-date-to-time time-to-days time-to-day-in-year ;;;;;; date-leap-year-p days-between date-to-day time-add time-subtract ;;;;;; time-since days-to-time time-less-p seconds-to-time time-to-seconds -;;;;;; date-to-time) "time-date" "calendar/time-date.el" (16698 -;;;;;; 21926)) +;;;;;; date-to-time) "time-date" "calendar/time-date.el" (17097 +;;;;;; 30014)) ;;; Generated autoloads from calendar/time-date.el (autoload (quote date-to-time) "time-date" "\ @@ -25182,7 +25808,7 @@ If DATE is malformed, return a time value of zeros. ;;;*** ;;;### (autoloads (time-stamp-toggle-active time-stamp) "time-stamp" -;;;;;; "time-stamp.el" (16589 26258)) +;;;;;; "time-stamp.el" (17141 23000)) ;;; Generated autoloads from time-stamp.el (autoload (quote time-stamp) "time-stamp" "\ @@ -25217,7 +25843,7 @@ With ARG, turn time stamping on if and only if arg is positive. ;;;;;; timeclock-workday-remaining-string timeclock-reread-log timeclock-query-out ;;;;;; timeclock-change timeclock-status-string timeclock-out timeclock-in ;;;;;; timeclock-modeline-display) "timeclock" "calendar/timeclock.el" -;;;;;; (16534 3808)) +;;;;;; (17097 30016)) ;;; Generated autoloads from calendar/timeclock.el (autoload (quote timeclock-modeline-display) "timeclock" "\ @@ -25318,7 +25944,7 @@ relative only to the time worked today, and not to past time. ;;;### (autoloads (with-timeout run-with-idle-timer add-timeout run-with-timer ;;;;;; run-at-time cancel-function-timers cancel-timer) "timer" -;;;;;; "emacs-lisp/timer.el" (16908 33361)) +;;;;;; "emacs-lisp/timer.el" (17141 46)) ;;; Generated autoloads from emacs-lisp/timer.el (defalias (quote disable-timeout) (quote cancel-timer)) @@ -25379,19 +26005,17 @@ This function returns a timer object which you can use in `cancel-timer'. (autoload (quote with-timeout) "timer" "\ Run BODY, but if it doesn't finish in SECONDS seconds, give up. If we give up, we run the TIMEOUT-FORMS and return the value of the last one. -The call should look like: - (with-timeout (SECONDS TIMEOUT-FORMS...) BODY...) The timeout is checked whenever Emacs waits for some kind of external event (such as keyboard input, input from subprocesses, or a certain time); if the program loops without waiting in any way, the timeout will not be detected. -\(fn LIST &rest BODY)" nil (quote macro)) +\(fn (SECONDS TIMEOUT-FORMS...) BODY)" nil (quote macro)) ;;;*** ;;;### (autoloads (batch-titdic-convert titdic-convert) "titdic-cnv" -;;;;;; "international/titdic-cnv.el" (16534 3808)) +;;;;;; "international/titdic-cnv.el" (17097 55898)) ;;; Generated autoloads from international/titdic-cnv.el (autoload (quote titdic-convert) "titdic-cnv" "\ @@ -25414,8 +26038,8 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\". ;;;*** ;;;### (autoloads (tamil-composition-function tamil-post-read-conversion -;;;;;; tamil-compose-region) "tml-util" "language/tml-util.el" (16233 -;;;;;; 29568)) +;;;;;; tamil-compose-region) "tml-util" "language/tml-util.el" (17097 +;;;;;; 30357)) ;;; Generated autoloads from language/tml-util.el (autoload (quote tamil-compose-region) "tml-util" "\ @@ -25430,7 +26054,7 @@ Not documented (autoload (quote tamil-composition-function) "tml-util" "\ Compose Tamil characters in REGION, or STRING if specified. -Assume that the REGION or STRING must fully match the composable +Assume that the REGION or STRING must fully match the composable PATTERN regexp. \(fn FROM TO PATTERN &optional STRING)" nil nil) @@ -25438,7 +26062,7 @@ PATTERN regexp. ;;;*** ;;;### (autoloads (tmm-prompt tmm-menubar-mouse tmm-menubar) "tmm" -;;;;;; "tmm.el" (16213 43271)) +;;;;;; "tmm.el" (17141 23003)) ;;; Generated autoloads from tmm.el (define-key global-map "\M-`" 'tmm-menubar) (define-key global-map [f10] 'tmm-menubar) @@ -25479,7 +26103,7 @@ Its value should be an event that has a binding in MENU. ;;;### (autoloads (todo-show todo-cp todo-mode todo-print todo-top-priorities ;;;;;; todo-insert-item todo-add-item-non-interactively todo-add-category) -;;;;;; "todo-mode" "calendar/todo-mode.el" (16507 41097)) +;;;;;; "todo-mode" "calendar/todo-mode.el" (17097 30017)) ;;; Generated autoloads from calendar/todo-mode.el (autoload (quote todo-add-category) "todo-mode" "\ @@ -25540,7 +26164,7 @@ Show TODO list. ;;;### (autoloads (tool-bar-local-item-from-menu tool-bar-add-item-from-menu ;;;;;; tool-bar-local-item tool-bar-add-item tool-bar-mode) "tool-bar" -;;;;;; "toolbar/tool-bar.el" (16775 26718)) +;;;;;; "toolbar/tool-bar.el" (17134 20613)) ;;; Generated autoloads from toolbar/tool-bar.el (defvar tool-bar-mode nil "\ @@ -25551,6 +26175,8 @@ use either \\[customize] or the function `tool-bar-mode'.") (custom-autoload (quote tool-bar-mode) "tool-bar") +(put (quote tool-bar-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote tool-bar-mode) "tool-bar" "\ Toggle use of the tool bar. With numeric ARG, display the tool bar if and only if ARG is positive. @@ -25622,30 +26248,24 @@ MAP must contain appropriate binding for `[menu-bar]' which holds a keymap. ;;;*** -;;;### (autoloads (tooltip-mode) "tooltip" "tooltip.el" (16960 18194)) -;;; Generated autoloads from tooltip.el +;;;### (autoloads (tpu-edt-on tpu-edt-mode) "tpu-edt" "emulation/tpu-edt.el" +;;;;;; (17134 16209)) +;;; Generated autoloads from emulation/tpu-edt.el -(defvar tooltip-mode nil "\ -Non-nil if Tooltip mode is enabled. -See the command `tooltip-mode' for a description of this minor-mode. +(defvar tpu-edt-mode nil "\ +Non-nil if Tpu-Edt mode is enabled. +See the command `tpu-edt-mode' for a description of this minor-mode. Setting this variable directly does not take effect; -use either \\[customize] or the function `tooltip-mode'.") +use either \\[customize] or the function `tpu-edt-mode'.") -(custom-autoload (quote tooltip-mode) "tooltip") +(custom-autoload (quote tpu-edt-mode) "tpu-edt") -(autoload (quote tooltip-mode) "tooltip" "\ -Toggle Tooltip display. -With ARG, turn tooltip mode on if and only if ARG is positive. +(put (quote tpu-edt-mode) (quote custom-set) (quote custom-set-minor-mode)) -\(fn &optional ARG)" t nil) +(autoload (quote tpu-edt-mode) "tpu-edt" "\ +TPU/edt emulation. -;;;*** - -;;;### (autoloads (tpu-edt-on) "tpu-edt" "emulation/tpu-edt.el" (16812 -;;;;;; 26772)) -;;; Generated autoloads from emulation/tpu-edt.el - -(defalias (quote tpu-edt-mode) (quote tpu-edt-on)) +\(fn &optional ARG)" t nil) (defalias (quote tpu-edt) (quote tpu-edt-on)) @@ -25657,7 +26277,7 @@ Turn on TPU/edt emulation. ;;;*** ;;;### (autoloads (tpu-set-cursor-bound tpu-set-cursor-free tpu-set-scroll-margins) -;;;;;; "tpu-extras" "emulation/tpu-extras.el" (16213 43273)) +;;;;;; "tpu-extras" "emulation/tpu-extras.el" (17134 16209)) ;;; Generated autoloads from emulation/tpu-extras.el (autoload (quote tpu-set-scroll-margins) "tpu-extras" "\ @@ -25677,7 +26297,7 @@ Constrain the cursor to the flow of the text. ;;;*** -;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (16227 13384)) +;;;### (autoloads (tq-create) "tq" "emacs-lisp/tq.el" (17141 46)) ;;; Generated autoloads from emacs-lisp/tq.el (autoload (quote tq-create) "tq" "\ @@ -25691,7 +26311,7 @@ to a tcp server on another machine. ;;;*** ;;;### (autoloads (trace-function-background trace-function trace-buffer) -;;;;;; "trace" "emacs-lisp/trace.el" (16930 25650)) +;;;;;; "trace" "emacs-lisp/trace.el" (17141 46)) ;;; Generated autoloads from emacs-lisp/trace.el (defvar trace-buffer "*trace-output*" "\ @@ -25724,7 +26344,7 @@ the window or buffer configuration at all. ;;;### (autoloads (tramp-completion-file-name-handler tramp-file-name-handler ;;;;;; tramp-completion-file-name-regexp tramp-file-name-regexp) -;;;;;; "tramp" "net/tramp.el" (16958 58758)) +;;;;;; "tramp" "net/tramp.el" (17142 12874)) ;;; Generated autoloads from net/tramp.el (defvar tramp-unified-filenames (not (featurep (quote xemacs))) "\ @@ -25801,7 +26421,7 @@ Falls back to normal file name handler if no tramp file name handler exists. ;;;*** ;;;### (autoloads (2C-split 2C-associate-buffer 2C-two-columns) "two-column" -;;;;;; "textmodes/two-column.el" (16213 43285)) +;;;;;; "textmodes/two-column.el" (17141 252)) ;;; Generated autoloads from textmodes/two-column.el (autoload '2C-command "two-column" () t 'keymap) (global-set-key "\C-x6" '2C-command) @@ -25852,7 +26472,7 @@ First column's text sSs Second column's text ;;;;;; type-break type-break-mode type-break-keystroke-threshold ;;;;;; type-break-good-break-interval type-break-good-rest-interval ;;;;;; type-break-interval type-break-mode) "type-break" "type-break.el" -;;;;;; (16884 52115)) +;;;;;; (17141 23006)) ;;; Generated autoloads from type-break.el (defvar type-break-mode nil "\ @@ -26035,7 +26655,7 @@ FRAC should be the inverse of the fractional value; for example, a value of ;;;*** ;;;### (autoloads (ununderline-region underline-region) "underline" -;;;;;; "textmodes/underline.el" (16213 43286)) +;;;;;; "textmodes/underline.el" (17141 252)) ;;; Generated autoloads from textmodes/underline.el (autoload (quote underline-region) "underline" "\ @@ -26056,7 +26676,7 @@ which specify the range to operate on. ;;;*** ;;;### (autoloads (unforward-rmail-message undigestify-rmail-message) -;;;;;; "undigest" "mail/undigest.el" (16213 43280)) +;;;;;; "undigest" "mail/undigest.el" (17141 4172)) ;;; Generated autoloads from mail/undigest.el (autoload (quote undigestify-rmail-message) "undigest" "\ @@ -26075,7 +26695,7 @@ following the containing message. ;;;*** ;;;### (autoloads (unrmail batch-unrmail) "unrmail" "mail/unrmail.el" -;;;;;; (16544 33334)) +;;;;;; (17141 4172)) ;;; Generated autoloads from mail/unrmail.el (autoload (quote batch-unrmail) "unrmail" "\ @@ -26094,8 +26714,8 @@ Convert Rmail file FILE to system inbox format file TO-FILE. ;;;*** -;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (16213 -;;;;;; 43273)) +;;;### (autoloads (unsafep) "unsafep" "emacs-lisp/unsafep.el" (17141 +;;;;;; 49)) ;;; Generated autoloads from emacs-lisp/unsafep.el (autoload (quote unsafep) "unsafep" "\ @@ -26107,7 +26727,7 @@ of symbols with local bindings. ;;;*** -;;;### (autoloads nil "url" "url/url.el" (16875 35929)) +;;;### (autoloads nil "url" "url/url.el" (17141 266)) ;;; Generated autoloads from url/url.el (defvar url-configuration-directory "~/.url") @@ -26115,7 +26735,7 @@ of symbols with local bindings. ;;;*** ;;;### (autoloads (url-register-auth-scheme url-get-authentication) -;;;;;; "url-auth" "url/url-auth.el" (16764 51522)) +;;;;;; "url-auth" "url/url-auth.el" (17141 252)) ;;; Generated autoloads from url/url-auth.el (autoload (quote url-get-authentication) "url-auth" "\ @@ -26157,8 +26777,8 @@ RATING a rating between 1 and 10 of the strength of the authentication. ;;;*** ;;;### (autoloads (url-cache-expired url-cache-extract url-is-cached -;;;;;; url-store-in-cache) "url-cache" "url/url-cache.el" (16764 -;;;;;; 51522)) +;;;;;; url-store-in-cache) "url-cache" "url/url-cache.el" (17141 +;;;;;; 252)) ;;; Generated autoloads from url/url-cache.el (autoload (quote url-store-in-cache) "url-cache" "\ @@ -26183,7 +26803,7 @@ Return t iff a cached file has expired. ;;;*** -;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (16764 51522)) +;;;### (autoloads (url-cid) "url-cid" "url/url-cid.el" (17141 252)) ;;; Generated autoloads from url/url-cid.el (autoload (quote url-cid) "url-cid" "\ @@ -26194,8 +26814,9 @@ Not documented ;;;*** ;;;### (autoloads (url-cookie-setup-save-timer url-cookie-handle-set-cookie -;;;;;; url-cookie-retrieve url-cookie-write-file url-cookie-parse-file) -;;;;;; "url-cookie" "url/url-cookie.el" (16746 18215)) +;;;;;; url-cookie-generate-header-lines url-cookie-retrieve url-cookie-write-file +;;;;;; url-cookie-parse-file) "url-cookie" "url/url-cookie.el" (17141 +;;;;;; 252)) ;;; Generated autoloads from url/url-cookie.el (autoload (quote url-cookie-parse-file) "url-cookie" "\ @@ -26209,9 +26830,14 @@ Not documented \(fn &optional FNAME)" nil nil) (autoload (quote url-cookie-retrieve) "url-cookie" "\ -Retrieve all the netscape-style cookies for a specified HOST and PATH. +Retrieve all the netscape-style cookies for a specified HOST and LOCALPART. + +\(fn HOST LOCALPART &optional SECURE)" nil nil) -\(fn HOST PATH &optional SECURE)" nil nil) +(autoload (quote url-cookie-generate-header-lines) "url-cookie" "\ +Not documented + +\(fn HOST LOCALPART SECURE)" nil nil) (autoload (quote url-cookie-handle-set-cookie) "url-cookie" "\ Not documented @@ -26225,13 +26851,8 @@ Reset the cookie saver timer. ;;;*** -;;;### (autoloads (url-dav-vc-registered url-dav-file-name-completion -;;;;;; url-dav-file-name-all-completions url-dav-rename-file url-dav-make-directory -;;;;;; url-dav-file-directory-p url-dav-directory-files url-dav-delete-file -;;;;;; url-dav-delete-directory url-dav-save-resource url-dav-file-attributes -;;;;;; url-dav-unlock-resource url-dav-active-locks url-dav-lock-resource -;;;;;; url-dav-get-properties url-dav-supported-p) "url-dav" "url/url-dav.el" -;;;;;; (16515 33876)) +;;;### (autoloads (url-dav-vc-registered url-dav-supported-p) "url-dav" +;;;;;; "url/url-dav.el" (17141 254)) ;;; Generated autoloads from url/url-dav.el (autoload (quote url-dav-supported-p) "url-dav" "\ @@ -26239,102 +26860,6 @@ Not documented \(fn URL)" nil nil) -(autoload (quote url-dav-get-properties) "url-dav" "\ -Return properties for URL, up to DEPTH levels deep. - -Returns an assoc list, where the key is the filename (possibly a full -URI), and the value is a standard property list of DAV property -names (ie: DAV:resourcetype). - -\(fn URL &optional ATTRIBUTES DEPTH NAMESPACES)" nil nil) - -(autoload (quote url-dav-lock-resource) "url-dav" "\ -Request a lock on URL. If EXCLUSIVE is non-nil, get an exclusive lock. -Optional 3rd argument DEPTH says how deep the lock should go, default is 0 -\(lock only the resource and none of its children). - -Returns a cons-cell of (SUCCESSFUL-RESULTS . FAILURE-RESULTS). -SUCCESSFUL-RESULTS is a list of (URL STATUS locktoken). -FAILURE-RESULTS is a list of (URL STATUS). - -\(fn URL EXCLUSIVE &optional DEPTH)" nil nil) - -(autoload (quote url-dav-active-locks) "url-dav" "\ -Return an assoc list of all active locks on URL. - -\(fn URL &optional DEPTH)" nil nil) - -(autoload (quote url-dav-unlock-resource) "url-dav" "\ -Release the lock on URL represented by LOCK-TOKEN. -Returns t iff the lock was successfully released. - -\(fn URL LOCK-TOKEN)" nil nil) - -(autoload (quote url-dav-file-attributes) "url-dav" "\ -Not documented - -\(fn URL &optional ID-FORMAT)" nil nil) - -(autoload (quote url-dav-save-resource) "url-dav" "\ -Save OBJ as URL using WebDAV. -URL must be a fully qualified URL. -OBJ may be a buffer or a string. - -\(fn URL OBJ &optional CONTENT-TYPE LOCK-TOKEN)" nil nil) - -(autoload (quote url-dav-delete-directory) "url-dav" "\ -Delete the WebDAV collection URL. -If optional second argument RECURSIVE is non-nil, then delete all -files in the collection as well. - -\(fn URL &optional RECURSIVE LOCK-TOKEN)" nil nil) - -(autoload (quote url-dav-delete-file) "url-dav" "\ -Delete file named URL. - -\(fn URL &optional LOCK-TOKEN)" nil nil) - -(autoload (quote url-dav-directory-files) "url-dav" "\ -Return a list of names of files in DIRECTORY. -There are three optional arguments: -If FULL is non-nil, return absolute file names. Otherwise return names - that are relative to the specified directory. -If MATCH is non-nil, mention only file names that match the regexp MATCH. -If NOSORT is non-nil, the list is not sorted--its order is unpredictable. - NOSORT is useful if you plan to sort the result yourself. - -\(fn URL &optional FULL MATCH NOSORT FILES-ONLY)" nil nil) - -(autoload (quote url-dav-file-directory-p) "url-dav" "\ -Return t if URL names an existing DAV collection. - -\(fn URL)" nil nil) - -(autoload (quote url-dav-make-directory) "url-dav" "\ -Create the directory DIR and any nonexistent parent dirs. - -\(fn URL &optional PARENTS)" nil nil) - -(autoload (quote url-dav-rename-file) "url-dav" "\ -Not documented - -\(fn OLDNAME NEWNAME &optional OVERWRITE)" nil nil) - -(autoload (quote url-dav-file-name-all-completions) "url-dav" "\ -Return a list of all completions of file name FILE in directory DIRECTORY. -These are all file names in directory DIRECTORY which begin with FILE. - -\(fn FILE URL)" nil nil) - -(autoload (quote url-dav-file-name-completion) "url-dav" "\ -Complete file name FILE in directory DIRECTORY. -Returns the longest string -common to all file names in DIRECTORY that start with FILE. -If there is only one and FILE matches it exactly, returns t. -Returns nil if DIR contains no name starting with FILE. - -\(fn FILE URL)" nil nil) - (autoload (quote url-dav-vc-registered) "url-dav" "\ Not documented @@ -26342,8 +26867,8 @@ Not documented ;;;*** -;;;### (autoloads (url-file) "url-file" "url/url-file.el" (16746 -;;;;;; 18215)) +;;;### (autoloads (url-file) "url-file" "url/url-file.el" (17141 +;;;;;; 255)) ;;; Generated autoloads from url/url-file.el (autoload (quote url-file) "url-file" "\ @@ -26354,7 +26879,7 @@ Handle file: and ftp: URLs. ;;;*** ;;;### (autoloads (url-open-stream url-gateway-nslookup-host) "url-gw" -;;;;;; "url/url-gw.el" (16764 51522)) +;;;;;; "url/url-gw.el" (17141 258)) ;;; Generated autoloads from url/url-gw.el (autoload (quote url-gateway-nslookup-host) "url-gw" "\ @@ -26365,15 +26890,15 @@ Attempt to resolve the given HOST using nslookup if possible. (autoload (quote url-open-stream) "url-gw" "\ Open a stream to HOST, possibly via a gateway. Args per `open-network-stream'. -Will not make a connexion if `url-gateway-unplugged' is non-nil. +Will not make a connection if `url-gateway-unplugged' is non-nil. \(fn NAME BUFFER HOST SERVICE)" nil nil) ;;;*** ;;;### (autoloads (url-insert-file-contents url-file-local-copy url-copy-file -;;;;;; url-handler-mode) "url-handlers" "url/url-handlers.el" (16829 -;;;;;; 43427)) +;;;;;; url-handler-mode) "url-handlers" "url/url-handlers.el" (17141 +;;;;;; 258)) ;;; Generated autoloads from url/url-handlers.el (defvar url-handler-mode nil "\ @@ -26384,6 +26909,8 @@ use either \\[customize] or the function `url-handler-mode'.") (custom-autoload (quote url-handler-mode) "url-handlers") +(put (quote url-handler-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote url-handler-mode) "url-handlers" "\ Use URL to handle URL-like file names. @@ -26417,7 +26944,7 @@ Not documented ;;;### (autoloads (url-history-save-history url-history-parse-history ;;;;;; url-history-setup-save-timer) "url-history" "url/url-history.el" -;;;;;; (16930 25655)) +;;;;;; (17141 258)) ;;; Generated autoloads from url/url-history.el (autoload (quote url-history-setup-save-timer) "url-history" "\ @@ -26441,7 +26968,7 @@ user for what type to save as. ;;;*** ;;;### (autoloads (url-http-options url-http-file-attributes url-http-file-exists-p -;;;;;; url-http) "url-http" "url/url-http.el" (16912 31025)) +;;;;;; url-http) "url-http" "url/url-http.el" (17141 259)) ;;; Generated autoloads from url/url-http.el (autoload (quote url-http) "url-http" "\ @@ -26494,7 +27021,7 @@ p3p ;;;*** -;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (16775 26718)) +;;;### (autoloads (url-irc) "url-irc" "url/url-irc.el" (17141 259)) ;;; Generated autoloads from url/url-irc.el (autoload (quote url-irc) "url-irc" "\ @@ -26504,19 +27031,22 @@ Not documented ;;;*** -;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (16747 -;;;;;; 61768)) +;;;### (autoloads (url-ldap) "url-ldap" "url/url-ldap.el" (17141 +;;;;;; 259)) ;;; Generated autoloads from url/url-ldap.el (autoload (quote url-ldap) "url-ldap" "\ -Not documented +Perform an LDAP search specified by URL. +The return value is a buffer displaying the search results in HTML. +URL can be a URL string, or a URL vector of the type returned by +`url-generic-parse-url'. \(fn URL)" nil nil) ;;;*** ;;;### (autoloads (url-mailto url-mail) "url-mailto" "url/url-mailto.el" -;;;;;; (16788 34909)) +;;;;;; (17141 259)) ;;; Generated autoloads from url/url-mailto.el (autoload (quote url-mail) "url-mailto" "\ @@ -26532,7 +27062,7 @@ Handle the mailto: URL syntax. ;;;*** ;;;### (autoloads (url-data url-generic-emulator-loader url-info -;;;;;; url-man) "url-misc" "url/url-misc.el" (16764 51522)) +;;;;;; url-man) "url-misc" "url/url-misc.el" (17141 260)) ;;; Generated autoloads from url/url-misc.el (autoload (quote url-man) "url-misc" "\ @@ -26564,7 +27094,7 @@ Fetch a data URL (RFC 2397). ;;;*** ;;;### (autoloads (url-snews url-news) "url-news" "url/url-news.el" -;;;;;; (16775 26718)) +;;;;;; (17141 260)) ;;; Generated autoloads from url/url-news.el (autoload (quote url-news) "url-news" "\ @@ -26581,7 +27111,7 @@ Not documented ;;;### (autoloads (url-ns-user-pref url-ns-prefs isInNet isResolvable ;;;;;; dnsResolve dnsDomainIs isPlainHostName) "url-ns" "url/url-ns.el" -;;;;;; (16764 51522)) +;;;;;; (17141 260)) ;;; Generated autoloads from url/url-ns.el (autoload (quote isPlainHostName) "url-ns" "\ @@ -26622,7 +27152,7 @@ Not documented ;;;*** ;;;### (autoloads (url-generic-parse-url url-recreate-url) "url-parse" -;;;;;; "url/url-parse.el" (16746 18215)) +;;;;;; "url/url-parse.el" (17141 260)) ;;; Generated autoloads from url/url-parse.el (autoload (quote url-recreate-url) "url-parse" "\ @@ -26640,7 +27170,7 @@ Format is: ;;;*** ;;;### (autoloads (url-setup-privacy-info) "url-privacy" "url/url-privacy.el" -;;;;;; (16764 51522)) +;;;;;; (17141 263)) ;;; Generated autoloads from url/url-privacy.el (autoload (quote url-setup-privacy-info) "url-privacy" "\ @@ -26656,7 +27186,7 @@ Not documented ;;;;;; url-strip-leading-spaces url-eat-trailing-space url-get-normalized-date ;;;;;; url-lazy-message url-normalize-url url-insert-entities-in-string ;;;;;; url-parse-args url-debug url-debug) "url-util" "url/url-util.el" -;;;;;; (16764 51522)) +;;;;;; (17141 263)) ;;; Generated autoloads from url/url-util.el (defvar url-debug nil "\ @@ -26781,7 +27311,7 @@ This uses `url-current-object', set locally to the buffer. ;;;*** ;;;### (autoloads (ask-user-about-supersession-threat ask-user-about-lock) -;;;;;; "userlock" "userlock.el" (16213 43271)) +;;;;;; "userlock" "userlock.el" (17141 23009)) ;;; Generated autoloads from userlock.el (autoload (quote ask-user-about-lock) "userlock" "\ @@ -26811,7 +27341,7 @@ The buffer in question is current when this function is called. ;;;### (autoloads (uudecode-decode-region uudecode-decode-region-internal ;;;;;; uudecode-decode-region-external) "uudecode" "gnus/uudecode.el" -;;;;;; (16908 33362)) +;;;;;; (17141 6845)) ;;; Generated autoloads from gnus/uudecode.el (autoload (quote uudecode-decode-region-external) "uudecode" "\ @@ -26840,8 +27370,8 @@ If FILE-NAME is non-nil, save the result to FILE-NAME. ;;;;;; vc-revert-buffer vc-print-log vc-retrieve-snapshot vc-create-snapshot ;;;;;; vc-directory vc-merge vc-insert-headers vc-version-other-window ;;;;;; vc-diff vc-register vc-next-action vc-do-command edit-vc-file -;;;;;; with-vc-file vc-branch-part vc-before-checkin-hook vc-checkin-hook -;;;;;; vc-checkout-hook) "vc" "vc.el" (16930 4639)) +;;;;;; with-vc-file vc-branch-part vc-trunk-p vc-before-checkin-hook +;;;;;; vc-checkin-hook vc-checkout-hook) "vc" "vc.el" (17141 23031)) ;;; Generated autoloads from vc.el (defvar vc-checkout-hook nil "\ @@ -26862,6 +27392,11 @@ See `run-hooks'.") (custom-autoload (quote vc-before-checkin-hook) "vc") +(autoload (quote vc-trunk-p) "vc" "\ +Return t if REV is a revision on the trunk. + +\(fn REV)" nil nil) + (autoload (quote vc-branch-part) "vc" "\ Return the branch part of a revision number REV. @@ -27094,12 +27629,12 @@ log entries should be gathered. \(fn &rest ARGS)" t nil) (autoload (quote vc-annotate) "vc" "\ -Display the edit history of the current file using colours. +Display the edit history of the current file using colors. This command creates a buffer that shows, for each line of the current -file, when it was last edited and by whom. Additionally, colours are +file, when it was last edited and by whom. Additionally, colors are used to show the age of each line--blue means oldest, red means -youngest, and intermediate colours indicate intermediate ages. By +youngest, and intermediate colors indicate intermediate ages. By default, the time scale stretches back one year into the past; everything that is older than that is shown in blue. @@ -27123,7 +27658,7 @@ colors. `vc-annotate-background' specifies the background color. ;;;*** -;;;### (autoloads nil "vc-arch" "vc-arch.el" (16866 20008)) +;;;### (autoloads nil "vc-arch" "vc-arch.el" (17141 23009)) ;;; Generated autoloads from vc-arch.el (defun vc-arch-registered (file) (if (vc-find-root file "{arch}/=tagging-method") @@ -27133,7 +27668,7 @@ colors. `vc-annotate-background' specifies the background color. ;;;*** -;;;### (autoloads nil "vc-cvs" "vc-cvs.el" (16908 33361)) +;;;### (autoloads nil "vc-cvs" "vc-cvs.el" (17141 23014)) ;;; Generated autoloads from vc-cvs.el (defun vc-cvs-registered (f) (when (file-readable-p (expand-file-name @@ -27143,7 +27678,7 @@ colors. `vc-annotate-background' specifies the background color. ;;;*** -;;;### (autoloads nil "vc-mcvs" "vc-mcvs.el" (16908 33361)) +;;;### (autoloads nil "vc-mcvs" "vc-mcvs.el" (17141 23016)) ;;; Generated autoloads from vc-mcvs.el (defun vc-mcvs-registered (file) (if (vc-find-root file "MCVS/CVS") @@ -27154,7 +27689,7 @@ colors. `vc-annotate-background' specifies the background color. ;;;*** ;;;### (autoloads (vc-rcs-master-templates) "vc-rcs" "vc-rcs.el" -;;;;;; (16858 50920)) +;;;;;; (17141 23021)) ;;; Generated autoloads from vc-rcs.el (defvar vc-rcs-master-templates (quote ("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "\ @@ -27167,7 +27702,7 @@ For a description of possible values, see `vc-check-master-templates'.") ;;;*** ;;;### (autoloads (vc-sccs-master-templates) "vc-sccs" "vc-sccs.el" -;;;;;; (16701 32674)) +;;;;;; (17141 23021)) ;;; Generated autoloads from vc-sccs.el (defvar vc-sccs-master-templates (quote ("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)) "\ @@ -27184,7 +27719,7 @@ find any project directory." (let ((project-dir (getenv "PROJECTDIR")) dirs dir) ;;;*** -;;;### (autoloads nil "vc-svn" "vc-svn.el" (16908 33361)) +;;;### (autoloads nil "vc-svn" "vc-svn.el" (17141 23024)) ;;; Generated autoloads from vc-svn.el (defun vc-svn-registered (f) (when (file-readable-p (expand-file-name @@ -27197,7 +27732,7 @@ find any project directory." (let ((project-dir (getenv "PROJECTDIR")) dirs dir) ;;;*** ;;;### (autoloads (vhdl-mode) "vhdl-mode" "progmodes/vhdl-mode.el" -;;;;;; (16858 50937)) +;;;;;; (17144 58085)) ;;; Generated autoloads from progmodes/vhdl-mode.el (autoload (quote vhdl-mode) "vhdl-mode" "\ @@ -27722,7 +28257,7 @@ Key bindings: ;;;*** -;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (16423 23570)) +;;;### (autoloads (vi-mode) "vi" "emulation/vi.el" (17096 12516)) ;;; Generated autoloads from emulation/vi.el (autoload (quote vi-mode) "vi" "\ @@ -27777,7 +28312,7 @@ Syntax table and abbrevs while in vi mode remain as they were in Emacs. ;;;### (autoloads (viqr-pre-write-conversion viqr-post-read-conversion ;;;;;; viet-encode-viqr-buffer viet-encode-viqr-region viet-decode-viqr-buffer ;;;;;; viet-decode-viqr-region viet-encode-viscii-char) "viet-util" -;;;;;; "language/viet-util.el" (16213 43280)) +;;;;;; "language/viet-util.el" (17097 30357)) ;;; Generated autoloads from language/viet-util.el (autoload (quote viet-encode-viscii-char) "viet-util" "\ @@ -27823,8 +28358,8 @@ Not documented ;;;### (autoloads (View-exit-and-edit view-mode-enter view-mode view-buffer-other-frame ;;;;;; view-buffer-other-window view-buffer view-file-other-frame -;;;;;; view-file-other-window view-file) "view" "view.el" (16764 -;;;;;; 51519)) +;;;;;; view-file-other-window view-file) "view" "view.el" (17141 +;;;;;; 23036)) ;;; Generated autoloads from view.el (defvar view-mode nil "\ @@ -28031,8 +28566,8 @@ Exit View mode and make the current buffer editable. ;;;*** -;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (16213 -;;;;;; 43273)) +;;;### (autoloads (vip-mode vip-setup) "vip" "emulation/vip.el" (17134 +;;;;;; 16212)) ;;; Generated autoloads from emulation/vip.el (autoload (quote vip-setup) "vip" "\ @@ -28048,7 +28583,7 @@ Turn on VIP emulation of VI. ;;;*** ;;;### (autoloads (viper-mode toggle-viper-mode) "viper" "emulation/viper.el" -;;;;;; (16923 3621)) +;;;;;; (17141 11160)) ;;; Generated autoloads from emulation/viper.el (autoload (quote toggle-viper-mode) "viper" "\ @@ -28058,14 +28593,14 @@ If Viper is enabled, turn it off. Otherwise, turn it on. \(fn)" t nil) (autoload (quote viper-mode) "viper" "\ -Turn on Viper emulation of Vi. +Turn on Viper emulation of Vi in Emacs. See Info node `(viper)Viper'. \(fn)" t nil) ;;;*** ;;;### (autoloads (warn lwarn display-warning) "warnings" "emacs-lisp/warnings.el" -;;;;;; (16908 33361)) +;;;;;; (17141 49)) ;;; Generated autoloads from emacs-lisp/warnings.el (defvar warning-prefix-function nil "\ @@ -28101,7 +28636,9 @@ or a list of symbols whose first element is a custom group name. \(The rest of the symbols represent subcategories, for warning purposes only, and you can use whatever symbols you like.) -LEVEL should be either :warning, :error, or :emergency. +LEVEL should be either :debug, :warning, :error, or :emergency +\(but see `warning-minimum-level' and `warning-minimum-log-level'). + :emergency -- a problem that will seriously impair Emacs operation soon if you do not attend to it promptly. :error -- data or circumstances that are inherently wrong. @@ -28129,11 +28666,14 @@ or a list of symbols whose first element is a custom group name. \(The rest of the symbols represent subcategories and can be whatever you like.) -LEVEL should be either :warning, :error, or :emergency. +LEVEL should be either :debug, :warning, :error, or :emergency +\(but see `warning-minimum-level' and `warning-minimum-log-level'). + :emergency -- a problem that will seriously impair Emacs operation soon if you do not attend to it promptly. :error -- invalid data or circumstances. :warning -- suspicious data or circumstances. +:debug -- info for debugging only. \(fn TYPE LEVEL MESSAGE &rest ARGS)" nil nil) @@ -28148,13 +28688,15 @@ this is equivalent to `display-warning', using ;;;*** ;;;### (autoloads (wdired-change-to-wdired-mode) "wdired" "wdired.el" -;;;;;; (16923 3610)) +;;;;;; (17141 23042)) ;;; Generated autoloads from wdired.el (autoload (quote wdired-change-to-wdired-mode) "wdired" "\ Put a dired buffer in a mode in which filenames are editable. -In this mode the names of the files can be changed, and after -typing C-c C-c the files and directories in disk are renamed. +\\<wdired-mode-map> +This mode allows the user to change the names of the files, and after +typing \\[wdired-finish-edit] Emacs renames the files and directories +in disk. See `wdired-mode'. @@ -28162,7 +28704,7 @@ See `wdired-mode'. ;;;*** -;;;### (autoloads (webjump) "webjump" "net/webjump.el" (16423 23573)) +;;;### (autoloads (webjump) "webjump" "net/webjump.el" (17134 16307)) ;;; Generated autoloads from net/webjump.el (autoload (quote webjump) "webjump" "\ @@ -28179,7 +28721,7 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke ;;;*** ;;;### (autoloads (which-function-mode) "which-func" "progmodes/which-func.el" -;;;;;; (16820 16328)) +;;;;;; (17134 4682)) ;;; Generated autoloads from progmodes/which-func.el (put 'which-func-format 'risky-local-variable t) (put 'which-func-current 'risky-local-variable t) @@ -28194,6 +28736,8 @@ use either \\[customize] or the function `which-function-mode'.") (custom-autoload (quote which-function-mode) "which-func") +(put (quote which-function-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote which-function-mode) "which-func" "\ Toggle Which Function mode, globally. When Which Function mode is enabled, the current function name is @@ -28211,7 +28755,7 @@ and off otherwise. ;;;;;; whitespace-buffer whitespace-toggle-ateol-check whitespace-toggle-spacetab-check ;;;;;; whitespace-toggle-indent-check whitespace-toggle-trailing-check ;;;;;; whitespace-toggle-leading-check) "whitespace" "whitespace.el" -;;;;;; (16764 51519)) +;;;;;; (17141 23042)) ;;; Generated autoloads from whitespace.el (autoload (quote whitespace-toggle-leading-check) "whitespace" "\ @@ -28283,6 +28827,8 @@ use either \\[customize] or the function `whitespace-global-mode'.") (custom-autoload (quote whitespace-global-mode) "whitespace") +(put (quote whitespace-global-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote whitespace-global-mode) "whitespace" "\ Toggle using Whitespace mode in new buffers. With ARG, turn the mode on iff ARG is positive. @@ -28301,7 +28847,7 @@ This is meant to be added buffer-locally to `write-file-functions'. ;;;*** ;;;### (autoloads (widget-minor-mode widget-browse-other-window widget-browse -;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (16213 43272)) +;;;;;; widget-browse-at) "wid-browse" "wid-browse.el" (17141 23042)) ;;; Generated autoloads from wid-browse.el (autoload (quote widget-browse-at) "wid-browse" "\ @@ -28328,8 +28874,8 @@ With arg, turn widget mode on if and only if arg is positive. ;;;*** ;;;### (autoloads (widget-setup widget-insert widget-delete widget-create -;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (16894 -;;;;;; 3340)) +;;;;;; widget-prompt-value widgetp) "wid-edit" "wid-edit.el" (17141 +;;;;;; 23047)) ;;; Generated autoloads from wid-edit.el (autoload (quote widgetp) "wid-edit" "\ @@ -28371,8 +28917,8 @@ Setup current buffer so editing string widgets works. ;;;*** ;;;### (autoloads (windmove-default-keybindings windmove-down windmove-right -;;;;;; windmove-up windmove-left) "windmove" "windmove.el" (16710 -;;;;;; 51039)) +;;;;;; windmove-up windmove-left) "windmove" "windmove.el" (17141 +;;;;;; 23049)) ;;; Generated autoloads from windmove.el (autoload (quote windmove-left) "windmove" "\ @@ -28425,11 +28971,11 @@ Default MODIFIER is 'shift. ;;;*** ;;;### (autoloads (winner-mode winner-mode) "winner" "winner.el" -;;;;;; (16792 36614)) +;;;;;; (17141 23053)) ;;; Generated autoloads from winner.el (defvar winner-mode nil "\ -Toggle winner-mode. +Toggle Winner mode. Setting this variable directly does not take effect; use either \\[customize] or the function `winner-mode'.") @@ -28444,7 +28990,7 @@ With arg, turn Winner mode on if and only if arg is positive. ;;;*** ;;;### (autoloads (woman-find-file woman-dired-find-file woman) "woman" -;;;;;; "woman.el" (16875 35928)) +;;;;;; "woman.el" (17141 23061)) ;;; Generated autoloads from woman.el (autoload (quote woman) "woman" "\ @@ -28480,7 +29026,7 @@ decompress the file if appropriate. See the documentation for the ;;;*** ;;;### (autoloads (wordstar-mode) "ws-mode" "emulation/ws-mode.el" -;;;;;; (16213 43273)) +;;;;;; (17134 16237)) ;;; Generated autoloads from emulation/ws-mode.el (autoload (quote wordstar-mode) "ws-mode" "\ @@ -28593,7 +29139,7 @@ The key bindings are: ;;;*** ;;;### (autoloads (xml-parse-region xml-parse-file) "xml" "xml.el" -;;;;;; (16830 50347)) +;;;;;; (17144 6225)) ;;; Generated autoloads from xml.el (autoload (quote xml-parse-file) "xml" "\ @@ -28618,8 +29164,8 @@ If PARSE-NS is non-nil, then QNAMES are expanded. ;;;*** -;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (16875 -;;;;;; 35928)) +;;;### (autoloads (xterm-mouse-mode) "xt-mouse" "xt-mouse.el" (17141 +;;;;;; 23065)) ;;; Generated autoloads from xt-mouse.el (defvar xterm-mouse-mode nil "\ @@ -28630,18 +29176,25 @@ use either \\[customize] or the function `xterm-mouse-mode'.") (custom-autoload (quote xterm-mouse-mode) "xt-mouse") +(put (quote xterm-mouse-mode) (quote custom-set) (quote custom-set-minor-mode)) + (autoload (quote xterm-mouse-mode) "xt-mouse" "\ Toggle XTerm mouse mode. With prefix arg, turn XTerm mouse mode on iff arg is positive. -Turn it on to use emacs mouse commands, and off to use xterm mouse commands. +Turn it on to use Emacs mouse commands, and off to use xterm mouse commands. +This works in terminal emulators compatible with xterm. It only +works for simple uses of the mouse. Basically, only non-modified +single clicks are supported. When turned on, the normal xterm +mouse functionality for such clicks is still available by holding +down the SHIFT key while pressing the mouse button. \(fn &optional ARG)" t nil) ;;;*** ;;;### (autoloads (yenc-extract-filename yenc-decode-region) "yenc" -;;;;;; "gnus/yenc.el" (16697 49031)) +;;;;;; "gnus/yenc.el" (17141 6846)) ;;; Generated autoloads from gnus/yenc.el (autoload (quote yenc-decode-region) "yenc" "\ @@ -28657,7 +29210,7 @@ Extract file name from an yenc header. ;;;*** ;;;### (autoloads (psychoanalyze-pinhead apropos-zippy insert-zippyism -;;;;;; yow) "yow" "play/yow.el" (16213 43281)) +;;;;;; yow) "yow" "play/yow.el" (17134 16337)) ;;; Generated autoloads from play/yow.el (autoload (quote yow) "yow" "\ @@ -28683,7 +29236,7 @@ Zippy goes to the analyst. ;;;*** -;;;### (autoloads (zone) "zone" "play/zone.el" (16858 50933)) +;;;### (autoloads (zone) "zone" "play/zone.el" (17134 16337)) ;;; Generated autoloads from play/zone.el (autoload (quote zone) "zone" "\ @@ -28694,7 +29247,7 @@ Zone out, completely. ;;;*** ;;;### (autoloads (zone-mode zone-mode-update-serial-hook) "zone-mode" -;;;;;; "net/zone-mode.el" (16377 12872)) +;;;;;; "net/zone-mode.el" (17134 16307)) ;;; Generated autoloads from net/zone-mode.el (autoload (quote zone-mode-update-serial-hook) "zone-mode" "\ @@ -28761,25 +29314,24 @@ Zone-mode does two things: ;;;;;; "eshell/esh-cmd.el" "eshell/esh-ext.el" "eshell/esh-io.el" ;;;;;; "eshell/esh-maint.el" "eshell/esh-module.el" "eshell/esh-opt.el" ;;;;;; "eshell/esh-proc.el" "eshell/esh-util.el" "eshell/esh-var.el" -;;;;;; "faces.el" "files.el" "filesets.el" "foldout.el" "font-core.el" -;;;;;; "format.el" "forms-d2.el" "forms-pass.el" "frame.el" "generic-x.el" -;;;;;; "gnus/compface.el" "gnus/dig.el" "gnus/dns.el" "gnus/format-spec.el" -;;;;;; "gnus/gnus-async.el" "gnus/gnus-bcklg.el" "gnus/gnus-cite.el" -;;;;;; "gnus/gnus-cus.el" "gnus/gnus-demon.el" "gnus/gnus-diary.el" -;;;;;; "gnus/gnus-dup.el" "gnus/gnus-eform.el" "gnus/gnus-ems.el" -;;;;;; "gnus/gnus-gl.el" "gnus/gnus-int.el" "gnus/gnus-logic.el" -;;;;;; "gnus/gnus-mh.el" "gnus/gnus-nocem.el" "gnus/gnus-salt.el" -;;;;;; "gnus/gnus-score.el" "gnus/gnus-setup.el" "gnus/gnus-srvr.el" -;;;;;; "gnus/gnus-sum.el" "gnus/gnus-topic.el" "gnus/gnus-undo.el" -;;;;;; "gnus/gnus-util.el" "gnus/gnus-uu.el" "gnus/gnus-vm.el" "gnus/hex-util.el" -;;;;;; "gnus/ietf-drums.el" "gnus/imap.el" "gnus/legacy-gnus-agent.el" -;;;;;; "gnus/mail-parse.el" "gnus/mail-prsvr.el" "gnus/mail-source.el" -;;;;;; "gnus/mailcap.el" "gnus/messcompat.el" "gnus/mm-bodies.el" -;;;;;; "gnus/mm-decode.el" "gnus/mm-encode.el" "gnus/mm-util.el" -;;;;;; "gnus/mm-view.el" "gnus/mml-sec.el" "gnus/mml-smime.el" "gnus/mml.el" -;;;;;; "gnus/nnagent.el" "gnus/nnbabyl.el" "gnus/nndb.el" "gnus/nndir.el" -;;;;;; "gnus/nndraft.el" "gnus/nneething.el" "gnus/nngateway.el" -;;;;;; "gnus/nnheader.el" "gnus/nnimap.el" "gnus/nnlistserv.el" +;;;;;; "faces.el" "files.el" "foldout.el" "font-core.el" "format.el" +;;;;;; "forms-d2.el" "forms-pass.el" "frame.el" "generic-x.el" "gnus/compface.el" +;;;;;; "gnus/dig.el" "gnus/dns.el" "gnus/format-spec.el" "gnus/gnus-async.el" +;;;;;; "gnus/gnus-bcklg.el" "gnus/gnus-cite.el" "gnus/gnus-cus.el" +;;;;;; "gnus/gnus-demon.el" "gnus/gnus-diary.el" "gnus/gnus-dup.el" +;;;;;; "gnus/gnus-eform.el" "gnus/gnus-ems.el" "gnus/gnus-gl.el" +;;;;;; "gnus/gnus-int.el" "gnus/gnus-logic.el" "gnus/gnus-mh.el" +;;;;;; "gnus/gnus-nocem.el" "gnus/gnus-salt.el" "gnus/gnus-score.el" +;;;;;; "gnus/gnus-setup.el" "gnus/gnus-srvr.el" "gnus/gnus-sum.el" +;;;;;; "gnus/gnus-topic.el" "gnus/gnus-undo.el" "gnus/gnus-util.el" +;;;;;; "gnus/gnus-uu.el" "gnus/gnus-vm.el" "gnus/hex-util.el" "gnus/ietf-drums.el" +;;;;;; "gnus/imap.el" "gnus/legacy-gnus-agent.el" "gnus/mail-parse.el" +;;;;;; "gnus/mail-prsvr.el" "gnus/mail-source.el" "gnus/mailcap.el" +;;;;;; "gnus/messcompat.el" "gnus/mm-bodies.el" "gnus/mm-decode.el" +;;;;;; "gnus/mm-encode.el" "gnus/mm-util.el" "gnus/mm-view.el" "gnus/mml-sec.el" +;;;;;; "gnus/mml-smime.el" "gnus/mml.el" "gnus/nnagent.el" "gnus/nnbabyl.el" +;;;;;; "gnus/nndb.el" "gnus/nndir.el" "gnus/nndraft.el" "gnus/nneething.el" +;;;;;; "gnus/nngateway.el" "gnus/nnheader.el" "gnus/nnimap.el" "gnus/nnlistserv.el" ;;;;;; "gnus/nnmail.el" "gnus/nnmaildir.el" "gnus/nnmbox.el" "gnus/nnmh.el" ;;;;;; "gnus/nnnil.el" "gnus/nnoo.el" "gnus/nnrss.el" "gnus/nnslashdot.el" ;;;;;; "gnus/nnspool.el" "gnus/nntp.el" "gnus/nnultimate.el" "gnus/nnvirtual.el" @@ -28787,61 +29339,60 @@ Zone-mode does two things: ;;;;;; "gnus/pgg-gpg.el" "gnus/pgg-parse.el" "gnus/pgg-pgp.el" "gnus/pgg-pgp5.el" ;;;;;; "gnus/pop3.el" "gnus/rfc1843.el" "gnus/rfc2045.el" "gnus/rfc2047.el" ;;;;;; "gnus/rfc2104.el" "gnus/rfc2231.el" "gnus/sieve-manage.el" -;;;;;; "gnus/smime.el" "gnus/spam-report.el" "gnus/spam-stat.el" -;;;;;; "gnus/starttls.el" "gnus/utf7.el" "gnus/webmail.el" "help.el" -;;;;;; "indent.el" "international/characters.el" "international/fontset.el" -;;;;;; "international/iso-ascii.el" "international/iso-insert.el" -;;;;;; "international/iso-swed.el" "international/ja-dic-cnv.el" -;;;;;; "international/ja-dic-utl.el" "international/latin-1.el" -;;;;;; "international/latin-2.el" "international/latin-3.el" "international/latin-4.el" -;;;;;; "international/latin-5.el" "international/latin-8.el" "international/latin-9.el" -;;;;;; "international/mule-cmds.el" "international/mule-conf.el" +;;;;;; "gnus/smime.el" "gnus/spam-stat.el" "gnus/starttls.el" "gnus/utf7.el" +;;;;;; "gnus/webmail.el" "help.el" "indent.el" "international/characters.el" +;;;;;; "international/fontset.el" "international/iso-ascii.el" "international/iso-insert.el" +;;;;;; "international/ja-dic-cnv.el" "international/ja-dic-utl.el" +;;;;;; "international/latin-1.el" "international/latin-2.el" "international/latin-3.el" +;;;;;; "international/latin-4.el" "international/latin-5.el" "international/latin-8.el" +;;;;;; "international/latin-9.el" "international/mule-cmds.el" "international/mule-conf.el" ;;;;;; "international/mule.el" "international/ogonek.el" "international/subst-big5.el" ;;;;;; "international/subst-gb2312.el" "international/subst-jis.el" ;;;;;; "international/subst-ksc.el" "international/swedish.el" "international/ucs-tables.el" ;;;;;; "international/utf-16.el" "international/utf-7.el" "international/utf-8.el" -;;;;;; "isearch.el" "kermit.el" "language/chinese.el" "language/cyrillic.el" -;;;;;; "language/czech.el" "language/devanagari.el" "language/english.el" -;;;;;; "language/ethiopic.el" "language/european.el" "language/georgian.el" -;;;;;; "language/greek.el" "language/hebrew.el" "language/indian.el" -;;;;;; "language/japanese.el" "language/kannada.el" "language/korean.el" -;;;;;; "language/lao.el" "language/malayalam.el" "language/misc-lang.el" -;;;;;; "language/romanian.el" "language/slovak.el" "language/tamil.el" -;;;;;; "language/thai-word.el" "language/thai.el" "language/tibetan.el" -;;;;;; "language/utf-8-lang.el" "language/vietnamese.el" "ldefs-boot.el" -;;;;;; "loadup.el" "mail/blessmail.el" "mail/mailheader.el" "mail/mailpost.el" -;;;;;; "mail/mspools.el" "mail/rfc2368.el" "mail/rfc822.el" "mail/rmail-spam-filter.el" -;;;;;; "mail/uce.el" "mail/vms-pmail.el" "mh-e/mh-acros.el" "mh-e/mh-alias.el" -;;;;;; "mh-e/mh-customize.el" "mh-e/mh-funcs.el" "mh-e/mh-gnus.el" -;;;;;; "mh-e/mh-identity.el" "mh-e/mh-inc.el" "mh-e/mh-index.el" -;;;;;; "mh-e/mh-junk.el" "mh-e/mh-loaddefs.el" "mh-e/mh-mime.el" -;;;;;; "mh-e/mh-pick.el" "mh-e/mh-print.el" "mh-e/mh-seq.el" "mh-e/mh-speed.el" -;;;;;; "mh-e/mh-utils.el" "misc.el" "mouse-copy.el" "mouse-drag.el" -;;;;;; "mouse.el" "net/eudc-vars.el" "net/eudcb-bbdb.el" "net/eudcb-ldap.el" -;;;;;; "net/eudcb-ph.el" "net/ldap.el" "net/netrc.el" "net/tls.el" -;;;;;; "net/tramp-ftp.el" "net/tramp-smb.el" "net/tramp-util.el" +;;;;;; "isearch.el" "jka-cmpr-hook.el" "kermit.el" "language/chinese.el" +;;;;;; "language/cyrillic.el" "language/czech.el" "language/devanagari.el" +;;;;;; "language/english.el" "language/ethiopic.el" "language/european.el" +;;;;;; "language/georgian.el" "language/greek.el" "language/hebrew.el" +;;;;;; "language/indian.el" "language/japanese.el" "language/kannada.el" +;;;;;; "language/korean.el" "language/lao.el" "language/malayalam.el" +;;;;;; "language/misc-lang.el" "language/romanian.el" "language/slovak.el" +;;;;;; "language/tamil.el" "language/thai-word.el" "language/thai.el" +;;;;;; "language/tibetan.el" "language/utf-8-lang.el" "language/vietnamese.el" +;;;;;; "ldefs-boot.el" "loadup.el" "mail/blessmail.el" "mail/mailheader.el" +;;;;;; "mail/mailpost.el" "mail/mspools.el" "mail/rfc2368.el" "mail/rfc822.el" +;;;;;; "mail/rmail-spam-filter.el" "mail/uce.el" "mail/vms-pmail.el" +;;;;;; "mh-e/mh-acros.el" "mh-e/mh-alias.el" "mh-e/mh-customize.el" +;;;;;; "mh-e/mh-funcs.el" "mh-e/mh-gnus.el" "mh-e/mh-identity.el" +;;;;;; "mh-e/mh-inc.el" "mh-e/mh-index.el" "mh-e/mh-junk.el" "mh-e/mh-loaddefs.el" +;;;;;; "mh-e/mh-mime.el" "mh-e/mh-pick.el" "mh-e/mh-print.el" "mh-e/mh-seq.el" +;;;;;; "mh-e/mh-speed.el" "mh-e/mh-utils.el" "misc.el" "mouse-copy.el" +;;;;;; "mouse-drag.el" "mouse.el" "net/eudc-vars.el" "net/eudcb-bbdb.el" +;;;;;; "net/eudcb-ldap.el" "net/eudcb-ph.el" "net/ldap.el" "net/netrc.el" +;;;;;; "net/tls.el" "net/tramp-ftp.el" "net/tramp-smb.el" "net/tramp-util.el" ;;;;;; "net/tramp-uu.el" "net/tramp-vc.el" "net/trampver.el" "obsolete/awk-mode.el" -;;;;;; "obsolete/float.el" "obsolete/hilit19.el" "obsolete/keyswap.el" -;;;;;; "obsolete/mlsupport.el" "obsolete/ooutline.el" "obsolete/profile.el" -;;;;;; "obsolete/rnews.el" "obsolete/sc.el" "obsolete/sun-curs.el" -;;;;;; "obsolete/sun-fns.el" "obsolete/uncompress.el" "obsolete/x-apollo.el" -;;;;;; "obsolete/x-menu.el" "patcomp.el" "paths.el" "pcvs-info.el" -;;;;;; "pcvs-parse.el" "pcvs-util.el" "play/gamegrid.el" "play/gametree.el" -;;;;;; "play/meese.el" "progmodes/ada-prj.el" "progmodes/cc-align.el" -;;;;;; "progmodes/cc-awk.el" "progmodes/cc-bytecomp.el" "progmodes/cc-cmds.el" -;;;;;; "progmodes/cc-compat.el" "progmodes/cc-defs.el" "progmodes/cc-engine.el" +;;;;;; "obsolete/float.el" "obsolete/hilit19.el" "obsolete/iso-swed.el" +;;;;;; "obsolete/keyswap.el" "obsolete/mlsupport.el" "obsolete/ooutline.el" +;;;;;; "obsolete/profile.el" "obsolete/rnews.el" "obsolete/sc.el" +;;;;;; "obsolete/sun-curs.el" "obsolete/sun-fns.el" "obsolete/uncompress.el" +;;;;;; "obsolete/x-apollo.el" "obsolete/x-menu.el" "patcomp.el" +;;;;;; "paths.el" "pcvs-info.el" "pcvs-parse.el" "pcvs-util.el" +;;;;;; "play/gamegrid.el" "play/gametree.el" "play/meese.el" "progmodes/ada-prj.el" +;;;;;; "progmodes/cc-align.el" "progmodes/cc-awk.el" "progmodes/cc-bytecomp.el" +;;;;;; "progmodes/cc-cmds.el" "progmodes/cc-compat.el" "progmodes/cc-defs.el" ;;;;;; "progmodes/cc-fonts.el" "progmodes/cc-langs.el" "progmodes/cc-menus.el" ;;;;;; "progmodes/cc-vars.el" "progmodes/ebnf-abn.el" "progmodes/ebnf-bnf.el" ;;;;;; "progmodes/ebnf-dtd.el" "progmodes/ebnf-ebx.el" "progmodes/ebnf-iso.el" -;;;;;; "progmodes/ebnf-otz.el" "progmodes/ebnf-yac.el" "progmodes/idlw-help.el" -;;;;;; "progmodes/idlw-rinfo.el" "progmodes/idlw-toolbar.el" "progmodes/mantemp.el" -;;;;;; "progmodes/xscheme.el" "register.el" "replace.el" "s-region.el" -;;;;;; "saveplace.el" "scroll-bar.el" "select.el" "simple.el" "soundex.el" -;;;;;; "startup.el" "subdirs.el" "subr.el" "tempo.el" "term/AT386.el" -;;;;;; "term/apollo.el" "term/bg-mouse.el" "term/bobcat.el" "term/internal.el" -;;;;;; "term/iris-ansi.el" "term/linux.el" "term/lk201.el" "term/mac-win.el" -;;;;;; "term/news.el" "term/pc-win.el" "term/rxvt.el" "term/sun-mouse.el" -;;;;;; "term/sun.el" "term/sup-mouse.el" "term/tty-colors.el" "term/tvi970.el" +;;;;;; "progmodes/ebnf-otz.el" "progmodes/ebnf-yac.el" "progmodes/idlw-complete-structtag.el" +;;;;;; "progmodes/idlw-help.el" "progmodes/idlw-rinfo.el" "progmodes/idlw-toolbar.el" +;;;;;; "progmodes/mantemp.el" "progmodes/xscheme.el" "register.el" +;;;;;; "replace.el" "s-region.el" "saveplace.el" "scroll-bar.el" +;;;;;; "select.el" "simple.el" "soundex.el" "startup.el" "subdirs.el" +;;;;;; "subr.el" "tempo.el" "term/AT386.el" "term/apollo.el" "term/bg-mouse.el" +;;;;;; "term/bobcat.el" "term/cygwin.el" "term/internal.el" "term/iris-ansi.el" +;;;;;; "term/linux.el" "term/lk201.el" "term/mac-win.el" "term/news.el" +;;;;;; "term/pc-win.el" "term/rxvt.el" "term/sun-mouse.el" "term/sun.el" +;;;;;; "term/sup-mouse.el" "term/tty-colors.el" "term/tvi970.el" ;;;;;; "term/vt100.el" "term/vt102.el" "term/vt125.el" "term/vt200.el" ;;;;;; "term/vt201.el" "term/vt220.el" "term/vt240.el" "term/vt300.el" ;;;;;; "term/vt320.el" "term/vt400.el" "term/vt420.el" "term/w32-win.el" @@ -28857,7 +29408,7 @@ Zone-mode does two things: ;;;;;; "url/url-vars.el" "url/vc-dav.el" "vc-hooks.el" "vcursor.el" ;;;;;; "version.el" "vms-patch.el" "vmsproc.el" "vt-control.el" ;;;;;; "vt100-led.el" "w32-fns.el" "w32-vars.el" "widget.el" "window.el" -;;;;;; "x-dnd.el") (16960 18483 123965)) +;;;;;; "x-dnd.el") (17146 34583 615470)) ;;;*** diff --git a/lisp/ledit.el b/lisp/ledit.el index cab3c6c7d6c..bf17f3cad4f 100644 --- a/lisp/ledit.el +++ b/lisp/ledit.el @@ -1,6 +1,6 @@ ;;; ledit.el --- Emacs side of ledit interface -;; Copyright (C) 1985 Free Software Foundation, Inc. +;; Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: languages diff --git a/lisp/loadhist.el b/lisp/loadhist.el index bcdf47387da..61c4192387d 100644 --- a/lisp/loadhist.el +++ b/lisp/loadhist.el @@ -1,6 +1,7 @@ ;;; loadhist.el --- lisp functions for working with feature groups -;; Copyright (C) 1995, 1998, 2000, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1998, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> ;; Maintainer: FSF diff --git a/lisp/loadup.el b/lisp/loadup.el index d470e5d3573..29c1fb90066 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el @@ -1,6 +1,7 @@ ;;; loadup.el --- load up standardly loaded Lisp files for Emacs -;; Copyright (C) 1985, 1986, 1992, 1994, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1992, 1994, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal diff --git a/lisp/locate.el b/lisp/locate.el index 4289d3e975c..cbf2e4866ab 100644 --- a/lisp/locate.el +++ b/lisp/locate.el @@ -1,6 +1,7 @@ ;;; locate.el --- interface to the locate command -;; Copyright (C) 1996, 1998, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1998, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Peter Breton <pbreton@cs.umb.edu> ;; Keywords: unix files diff --git a/lisp/log-edit.el b/lisp/log-edit.el index a3876df8cce..2b38dcadf52 100644 --- a/lisp/log-edit.el +++ b/lisp/log-edit.el @@ -1,6 +1,7 @@ ;;; log-edit.el --- Major mode for editing CVS commit messages -;; Copyright (C) 1999,2000,2003,2004 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs cvs commit log diff --git a/lisp/log-view.el b/lisp/log-view.el index 66e8b27c0ff..fbe83d79513 100644 --- a/lisp/log-view.el +++ b/lisp/log-view.el @@ -1,6 +1,7 @@ ;;; log-view.el --- Major mode for browsing RCS/CVS/SCCS log output -;; Copyright (C) 1999, 2000, 2001, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: rcs sccs cvs log version-control diff --git a/lisp/longlines.el b/lisp/longlines.el index 57e07d1b20a..d51effdb7e2 100644 --- a/lisp/longlines.el +++ b/lisp/longlines.el @@ -1,6 +1,6 @@ ;;; longlines.el --- automatically wrap long lines -;; Copyright (C) 2000, 2001, 2004, 2005 by Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2005 Free Software Foundation, Inc. ;; Authors: Kai Grossjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> ;; Alex Schroeder <alex@gnu.org> diff --git a/lisp/lpr.el b/lisp/lpr.el index 5714c746631..c44971e4f30 100644 --- a/lisp/lpr.el +++ b/lisp/lpr.el @@ -1,7 +1,7 @@ ;;; lpr.el --- print Emacs buffer on line printer -;; Copyright (C) 1985, 1988, 1992, 1994, 2001, 2003 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1988, 1992, 1994, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: unix diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el index dee98a87823..feadbb5e2be 100644 --- a/lisp/ls-lisp.el +++ b/lisp/ls-lisp.el @@ -1,6 +1,7 @@ ;;; ls-lisp.el --- emulate insert-directory completely in Emacs Lisp -;; Copyright (C) 1992, 1994, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1994, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de> ;; Modified by: Francis J. Wright <F.J.Wright@maths.qmw.ac.uk> diff --git a/lisp/macros.el b/lisp/macros.el index 79471ed905c..7075300ba18 100644 --- a/lisp/macros.el +++ b/lisp/macros.el @@ -1,6 +1,7 @@ ;;; macros.el --- non-primitive commands for keyboard macros -;; Copyright (C) 1985, 86, 87, 92, 94, 95, 04 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1995, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: abbrev diff --git a/lisp/mail/blessmail.el b/lisp/mail/blessmail.el index c8bb2e729d2..01c52f82046 100644 --- a/lisp/mail/blessmail.el +++ b/lisp/mail/blessmail.el @@ -1,6 +1,6 @@ ;;; blessmail.el --- decide whether movemail needs special privileges -*- no-byte-compile: t -*- -;; Copyright (C) 1994 Free Software Foundation, Inc. +;; Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 2eea86e7a4a..bb88c447320 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -1,7 +1,7 @@ ;;; emacsbug.el --- command to report Emacs bugs to appropriate mailing list -;; Copyright (C) 1985, 1994, 1997, 1998, 2000, 2001, 2002 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1994, 1997, 1998, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: K. Shane Hartman ;; Maintainer: FSF diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el index e4c0cd10c13..58b6be4f5fc 100644 --- a/lisp/mail/footnote.el +++ b/lisp/mail/footnote.el @@ -1,6 +1,7 @@ ;;; footnote.el --- footnote support for message mode -*- coding: iso-latin-1;-*- -;; Copyright (C) 1997, 2000 by Free Software Foundation, Inc. +;; Copyright (C) 1997, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Steven L Baur <steve@xemacs.org> ;; Keywords: mail, news diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index 15b8dd466ad..da5ec4bfda1 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el @@ -1,7 +1,7 @@ ;;; mail-extr.el --- extract full name and address from RFC 822 mail header -*- coding: utf-8 -*- -;; Copyright (C) 1991, 1992, 1993, 1994, 1997, 2001 -;; Free Software Foundation, Inc. +;; Copyright (C) 1991, 1992, 1993, 1994, 1997, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Joe Wells <jbw@cs.bu.edu> ;; Maintainer: FSF diff --git a/lisp/mail/mail-hist.el b/lisp/mail/mail-hist.el index 0540c484a89..3010e85d31b 100644 --- a/lisp/mail/mail-hist.el +++ b/lisp/mail/mail-hist.el @@ -1,6 +1,6 @@ ;;; mail-hist.el --- headers and message body history for outgoing mail -;; Copyright (C) 1994 Free Software Foundation, Inc. +;; Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Karl Fogel <kfogel@red-bean.com> ;; Created: March, 1994 diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index 3b68506b48a..e76da171fbc 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el @@ -1,6 +1,7 @@ ;;; mail-utils.el --- utility functions used both by rmail and rnews -;; Copyright (C) 1985, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1985, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail, news diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index 941dff7ca10..270d2cd6385 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el @@ -1,7 +1,7 @@ ;;; mailabbrev.el --- abbrev-expansion of mail aliases -;; Copyright (C) 1985, 86, 87, 92, 93, 96, 1997, 2000, 2002, 2003 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1992, 1993, 1996, 1997, 2000, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Jamie Zawinski <jwz@lucid.com>, now <jwz@jwz.org> ;; Maintainer: FSF diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index 55c284dda7d..48f3494a0e6 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el @@ -1,6 +1,7 @@ ;;; mailalias.el --- expand and complete mailing address aliases -;; Copyright (C) 1985, 1987, 1995, 1996, 1997 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1987, 1995, 1996, 1997, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail @@ -261,6 +262,12 @@ By default, this is the file specified by `mail-personal-alias-file'." ((file-exists-p (setq file (concat "~/" file))) (insert-file-contents file)) (t (setq file nil))) + (goto-char (point-min)) + ;; Delete comments from the contents. + (while (search-forward "# " nil t) + (let ((p (- (point) 2))) + (end-of-line) + (delete-region p (point)))) ;; Don't lose if no final newline. (goto-char (point-max)) (or (eq (preceding-char) ?\n) (newline)) diff --git a/lisp/mail/mailheader.el b/lisp/mail/mailheader.el index e7c4320cc48..1e9a24da341 100644 --- a/lisp/mail/mailheader.el +++ b/lisp/mail/mailheader.el @@ -1,6 +1,6 @@ ;;; mailheader.el --- mail header parsing, merging, formatting -;; Copyright (C) 1996 by Free Software Foundation, Inc. +;; Copyright (C) 1996, 2002, 2003, 2004, 2005 by Free Software Foundation, Inc. ;; Author: Erik Naggum <erik@naggum.no> ;; Keywords: tools, mail, news diff --git a/lisp/mail/metamail.el b/lisp/mail/metamail.el index 0c5189e53e0..0814f6e008b 100644 --- a/lisp/mail/metamail.el +++ b/lisp/mail/metamail.el @@ -1,6 +1,7 @@ ;;; metamail.el --- Metamail interface for GNU Emacs -;; Copyright (C) 1993, 1996 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1996, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> ;; Keywords: mail, news, mime, multimedia diff --git a/lisp/mail/mspools.el b/lisp/mail/mspools.el index d1a3072eee8..575c233d9a7 100644 --- a/lisp/mail/mspools.el +++ b/lisp/mail/mspools.el @@ -1,6 +1,6 @@ ;;; mspools.el --- show mail spools waiting to be read -;; Copyright (C) 1997 Free Software Foundation, Inc. +;; Copyright (C) 1997, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Stephen Eglen <stephen@gnu.org> ;; Maintainer: Stephen Eglen <stephen@gnu.org> diff --git a/lisp/mail/reporter.el b/lisp/mail/reporter.el index 673cb14e255..058d0a83f23 100644 --- a/lisp/mail/reporter.el +++ b/lisp/mail/reporter.el @@ -1,6 +1,7 @@ ;;; reporter.el --- customizable bug reporting of lisp programs -;; Copyright (C) 1993,1994,1995,1996,1997,1998 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: 1993-1998 Barry A. Warsaw ;; Maintainer: FSF @@ -263,7 +264,7 @@ dumped." varlist) (lisp-indent-line) (insert ")\n")) - (insert-buffer elbuf)) + (insert-buffer-substring elbuf)) (error (insert "State could not be dumped due to the following error:\n\n" (format "%s" fault) diff --git a/lisp/mail/rfc2368.el b/lisp/mail/rfc2368.el index d6864b664ed..a21deb394cf 100644 --- a/lisp/mail/rfc2368.el +++ b/lisp/mail/rfc2368.el @@ -3,7 +3,8 @@ ;; Author: Sen Nagata <sen@eccosys.com> ;; Keywords: mail -;; Copyright (C) 1998, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1998, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. diff --git a/lisp/mail/rfc822.el b/lisp/mail/rfc822.el index 4c7cfeeaa69..9e57226d7c2 100644 --- a/lisp/mail/rfc822.el +++ b/lisp/mail/rfc822.el @@ -1,6 +1,7 @@ ;;; rfc822.el --- hairy rfc822 parser for mail and news and suchlike -;; Copyright (C) 1986, 87, 1990 Free Software Foundation, Inc. +;; Copyright (C) 1986, 1987, 1990, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Richard Mlynarik <mly@eddie.mit.edu> ;; Maintainer: FSF diff --git a/lisp/mail/rmail-spam-filter.el b/lisp/mail/rmail-spam-filter.el index 9cd2123e3c3..20acb87831a 100644 --- a/lisp/mail/rmail-spam-filter.el +++ b/lisp/mail/rmail-spam-filter.el @@ -1,7 +1,6 @@ ;;; rmail-spam-filter.el --- spam filter for rmail, the emacs mail reader. -;; Copyright (C) 2002 -;; Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Keywords: email, spam, filter, rmail ;; Author: Eli Tziperman <eli AT deas.harvard.edu> @@ -183,7 +182,7 @@ may be either 'this is spam' or 'another spam', use the regexp: 'this is spam\\|another spam' (without the single quotes). To specify that if the contents contain both this and that the message is spam, specify 'this\\&that' in the appropriate spam definition field." - :type '(repeat + :type '(repeat (list :format "%v" (cons :format "%v" :value (from . "") (const :format "" from) @@ -202,7 +201,7 @@ specify 'this\\&that' in the appropriate spam definition field." (string :tag "Contents" "")) (cons :format "%v" :value (action . output-and-delete) (const :format "" action) - (choice :tag "Action selection" + (choice :tag "Action selection" (const :tag "output to spam folder and delete" output-and-delete) (const :tag "delete spam" delete-spam) )) @@ -218,7 +217,7 @@ for interaction with `rsf-bbdb-auto-delete-spam-entries'") (defun check-field (field-symbol message-data definition result) "Check if field-symbol is in `rsf-definitions-alist'. Capture maybe-spam and this-is-a-spam-email in a cons in result, -where maybe-spam is in first and this-is-a-spam-email is in rest. +where maybe-spam is in first and this-is-a-spam-email is in rest. The values are returned by destructively changing result. If FIELD-SYMBOL field does not exist AND is not specified, this may still be spam due to another element... @@ -259,7 +258,7 @@ it from rmail file. Called for each new message retrieved by (save-current-msg) (rsf-saved-bbdb/mail_auto_create_p nil) ) - + ;; make sure bbdb does not create entries for messages while spam ;; filter is scanning the rmail file: (setq rsf-saved-bbdb/mail_auto_create_p 'bbdb/mail_auto_create_p) @@ -291,7 +290,7 @@ it from rmail file. Called for each new message retrieved by ;;; do we want to ignore case in spam definitions: (setq case-fold-search rsf-ignore-case) - + ;; Check for blind CC condition. Set vars such that while ;; loop will be bypassed and spam condition will trigger (if (and rsf-no-blind-cc @@ -339,7 +338,7 @@ it from rmail file. Called for each new message retrieved by ;; start scanning incoming message: ;;--------------------------------- - + ;; Maybe the different fields should also be done in a ;; loop to make the whole thing more flexible ;; if sender field is not specified in message being @@ -352,16 +351,16 @@ it from rmail file. Called for each new message retrieved by ;; next, if spam was not ruled out already, check subject: (check-field 'subject message-subject definition maybe-spam) ;; next, if spam was not ruled out already, check content-type: - (check-field 'content-type message-content-type + (check-field 'content-type message-content-type definition maybe-spam) ;; next, if spam was not ruled out already, check ;; contents: if contents field is not specified, this may ;; still be spam due to another element... - (check-field 'contents + (check-field 'contents (buffer-substring (rmail-msgbeg msg) (rmail-msgend msg)) definition maybe-spam) - + ;; if the search in rsf-definitions-alist found ;; that this email is spam, output the email to the spam ;; rmail file, mark the email for deletion, leave the @@ -378,7 +377,7 @@ it from rmail file. Called for each new message retrieved by (setq num-element (+ num-element 1))) ) ) - + ;; (BK) re-set originally used variables (setq this-is-a-spam-email (rest maybe-spam) maybe-spam (first maybe-spam)) @@ -610,9 +609,9 @@ automatically, no user input is required." (while definitions (setq current (car definitions)) (setq definitions (cdr definitions)) - (setq result + (setq result (append result - (list + (list (list (assoc 'from current) (assoc 'to current) (assoc 'subject current) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 37df6f66193..e216300997e 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1,7 +1,7 @@ ;;; rmail.el --- main code of "RMAIL" mail reader for Emacs -;; Copyright (C) 1985,86,87,88,93,94,95,96,97,98,2000,01,2004,2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1996, 1997, 1998, +;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail @@ -108,7 +108,7 @@ Please use `rmail-remote-password' instead." :group 'rmail-obsolete) (defcustom rmail-pop-password-required nil - "*Non-nil if a password is required when reading mail from a POP server. + "*Non-nil if a password is required when reading mail from a POP server. Please use rmail-remote-password-required instead." :type 'boolean :group 'rmail-obsolete) @@ -251,21 +251,33 @@ It is useful to set this variable in the site customization file.") "\\|^x400-received:\\|^x400-mts-identifier:\\|^x400-content-type:" "\\|^\\(resent-\\|\\)message-id:\\|^summary-line:\\|^resent-date:" "\\|^nntp-posting-host:\\|^path:\\|^x-char.*:\\|^x-face:\\|^face:" - "\\|^x-mailer:\\|^delivered-to:\\|^lines:\\|^mime-version:" + "\\|^x-mailer:\\|^delivered-to:\\|^lines:" "\\|^content-transfer-encoding:\\|^x-coding-system:" "\\|^return-path:\\|^errors-to:\\|^return-receipt-to:" - "\\|^x-sign:\\|^x-beenthere:\\|^x-mailman-version:\\|^x-mailman-copy:" "\\|^precedence:\\|^list-help:\\|^list-post:\\|^list-subscribe:" "\\|^list-id:\\|^list-unsubscribe:\\|^list-archive:" - "\\|^content-type:\\|^content-length:" - "\\|^x-attribution:\\|^x-disclaimer:\\|^x-trace:" - "\\|^x-complaints-to:\\|^nntp-posting-date:\\|^user-agent" - "\\|^importance:\\|^envelope-to:\\|^delivery-date" - "\\|^x.*-priority:\\|^x-mimeole:\\|^x-archive:" - "\\|^resent-face:\\|^resent-x.*:\\|^resent-organization\\|^resent-openpgp" - "\\|^openpgp:\\|^x-request-pgp:\\|^x-original.*:" - "\\|^x-virus-scanned:\\|^x-spam-[^s].*:") + "\\|^content-length:\\|^nntp-posting-date:\\|^user-agent" + "\\|^importance:\\|^envelope-to:\\|^delivery-date\\|^openpgp:" + "\\|^mbox-line:\\|^cancel-lock:" + "\\|^resent-face:\\|^resent-x.*:\\|^resent-organization:\\|^resent-openpgp:" + + "\\|^x-.*:") "*Regexp to match header fields that Rmail should normally hide. +\(See also `rmail-nonignored-headers', which overrides this regexp.) +This variable is used for reformatting the message header, +which normally happens once for each message, +when you view the message for the first time in Rmail. +To make a change in this variable take effect +for a message that you have already viewed, +go to that message and type \\[rmail-toggle-header] twice." + :type 'regexp + :group 'rmail-headers) + +(defcustom rmail-nonignored-headers "^x-spam-status:" + "*Regexp to match X header fields that Rmail should show. +This regexp overrides `rmail-ignored-headers'; if both this regexp +and that one match a certain header field, Rmail shows the field. + This variable is used for reformatting the message header, which normally happens once for each message, when you view the message for the first time in Rmail. @@ -952,6 +964,7 @@ Note: it means the file has no messages in it.\n\^_"))) (define-key rmail-mode-map "w" 'rmail-output-body-to-file) (define-key rmail-mode-map "x" 'rmail-expunge) (define-key rmail-mode-map "." 'rmail-beginning-of-message) + (define-key rmail-mode-map "/" 'rmail-end-of-message) (define-key rmail-mode-map "<" 'rmail-first-message) (define-key rmail-mode-map ">" 'rmail-last-message) (define-key rmail-mode-map " " 'scroll-up) @@ -1096,7 +1109,8 @@ Note: it means the file has no messages in it.\n\^_"))) All normal editing commands are turned off. Instead, these commands are available: -\\[rmail-beginning-of-message] Move point to front of this message (same as \\[beginning-of-buffer]). +\\[rmail-beginning-of-message] Move point to front of this message. +\\[rmail-end-of-message] Move point to bottom of this message. \\[scroll-up] Scroll to next screen of this message. \\[scroll-down] Scroll to previous screen of this message. \\[rmail-next-undeleted-message] Move to Next non-deleted message. @@ -1634,7 +1648,7 @@ is non-nil if the user has supplied the password interactively. (pass (match-string 5 file)) (host (substring file (or (match-end 2) (+ 3 (match-end 1)))))) - + (if (not pass) (when rmail-remote-password-required (setq got-password (not (rmail-have-password))) @@ -1652,19 +1666,19 @@ is non-nil if the user has supplied the password interactively. (or (string-equal proto "pop") (string-equal proto "imap")) supplied-password got-password)))) - + ((string-match "^po:\\([^:]+\\)\\(:\\(.*\\)\\)?" file) (let (got-password supplied-password (proto "pop") (user (match-string 1 file)) (host (match-string 3 file))) - + (when rmail-remote-password-required (setq got-password (not (rmail-have-password))) (setq supplied-password (rmail-get-remote-password nil))) (list file "pop" supplied-password got-password))) - + (t (list file nil nil nil)))) @@ -2181,7 +2195,8 @@ If the optional argument IGNORED-HEADERS is non-nil, delete all header fields whose names match that regexp. Otherwise, if `rmail-displayed-headers' is non-nil, delete all header fields *except* those whose names match that regexp. -Otherwise, delete all header fields whose names match `rmail-ignored-headers'." +Otherwise, delete all header fields whose names match `rmail-ignored-headers' +unless they also match `rmail-nonignored-headers'." (when (search-forward "\n\n" nil t) (forward-char -1) (let ((case-fold-search t) @@ -2205,15 +2220,17 @@ Otherwise, delete all header fields whose names match `rmail-ignored-headers'." (or ignored-headers (setq ignored-headers rmail-ignored-headers)) (save-restriction (narrow-to-region (point-min) (point)) + (goto-char (point-min)) (while (and ignored-headers - (progn - (goto-char (point-min)) - (re-search-forward ignored-headers nil t))) + (re-search-forward ignored-headers nil t)) (beginning-of-line) - (delete-region (point) - (if (re-search-forward "\n[^ \t]" nil t) - (1- (point)) - (point-max))))))))) + (if (looking-at rmail-nonignored-headers) + (forward-line 1) + (delete-region (point) + (save-excursion + (if (re-search-forward "\n[^ \t]" nil t) + (1- (point)) + (point-max))))))))))) (defun rmail-msg-is-pruned () (rmail-maybe-set-message-counters) @@ -2604,7 +2621,19 @@ change the invisible header text." (defun rmail-beginning-of-message () "Show current message starting from the beginning." (interactive) - (rmail-show-message rmail-current-message)) + (let ((rmail-show-message-hook + (list (function (lambda () + (goto-char (point-min))))))) + (rmail-show-message rmail-current-message))) + +(defun rmail-end-of-message () + "Show bottom of current message." + (interactive) + (let ((rmail-show-message-hook + (list (function (lambda () + (goto-char (point-max)) + (recenter (1- (window-height)))))))) + (rmail-show-message rmail-current-message))) (defun rmail-unknown-mail-followup-to () "Handle a \"Mail-Followup-To\" header field with an unknown mailing list. @@ -2614,7 +2643,7 @@ Ask the user whether to add that list name to `mail-mailing-lists'." (let ((mail-followup-to (mail-fetch-field "mail-followup-to" nil t))) (when mail-followup-to (let ((addresses - (split-string + (split-string (mail-strip-quoted-names mail-followup-to) ",[[:space:]]+" t))) (dolist (addr addresses) @@ -3398,18 +3427,11 @@ use \\[mail-yank-original] to yank the original message into it." (progn (search-forward "\n*** EOOH ***\n") (beginning-of-line) (point))))) (setq from (mail-fetch-field "from") - reply-to (or (if just-sender - (mail-fetch-field "mail-reply-to" nil t) - (mail-fetch-field "mail-followup-to" nil t)) + reply-to (or (mail-fetch-field "mail-reply-to" nil t) (mail-fetch-field "reply-to" nil t) from) - cc (and (not just-sender) - ;; mail-followup-to, if given, overrides cc. - (not (mail-fetch-field "mail-followup-to" nil t)) - (mail-fetch-field "cc" nil t)) subject (mail-fetch-field "subject") date (mail-fetch-field "date") - to (or (mail-fetch-field "to" nil t) "") message-id (mail-fetch-field "message-id") references (mail-fetch-field "references" nil nil t) resent-reply-to (mail-fetch-field "resent-reply-to" nil t) @@ -3419,7 +3441,16 @@ use \\[mail-yank-original] to yank the original message into it." ;;; resent-subject (mail-fetch-field "resent-subject") ;;; resent-date (mail-fetch-field "resent-date") ;;; resent-message-id (mail-fetch-field "resent-message-id") - ))) + ) + (unless just-sender + (if (mail-fetch-field "mail-followup-to" nil t) + ;; If this header field is present, use it instead of the To and CC fields. + (setq to (mail-fetch-field "mail-followup-to" nil t)) + (setq cc (or (mail-fetch-field "cc" nil t) "") + to (or (mail-fetch-field "to" nil t) "")))) + + )) + ;; Merge the resent-to and resent-cc into the to and cc. (if (and resent-to (not (equal resent-to ""))) (if (not (equal to "")) @@ -4058,7 +4089,6 @@ encoded string (and the same mask) will decode the string." ;;;; Desktop support -;;;###autoload (defun rmail-restore-desktop-buffer (desktop-buffer-file-name desktop-buffer-name desktop-buffer-misc) @@ -4073,6 +4103,9 @@ encoded string (and the same mask) will decode the string." (kill-buffer (current-buffer)) nil))) +(add-to-list 'desktop-buffer-mode-handlers + '(rmail-mode . rmail-restore-desktop-buffer)) + (provide 'rmail) ;;; arch-tag: cff0a950-57fe-4f73-a86e-91ff75afd06c diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el index 40dba181d5c..75de9810a37 100644 --- a/lisp/mail/rmailedit.el +++ b/lisp/mail/rmailedit.el @@ -1,6 +1,7 @@ ;;; rmailedit.el --- "RMAIL edit mode" Edit the current message -;; Copyright (C) 1985, 1994, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1994, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el index fc57b2a4d5e..9ccf45348a3 100644 --- a/lisp/mail/rmailkwd.el +++ b/lisp/mail/rmailkwd.el @@ -1,6 +1,7 @@ ;;; rmailkwd.el --- part of the "RMAIL" mail reader for Emacs -;; Copyright (C) 1985, 1988, 1994, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1988, 1994, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail diff --git a/lisp/mail/rmailmsc.el b/lisp/mail/rmailmsc.el index 50626d714ce..798d247a7d2 100644 --- a/lisp/mail/rmailmsc.el +++ b/lisp/mail/rmailmsc.el @@ -1,6 +1,6 @@ ;;; rmailmsc.el --- miscellaneous support functions for the RMAIL mail reader -;; Copyright (C) 1985 Free Software Foundation, Inc. +;; Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index d3baf08c261..a3b46ddaedf 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -1,6 +1,7 @@ ;;; rmailout.el --- "RMAIL" mail reader for Emacs: output message to a file -;; Copyright (C) 1985, 1987, 1993, 1994, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1987, 1993, 1994, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el index 32188657c44..8bb8ab69278 100644 --- a/lisp/mail/rmailsort.el +++ b/lisp/mail/rmailsort.el @@ -1,6 +1,7 @@ ;;; rmailsort.el --- Rmail: sort messages -;; Copyright (C) 1990, 1993, 1994, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1990, 1993, 1994, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> ;; Maintainer: FSF diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index e3cb4ce1eb8..129f3f48528 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -1,7 +1,7 @@ ;;; rmailsum.el --- make summary buffers for the mail reader -;; Copyright (C) 1985, 1993, 1994, 1995, 1996, 2000, 2001 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1993, 1994, 1995, 1996, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail @@ -898,6 +898,7 @@ Search, the `unseen' attribute is restored.") (define-key rmail-summary-mode-map "x" 'rmail-summary-expunge) (define-key rmail-summary-mode-map "w" 'rmail-summary-output-body) (define-key rmail-summary-mode-map "." 'rmail-summary-beginning-of-message) + (define-key rmail-summary-mode-map "/" 'rmail-summary-end-of-message) (define-key rmail-summary-mode-map "<" 'rmail-summary-first-message) (define-key rmail-summary-mode-map ">" 'rmail-summary-last-message) (define-key rmail-summary-mode-map " " 'rmail-summary-scroll-msg-up) @@ -1185,6 +1186,16 @@ move to the previous message." (defun rmail-summary-beginning-of-message () "Show current message from the beginning." (interactive) + (rmail-summary-show-message 'BEG)) + +(defun rmail-summary-end-of-message () + "Show bottom of current message." + (interactive) + (rmail-summary-show-message 'END)) + +(defun rmail-summary-show-message (where) + "Show current mail message. +Position it according to WHERE which can be BEG or END" (if (and (one-window-p) (not pop-up-frames)) ;; If there is just one window, put the summary on the top. (let ((buffer rmail-view-buffer)) @@ -1196,8 +1207,14 @@ move to the previous message." (or (eq buffer (window-buffer (next-window (frame-first-window)))) (delete-other-windows))) (pop-to-buffer rmail-view-buffer)) - (with-no-warnings - (beginning-of-buffer)) + (cond + ((eq where 'BEG) + (goto-char (point-min)) + (search-forward "\n\n")) + ((eq where 'END) + (goto-char (point-max)) + (recenter (1- (window-height)))) + ) (pop-to-buffer rmail-summary-buffer)) (defun rmail-summary-bury () diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 4abc0ee7e55..b7ea845f8ae 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -1,7 +1,7 @@ ;;; sendmail.el --- mail sending commands for Emacs. -*- byte-compile-dynamic: t -*- -;; Copyright (C) 1985, 86, 92, 93, 94, 95, 96, 98, 2000, 2001, 2002, 03, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1992, 1993, 1994, 1995, 1996, 1998, 2000, +;; 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail @@ -1432,7 +1432,9 @@ and don't delete any header fields." ;; delete that window to save screen space. ;; t means don't alter other frames. (delete-windows-on original t) - (insert-buffer original) + (with-no-warnings + ;; We really want this to set mark. + (insert-buffer original)) (set-text-properties (point) (mark t) nil)) (if (consp arg) nil diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index 5f219510b21..a180c6c67ce 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el @@ -1,6 +1,7 @@ ;;; supercite.el --- minor mode for citing mail and news replies -;; Copyright (C) 1993, 1997, 2003, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1997, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: 1993 Barry A. Warsaw <bwarsaw@python.org> ;; Maintainer: Glenn Morris <gmorris@ast.cam.ac.uk> @@ -642,8 +643,8 @@ the list should be unique." (prog1 quit-flag (setq quit-flag nil))) (progn (message "%s%s" p (single-key-description event)) - (and (fboundp 'deallocate-event) - (deallocate-event event)) + (if (fboundp 'deallocate-event) + (deallocate-event event)) (setq quit-flag nil) (signal 'quit '()))) (let ((char @@ -658,8 +659,8 @@ the list should be unique." ((setq elt (rassq char alist)) (message "%s%s" p (car elt)) (setq p (cdr elt))) - ((and (fboundp 'button-release-event-p) - (button-release-event-p event)) ; ignore them + ((if (fboundp 'button-release-event-p) + (button-release-event-p event)) ; ignore them nil) (t (message "%s%s" p (single-key-description event)) @@ -669,8 +670,8 @@ the list should be unique." (discard-input) (if (eq p prompt) (setq p (concat "Try again. " prompt))))))) - (and (fboundp 'deallocate-event) - (deallocate-event event)) + (if (fboundp 'deallocate-event) + (deallocate-event event)) p)) (defun sc-scan-info-alist (alist) @@ -1516,7 +1517,8 @@ non-nil." (progn (forward-line -1) (or (= (point) (mail-header-end)) (and (eq major-mode 'mh-letter-mode) - (mh-in-header-p))))) + (with-no-warnings + (mh-in-header-p)))))) (progn (forward-line) (let ((kill-lines-magic t)) (kill-line)))))) diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el index 2a7fedf8493..6dcf67e6d79 100644 --- a/lisp/mail/uce.el +++ b/lisp/mail/uce.el @@ -1,6 +1,7 @@ ;;; uce.el --- facilitate reply to unsolicited commercial email -;; Copyright (C) 1996, 1998, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1998, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: stanislav shalunov <shalunov@mccme.ru> ;; Created: 10 Dec 1996 diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index b19c9a140dc..5588ecf9108 100644 --- a/lisp/mail/undigest.el +++ b/lisp/mail/undigest.el @@ -1,7 +1,7 @@ ;;; undigest.el --- digest-cracking support for the RMAIL mail reader -;; Copyright (C) 1985, 1986, 1994, 1996, 2002 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1994, 1996, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el index bcac0cee0d9..76764d21ed7 100644 --- a/lisp/mail/unrmail.el +++ b/lisp/mail/unrmail.el @@ -1,6 +1,6 @@ ;;; unrmail.el --- convert Rmail files to mailbox files -;;; Copyright (C) 1992, 2002 Free Software Foundation, Inc. +;;; Copyright (C) 1992, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail diff --git a/lisp/mail/vms-pmail.el b/lisp/mail/vms-pmail.el index 881c4d95a61..b53b32be71a 100644 --- a/lisp/mail/vms-pmail.el +++ b/lisp/mail/vms-pmail.el @@ -1,6 +1,6 @@ ;;; vms-pmail.el --- use Emacs as the editor within VMS mail -;; Copyright (C) 1992 Free Software Foundation, Inc. +;; Copyright (C) 1992, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Roland B Roberts <roberts@panix.com> ;; Maintainer: FSF diff --git a/lisp/makefile.w32-in b/lisp/makefile.w32-in index 0cbdf9dad3b..20248dcf8c2 100644 --- a/lisp/makefile.w32-in +++ b/lisp/makefile.w32-in @@ -1,5 +1,6 @@ # -*- Makefile -*- for GNU Emacs on the Microsoft W32 API. -# Copyright (c) 2000, 2001, 2004, 2005 Free Software Foundation, Inc. +# Copyright (C) 2000, 2001, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/lisp/makesum.el b/lisp/makesum.el index 985012f90d1..41ecb630f96 100644 --- a/lisp/makesum.el +++ b/lisp/makesum.el @@ -1,6 +1,6 @@ ;;; makesum.el --- generate key binding summary for Emacs -;; Copyright (C) 1985 Free Software Foundation, Inc. +;; Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: help diff --git a/lisp/man.el b/lisp/man.el index ed6112e1978..d1b607600a5 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -1,7 +1,7 @@ ;;; man.el --- browse UNIX manual pages -*- coding: iso-8859-1 -*- -;; Copyright (C) 1993, 1994, 1996, 1997, 2001, 2003, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1996, 1997, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Barry A. Warsaw <bwarsaw@cen.com> ;; Maintainer: FSF diff --git a/lisp/master.el b/lisp/master.el index bdc5144d63c..adf3e92dcbe 100644 --- a/lisp/master.el +++ b/lisp/master.el @@ -1,6 +1,6 @@ ;;; master.el --- make a buffer the master over another buffer -;; Copyright (C) 1999, 2000, 2001, 2005 Alexander Schroeder +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005 Alexander Schroeder ;; Author: Alex Schroeder <alex@gnu.org> ;; Maintainer: Alex Schroeder <alex@gnu.org> diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index b6230189cc5..1de753e75e5 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -1,7 +1,7 @@ ;;; menu-bar.el --- define a default menu bar -;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: RMS ;; Maintainer: FSF @@ -99,13 +99,13 @@ A large number or nil slows down menu responsiveness." :help "Open a new frame")) (define-key menu-bar-file-menu [one-window] - '(menu-item "Unsplit Windows" delete-other-windows + '(menu-item "Remove Splits" delete-other-windows :enable (not (one-window-p t nil)) - :help "Make selected window fill its frame")) + :help "Selected window grows to fill the whole frame")) (define-key menu-bar-file-menu [split-window] '(menu-item "Split Window" split-window-vertically - :help "Split selected window in two")) + :help "Split selected window in two windows")) (define-key menu-bar-file-menu [separator-window] '(menu-item "--")) @@ -159,12 +159,12 @@ A large number or nil slows down menu responsiveness." (current-buffer)))))) :help "Re-read current buffer from its file")) (define-key menu-bar-file-menu [write-file] - '(menu-item "Save Buffer As..." write-file + '(menu-item "Save As..." write-file :enable (not (window-minibuffer-p (frame-selected-window menu-updating-frame))) :help "Write current buffer to another file")) (define-key menu-bar-file-menu [save-buffer] - '(menu-item "Save (current buffer)" save-buffer + '(menu-item "Save" save-buffer :enable (and (buffer-modified-p) (buffer-file-name) (not (window-minibuffer-p @@ -175,9 +175,9 @@ A large number or nil slows down menu responsiveness." '(menu-item "--")) (define-key menu-bar-file-menu [kill-buffer] - '(menu-item "Close (current buffer)" kill-this-buffer + '(menu-item "Close" kill-this-buffer :enable (kill-this-buffer-enabled-p) - :help "Discard current buffer")) + :help "Discard (kill) current buffer")) (define-key menu-bar-file-menu [insert-file] '(menu-item "Insert File..." insert-file :enable (not (window-minibuffer-p @@ -194,7 +194,7 @@ A large number or nil slows down menu responsiveness." (frame-selected-window menu-updating-frame))) :help "Read an existing file into an Emacs buffer")) (define-key menu-bar-file-menu [new-file] - '(menu-item "New File..." find-file + '(menu-item "Visit New File..." find-file :enable (not (window-minibuffer-p (frame-selected-window menu-updating-frame))) :help "Read or create a file and edit it")) @@ -641,7 +641,8 @@ by \"Save Options\" in Custom buffers.") ;; put on a customized-value property. (dolist (elt '(line-number-mode column-number-mode size-indication-mode cua-mode show-paren-mode transient-mark-mode - global-font-lock-mode blink-cursor-mode)) + global-font-lock-mode blink-cursor-mode + display-time-mode display-battery-mode)) (and (customize-mark-to-save elt) (setq need-save t))) ;; These are set with `customize-set-variable'. @@ -649,8 +650,8 @@ by \"Save Options\" in Custom buffers.") debug-on-quit debug-on-error tooltip-mode menu-bar-mode tool-bar-mode save-place uniquify-buffer-name-style fringe-mode - fringe-indicators case-fold-search - display-time-mode auto-compression-mode + indicate-empty-lines indicate-buffer-boundaries + case-fold-search current-language-environment default-input-method ;; Saving `text-mode-hook' is somewhat questionable, ;; as we might get more than we bargain for, if @@ -700,10 +701,16 @@ by \"Save Options\" in Custom buffers.") (define-key menu-bar-showhide-menu [linecolumn-separator] '("--")) +(define-key menu-bar-showhide-menu [showhide-battery] + (menu-bar-make-mm-toggle display-battery-mode + "Battery Status" + "Display battery status information in mode line")) + (define-key menu-bar-showhide-menu [showhide-date-time] (menu-bar-make-mm-toggle display-time-mode - "Date, Time and Mail" - "Display date, time, mail status in mode line")) + "Time, Load and Mail" + "Display time, system load averages and \ +mail status in mode line")) (define-key menu-bar-showhide-menu [datetime-separator] '("--")) @@ -717,88 +724,92 @@ by \"Save Options\" in Custom buffers.") (frame-visible-p (symbol-value 'speedbar-frame)))))) +(defvar menu-bar-showhide-fringe-menu (make-sparse-keymap "Fringe")) -(defvar menu-bar-showhide-fringe-ind-menu (make-sparse-keymap "Indicators")) - -;; The real definition is in fringe.el. -;; This is to prevent errors in the :radio conditions below. -(setq fringe-indicators nil) +(defvar menu-bar-showhide-fringe-ind-menu + (make-sparse-keymap "Buffer boundaries")) -(defun menu-bar-showhide-fringe-ind-empty () - "Display empty line indicators in the left or right fringe." +(defun menu-bar-showhide-fringe-ind-customize () + "Show customization buffer for `indicate-buffer-boundaries'." (interactive) - (require 'fringe) - (customize-set-variable 'fringe-indicators 'empty)) + (customize-variable 'indicate-buffer-boundaries)) -(define-key menu-bar-showhide-fringe-ind-menu [empty] - '(menu-item "Empty lines only" menu-bar-showhide-fringe-ind-empty - :help "Show empty line indicators in fringe" - :visible (display-graphic-p) - :button (:radio . (eq fringe-indicators 'empty)))) +(define-key menu-bar-showhide-fringe-ind-menu [customize] + '(menu-item "Other (Customize)" + menu-bar-showhide-fringe-ind-customize + :help "Additional choices available through Custom buffer" + :visible (display-graphic-p))) (defun menu-bar-showhide-fringe-ind-mixed () - "Display top and bottom indicators in opposite fringes, arrow in right." + "Display top and bottom indicators in opposite fringes, arrows in right." (interactive) - (require 'fringe) - (customize-set-variable 'fringe-indicators 'mixed)) + (customize-set-variable 'indicate-buffer-boundaries + '((t . right) (top . left)))) (define-key menu-bar-showhide-fringe-ind-menu [mixed] - '(menu-item "Opposite, arrows right" menu-bar-showhide-fringe-ind-mixed - :help "Show top/bottom indicators in opposite fringes, arrows in right" + '(menu-item "Opposite, Arrows Right" menu-bar-showhide-fringe-ind-mixed + :help + "Show top/bottom indicators in opposite fringes, arrows in right" :visible (display-graphic-p) - :button (:radio . (eq fringe-indicators 'mixed)))) + :button (:radio . (eq indicate-buffer-boundaries + '((t . right) (top . left)))))) (defun menu-bar-showhide-fringe-ind-box () "Display top and bottom indicators in opposite fringes." (interactive) - (require 'fringe) - (customize-set-variable 'fringe-indicators 'box)) + (customize-set-variable 'indicate-buffer-boundaries + '((top . left) (bottom . right)))) (define-key menu-bar-showhide-fringe-ind-menu [box] - '(menu-item "Opposite, no arrows" menu-bar-showhide-fringe-ind-box + '(menu-item "Opposite, No Arrows" menu-bar-showhide-fringe-ind-box :help "Show top/bottom indicators in opposite fringes, no arrows" :visible (display-graphic-p) - :button (:radio . (eq fringe-indicators 'box)))) + :button (:radio . (eq indicate-buffer-boundaries + '((top . left) (bottom . right)))))) (defun menu-bar-showhide-fringe-ind-right () - "Display fringe indicators in the right fringe." + "Display buffer boundaries and arrows in the right fringe." (interactive) - (require 'fringe) - (customize-set-variable 'fringe-indicators 'right)) + (customize-set-variable 'indicate-buffer-boundaries 'right)) (define-key menu-bar-showhide-fringe-ind-menu [right] - '(menu-item "In right fringe" menu-bar-showhide-fringe-ind-right - :help "Show indicators in right fringe" + '(menu-item "In Right Fringe" menu-bar-showhide-fringe-ind-right + :help "Show buffer boundaries and arrows in right fringe" :visible (display-graphic-p) - :button (:radio . (eq fringe-indicators 'right)))) + :button (:radio . (eq indicate-buffer-boundaries 'right)))) (defun menu-bar-showhide-fringe-ind-left () - "Display fringe indicators in the left fringe." + "Display buffer boundaries and arrows in the left fringe." (interactive) - (require 'fringe) - (customize-set-variable 'fringe-indicators 'left)) + (customize-set-variable 'indicate-buffer-boundaries 'left)) (define-key menu-bar-showhide-fringe-ind-menu [left] - '(menu-item "In left fringe" menu-bar-showhide-fringe-ind-left - :help "Show indicators in left fringe" + '(menu-item "In Left Fringe" menu-bar-showhide-fringe-ind-left + :help "Show buffer boundaries and arrows in left fringe" :visible (display-graphic-p) - :button (:radio . (eq fringe-indicators 'left)))) + :button (:radio . (eq indicate-buffer-boundaries 'left)))) (defun menu-bar-showhide-fringe-ind-none () - "Do not display any fringe indicators." + "Do not display any buffer boundary indicators." (interactive) - (require 'fringe) - (customize-set-variable 'fringe-indicators nil)) + (customize-set-variable 'indicate-buffer-boundaries nil)) (define-key menu-bar-showhide-fringe-ind-menu [none] - '(menu-item "No indicators" menu-bar-showhide-fringe-ind-none - :help "Hide all fringe indicators" + '(menu-item "No Indicators" menu-bar-showhide-fringe-ind-none + :help "Hide all buffer boundary indicators and arrows" :visible (display-graphic-p) - :button (:radio . (eq fringe-indicators nil)))) - + :button (:radio . (eq indicate-buffer-boundaries nil)))) +(define-key menu-bar-showhide-fringe-menu [showhide-fringe-ind] + (list 'menu-item "Buffer Boundaries" menu-bar-showhide-fringe-ind-menu + :visible `(display-graphic-p) + :help "Indicate buffer boundaries in fringe")) -(defvar menu-bar-showhide-fringe-menu (make-sparse-keymap "Fringe")) +(define-key menu-bar-showhide-fringe-menu [indicate-empty-lines] + (menu-bar-make-toggle toggle-indicate-empty-lines indicate-empty-lines + "Empty Line Indicators" + "Indicating of empty lines %s" + "Indicate trailing empty lines in fringe")) (defun menu-bar-showhide-fringe-menu-customize () "Show customization buffer for `fringe-mode'." @@ -806,7 +817,7 @@ by \"Save Options\" in Custom buffers.") (customize-variable 'fringe-mode)) (define-key menu-bar-showhide-fringe-menu [customize] - '(menu-item "Customize" menu-bar-showhide-fringe-menu-customize + '(menu-item "Customize Fringe" menu-bar-showhide-fringe-menu-customize :help "Detailed customization of fringe" :visible (display-graphic-p))) @@ -815,15 +826,6 @@ by \"Save Options\" in Custom buffers.") (interactive) (customize-set-variable 'fringe-mode nil)) -(define-key menu-bar-showhide-fringe-menu [showhide-fringe-ind] - (list 'menu-item "Indicators" menu-bar-showhide-fringe-ind-menu - :visible `(display-graphic-p) - :help "Select fringe mode")) - -;; The real definition is in fringe.el. -;; This is to prevent errors in the :radio conditions below. -(setq fringe-mode nil) - (define-key menu-bar-showhide-fringe-menu [default] '(menu-item "Default" menu-bar-showhide-fringe-menu-customize-reset :help "Default width fringe on both left and right side" @@ -975,13 +977,6 @@ by \"Save Options\" in Custom buffers.") (define-key menu-bar-options-menu [cursor-separator] '("--")) -(define-key menu-bar-options-menu [toggle-auto-compression] - '(menu-item "Automatic File De/compression" - auto-compression-mode - :help "Transparently decompress compressed files" - :button (:toggle . (rassq 'jka-compr-handler - file-name-handler-alist)))) - (define-key menu-bar-options-menu [save-place] (menu-bar-make-toggle toggle-save-place-globally save-place "Save Place in Files between Sessions" @@ -1007,7 +1002,7 @@ by \"Save Options\" in Custom buffers.") '("--")) (define-key menu-bar-options-menu [cua-mode] (menu-bar-make-mm-toggle cua-mode - "C-x/C-c/C-v cut and paste (CUA)" + "C-x/C-c/C-v Cut and Paste (CUA)" "Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste")) (define-key menu-bar-options-menu [case-fold-search] @@ -1253,15 +1248,10 @@ by \"Save Options\" in Custom buffers.") '(menu-item "Describe Function..." describe-function :help "Display documentation of function/command")) (define-key menu-bar-describe-menu [describe-key-1] - '(menu-item "Describe Key..." describe-key - ;; Users typically don't identify keys and menu items... - :help "Display documentation of command bound to a \ -key (or menu-item)")) -(define-key menu-bar-describe-menu [describe-key] - '(menu-item "What's This? " describe-key + '(menu-item "Describe Key or Mouse Operation..." describe-key ;; Users typically don't identify keys and menu items... :help "Display documentation of command bound to a \ -key (or menu-item)")) +key, a click, or a menu-item")) (define-key menu-bar-describe-menu [describe-mode] '(menu-item "Describe Buffer Modes" describe-mode :help "Describe this buffer's major and minor mode")) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index db3de56d8b4..82bedd7c2a6 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,13 @@ +2005-08-15 Dan Nicolaescu <dann@ics.uci.edu> + + * mh-customize.el: Do not use face-alias compatibility for + faces that did not appear in the previous Emacs release. + +2005-08-10 Lars Hansen <larsh@soem.dk> + * mh-e.el: Add handler to desktop-buffer-mode-handlers. + (mh-restore-desktop-buffer): Remove autoload cookie. + (mh-folder-mode): Add autoload cookie. + 2005-07-04 Lute Kamstra <lute@gnu.org> Update FSF's address in GPL notices. diff --git a/lisp/mh-e/mh-customize.el b/lisp/mh-e/mh-customize.el index c2a86d4a731..4a9882b566c 100644 --- a/lisp/mh-e/mh-customize.el +++ b/lisp/mh-e/mh-customize.el @@ -2155,8 +2155,6 @@ will be removed from the unseen sequence." (t (:italic t))) "Face used to highlight body text in MH-Folder buffers." :group 'mh-folder-faces) -;; backward-compatibility alias -(put 'mh-folder-body-face 'face-alias 'mh-folder-body) (defvar mh-folder-cur-msg-face 'mh-folder-cur-msg "Face used for the current message line in MH-Folder buffers.") @@ -2172,8 +2170,6 @@ will be removed from the unseen sequence." (t (:underline t))) "Face used for the current message line in MH-Folder buffers." :group 'mh-folder-faces) -;; backward-compatibility alias -(put 'mh-folder-cur-msg-face 'face-alias 'mh-folder-cur-msg) (defvar mh-folder-cur-msg-number-face 'mh-folder-cur-msg-number "Face used to highlight the current message in MH-Folder buffers.") @@ -2186,8 +2182,6 @@ will be removed from the unseen sequence." (t (:bold t))) "Face used to highlight the current message in MH-Folder buffers." :group 'mh-folder-faces) -;; backward-compatibility alias -(put 'mh-folder-cur-msg-number-face 'face-alias 'mh-folder-cur-msg-number) (defvar mh-folder-date-face 'mh-folder-date "Face used to highlight the date in MH-Folder buffers.") @@ -2200,8 +2194,6 @@ will be removed from the unseen sequence." (:bold t))) "Face used to highlight the date in MH-Folder buffers." :group 'mh-folder-faces) -;; backward-compatibility alias -(put 'mh-folder-date-face 'face-alias 'mh-folder-date) (defvar mh-folder-followup-face 'mh-folder-followup "Face used to highlight Re: subject text in MH-Folder buffers.") @@ -2214,8 +2206,6 @@ will be removed from the unseen sequence." (:bold t))) "Face used to highlight Re: subject text in MH-Folder buffers." :group 'mh-folder-faces) -;; backward-compatibility alias -(put 'mh-folder-followup-face 'face-alias 'mh-folder-followup) (defvar mh-folder-msg-number-face 'mh-folder-msg-number "Face used to highlight the message number in MH-Folder buffers.") @@ -2228,8 +2218,6 @@ will be removed from the unseen sequence." (:bold t))) "Face used to highlight the message number in MH-Folder buffers." :group 'mh-folder-faces) -;; backward-compatibility alias -(put 'mh-folder-msg-number-face 'face-alias 'mh-folder-msg-number) (defvar mh-folder-deleted-face 'mh-folder-deleted "Face used to highlight deleted messages in MH-Folder buffers.") @@ -2248,8 +2236,6 @@ will be removed from the unseen sequence." (t (:bold t :italic t))) "Face used to highlight refiled messages in MH-Folder buffers." :group 'mh-folder-faces) -;; backward-compatibility alias -(put 'mh-folder-refiled-face 'face-alias 'mh-folder-refiled) (defvar mh-folder-subject-face 'mh-folder-subject "Face used to highlight subject text in MH-Folder buffers.") @@ -2264,8 +2250,6 @@ will be removed from the unseen sequence." (:bold t))) "Face used to highlight subject text in MH-Folder buffers." :group 'mh-folder-faces) -;; backward-compatibility alias -(put 'mh-folder-subject-face 'face-alias 'mh-folder-subject) (defface mh-folder-tick '((((class color) (background dark)) (:background "#dddf7e")) @@ -2273,8 +2257,6 @@ will be removed from the unseen sequence." (t (:underline t))) "Face used to show ticked messages." :group 'mh-folder-faces) -;; backward-compatibility alias -(put 'mh-folder-tick-face 'face-alias 'mh-folder-tick) (defvar mh-folder-address-face 'mh-folder-address "Face used to highlight the address in MH-Folder buffers.") @@ -2295,8 +2277,6 @@ will be removed from the unseen sequence." (t (:italic t))) "Face used to highlight the To: string in MH-Folder buffers." :group 'mh-folder-faces) -;; backward-compatibility alias -(put 'mh-folder-to-face 'face-alias 'mh-folder-to) @@ -2313,8 +2293,6 @@ will be removed from the unseen sequence." (:bold t))) "Face used to highlight folders in MH-Index buffers." :group 'mh-index-faces) -;; backward-compatibility alias -(put 'mh-index-folder-face 'face-alias 'mh-index-folder) @@ -2328,8 +2306,6 @@ will be removed from the unseen sequence." (t (:bold t))) "Face used to display header fields in draft buffers." :group 'mh-letter-faces) -;; backward-compatibility alias -(put 'mh-letter-header-field-face 'face-alias 'mh-letter-header-field) @@ -2348,8 +2324,6 @@ will be removed from the unseen sequence." (t (:bold t :italic t))) "Face used to highlight cc: header fields." :group 'mh-show-faces) -;; backward-compatibility alias -(put 'mh-show-cc-face 'face-alias 'mh-show-cc) (defvar mh-show-date-face 'mh-show-date "Face used to highlight the Date: header field.") @@ -2362,8 +2336,6 @@ will be removed from the unseen sequence." (t (:bold t :underline t))) "Face used to highlight the Date: header field." :group 'mh-show-faces) -;; backward-compatibility alias -(put 'mh-show-date-face 'face-alias 'mh-show-date) (defvar mh-show-header-face 'mh-show-header "Face used to deemphasize unspecified header fields.") @@ -2376,8 +2348,6 @@ will be removed from the unseen sequence." (t (:italic t))) "Face used to deemphasize unspecified header fields." :group 'mh-show-faces) -;; backward-compatibility alias -(put 'mh-show-header-face 'face-alias 'mh-show-header) (defvar mh-show-pgg-good-face 'mh-show-pgg-good "Face used to highlight a good PGG signature.") @@ -2385,8 +2355,6 @@ will be removed from the unseen sequence." '((t (:bold t :foreground "LimeGreen"))) "Face used to highlight a good PGG signature." :group 'mh-show-faces) -;; backward-compatibility alias -(put 'mh-show-pgg-good-face 'face-alias 'mh-show-pgg-good) (defvar mh-show-pgg-unknown-face 'mh-show-pgg-unknown "Face used to highlight a PGG signature whose status is unknown. @@ -2396,8 +2364,6 @@ This face is also used for a signature when the signer is untrusted.") "Face used to highlight a PGG signature whose status is unknown. This face is also used for a signature when the signer is untrusted." :group 'mh-show-faces) -;; backward-compatibility alias -(put 'mh-show-pgg-unknown-face 'face-alias 'mh-show-pgg-unknown) (defvar mh-show-pgg-bad-face 'mh-show-pgg-bad "Face used to highlight a bad PGG signature.") @@ -2405,15 +2371,11 @@ This face is also used for a signature when the signer is untrusted." '((t (:bold t :foreground "DeepPink1"))) "Face used to highlight a bad PGG signature." :group 'mh-show-faces) -;; backward-compatibility alias -(put 'mh-show-pgg-bad-face 'face-alias 'mh-show-pgg-bad) (defface mh-show-signature '((t (:italic t))) "Face used to highlight the message signature." :group 'mh-show-faces) -;; backward-compatibility alias -(put 'mh-show-signature-face 'face-alias 'mh-show-signature) (defvar mh-show-to-face 'mh-show-to "Face used to highlight the To: header field.") @@ -2429,8 +2391,6 @@ This face is also used for a signature when the signer is untrusted." (t (:underline t))) "Face used to highlight the To: header field." :group 'mh-show-faces) -;; backward-compatibility alias -(put 'mh-show-to-face 'face-alias 'mh-show-to) (defvar mh-show-from-face 'mh-show-from "Face used to highlight the From: header field.") @@ -2443,16 +2403,12 @@ This face is also used for a signature when the signer is untrusted." (:bold t))) "Face used to highlight the From: header field." :group 'mh-show-faces) -;; backward-compatibility alias -(put 'mh-show-from-face 'face-alias 'mh-show-from) (defface mh-show-xface '((t (:foreground "black" :background "white"))) "Face used to display the X-Face image. The background and foreground is used in the image." :group 'mh-show-faces) -;; backward-compatibility alias -(put 'mh-show-xface-face 'face-alias 'mh-show-xface) (defvar mh-show-subject-face 'mh-show-subject "Face used to highlight the Subject: header field.") @@ -2469,8 +2425,6 @@ The background and foreground is used in the image." (:foreground "light blue"))) "Face used for folders in the speedbar buffer." :group 'mh-speed-faces) -;; backward-compatibility alias -(put 'mh-speedbar-folder-face 'face-alias 'mh-speedbar-folder) (defface mh-speedbar-selected-folder '((((class color) (background light)) @@ -2480,22 +2434,16 @@ The background and foreground is used in the image." (t (:underline t))) "Face used for the current folder." :group 'mh-speed-faces) -;; backward-compatibility alias -(put 'mh-speedbar-selected-folder-face 'face-alias 'mh-speedbar-selected-folder) (defface mh-speedbar-folder-with-unseen-messages '((t (:inherit mh-speedbar-folder :bold t))) "Face used for folders in the speedbar buffer which have unread messages." :group 'mh-speed-faces) -;; backward-compatibility alias -(put 'mh-speedbar-folder-with-unseen-messages-face 'face-alias 'mh-speedbar-folder-with-unseen-messages) (defface mh-speedbar-selected-folder-with-unseen-messages '((t (:inherit mh-speedbar-selected-folder :bold t))) "Face used for the current folder when it has unread messages." :group 'mh-speed-faces) -;; backward-compatibility alias -(put 'mh-speedbar-selected-folder-with-unseen-messages-face 'face-alias 'mh-speedbar-selected-folder-with-unseen-messages) ;;; Local Variables: ;;; indent-tabs-mode: nil diff --git a/lisp/mh-e/mh-e.el b/lisp/mh-e/mh-e.el index 12e77c6c833..3d917c16935 100644 --- a/lisp/mh-e/mh-e.el +++ b/lisp/mh-e/mh-e.el @@ -1507,6 +1507,8 @@ is used in previous versions and XEmacs." (not (member 'mh-folder-mode which-func-modes))) (push 'mh-folder-mode which-func-modes)) +;; Autoload cookie needed by desktop.el +;;;###autoload (define-derived-mode mh-folder-mode fundamental-mode "MH-Folder" "Major MH-E mode for \"editing\" an MH folder scan listing.\\<mh-folder-mode-map> @@ -1653,7 +1655,6 @@ messages in that region. (set (make-local-variable (car pairs)) (car (cdr pairs))) (setq pairs (cdr (cdr pairs))))) -;;;###autoload (defun mh-restore-desktop-buffer (desktop-buffer-file-name desktop-buffer-name desktop-buffer-misc) @@ -1666,6 +1667,9 @@ DESKTOP-BUFFER-MISC holds a list of miscellaneous info used by the (mh-visit-folder desktop-buffer-name) (current-buffer)) +(add-to-list 'desktop-buffer-mode-handlers + '(mh-folder-mode . mh-restore-desktop-buffer)) + (defun mh-scan-folder (folder range &optional dont-exec-pending) "Scan the FOLDER over the RANGE. If the optional argument DONT-EXEC-PENDING is non-nil then pending deletes and diff --git a/lisp/midnight.el b/lisp/midnight.el index 8bc00b83103..aa93c1b5bab 100644 --- a/lisp/midnight.el +++ b/lisp/midnight.el @@ -1,6 +1,6 @@ ;;; midnight.el --- run something every midnight, e.g., kill old buffers -;;; Copyright (C) 1998, 2004, 2005 Free Software Foundation, Inc. +;;; Copyright (C) 1998, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Sam Steingold <sds@usa.net> ;; Maintainer: Sam Steingold <sds@usa.net> diff --git a/lisp/minibuf-eldef.el b/lisp/minibuf-eldef.el index f3b08be702f..0657baedd5f 100644 --- a/lisp/minibuf-eldef.el +++ b/lisp/minibuf-eldef.el @@ -1,6 +1,7 @@ ;;; minibuf-eldef.el --- Only show defaults in prompts when applicable ;; -;; Copyright (C) 2000, 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; ;; Author: Miles Bader <miles@gnu.org> ;; Keywords: convenience diff --git a/lisp/misc.el b/lisp/misc.el index c081a8cd8c4..f906fb0db7b 100644 --- a/lisp/misc.el +++ b/lisp/misc.el @@ -1,6 +1,6 @@ ;;; misc.el --- some nonstandard basic editing commands for Emacs -;; Copyright (C) 1989, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1989, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: convenience diff --git a/lisp/mouse-copy.el b/lisp/mouse-copy.el index 6279d4e1f46..f5034a1dac1 100644 --- a/lisp/mouse-copy.el +++ b/lisp/mouse-copy.el @@ -1,6 +1,6 @@ ;;; mouse-copy.el --- one-click text copy and move -;; Copyright (C) 1996 Free Software Foundation, Inc. +;; Copyright (C) 1996, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: John Heidemann <johnh@ISI.EDU> ;; Keywords: mouse diff --git a/lisp/mouse-drag.el b/lisp/mouse-drag.el index 6971bdb9a89..11bacd6b8a2 100644 --- a/lisp/mouse-drag.el +++ b/lisp/mouse-drag.el @@ -1,6 +1,7 @@ ;;; mouse-drag.el --- use mouse-2 to do a new style of scrolling -;; Copyright (C) 1996, 1997, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: John Heidemann <johnh@ISI.EDU> ;; Keywords: mouse diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el index 1a271a5ab7d..ccd469200be 100644 --- a/lisp/mouse-sel.el +++ b/lisp/mouse-sel.el @@ -1,7 +1,7 @@ ;;; mouse-sel.el --- multi-click selection support for Emacs 19 -;; Copyright (C) 1993, 1994, 1995, 2001, 2002, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Mike Williams <mdub@bigfoot.com> ;; Keywords: mouse diff --git a/lisp/mouse.el b/lisp/mouse.el index 4fd81ced998..c928e04f8ed 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -1,7 +1,7 @@ ;;; mouse.el --- window system-independent mouse support -;; Copyright (C) 1993, 94, 95, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: hardware, mouse diff --git a/lisp/msb.el b/lisp/msb.el index 945535267ff..8fa63d98051 100644 --- a/lisp/msb.el +++ b/lisp/msb.el @@ -1,7 +1,7 @@ ;;; msb.el --- customizable buffer-selection with multiple menus -;; Copyright (C) 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2003, -;; 2005 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Lars Lindberg <lars.lindberg@home.se> ;; Maintainer: FSF diff --git a/lisp/mwheel.el b/lisp/mwheel.el index 27116c75e98..391ce3a5e04 100644 --- a/lisp/mwheel.el +++ b/lisp/mwheel.el @@ -1,6 +1,7 @@ ;;; mwheel.el --- Wheel mouse support -;; Copyright (C) 1998, 2000, 2001, 2002, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1998, 2000, 2001, 2002, 2002, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: William M. Perry <wmperry@gnu.org> ;; Keywords: mouse diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 59d24e4e591..5d205f575b8 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -686,7 +686,7 @@ :prefix "ange-ftp-") (defcustom ange-ftp-name-format - '("^/\\(\\([^/:]*\\)@\\)?\\([^@/:]*[^@/:.]\\):\\(.*\\)" . (3 2 4)) + '("\\`/\\(\\([^/:]*\\)@\\)?\\([^@/:]*[^@/:.]\\):\\(.*\\)" . (3 2 4)) "*Format of a fully expanded remote file name. This is a list of the form \(REGEXP HOST USER NAME\), @@ -863,10 +863,11 @@ If nil, prompt the user for a password." string)) (defcustom ange-ftp-binary-file-name-regexp - (concat "\\.[zZ]$\\|\\.lzh$\\|\\.arc$\\|\\.zip$\\|\\.zoo$\\|\\.tar$\\|" - "\\.dvi$\\|\\.ps$\\|\\.elc$\\|TAGS$\\|\\.gif$\\|" - "\\.EXE\\(;[0-9]+\\)?$\\|\\.[zZ]-part-..$\\|\\.gz$\\|" - "\\.taz$\\|\\.tgz$") + (concat "TAGS\\'\\|\\.\\(?:" + (eval-when-compile + (regexp-opt '("z" "Z" "lzh" "arc" "zip" "zoo" "tar" "dvi" + "ps" "elc" "gif" "gz" "taz" "tgz"))) + "\\|EXE\\(;[0-9]+\\)?\\|[zZ]-part-..\\)\\'") "*If a file matches this regexp then it is transferred in binary mode." :group 'ange-ftp :type 'regexp) @@ -1130,7 +1131,7 @@ If the optional parameter NEW is given and the non-directory parts match, only return the directory part of FILE." (save-match-data (if (and default-directory - (string-match (concat "^" + (string-match (concat "\\`" (regexp-quote default-directory) ".") file)) (setq file (substring file (1- (match-end 0))))) @@ -1200,7 +1201,7 @@ only return the directory part of FILE." (save-match-data (maphash (lambda (key value) - (if (string-match "^[^/]*\\(/\\).*$" key) + (if (string-match "\\`[^/]*\\(/\\).*\\'" key) (let ((host (substring key 0 (match-beginning 1)))) (if (and (string-equal user (substring key (match-end 1))) value) @@ -1415,7 +1416,7 @@ only return the directory part of FILE." (let (res) (maphash (lambda (key value) - (if (string-match "^[^/]*\\(/\\).*$" key) + (if (string-match "\\`[^/]*\\(/\\).*\\'" key) (let ((host (substring key 0 (match-beginning 1))) (user (substring key (match-end 1)))) (push (concat user "@" host ":") res)))) @@ -1655,7 +1656,7 @@ good, skip, fatal, or unknown." ;; handle hash mark printing (and ange-ftp-process-busy - (string-match "^#+$" str) + (string-match "\\`#+\\'" str) (setq str (ange-ftp-process-handle-hash str))) (comint-output-filter proc str) ;; Replace STR by the result of the comint processing. @@ -1678,7 +1679,7 @@ good, skip, fatal, or unknown." (seen-prompt nil)) (setq ange-ftp-process-string (substring ange-ftp-process-string (match-end 0))) - (while (string-match "^ftp> *" line) + (while (string-match "\\`ftp> *" line) (setq seen-prompt t) (setq line (substring line (match-end 0)))) (if (not (and seen-prompt ange-ftp-pending-error-line)) @@ -1863,7 +1864,7 @@ been queued with no result. CONT will still be called, however." (move-marker comint-last-input-start (point)) ;; don't insert the password into the buffer on the USER command. (save-match-data - (if (string-match "^user \"[^\"]*\"" cmd) + (if (string-match "\\`user \"[^\"]*\"" cmd) (insert (substring cmd 0 (match-end 0)) " Turtle Power!\n") (insert cmd))) (move-marker comint-last-input-end (point)) @@ -2069,7 +2070,7 @@ host specified in `ange-ftp-gateway-host'." PROC is the process to the FTP-client. HOST may have an optional suffix of the form #PORT to specify a non-default port" (save-match-data - (string-match "^\\([^#]+\\)\\(#\\([0-9]+\\)\\)?\\'" host) + (string-match "\\`\\([^#]+\\)\\(#\\([0-9]+\\)\\)?\\'" host) (let* ((nshost (ange-ftp-nslookup-host (match-string 1 host))) (port (match-string 3 host)) (result (ange-ftp-raw-send-cmd @@ -2148,6 +2149,8 @@ suffix of the form #PORT to specify a non-default port" (or ange-ftp-binary-hash-mark-size (setq ange-ftp-binary-hash-mark-size size))))))))) +(defvar ange-ftp-process-startup-hook nil) + (defun ange-ftp-get-process (host user) "Return an FTP subprocess connected to HOST and logged in as USER. Create a new process if needed." @@ -2309,7 +2312,7 @@ and NOWAIT." ;; resolve symlinks to directories on SysV machines. (Sebastian will ;; be happy.) (and (eq host-type 'unix) - (string-match "/$" cmd1) + (string-match "/\\'" cmd1) (not (string-match "R" cmd3)) (setq cmd1 (concat cmd1 "."))) @@ -2326,7 +2329,19 @@ and NOWAIT." (unless (memq host-type ange-ftp-dumb-host-types) (setq cmd0 'ls) ;; We cd and then use `ls' with no directory argument. - ;; This works around a misfeature of some versions of netbsd ftpd. + ;; This works around a misfeature of some versions of netbsd ftpd + ;; where `ls' can only take one argument: either one set of flags + ;; or a file/directory name. + ;; FIXME: if we're trying to `ls' a single file, this fails since we + ;; can't cd to a file. We can't fix this problem here, tho, because + ;; at this point we don't know whether the argument is a file or + ;; a directory. Such an `ls' is only every used (apparently) from + ;; `insert-directory' when the `full-directory-p' argument is nil + ;; (which seems to only be used by dired when updating its display + ;; after operating on a set of files). We should change + ;; ange-ftp-insert-directory so that this case is handled by getting + ;; a full listing of the directory and extracting the line + ;; corresponding to the requested file. (unless (equal cmd1 ".") (setq result (ange-ftp-cd host user (nth 1 cmd) 'noerror))) (setq cmd1 cmd3))) @@ -2765,10 +2780,10 @@ The main reason for this alist is to deal with file versions in VMS.") ;; Some ls's with the F switch mark symlinks with an @ (ULTRIX) ;; and others don't. (sigh...) Beware, that some Unix's don't ;; seem to believe in the F-switch - (if (or (and symlink (string-match "@$" file)) - (and directory (string-match "/$" file)) - (and executable (string-match "*$" file)) - (and socket (string-match "=$" file))) + (if (or (and symlink (string-match "@\\'" file)) + (and directory (string-match "/\\'" file)) + (and executable (string-match "*\\'" file)) + (and socket (string-match "=\\'" file))) (setq file (substring file 0 -1))))) (puthash file (or symlink directory) tbl) (forward-line 1)) @@ -3112,18 +3127,24 @@ logged in as user USER and cd'd to directory DIR." ;; See if remote name is absolute. If so then just expand it and ;; replace the name component of the overall name. - (cond ((string-match "^/" name) + (cond ((string-match "\\`/" name) name) ;; Name starts with ~ or ~user. Resolve that part of the name ;; making it absolute then re-expand it. - ((string-match "^~[^/]*" name) + ((string-match "\\`~[^/]*" name) (let* ((tilda (match-string 0 name)) (rest (substring name (match-end 0))) (dir (ange-ftp-expand-dir host user tilda))) (if dir - (setq name (if (string-equal dir "/") - rest (concat dir rest))) + ;; C-x d /ftp:anonymous@ftp.gnu.org:~/ RET + ;; seems to cause `rest' to sometimes be empty. + ;; Maybe it's an error for `rest' to be empty here, + ;; but until we figure this out, this quick fix + ;; seems to do the trick. + (setq name (cond ((string-equal rest "") dir) + ((string-equal dir "/") rest) + (t (concat dir rest)))) (error "User \"%s\" is not known" (substring tilda 1))))) @@ -3137,19 +3158,18 @@ logged in as user USER and cd'd to directory DIR." (error "Unable to obtain CWD"))))) ;; If name starts with //, preserve that, for apollo system. - (if (not (string-match "^//" name)) - (progn - (if (not (eq system-type 'windows-nt)) - (setq name (ange-ftp-real-expand-file-name name)) - ;; Windows UNC default dirs do not make sense for ftp. - (if (string-match "^//" default-directory) - (setq name (ange-ftp-real-expand-file-name name "c:/")) - (setq name (ange-ftp-real-expand-file-name name))) - ;; Strip off possible drive specifier. - (if (string-match "^[a-zA-Z]:" name) - (setq name (substring name 2)))) - (if (string-match "^//" name) - (setq name (substring name 1))))) + (unless (string-match "\\`//" name) + (if (not (eq system-type 'windows-nt)) + (setq name (ange-ftp-real-expand-file-name name)) + ;; Windows UNC default dirs do not make sense for ftp. + (setq name (if (string-match "\\`//" default-directory) + (ange-ftp-real-expand-file-name name "c:/") + (ange-ftp-real-expand-file-name name))) + ;; Strip off possible drive specifier. + (if (string-match "\\`[a-zA-Z]:" name) + (setq name (substring name 2)))) + (if (string-match "\\`//" name) + (setq name (substring name 1)))) ;; Now substitute the expanded name back into the overall filename. (ange-ftp-replace-name-component n name)) @@ -3173,8 +3193,8 @@ logged in as user USER and cd'd to directory DIR." (eq (string-to-char name) ?\\)) (ange-ftp-canonize-filename name)) ((and (eq system-type 'windows-nt) - (or (string-match "^[a-zA-Z]:" name) - (string-match "^[a-zA-Z]:" default))) + (or (string-match "\\`[a-zA-Z]:" name) + (string-match "\\`[a-zA-Z]:" default))) (ange-ftp-real-expand-file-name name default)) ((zerop (length name)) (ange-ftp-canonize-filename default)) @@ -3207,7 +3227,7 @@ system TYPE.") (if parsed (let ((filename (nth 2 parsed))) (if (save-match-data - (string-match "^~[^/]*$" filename)) + (string-match "\\`~[^/]*\\'" filename)) name (ange-ftp-replace-name-component name @@ -3220,7 +3240,7 @@ system TYPE.") (if parsed (let ((filename (nth 2 parsed))) (if (save-match-data - (string-match "^~[^/]*$" filename)) + (string-match "\\`~[^/]*\\'" filename)) "" (ange-ftp-real-file-name-nondirectory filename))) (ange-ftp-real-file-name-nondirectory name)))) @@ -3962,7 +3982,7 @@ E.g., ;; Maybe we should use something more like ;; (equal dir (file-name-directory (directory-file-name dir))) -stef (or (and (eq system-type 'windows-nt) - (string-match "^[a-zA-Z]:[/\\]$" dir)) + (string-match "\\`[a-zA-Z]:[/\\]\\'" dir)) (string-equal "/" dir))) (defun ange-ftp-file-name-all-completions (file dir) @@ -4006,8 +4026,8 @@ E.g., (let* ((tbl (ange-ftp-get-files ange-ftp-this-dir)) (ange-ftp-completion-ignored-pattern (mapconcat (lambda (s) (if (stringp s) - (concat (regexp-quote s) "$") - "/")) ; / never in filename + (concat (regexp-quote s) "$") + "/")) ; / never in filename completion-ignored-extensions "\\|"))) (save-match-data @@ -4930,7 +4950,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") (defun ange-ftp-fix-name-for-vms (name &optional reverse) (save-match-data (if reverse - (if (string-match "^\\([^:]+:\\)?\\(\\[.*\\]\\)?\\([^][]*\\)$" name) + (if (string-match "\\`\\([^:]+:\\)?\\(\\[.*\\]\\)?\\([^][]*\\)\\'" name) (let (drive dir file) (setq drive (match-string 1 name)) (setq dir (match-string 2 name)) @@ -4944,7 +4964,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") file)) (error "name %s didn't match" name)) (let (drive dir file tmp) - (if (string-match "^/[^:]+:/" name) + (if (string-match "\\`/[^:]+:/" name) (setq drive (substring name 1 (1- (match-end 0))) name (substring name (match-end 0)))) @@ -4982,7 +5002,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") ;; them. (cond ((string-equal dir-name "/") (error "Cannot get listing for fictitious \"/\" directory")) - ((string-match "^/[-A-Z0-9_$]+:/$" dir-name) + ((string-match "\\`/[-A-Z0-9_$]+:/\\'" dir-name) (error "Cannot get listing for device")) ((ange-ftp-fix-name-for-vms dir-name)))) @@ -5036,7 +5056,7 @@ Other orders of $ and _ seem to all work just fine.") ;; deal with directories (puthash (substring file 0 (match-beginning 0)) t tbl) (puthash file nil tbl) - (if (string-match ";[0-9]+$" file) ; deal with extension + (if (string-match ";[0-9]+\\'" file) ; deal with extension ;; sans extension (puthash (substring file 0 (match-beginning 0)) nil tbl))) (forward-line 1)) @@ -5062,7 +5082,7 @@ Other orders of $ and _ seem to all work just fine.") (ange-ftp-internal-delete-file-entry name t) (save-match-data (let ((file (ange-ftp-get-file-part name))) - (if (string-match ";[0-9]+$" file) + (if (string-match ";[0-9]+\\'" file) ;; In VMS you can't delete a file without an explicit ;; version number, or wild-card (e.g. FOO;*) ;; For now, we give up on wildcards. @@ -5100,7 +5120,7 @@ Other orders of $ and _ seem to all work just fine.") (if files (let ((file (ange-ftp-get-file-part name))) (save-match-data - (if (string-match ";[0-9]+$" file) + (if (string-match ";[0-9]+\\'" file) (puthash (substring file 0 (match-beginning 0)) nil files) ;; Need to figure out what version of the file ;; is being added. @@ -5143,7 +5163,7 @@ Other orders of $ and _ seem to all work just fine.") (defun ange-ftp-vms-file-name-as-directory (name) (save-match-data - (if (string-match "\\.\\(DIR\\|dir\\)\\(;[0-9]+\\)?$" name) + (if (string-match "\\.\\(DIR\\|dir\\)\\(;[0-9]+\\)?\\'" name) (setq name (substring name 0 (match-beginning 0)))) (ange-ftp-real-file-name-as-directory name))) @@ -5264,15 +5284,15 @@ Other orders of $ and _ seem to all work just fine.") (defun ange-ftp-vms-make-compressed-filename (name &optional reverse) (cond - ((string-match "-Z;[0-9]+$" name) + ((string-match "-Z;[0-9]+\\'" name) (list nil (substring name 0 (match-beginning 0)))) - ((string-match ";[0-9]+$" name) + ((string-match ";[0-9]+\\'" name) (list nil (substring name 0 (match-beginning 0)))) - ((string-match "-Z$" name) + ((string-match "-Z\\'" name) (list nil (substring name 0 -2))) (t (list t - (if (string-match ";[0-9]+$" name) + (if (string-match ";[0-9]+\\'" name) (concat (substring name 0 (match-beginning 0)) "-Z") (concat name "-Z")))))) @@ -5305,7 +5325,7 @@ Other orders of $ and _ seem to all work just fine.") (defun ange-ftp-vms-sans-version (name &rest args) (save-match-data - (if (string-match ";[0-9]+$" name) + (if (string-match ";[0-9]+\\'" name) (substring name 0 (match-beginning 0)) name))) @@ -5461,14 +5481,14 @@ Other orders of $ and _ seem to all work just fine.") (defun ange-ftp-fix-name-for-mts (name &optional reverse) (save-match-data (if reverse - (if (string-match "^\\([^:]+:\\)?\\(.*\\)$" name) + (if (string-match "\\`\\([^:]+:\\)?\\(.*\\)\\'" name) (let (acct file) (setq acct (match-string 1 name)) (setq file (match-string 2 name)) (concat (and acct (concat "/" acct "/")) file)) (error "name %s didn't match" name)) - (if (string-match "^/\\([^:]+:\\)/\\(.*\\)$" name) + (if (string-match "\\`/\\([^:]+:\\)/\\(.*\\)\\'" name) (concat (match-string 1 name) (match-string 2 name)) ;; Let's hope that mts will recognize it anyway. name)))) @@ -5487,7 +5507,7 @@ Other orders of $ and _ seem to all work just fine.") (cond ((string-equal dir-name "") "?") - ((string-match ":$" dir-name) + ((string-match ":\\'" dir-name) (concat dir-name "?")) (dir-name))))) ; It's just a single file. @@ -5624,7 +5644,7 @@ Other orders of $ and _ seem to all work just fine.") ;; stores directories without the trailing /. Is this ;; consistent? (concat "/" name) - (if (string-match "^/\\([-A-Z0-9$*._]+\\)/\\([-A-Z0-9$._]+\\)?$" + (if (string-match "\\`/\\([-A-Z0-9$*._]+\\)/\\([-A-Z0-9$._]+\\)?\\'" name) (let ((minidisk (match-string 1 name))) (if (match-beginning 2) @@ -5669,7 +5689,7 @@ Other orders of $ and _ seem to all work just fine.") (cond ((string-equal "/" dir-name) (error "Cannot get listing for fictitious \"/\" directory")) - ((string-match "^/\\([-A-Z0-9$*._]+\\)/\\([-A-Z0-9$._]+\\)?$" dir-name) + ((string-match "\\`/\\([-A-Z0-9$*._]+\\)/\\([-A-Z0-9$._]+\\)?\\'" dir-name) (let* ((minidisk (match-string 1 dir-name)) ;; host and user are bound in the call to ange-ftp-send-cmd (proc (ange-ftp-get-process ange-ftp-this-host ange-ftp-this-user)) @@ -5827,7 +5847,7 @@ Other orders of $ and _ seem to all work just fine.") ;; ange-ftp-dired-move-to-end-of-filename-alist))) (defun ange-ftp-cms-make-compressed-filename (name &optional reverse) - (if (string-match "-Z$" name) + (if (string-match "-Z\\'" name) (list nil (substring name 0 -2)) (list t (concat name "-Z")))) @@ -6078,5 +6098,5 @@ be recognized automatically (they are all valid BS2000 hosts too)." (provide 'ange-ftp) -;;; arch-tag: 2987ef88-cb56-4ec1-87a9-79132572e316 +;; arch-tag: 2987ef88-cb56-4ec1-87a9-79132572e316 ;;; ange-ftp.el ends here diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el index 042dce66aa3..043c18fc0df 100644 --- a/lisp/net/net-utils.el +++ b/lisp/net/net-utils.el @@ -461,7 +461,7 @@ If your system's ping continues until interrupted, you can try setting ))) ;;;###autoload -(defun dig (host) +(defun run-dig (host) "Run dig program." (interactive (list diff --git a/lisp/net/tramp-ftp.el b/lisp/net/tramp-ftp.el index 05beeb246e1..53cc392ad7a 100644 --- a/lisp/net/tramp-ftp.el +++ b/lisp/net/tramp-ftp.el @@ -1,8 +1,8 @@ -;;; tramp-ftp.el --- Tramp convenience functions for Ange-FTP and EFS -*- coding: iso-8859-1; -*- +;;; tramp-ftp.el --- Tramp convenience functions for Ange-FTP -*- coding: iso-8859-1; -*- ;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. -;; Author: Michael Albinus <Michael.Albinus@alcatel.de> +;; Author: Michael Albinus <michael.albinus@gmx.de> ;; Keywords: comm, processes ;; This file is part of GNU Emacs. diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el index 74e2796fdef..5644e081e6c 100644 --- a/lisp/net/tramp-smb.el +++ b/lisp/net/tramp-smb.el @@ -46,11 +46,6 @@ (defalias 'warnings 'identity) ; Pacify Emacs byte-compiler (byte-compiler-options (warnings (- unused-vars)))))) -;; XEmacs byte-compiler raises warning abouts `last-coding-system-used'. -(eval-when-compile - (unless (boundp 'last-coding-system-used) - (defvar last-coding-system-used nil))) - ;; Define SMB method ... (defcustom tramp-smb-method "smb" "*Method to connect SAMBA and M$ SMB servers." @@ -598,13 +593,6 @@ Catches errors for shares like \"C$/\", which are common in Microsoft Windows." (let ((share (tramp-smb-get-share localname)) (file (tramp-smb-get-localname localname t)) (curbuf (current-buffer)) - ;; We use this to save the value of `last-coding-system-used' - ;; after writing the tmp file. At the end of the function, - ;; we set `last-coding-system-used' to this saved value. - ;; This way, any intermediary coding systems used while - ;; talking to the remote shell or suchlike won't hose this - ;; variable. This approach was snarfed from ange-ftp.el. - coding-system-used tmpfil) ;; Write region into a tmp file. (setq tmpfil (tramp-make-temp-file)) @@ -616,9 +604,6 @@ Catches errors for shares like \"C$/\", which are common in Microsoft Windows." (if confirm ; don't pass this arg unless defined for backward compat. (list start end tmpfil append 'no-message lockname confirm) (list start end tmpfil append 'no-message lockname))) - ;; Now, `last-coding-system-used' has the right value. Remember it. - (when (boundp 'last-coding-system-used) - (setq coding-system-used last-coding-system-used)) (tramp-smb-maybe-open-connection user host share) (tramp-message-for-buffer @@ -636,10 +621,7 @@ Catches errors for shares like \"C$/\", which are common in Microsoft Windows." (error "Buffer has changed from `%s' to `%s'" curbuf (current-buffer))) (when (eq visit t) - (set-visited-file-modtime)) - ;; Make `last-coding-system-used' have the right value. - (when (boundp 'last-coding-system-used) - (setq last-coding-system-used coding-system-used)))))) + (set-visited-file-modtime)))))) ;; Internal file name functions @@ -1000,7 +982,7 @@ Returns nil if an error message has appeared." (while (and (not found) (not err)) ;; Accept pending output. - (accept-process-output proc) + (tramp-accept-process-output proc) ;; Search for prompt. (goto-char (point-min)) diff --git a/lisp/net/tramp-uu.el b/lisp/net/tramp-uu.el index bbfd44c9999..e1e22af3cab 100644 --- a/lisp/net/tramp-uu.el +++ b/lisp/net/tramp-uu.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. -;; Author: Kai Gro,A_(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> +;; Author: Kai Gro,A_(Bjohann <kai.grossjohann@gmx.net> ;; Keywords: comm, terminals ;; This file is free software; you can redistribute it and/or modify diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 19794976f7f..e3ad3959591 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -4,7 +4,8 @@ ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, ;; 2005 Free Software Foundation, Inc. -;; Author: kai.grossjohann@gmx.net +;; Author: Kai Gro,A_(Bjohann <kai.grossjohann@gmx.net> +;; Michael Albinus <michael.albinus@gmx.de> ;; Keywords: comm, processes ;; This file is part of GNU Emacs. @@ -147,11 +148,6 @@ Nil means to use a separate filename syntax for Tramp.") (when (boundp 'byte-compile-not-obsolete-var) (setq byte-compile-not-obsolete-var 'directory-sep-char))) -;; XEmacs byte-compiler raises warning abouts `last-coding-system-used'. -(eval-when-compile - (unless (boundp 'last-coding-system-used) - (defvar last-coding-system-used nil))) - ;;; User Customizable Internal Variables: (defgroup tramp nil @@ -1031,7 +1027,7 @@ Derived from `tramp-postfix-multi-hop-format'." :type 'regexp) (defcustom tramp-user-regexp - "[^:@/ \t]*" + "[^:/ \t]*" "*Regexp matching user names." :group 'tramp :type 'regexp) @@ -1914,7 +1910,9 @@ This function expects to be called from the tramp buffer only!" tramp-current-multi-method tramp-current-method tramp-current-user tramp-current-host)) (goto-char (point-max)) - (tramp-insert-with-face + (unless (bolp) + (insert "\n")) + (tramp-insert-with-face 'italic (concat "# " (apply #'format fmt-string args) "\n")))))) @@ -2370,16 +2368,13 @@ target of the symlink differ." (buffer-name))) (if time-list (tramp-run-real-handler 'set-visited-file-modtime (list time-list)) - (let ((f (buffer-file-name)) - (coding-system-used nil)) + (let ((f (buffer-file-name))) (with-parsed-tramp-file-name f nil (let* ((attr (file-attributes f)) ;; '(-1 65535) means file doesn't exists yet. (modtime (or (nth 5 attr) '(-1 65535)))) ;; We use '(0 0) as a don't-know value. See also ;; `tramp-handle-file-attributes-with-ls'. - (when (boundp 'last-coding-system-used) - (setq coding-system-used last-coding-system-used)) (if (not (equal modtime '(0 0))) (tramp-run-real-handler 'set-visited-file-modtime (list modtime)) (save-excursion @@ -2392,9 +2387,7 @@ target of the symlink differ." (setq attr (buffer-substring (point) (progn (end-of-line) (point))))) (setq tramp-buffer-file-attributes attr)) - (when (boundp 'last-coding-system-used) - (setq last-coding-system-used coding-system-used)) - nil))))) + nil))))) ;; CCC continue here @@ -2412,7 +2405,7 @@ of." ;; recorded last modification time. (if (or (not (buffer-file-name)) (eq (visited-file-modtime) 0)) - t + t (let ((f (buffer-file-name))) (with-parsed-tramp-file-name f nil (let* ((attr (file-attributes f)) @@ -2447,12 +2440,6 @@ of." ;; if and only if that agrees with the buffer's record. (t (equal mt '(-1 65535)))))))))) -(defadvice clear-visited-file-modtime (after tramp activate) - "Set `tramp-buffer-file-attributes' back to nil. -Tramp uses this variable as an emulation for the actual modtime of the file, -if the remote host can't provide the modtime." - (setq tramp-buffer-file-attributes nil)) - (defun tramp-handle-set-file-modes (filename mode) "Like `set-file-modes' for tramp files." (with-parsed-tramp-file-name filename nil @@ -3137,8 +3124,7 @@ be a local filename. The method used must be an out-of-band method." tramp-current-method method tramp-current-user user tramp-current-host host) - (tramp-message - 5 "Transferring %s to file %s..." filename newname) + (message "Transferring %s to %s..." filename newname) ;; Use rcp-like program for file transfer. (let ((p (apply 'start-process (buffer-name trampbuf) trampbuf @@ -3147,8 +3133,7 @@ be a local filename. The method used must be an out-of-band method." (tramp-process-actions p multi-method method user host tramp-actions-copy-out-of-band)) (kill-buffer trampbuf) - (tramp-message - 5 "Transferring %s to file %s...done" filename newname) + (message "Transferring %s to %s...done" filename newname) ;; Set the mode. (unless keep-date @@ -3319,7 +3304,7 @@ This is like `dired-recursive-delete-directory' for tramp files." (filename switches &optional wildcard full-directory-p) "Like `insert-directory' for tramp files." (if (and (boundp 'ls-lisp-use-insert-directory-program) - (not ls-lisp-use-insert-directory-program)) + (not (symbol-value 'ls-lisp-use-insert-directory-program))) (tramp-run-real-handler 'insert-directory (list filename switches wildcard full-directory-p)) ;; For the moment, we assume that the remote "ls" program does not @@ -3505,7 +3490,7 @@ the result will be a local, non-Tramp, filename." ;; Remote commands. (defvar tramp-async-proc nil - "Global variable keeping asyncronous process object. + "Global variable keeping asynchronous process object. Used in `tramp-handle-shell-command'") (defun tramp-handle-shell-command (command &optional output-buffer error-buffer) @@ -3762,7 +3747,6 @@ This will break if COMMAND prints a newline, followed by the value of 'insert-file-contents) 'file-local-copy))) (file-local-copy filename))) - (coding-system-used nil) (result nil)) (when visit (setq buffer-file-name filename) @@ -3772,15 +3756,10 @@ This will break if COMMAND prints a newline, followed by the value of multi-method method user host 9 "Inserting local temp file `%s'..." local-copy) (setq result (insert-file-contents local-copy nil beg end replace)) - ;; Now `last-coding-system-used' has right value. Remember it. - (when (boundp 'last-coding-system-used) - (setq coding-system-used last-coding-system-used)) (tramp-message-for-buffer multi-method method user host 9 "Inserting local temp file `%s'...done" local-copy) (delete-file local-copy) - (when (boundp 'last-coding-system-used) - (setq last-coding-system-used coding-system-used)) (list (expand-file-name filename) (second result)))))) @@ -3845,7 +3824,7 @@ This will break if COMMAND prints a newline, followed by the value of ;; (string= lockname filename)) ;; (error ;; "tramp-handle-write-region: LOCKNAME must be nil or equal FILENAME")) - ;; XEmacs takes a coding system as the sevent argument, not `confirm' + ;; XEmacs takes a coding system as the seventh argument, not `confirm' (when (and (not (featurep 'xemacs)) confirm (file-exists-p filename)) (unless (y-or-n-p (format "File %s exists; overwrite anyway? " @@ -3859,13 +3838,6 @@ This will break if COMMAND prints a newline, followed by the value of (loc-dec (tramp-get-local-decoding multi-method method user host)) (trampbuf (get-buffer-create "*tramp output*")) (modes (file-modes filename)) - ;; We use this to save the value of `last-coding-system-used' - ;; after writing the tmp file. At the end of the function, - ;; we set `last-coding-system-used' to this saved value. - ;; This way, any intermediary coding systems used while - ;; talking to the remote shell or suchlike won't hose this - ;; variable. This approach was snarfed from ange-ftp.el. - coding-system-used tmpfil) ;; Write region into a tmp file. This isn't really needed if we ;; use an encoding function, but currently we use it always @@ -3887,9 +3859,6 @@ This will break if COMMAND prints a newline, followed by the value of ;; the backup file. This case `save-buffer' handles ;; permissions. (when modes (set-file-modes tmpfil modes)) - ;; Now, `last-coding-system-used' has the right value. Remember it. - (when (boundp 'last-coding-system-used) - (setq coding-system-used last-coding-system-used)) ;; This is a bit lengthy due to the different methods possible for ;; file transfer. First, we check whether the method uses an rcp ;; program. If so, we call it. Otherwise, both encoding and @@ -3991,9 +3960,6 @@ This will break if COMMAND prints a newline, followed by the value of ;; We must pass modtime explicitely, because filename can be different ;; from (buffer-file-name), f.e. if `file-precious-flag' is set. (nth 5 (file-attributes filename)))) - ;; Make `last-coding-system-used' have the right value. - (when (boundp 'last-coding-system-used) - (setq last-coding-system-used coding-system-used)) (when (or (eq visit t) (eq visit nil) (stringp visit)) @@ -4301,7 +4267,7 @@ necessary anymore." (symbol-function 'PC-expand-many-files)) (defun PC-expand-many-files (name) (if (tramp-tramp-file-p name) - (expand-many-files name) + (funcall (symbol-function 'expand-many-files) name) (tramp-save-PC-expand-many-files name)))) ;; Why isn't eval-after-load sufficient? @@ -4825,12 +4791,11 @@ User may be nil." (defun tramp-completion-handle-expand-file-name (name &optional dir) "Like `expand-file-name' for tramp files." (let ((fullname (concat (or dir default-directory) name))) - (tramp-drop-volume-letter - (if (tramp-completion-mode fullname) - (tramp-run-real-handler - 'expand-file-name (list name dir)) - (tramp-completion-run-real-handler - 'expand-file-name (list name dir)))))) + (if (tramp-completion-mode fullname) + (tramp-run-real-handler + 'expand-file-name (list name dir)) + (tramp-completion-run-real-handler + 'expand-file-name (list name dir))))) ;;; Internal Functions: @@ -5127,12 +5092,9 @@ file exists and nonzero exit status otherwise." (tramp-send-command multi-method method user host (concat "PS1='$ ' exec " shell)) ; - (unless (tramp-wait-for-regexp - (get-buffer-process (current-buffer)) - 60 (format "\\(\\(%s\\)\\|\\(%s\\)\\)\\'" - tramp-shell-prompt-pattern shell-prompt-pattern)) - (pop-to-buffer (buffer-name)) - (error "Couldn't find remote `%s' prompt" shell)) + (tramp-barf-if-no-shell-prompt + (get-buffer-process (current-buffer)) + 60 "Couldn't find remote `%s' prompt" shell) (tramp-message 9 "Setting remote shell prompt...") ;; Douglas Gray Stephens <DGrayStephens@slb.com> says that we @@ -5331,7 +5293,7 @@ The terminal type can be configured with `tramp-terminal-type'." (tramp-message 9 "Waiting 60s for prompt from remote shell") (with-timeout (60 (throw 'tramp-action 'timeout)) (while (not found) - (accept-process-output p 1) + (tramp-accept-process-output p 1) (goto-char (point-min)) (setq todo actions) (while todo @@ -5368,7 +5330,7 @@ The terminal type can be configured with `tramp-terminal-type'." (tramp-message 9 "Waiting 60s for prompt from remote shell") (with-timeout (60 (throw 'tramp-action 'timeout)) (while (not found) - (accept-process-output p 1) + (tramp-accept-process-output p 1) (setq todo actions) (goto-char (point-min)) (while todo @@ -5757,6 +5719,14 @@ character." ;; Utility functions. +(defun tramp-accept-process-output + (&optional process timeout timeout-msecs) + "Like `accept-process-output' for Tramp processes. +This is needed in order to hide `last-coding-system-used', which is set +for process communication also." + (let (last-coding-system-used) + (accept-process-output process timeout timeout-msecs))) + (defun tramp-wait-for-regexp (proc timeout regexp) "Wait for a REGEXP to appear from process PROC within TIMEOUT seconds. Expects the output of PROC to be sent to the current buffer. Returns @@ -5773,20 +5743,18 @@ nil." timeout)) (with-timeout (timeout) (while (not found) - (accept-process-output proc 1) + (tramp-accept-process-output proc 1) (unless (memq (process-status proc) '(run open)) (error "Process has died")) (goto-char (point-min)) - (setq found (when (re-search-forward regexp nil t) - (tramp-match-string-list))))))) + (setq found (re-search-forward regexp nil t)))))) (t (while (not found) - (accept-process-output proc 1) + (tramp-accept-process-output proc 1) (unless (memq (process-status proc) '(run open)) (error "Process has died")) (goto-char (point-min)) - (setq found (when (re-search-forward regexp nil t) - (tramp-match-string-list)))))) + (setq found (re-search-forward regexp nil t))))) (when tramp-debug-buffer (append-to-buffer (tramp-get-debug-buffer tramp-current-multi-method tramp-current-method @@ -6399,7 +6367,7 @@ Sends COMMAND, then waits 30 seconds for shell prompt." timeout)) (with-timeout (timeout) (while (not found) - (accept-process-output proc 1) + (tramp-accept-process-output proc 1) (unless (memq (process-status proc) '(run open)) (error "Process has died")) (goto-char (point-max)) @@ -6407,7 +6375,7 @@ Sends COMMAND, then waits 30 seconds for shell prompt." (setq found (looking-at end-of-output)))))) (t (while (not found) - (accept-process-output proc 1) + (tramp-accept-process-output proc 1) (unless (memq (process-status proc) '(run open)) (error "Process has died")) (goto-char (point-max)) @@ -6444,18 +6412,6 @@ Sends COMMAND, then waits 30 seconds for shell prompt." ;; Return value is whether end-of-output sentinel was found. found)) -(defun tramp-match-string-list (&optional string) - "Returns list of all match strings. -That is, (list (match-string 0) (match-string 1) ...), according to the -number of matches." - (let* ((nmatches (/ (length (match-data)) 2)) - (i (- nmatches 1)) - (res nil)) - (while (>= i 0) - (setq res (cons (match-string i string) res)) - (setq i (- i 1))) - res)) - (defun tramp-send-command-and-check (multi-method method user host command &optional subshell) "Run COMMAND and check its exit status. @@ -6556,7 +6512,7 @@ MULTI-METHOD, METHOD, USER, and HOST specify the connection." If `tramp-discard-garbage' is nil, just erase buffer." (if (not tramp-discard-garbage) (erase-buffer) - (while (prog1 (erase-buffer) (accept-process-output p 0.25)) + (while (prog1 (erase-buffer) (tramp-accept-process-output p 0.25)) (when tramp-debug-buffer (save-excursion (set-buffer (tramp-get-debug-buffer multi-method method user host)) @@ -6993,7 +6949,7 @@ as default." ;; auto-saved file belonging to another original file. This could ;; be a security threat. (set-file-modes buffer-auto-save-file-name - (or (file-modes bfn) ?\600))))) + (or (file-modes bfn) #o600))))) (unless (or (> emacs-major-version 21) (and (featurep 'xemacs) @@ -7130,10 +7086,11 @@ it does the right thing." "Specify if query is needed for process when Emacs is exited. If the second argument flag is non-nil, Emacs will query the user before exiting if process is running." + (funcall (if (fboundp 'set-process-query-on-exit-flag) - (set-process-query-on-exit-flag process flag) - (funcall (symbol-function 'process-kill-without-query) - process flag))) + (symbol-function 'set-process-query-on-exit-flag) + (symbol-function 'process-kill-without-query)) + process flag)) ;; ------------------------------------------------------------ @@ -7213,20 +7170,19 @@ Only works for Bourne-like shells." ;; CCC: This check is now also really awful; we should search all ;; of the filename format, not just the prefix. (when (string-match "\\[" tramp-prefix-format) -(defadvice file-expand-wildcards (around tramp-fix activate) - (let ((name (ad-get-arg 0))) - (if (tramp-tramp-file-p name) - ;; If it's a Tramp file, dissect it and look if wildcards - ;; need to be expanded at all. - (let ((v (tramp-dissect-file-name name))) - (if (string-match "[[*?]" (tramp-file-name-localname v)) - (let ((res ad-do-it)) - (setq ad-return-value (or res (list name)))) - (setq ad-return-value (list name)))) - ;; If it is not a Tramp file, just run the original function. - (let ((res ad-do-it)) - (setq ad-return-value (or res (list name))))))) -) + (defadvice file-expand-wildcards (around tramp-fix activate) + (let ((name (ad-get-arg 0))) + (if (tramp-tramp-file-p name) + ;; If it's a Tramp file, dissect it and look if wildcards + ;; need to be expanded at all. + (let ((v (tramp-dissect-file-name name))) + (if (string-match "[[*?]" (tramp-file-name-localname v)) + (let ((res ad-do-it)) + (setq ad-return-value (or res (list name)))) + (setq ad-return-value (list name)))) + ;; If it is not a Tramp file, just run the original function. + (let ((res ad-do-it)) + (setq ad-return-value (or res (list name)))))))) ;; Tramp version is useful in a number of situations. @@ -7246,69 +7202,74 @@ Only works for Bourne-like shells." (interactive) (require 'reporter) (catch 'dont-send - (let ((reporter-prompt-for-summary-p t)) + (let ((reporter-prompt-for-summary-p t)) (reporter-submit-bug-report tramp-bug-report-address ; to-address (format "tramp (%s)" tramp-version) ; package name and version - `(;; Current state - tramp-ls-command - tramp-test-groks-nt - tramp-file-exists-command - tramp-current-multi-method - tramp-current-method - tramp-current-user - tramp-current-host - - ;; System defaults - tramp-auto-save-directory ; vars to dump - tramp-default-method - tramp-rsh-end-of-line - tramp-default-password-end-of-line - tramp-remote-path - tramp-login-prompt-regexp - tramp-password-prompt-regexp - tramp-wrong-passwd-regexp - tramp-yesno-prompt-regexp - tramp-yn-prompt-regexp - tramp-terminal-prompt-regexp - tramp-temp-name-prefix - tramp-file-name-structure - tramp-file-name-regexp - tramp-multi-file-name-structure - tramp-multi-file-name-hop-structure - tramp-multi-methods - tramp-multi-connection-function-alist - tramp-methods - tramp-end-of-output - tramp-coding-commands - tramp-actions-before-shell - tramp-actions-copy-out-of-band - tramp-multi-actions - tramp-terminal-type - tramp-shell-prompt-pattern - tramp-chunksize - ,(when (boundp 'tramp-backup-directory-alist) - 'tramp-backup-directory-alist) - ,(when (boundp 'tramp-bkup-backup-directory-info) - 'tramp-bkup-backup-directory-info) - - ;; Non-tramp variables of interest - shell-prompt-pattern - backup-by-copying - backup-by-copying-when-linked - backup-by-copying-when-mismatch - ,(when (boundp 'backup-by-copying-when-privileged-mismatch) - 'backup-by-copying-when-privileged-mismatch) - ,(when (boundp 'password-cache) - 'password-cache) - ,(when (boundp 'password-cache-expiry) - 'password-cache-expiry) - ,(when (boundp 'backup-directory-alist) - 'backup-directory-alist) - ,(when (boundp 'bkup-backup-directory-info) - 'bkup-backup-directory-info) - file-name-handler-alist) - nil ; pre-hook + (delq nil + `(;; Current state + tramp-ls-command + tramp-test-groks-nt + tramp-file-exists-command + tramp-current-multi-method + tramp-current-method + tramp-current-user + tramp-current-host + + ;; System defaults + tramp-auto-save-directory ; vars to dump + tramp-default-method + tramp-rsh-end-of-line + tramp-default-password-end-of-line + tramp-remote-path + tramp-login-prompt-regexp + ;; Mask non-7bit characters + (tramp-password-prompt-regexp . tramp-reporter-dump-variable) + tramp-wrong-passwd-regexp + tramp-yesno-prompt-regexp + tramp-yn-prompt-regexp + tramp-terminal-prompt-regexp + tramp-temp-name-prefix + tramp-file-name-structure + tramp-file-name-regexp + tramp-multi-file-name-structure + tramp-multi-file-name-hop-structure + tramp-multi-methods + tramp-multi-connection-function-alist + tramp-methods + tramp-end-of-output + tramp-coding-commands + tramp-actions-before-shell + tramp-actions-copy-out-of-band + tramp-multi-actions + tramp-terminal-type + ;; Mask non-7bit characters + (tramp-shell-prompt-pattern . tramp-reporter-dump-variable) + tramp-chunksize + ,(when (boundp 'tramp-backup-directory-alist) + 'tramp-backup-directory-alist) + ,(when (boundp 'tramp-bkup-backup-directory-info) + 'tramp-bkup-backup-directory-info) + + ;; Non-tramp variables of interest + ;; Mask non-7bit characters + (shell-prompt-pattern . tramp-reporter-dump-variable) + backup-by-copying + backup-by-copying-when-linked + backup-by-copying-when-mismatch + ,(when (boundp 'backup-by-copying-when-privileged-mismatch) + 'backup-by-copying-when-privileged-mismatch) + ,(when (boundp 'password-cache) + 'password-cache) + ,(when (boundp 'password-cache-expiry) + 'password-cache-expiry) + ,(when (boundp 'backup-directory-alist) + 'backup-directory-alist) + ,(when (boundp 'bkup-backup-directory-info) + 'bkup-backup-directory-info) + file-name-handler-alist)) + + 'tramp-load-report-modules ; pre-hook 'tramp-append-tramp-buffers ; post-hook "\ Enter your bug report in this message, including as much detail as you @@ -7327,8 +7288,43 @@ report. --bug report follows this line-- ")))) -(defun tramp-append-tramp-buffers () - "Append Tramp buffers into the bug report." +(defun tramp-reporter-dump-variable (varsym mailbuf) + "Pretty-print the value of the variable in symbol VARSYM. +Used for non-7bit chars in strings." + (let* ((reporter-eval-buffer (symbol-value 'reporter-eval-buffer)) + (val (with-current-buffer reporter-eval-buffer + (symbol-value varsym)))) + + ;; There are characters to be masked. + (when (and (boundp 'mm-7bit-chars) + (string-match + (concat "[^" (symbol-value 'mm-7bit-chars) "]") val)) + (with-current-buffer reporter-eval-buffer + (set varsym (concat "(base64-decode-string \"" + (base64-encode-string val) + "\")")))) + + ;; Dump variable. + (funcall (symbol-function 'reporter-dump-variable) varsym mailbuf) + + ;; Remove string quotation. + (forward-line -1) + (when (looking-at + (concat "\\(^.*\\)" "\"" ;; \1 " + "\\((base64-decode-string \\)" "\\\\" ;; \2 \ + "\\(\".*\\)" "\\\\" ;; \3 \ + "\\(\")\\)" "\"$")) ;; \4 " + (replace-match "\\1\\2\\3\\4") + (beginning-of-line) + (insert " ;; variable encoded due to non-printable characters\n")) + (forward-line 1) + + ;; Reset VARSYM to old value. + (with-current-buffer reporter-eval-buffer + (set varsym val)))) + +(defun tramp-load-report-modules () + "Load needed modules for reporting." ;; We load message.el and mml.el from Gnus. (if (featurep 'xemacs) @@ -7338,9 +7334,12 @@ report. (require 'message nil 'noerror) (require 'mml nil 'noerror)) (when (functionp 'message-mode) - (funcall 'message-mode)) + (funcall (symbol-function 'message-mode))) (when (functionp 'mml-mode) - (funcall 'mml-mode t)) + (funcall (symbol-function 'mml-mode) t))) + +(defun tramp-append-tramp-buffers () + "Append Tramp buffers into the bug report." (when (and (eq major-mode 'message-mode) @@ -7394,10 +7393,10 @@ Therefore, the contents of files might be included in the debug buffer(s).") (goto-char (point-max)) (insert "\n\n") (dolist (buffer buffer-list) - (mml-insert-empty-tag - 'part 'type "text/plain" 'encoding "base64" - 'disposition "attachment" 'buffer (buffer-name buffer) - 'description (buffer-name buffer))) + (funcall (symbol-function 'mml-insert-empty-tag) + 'part 'type "text/plain" 'encoding "base64" + 'disposition "attachment" 'buffer (buffer-name buffer) + 'description (buffer-name buffer))) (set-buffer-modified-p nil)) ;; Don't send. Delete the message buffer. diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el index 0feb93af987..2ba9f7b3249 100644 --- a/lisp/net/trampver.el +++ b/lisp/net/trampver.el @@ -4,7 +4,7 @@ ;; Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. -;; Author: Kai.Grossjohann@CS.Uni-Dortmund.DE +;; Author: Kai Gro,A_(Bjohann <kai.grossjohann@gmx.net> ;; Keywords: comm, processes ;; This file is part of GNU Emacs. @@ -30,7 +30,7 @@ ;; are auto-frobbed from configure.ac, so you should edit that file and run ;; "autoconf && ./configure" to change them. -(defconst tramp-version "2.0.49" +(defconst tramp-version "2.0.50" "This version of Tramp.") (defconst tramp-bug-report-address "tramp-devel@gnu.org" diff --git a/lisp/newcomment.el b/lisp/newcomment.el index c0ad722c158..6d95d3ee16e 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el @@ -1,9 +1,10 @@ ;;; newcomment.el --- (un)comment regions of buffers -;; Copyright (C) 1999, 2000, 2003, 2004 Free Software Foundation Inc. +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: code extracted from Emacs-20's simple.el -;; Maintainer: Stefan Monnier <monnier@cs.yale.edu> +;; Maintainer: Stefan Monnier <monnier@iro.umontreal.ca> ;; Keywords: comment uncomment ;; This file is part of GNU Emacs. diff --git a/lisp/novice.el b/lisp/novice.el index ea17ea642e5..dfaf0b6c6d3 100644 --- a/lisp/novice.el +++ b/lisp/novice.el @@ -1,7 +1,7 @@ ;;; novice.el --- handling of disabled commands ("novice mode") for Emacs -;; Copyright (C) 1985, 1986, 1987, 1994, 2002, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1994, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal, help diff --git a/lisp/obsolete/awk-mode.el b/lisp/obsolete/awk-mode.el index 9603d768c7d..166986fd34e 100644 --- a/lisp/obsolete/awk-mode.el +++ b/lisp/obsolete/awk-mode.el @@ -1,6 +1,7 @@ ;;; awk-mode.el --- AWK code editing commands for Emacs -;; Copyright (C) 1988,94,96,2000 Free Software Foundation, Inc. +;; Copyright (C) 1988, 1994, 1996, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: unix, languages diff --git a/lisp/term/bg-mouse.el b/lisp/obsolete/bg-mouse.el index 00484c11532..7bb378c544e 100644 --- a/lisp/term/bg-mouse.el +++ b/lisp/obsolete/bg-mouse.el @@ -50,6 +50,12 @@ ;;; semicolon screws up indenting, so use this instead (defconst semicolon ?\;) +(eval-when-compile + (defvar bg-mouse-x) (defvar bg-mouse-y) (defvar bg-cursor-window) + ;; This variable does not exist since 1991, so it's a safe bet + ;; this package is not really used anymore. Still... + (defvar mouse-map)) + ;;; Defuns: (defun bg-mouse-report (prefix-arg) diff --git a/lisp/obsolete/fast-lock.el b/lisp/obsolete/fast-lock.el index 89754716292..725e2b21e70 100644 --- a/lisp/obsolete/fast-lock.el +++ b/lisp/obsolete/fast-lock.el @@ -1,6 +1,7 @@ ;;; fast-lock.el --- automagic text properties caching for fast Font Lock mode -;; Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Simon Marshall <simon@gnu.org> ;; Maintainer: FSF diff --git a/lisp/obsolete/float.el b/lisp/obsolete/float.el index eb29f331ce7..400956ea232 100644 --- a/lisp/obsolete/float.el +++ b/lisp/obsolete/float.el @@ -1,6 +1,6 @@ ;;; float.el --- obsolete floating point arithmetic package -;; Copyright (C) 1986 Free Software Foundation, Inc. +;; Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Bill Rosenblatt ;; Maintainer: FSF diff --git a/lisp/obsolete/hilit19.el b/lisp/obsolete/hilit19.el index 162d2984eb8..666c580098f 100644 --- a/lisp/obsolete/hilit19.el +++ b/lisp/obsolete/hilit19.el @@ -1,6 +1,7 @@ ;;; hilit19.el --- customizable highlighting for Emacs 19 -;; Copyright (c) 1993, 1994, 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Jonathan Stigelman <stig@hackvan.com> ;; Maintainer: FSF diff --git a/lisp/obsolete/hscroll.el b/lisp/obsolete/hscroll.el index 1d727eb8d98..5e3d141f73b 100644 --- a/lisp/obsolete/hscroll.el +++ b/lisp/obsolete/hscroll.el @@ -1,5 +1,7 @@ ;;; hscroll.el --- automatically scroll truncated lines horizontally -;;; Copyright (C) 1992, 1993, 1995, 1996 Free Software Foundation, Inc. + +;; Copyright (C) 1992, 1993, 1995, 1996, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Wayne Mesard <wmesard@esd.sgi.com> ;; Keywords: display diff --git a/lisp/obsolete/iso-acc.el b/lisp/obsolete/iso-acc.el index 279548b81d6..6ff9e31d7fd 100644 --- a/lisp/obsolete/iso-acc.el +++ b/lisp/obsolete/iso-acc.el @@ -1,7 +1,7 @@ ;;; iso-acc.el --- minor mode providing electric accent keys -;; Copyright (C) 1993, 1994, 1996, 2001, 2002, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1996, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Johan Vromans ;; Maintainer: FSF diff --git a/lisp/obsolete/iso-swed.el b/lisp/obsolete/iso-swed.el index abe9dd9c472..ab5287bc97a 100644 --- a/lisp/obsolete/iso-swed.el +++ b/lisp/obsolete/iso-swed.el @@ -1,6 +1,6 @@ ;;; iso-swed.el --- set up char tables for ISO 8859/1 for Swedish/Finnish ttys -;; Copyright (C) 1987 Free Software Foundation, Inc. +;; Copyright (C) 1987, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Howard Gayle ;; Maintainer: FSF diff --git a/lisp/obsolete/keyswap.el b/lisp/obsolete/keyswap.el index 9bb0b9c63d3..0ed70d61dee 100644 --- a/lisp/obsolete/keyswap.el +++ b/lisp/obsolete/keyswap.el @@ -1,6 +1,6 @@ ;;; keyswap.el --- swap BS and DEL keys -*- no-byte-compile: t -*- -;; Copyright (C) 1992 Free Software Foundation, Inc. +;; Copyright (C) 1992, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> ;; Keywords: terminals diff --git a/lisp/obsolete/lazy-lock.el b/lisp/obsolete/lazy-lock.el index 558377289ed..2daf779bc73 100644 --- a/lisp/obsolete/lazy-lock.el +++ b/lisp/obsolete/lazy-lock.el @@ -1,7 +1,7 @@ ;;; lazy-lock.el --- lazy demand-driven fontification for fast Font Lock mode -;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2001 -;; Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Simon Marshall <simon@gnu.org> ;; Maintainer: FSF diff --git a/lisp/obsolete/mlsupport.el b/lisp/obsolete/mlsupport.el index e36eae66942..22356f1df64 100644 --- a/lisp/obsolete/mlsupport.el +++ b/lisp/obsolete/mlsupport.el @@ -1,6 +1,6 @@ ;;; mlsupport.el --- run-time support for mocklisp code -;; Copyright (C) 1985 Free Software Foundation, Inc. +;; Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: extensions @@ -321,15 +321,15 @@ "Mocklisp compatibility variable; 1 means pass -f when calling csh.") (defun filter-region (command) - (let ((shell (if (/= use-users-shell 0) shell-file-name "/bin/sh")) - (csh (equal (file-name-nondirectory shell) "csh"))) + (let* ((shell (if (/= use-users-shell 0) shell-file-name "/bin/sh")) + (csh (equal (file-name-nondirectory shell) "csh"))) (call-process-region (point) (mark) shell t t nil (if (and csh use-csh-option-f) "-cf" "-c") (concat "exec " command)))) (defun execute-monitor-command (command) - (let ((shell (if (/= use-users-shell 0) shell-file-name "/bin/sh")) - (csh (equal (file-name-nondirectory shell) "csh"))) + (let* ((shell (if (/= use-users-shell 0) shell-file-name "/bin/sh")) + (csh (equal (file-name-nondirectory shell) "csh"))) (call-process shell nil t t (if (and csh use-csh-option-f) "-cf" "-c") (concat "exec " command)))) diff --git a/lisp/obsolete/ooutline.el b/lisp/obsolete/ooutline.el index fbba7709bb0..17374ba1781 100644 --- a/lisp/obsolete/ooutline.el +++ b/lisp/obsolete/ooutline.el @@ -1,6 +1,7 @@ ;;; ooutline.el --- outline mode commands for Emacs -;; Copyright (C) 1986, 1993, 1994, 1997 Free Software Foundation, Inc. +;; Copyright (C) 1986, 1993, 1994, 1997, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: outlines diff --git a/lisp/obsolete/options.el b/lisp/obsolete/options.el index 4defa96f2ce..733e3740dc0 100644 --- a/lisp/obsolete/options.el +++ b/lisp/obsolete/options.el @@ -1,6 +1,6 @@ ;;; options.el --- edit Options command for Emacs -;; Copyright (C) 1985 Free Software Foundation, Inc. +;; Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF diff --git a/lisp/obsolete/profile.el b/lisp/obsolete/profile.el index c4a5b4a0359..3d5ea982b86 100644 --- a/lisp/obsolete/profile.el +++ b/lisp/obsolete/profile.el @@ -1,6 +1,7 @@ ;;; profile.el --- Emacs profiler (OBSOLETE; use elp.el instead) -;; Copyright (C) 1992, 1994, 1998 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1994, 1998, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Boaz Ben-Zvi <boaz@lcs.mit.edu> ;; Created: 07 Feb 1992 diff --git a/lisp/obsolete/rnews.el b/lisp/obsolete/rnews.el index 98a52d4f830..71158f47b4c 100644 --- a/lisp/obsolete/rnews.el +++ b/lisp/obsolete/rnews.el @@ -1,6 +1,7 @@ ;;; rnews.el --- USENET news reader for GNU Emacs -;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: news diff --git a/lisp/obsolete/rnewspost.el b/lisp/obsolete/rnewspost.el index 6e08a66b74a..3dbeb5d871a 100644 --- a/lisp/obsolete/rnewspost.el +++ b/lisp/obsolete/rnewspost.el @@ -1,6 +1,7 @@ ;;; rnewspost.el --- USENET news poster/mailer for GNU Emacs -;; Copyright (C) 1985, 1986, 1987, 1995 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1995, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail, news diff --git a/lisp/obsolete/rsz-mini.el b/lisp/obsolete/rsz-mini.el index 693c2987952..94b7e212279 100644 --- a/lisp/obsolete/rsz-mini.el +++ b/lisp/obsolete/rsz-mini.el @@ -1,6 +1,7 @@ ;;; rsz-mini.el --- dynamically resize minibuffer to display entire contents -;; Copyright (C) 1990, 1993, 1994, 1995, 1997 Free Software Foundation, Inc. +;; Copyright (C) 1990, 1993, 1994, 1995, 1997, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Noah Friedman <friedman@splode.com> ;; Roland McGrath <roland@gnu.org> diff --git a/lisp/obsolete/scribe.el b/lisp/obsolete/scribe.el index 7d627df191d..2870b93fade 100644 --- a/lisp/obsolete/scribe.el +++ b/lisp/obsolete/scribe.el @@ -1,6 +1,6 @@ ;;; scribe.el --- scribe mode, and its idiosyncratic commands -;; Copyright (C) 1985 Free Software Foundation, Inc. +;; Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: wp diff --git a/lisp/obsolete/sun-curs.el b/lisp/obsolete/sun-curs.el index 5fe18221b0c..de372fe6836 100644 --- a/lisp/obsolete/sun-curs.el +++ b/lisp/obsolete/sun-curs.el @@ -1,6 +1,6 @@ ;;; sun-curs.el --- cursor definitions for Sun windows -;; Copyright (C) 1987 Free Software Foundation, Inc. +;; Copyright (C) 1987, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Jeff Peck <peck@sun.com> ;; Keywords: hardware @@ -32,7 +32,12 @@ ;;; ;;; 9-dec-86 Jeff Peck, Sun Microsystems Inc. <peck@sun.com> -(eval-when-compile (require 'cl)) +(eval-when-compile + (require 'cl) + (defvar *edit-icon*) (defvar char) + ;; These are from term/sun-mouse.el + (defvar *mouse-window*) (defvar *mouse-x*) (defvar *mouse-y*) (defvar menu)) + (require 'sun-fns) (eval-and-compile @@ -79,9 +84,11 @@ Otherwise, ICON should be a vector or the name of a vector of [x y 32-chars]" (if (symbolp icon) (setq icon (symbol-value icon))) (sun-change-cursor-icon icon)) +;; This does not make much sense... (make-local-variable '*edit-icon*) + +(defvar icon-edit nil) (make-variable-buffer-local 'icon-edit) -(setq-default icon-edit nil) (or (assq 'icon-edit minor-mode-alist) (push '(icon-edit " IconEdit") minor-mode-alist)) @@ -109,9 +116,6 @@ Otherwise, ICON should be a vector or the name of a vector of [x y 32-chars]" (insert char) (sc::goto-hotspot)) -(defun sc::menu-function (window x y) - (sun-menu-evaluate window (1+ x) y sc::menu)) - (defmenu sc::menu ("Cursor Menu") ("Pack & Use" sc::pack-buffer-to-cursor) @@ -127,6 +131,9 @@ Otherwise, ICON should be a vector or the name of a vector of [x y 32-chars]" ("Quit" sc::quit-edit) ) +(defun sc::menu-function (window x y) + (sun-menu-evaluate window (1+ x) y sc::menu)) + (defun sc::quit-edit () (interactive) (bury-buffer (current-buffer)) @@ -202,7 +209,7 @@ Otherwise, ICON should be a vector or the name of a vector of [x y 32-chars]" ) (defun sc::pack-one-line (dummy) - (let* (char chr1 chr2) + (let (char chr1 chr2) (setq char 0 chr1 (mapconcat 'sc::pack-one-char "12345678" "") chr1 char) (setq char 0 chr2 (mapconcat 'sc::pack-one-char "12345678" "") chr2 char) (forward-line 1) diff --git a/lisp/obsolete/sun-fns.el b/lisp/obsolete/sun-fns.el index 88241e813ec..bca76730e48 100644 --- a/lisp/obsolete/sun-fns.el +++ b/lisp/obsolete/sun-fns.el @@ -1,6 +1,6 @@ ;;; sun-fns.el --- subroutines of Mouse handling for Sun windows -;; Copyright (C) 1987 Free Software Foundation, Inc. +;; Copyright (C) 1987, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Jeff Peck <peck@sun.com> ;; Maintainer: none diff --git a/lisp/international/swedish.el b/lisp/obsolete/swedish.el index affaa9484a2..0021e1f1404 100644 --- a/lisp/international/swedish.el +++ b/lisp/obsolete/swedish.el @@ -35,6 +35,11 @@ ;; See iso-swed.el for a description of the character set. +(eval-when-compile + (defvar news-inews-hook) + (defvar news-group-hook-alist) + (defvar mail-send-hook)) + (defvar swedish-re "[ \t\n]\\(och\\|att\\|en\\|{r\\|\\[R\\|p}\\|P\\]\\|som\\|det\\|av\\|den\\|f|r\\|F\\\\R\\)[ \t\n.,?!:;'\")}]" "Regular expression for common Swedish words.") @@ -79,10 +84,9 @@ Leaves point just after the word that looks Swedish." (setq rmail-show-message-hook 'swascii-to-8859-buffer-maybe) -(or (boundp 'news-group-hook-alist) (setq news-group-hook-alist nil)) (setq news-group-hook-alist (append '(("^swnet." . swascii-to-8859-buffer-maybe)) - news-group-hook-alist)) + (bound-and-true-p news-group-hook-alist))) (defvar 8859-to-swascii-trans (let ((string (make-string 256 ? )) diff --git a/lisp/obsolete/uncompress.el b/lisp/obsolete/uncompress.el index 22bf08b2dd6..7ee25992218 100644 --- a/lisp/obsolete/uncompress.el +++ b/lisp/obsolete/uncompress.el @@ -1,6 +1,7 @@ ;;; uncompress.el --- auto-decompression hook for visiting .Z files -;; Copyright (C) 1992, 1994, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1994, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: files diff --git a/lisp/obsolete/x-apollo.el b/lisp/obsolete/x-apollo.el index e15516b40e7..edf3436aa96 100644 --- a/lisp/obsolete/x-apollo.el +++ b/lisp/obsolete/x-apollo.el @@ -1,6 +1,6 @@ ;;; x-apollo.el --- Apollo support functions -;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. diff --git a/lisp/obsolete/x-menu.el b/lisp/obsolete/x-menu.el index bba20747f53..048cea05ecb 100644 --- a/lisp/obsolete/x-menu.el +++ b/lisp/obsolete/x-menu.el @@ -1,6 +1,6 @@ ;;; x-menu.el --- menu support for X -;; Copyright (C) 1986 Free Software Foundation, Inc. +;; Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. diff --git a/lisp/outline.el b/lisp/outline.el index 6b662664b58..213bc34aba7 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -1,7 +1,7 @@ ;;; outline.el --- outline mode commands for Emacs -;; Copyright (C) 1986, 1993, 1994, 1995, 1997, 2000, 2001, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1986, 1993, 1994, 1995, 1997, 2000, 2001, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: outlines diff --git a/lisp/paren.el b/lisp/paren.el index f0bf458a3ab..a1cc12712f7 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -1,6 +1,7 @@ ;;; paren.el --- highlight matching paren -;; Copyright (C) 1993, 1996, 2001, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1996, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: rms@gnu.org ;; Maintainer: FSF diff --git a/lisp/paths.el b/lisp/paths.el index 388da1af8f2..f248eac9242 100644 --- a/lisp/paths.el +++ b/lisp/paths.el @@ -1,6 +1,7 @@ ;;; paths.el --- define pathnames for use by various Emacs commands -*- no-byte-compile: t -*- -;; Copyright (C) 1986, 1988, 1994, 1999, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1986, 1988, 1994, 1999, 2000, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal diff --git a/lisp/pcmpl-cvs.el b/lisp/pcmpl-cvs.el index 54ab07e6e85..628ad8399ce 100644 --- a/lisp/pcmpl-cvs.el +++ b/lisp/pcmpl-cvs.el @@ -1,6 +1,7 @@ ;;; pcmpl-cvs.el --- functions for dealing with cvs completions -;; Copyright (C) 1999, 2000, 2002 Free Software Foundation +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: John Wiegley <johnw@gnu.org> diff --git a/lisp/pcmpl-gnu.el b/lisp/pcmpl-gnu.el index 36713323075..bf7653618b8 100644 --- a/lisp/pcmpl-gnu.el +++ b/lisp/pcmpl-gnu.el @@ -1,6 +1,7 @@ ;;; pcmpl-gnu.el --- completions for GNU project tools -;; Copyright (C) 1999, 2000 Free Software Foundation +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. diff --git a/lisp/pcmpl-linux.el b/lisp/pcmpl-linux.el index bb77bf00231..02f840bee30 100644 --- a/lisp/pcmpl-linux.el +++ b/lisp/pcmpl-linux.el @@ -1,6 +1,7 @@ ;;; pcmpl-linux.el --- functions for dealing with GNU/Linux completions -;; Copyright (C) 1999, 2000 Free Software Foundation +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. diff --git a/lisp/pcmpl-rpm.el b/lisp/pcmpl-rpm.el index 50c4906886f..5e9afcf51cb 100644 --- a/lisp/pcmpl-rpm.el +++ b/lisp/pcmpl-rpm.el @@ -1,6 +1,7 @@ ;;; pcmpl-rpm.el --- functions for dealing with rpm completions -;; Copyright (C) 1999, 2000 Free Software Foundation +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. diff --git a/lisp/pcmpl-unix.el b/lisp/pcmpl-unix.el index edbc1b28586..de9c143ae6f 100644 --- a/lisp/pcmpl-unix.el +++ b/lisp/pcmpl-unix.el @@ -1,6 +1,7 @@ ;;; pcmpl-unix.el --- standard UNIX completions -;; Copyright (C) 1999, 2000 Free Software Foundation +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el index 3f0ffc54eeb..785c62290c4 100644 --- a/lisp/pcomplete.el +++ b/lisp/pcomplete.el @@ -1,6 +1,7 @@ ;;; pcomplete.el --- programmable completion -;; Copyright (C) 1999, 2000,01,02,03,04 Free Sofware Foundation +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004 +;; 2005 Free Sofware Foundation, Inc. ;; Author: John Wiegley <johnw@gnu.org> ;; Keywords: processes abbrev diff --git a/lisp/pcvs-defs.el b/lisp/pcvs-defs.el index 1e4c29f5583..3be6cbd9182 100644 --- a/lisp/pcvs-defs.el +++ b/lisp/pcvs-defs.el @@ -1,7 +1,7 @@ ;;; pcvs-defs.el --- variable definitions for PCL-CVS ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -;; 2000, 2003, 2004, 2005 Free Software Foundation, Inc. +;; 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs diff --git a/lisp/pcvs-info.el b/lisp/pcvs-info.el index 0a48fc7d8e7..291e4ae85c4 100644 --- a/lisp/pcvs-info.el +++ b/lisp/pcvs-info.el @@ -1,7 +1,7 @@ ;;; pcvs-info.el --- internal representation of a fileinfo entry ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -;; 2000, 2004, 2005 Free Software Foundation, Inc. +;; 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs diff --git a/lisp/pcvs-parse.el b/lisp/pcvs-parse.el index 1b08473d305..66c791db51c 100644 --- a/lisp/pcvs-parse.el +++ b/lisp/pcvs-parse.el @@ -1,7 +1,7 @@ ;;; pcvs-parse.el --- the CVS output parser ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -;; 2000, 2002, 2003, 2004 Free Software Foundation, Inc. +;; 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs diff --git a/lisp/pcvs-util.el b/lisp/pcvs-util.el index 05495d1e264..1c4896435db 100644 --- a/lisp/pcvs-util.el +++ b/lisp/pcvs-util.el @@ -1,7 +1,7 @@ ;;; pcvs-util.el --- utility functions for PCL-CVS -*- byte-compile-dynamic: t -*- ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -;; 2000, 2001, 2004, 2005 Free Software Foundation, Inc. +;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs diff --git a/lisp/pcvs.el b/lisp/pcvs.el index 34a93a1d659..f5564155ff7 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -1,7 +1,7 @@ ;;; pcvs.el --- a front-end to CVS ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -;; 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. +;; 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: (The PCL-CVS Trust) pcl-cvs@cyclic.com ;; (Per Cederqvist) ceder@lysator.liu.se diff --git a/lisp/play/gametree.el b/lisp/play/gametree.el index b2e9fb9f971..9e80024c90b 100644 --- a/lisp/play/gametree.el +++ b/lisp/play/gametree.el @@ -574,9 +574,9 @@ Useful to postal and email chess (and, it is hoped, also checkers, go, shogi, etc.) players, it is a slightly modified version of Outline mode. \\{gametree-mode-map}" -(auto-fill-mode 0) -(make-variable-buffer-local 'write-contents-hooks) -(add-hook 'write-contents-hooks 'gametree-save-and-hack-layout)) + (auto-fill-mode 0) + (make-local-variable 'write-contents-hooks) + (add-hook 'write-contents-hooks 'gametree-save-and-hack-layout)) ;;;; Key bindings diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el index 5a53b4b888e..e9f7a07abe9 100644 --- a/lisp/play/gomoku.el +++ b/lisp/play/gomoku.el @@ -165,15 +165,11 @@ One useful value to include is `turn-on-font-lock' to highlight the pieces." '((((class color)) (:foreground "red" :weight bold))) "Face to use for Emacs' O." :group 'gomoku) -;; backward-compatibility alias -(put 'gomoku-font-lock-O-face 'face-alias 'gomoku-O) (defface gomoku-X '((((class color)) (:foreground "green" :weight bold))) "Face to use for your X." :group 'gomoku) -;; backward-compatibility alias -(put 'gomoku-font-lock-X-face 'face-alias 'gomoku-X) (defvar gomoku-font-lock-keywords '(("O" . 'gomoku-O) diff --git a/lisp/play/mpuz.el b/lisp/play/mpuz.el index cc252a08719..948ae126ffa 100644 --- a/lisp/play/mpuz.el +++ b/lisp/play/mpuz.el @@ -62,31 +62,23 @@ t means never ding, and `error' means only ding on wrong input." (t (:bold t))) "*Face to use for letters to be solved." :group 'mpuz) -;; backward-compatibility alias -(put 'mpuz-unsolved-face 'face-alias 'mpuz-unsolved) (defface mpuz-solved '((((class color)) (:foreground "green1" :bold t)) (t (:bold t))) "*Face to use for solved digits." :group 'mpuz) -;; backward-compatibility alias -(put 'mpuz-solved-face 'face-alias 'mpuz-solved) (defface mpuz-trivial '((((class color)) (:foreground "blue" :bold t)) (t (:bold t))) "*Face to use for trivial digits solved for you." :group 'mpuz) -;; backward-compatibility alias -(put 'mpuz-trivial-face 'face-alias 'mpuz-trivial) (defface mpuz-text '((t (:inherit variable-pitch))) "*Face to use for text on right." :group 'mpuz) -;; backward-compatibility alias -(put 'mpuz-text-face 'face-alias 'mpuz-text) ;; Mpuz mode and keymaps diff --git a/lisp/printing.el b/lisp/printing.el index c73242961cf..eabca64f085 100644 --- a/lisp/printing.el +++ b/lisp/printing.el @@ -1,7 +1,6 @@ ;;; printing.el --- printing utilities -;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> diff --git a/lisp/progmodes/ada-prj.el b/lisp/progmodes/ada-prj.el index d9bfb891ee3..91adf1ed187 100644 --- a/lisp/progmodes/ada-prj.el +++ b/lisp/progmodes/ada-prj.el @@ -477,7 +477,8 @@ connect to the target when working with cross-environments" t) (widget-insert "\n\n") (widget-setup) - (beginning-of-buffer) + (with-no-warnings + (beginning-of-buffer)) ) diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index d9f0d088319..71dc39a56e9 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el @@ -5599,6 +5599,7 @@ brace." containing-sexp paren-state)) ))) +;;;###autoload (defun c-guess-basic-syntax () "Return the syntactic context of the current line. This function does not do any hidden buffer changes." diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index fa9eac2e021..dff4de60e45 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -377,13 +377,16 @@ you may also want to change `compilation-page-delimiter'.") '(;; configure output lines. ("^[Cc]hecking \\(?:[Ff]or \\|[Ii]f \\|[Ww]hether \\(?:to \\)?\\)?\\(.+\\)\\.\\.\\. *\\(?:(cached) *\\)?\\(\\(yes\\(?: .+\\)?\\)\\|no\\|\\(.*\\)\\)$" (1 font-lock-variable-name-face) - (2 font-lock-keyword-face)) + (2 (compilation-face '(4 . 3)))) ;; Command output lines. Recognize `make[n]:' lines too. ("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:" (1 font-lock-function-name-face) (3 compilation-line-face nil t)) (" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1) - ("^Compilation finished" . font-lock-keyword-face) - ("^Compilation exited abnormally" . font-lock-keyword-face)) + ("^Compilation \\(finished\\)" + (1 compilation-info-face)) + ("^Compilation \\(exited abnormally\\|interrupt\\|killed\\|terminated\\)\\(?:.*with code \\([0-9]+\\)\\)?" + (1 compilation-error-face) + (2 compilation-error-face nil t))) "Additional things to highlight in Compilation mode. This gets tacked on the end of the generated expressions.") @@ -443,6 +446,14 @@ You might also use mode hooks to specify it in certain modes, like this: :type 'string :group 'compilation) +(defcustom compilation-disable-input nil + "*If non-nil, send end-of-file as compilation process input. +This only affects platforms that support asynchronous processes (see +`start-process'); synchronous compilation processes never accept input." + :type 'boolean + :group 'compilation + :version "22.1") + ;; A weak per-compilation-buffer hash indexed by (FILENAME . DIRECTORY). Each ;; value is a FILE-STRUCTURE as described above, with the car eq to the hash ;; key. This holds the tree seen from root, for storing new nodes. @@ -468,6 +479,12 @@ starting the compilation process.") ;; History of compile commands. (defvar compile-history nil) +(defface compilation-error + '((t :inherit font-lock-warning-face)) + "Face used to highlight compiler errors." + :group 'font-lock-highlighting-faces + :version "22.1") + (defface compilation-warning '((((class color) (min-colors 16)) (:foreground "Orange" :weight bold)) (((class color)) (:foreground "cyan" :weight bold)) @@ -475,8 +492,6 @@ starting the compilation process.") "Face used to highlight compiler warnings." :group 'font-lock-highlighting-faces :version "22.1") -;; backward-compatibility alias -(put 'compilation-warning-face 'face-alias 'compilation-warning) (defface compilation-info '((((class color) (min-colors 16) (background light)) @@ -487,74 +502,49 @@ starting the compilation process.") (:foreground "Green" :weight bold)) (((class color)) (:foreground "green" :weight bold)) (t (:weight bold))) - "Face used to highlight compiler warnings." - :group 'font-lock-highlighting-faces - :version "22.1") -;; backward-compatibility alias -(put 'compilation-info-face 'face-alias 'compilation-info) - -(defface compilation-error-file-name - '((default :inherit font-lock-warning-face) - (((supports :underline t)) :underline t)) - "Face for displaying file names in compilation errors." - :group 'font-lock-highlighting-faces - :version "22.1") - -(defface compilation-warning-file-name - '((default :inherit font-lock-warning-face) - (((supports :underline t)) :underline t)) - "Face for displaying file names in compilation errors." - :group 'font-lock-highlighting-faces - :version "22.1") - -(defface compilation-info-file-name - '((default :inherit compilation-info) - (((supports :underline t)) :underline t)) - "Face for displaying file names in compilation errors." + "Face used to highlight compiler information." :group 'font-lock-highlighting-faces :version "22.1") (defface compilation-line-number - '((default :inherit font-lock-variable-name-face) - (((supports :underline t)) :underline t)) - "Face for displaying file names in compilation errors." + '((t :inherit font-lock-variable-name-face)) + "Face for displaying line numbers in compiler messages." :group 'font-lock-highlighting-faces :version "22.1") (defface compilation-column-number - '((default :inherit font-lock-type-face) - (((supports :underline t)) :underline t)) - "Face for displaying file names in compilation errors." + '((t :inherit font-lock-type-face)) + "Face for displaying column numbers in compiler messages." :group 'font-lock-highlighting-faces :version "22.1") -(defvar compilation-message-face nil +(defvar compilation-message-face 'underline "Face name to use for whole messages. Faces `compilation-error-face', `compilation-warning-face', `compilation-info-face', `compilation-line-face' and `compilation-column-face' get prepended to this, when applicable.") -(defvar compilation-error-face 'compilation-error-file-name +(defvar compilation-error-face 'compilation-error "Face name to use for file name in error messages.") -(defvar compilation-warning-face 'compilation-warning-file-name +(defvar compilation-warning-face 'compilation-warning "Face name to use for file name in warning messages.") -(defvar compilation-info-face 'compilation-info-file-name +(defvar compilation-info-face 'compilation-info "Face name to use for file name in informational messages.") (defvar compilation-line-face 'compilation-line-number - "Face name to use for line number in message.") + "Face name to use for line numbers in compiler messages.") (defvar compilation-column-face 'compilation-column-number - "Face name to use for column number in message.") + "Face name to use for column numbers in compiler messages.") ;; same faces as dired uses (defvar compilation-enter-directory-face 'font-lock-function-name-face - "Face name to use for column number in message.") + "Face name to use for entering directory messages.") (defvar compilation-leave-directory-face 'font-lock-type-face - "Face name to use for column number in message.") + "Face name to use for leaving directory messages.") @@ -987,7 +977,11 @@ Returns the compilation buffer created." ;; Output a mode setter, for saving and later reloading this buffer. (insert "-*- mode: " name-of-mode "; default-directory: " (prin1-to-string default-directory) - " -*-\n" command "\n") + " -*-\n" + (format "%s started at %s\n\n" + mode-name + (substring (current-time-string) 0 19)) + command "\n") (setq thisdir default-directory)) (set-buffer-modified-p nil)) ;; If we're already in the compilation buffer, go to the end @@ -1036,6 +1030,8 @@ Returns the compilation buffer created." outbuf command)))) ;; Make the buffer's mode line show process state. (setq mode-line-process '(":%s")) + (when compilation-disable-input + (process-send-eof proc)) (set-process-sentinel proc 'compilation-sentinel) (set-process-filter proc 'compilation-filter) (set-marker (process-mark proc) (point) outbuf) @@ -1173,7 +1169,7 @@ exited abnormally with code %d\n" (define-key map [menu-bar compilation compilation-separator2] '("----" . nil)) (define-key map [menu-bar compilation compilation-grep] - '("Search Files (grep)" . grep)) + '("Search Files (grep)..." . grep)) (define-key map [menu-bar compilation compilation-recompile] '("Recompile" . recompile)) (define-key map [menu-bar compilation compilation-compile] @@ -1232,9 +1228,9 @@ Runs `compilation-mode-hook' with `run-mode-hooks' (which see). (defmacro define-compilation-mode (mode name doc &rest body) "This is like `define-derived-mode' without the PARENT argument. The parent is always `compilation-mode' and the customizable `compilation-...' -variables are also set from the name of the mode you have chosen, by replacing -the fist word, e.g `compilation-scroll-output' from `grep-scroll-output' if that -variable exists." +variables are also set from the name of the mode you have chosen, +by replacing the first word, e.g `compilation-scroll-output' from +`grep-scroll-output' if that variable exists." (let ((mode-name (replace-regexp-in-string "-mode\\'" "" (symbol-name mode)))) `(define-derived-mode ,mode compilation-mode ,name ,doc @@ -1513,7 +1509,7 @@ Prefix arg N says how many files to move backwards (or forwards, if negative)." (let ((buffer (compilation-find-buffer))) (if (get-buffer-process buffer) (interrupt-process (get-buffer-process buffer)) - (error "The compilation process is not running")))) + (error "The %s process is not running" (downcase mode-name))))) (defalias 'compile-mouse-goto-error 'compile-goto-error) @@ -1758,8 +1754,8 @@ Pop up the buffer containing MARKER and scroll to MARKER if we ask the user." marker) (let ((name (expand-file-name (read-file-name - (format "Find this error in: (default %s) " - filename) + (format "Find this %s in: (default %s) " + compilation-error filename) dir filename t)))) (if (file-directory-p name) (setq name (expand-file-name filename name))) diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index a698ee6322f..8854d57915c 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el @@ -858,16 +858,12 @@ Return t if it has at least one flymake overlay, nil if no overlay." (t (:bold t))) "Face used for marking error lines." :group 'flymake) -;; backward-compatibility alias -(put 'flymake-errline-face 'face-alias 'flymake-errline) (defface flymake-warnline '((((class color)) (:background "LightBlue2")) (t (:bold t))) "Face used for marking warning lines." :group 'flymake) -;; backward-compatibility alias -(put 'flymake-warnline-face 'face-alias 'flymake-warnline) (defun flymake-highlight-line (line-no line-err-info-list) "Highlight line LINE-NO in current buffer. diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index 42e415c5799..a1c6f0a80b0 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el @@ -58,7 +58,7 @@ ;; using a macro: ;; ;; #ifdef UNBUFFERED -;; setvbuf(stdout,(char *)NULL, _IONBF,0); +;; setvbuf (stdout, (char *) NULL, _IONBF, 0); ;; #endif ;; ;; and compiling with -DUNBUFFERED while debugging. @@ -1307,8 +1307,6 @@ static char *magick[] = { (((background light)) :foreground "grey40")) "Face for disabled breakpoint icon in fringe." :group 'gud) -;; Compatibility alias for old name. -(put 'breakpoint-disabled-bitmap-face 'face-alias 'breakpoint-disabled) ;; Put breakpoint icons in relevant margins (even those set in the GUD buffer). (defun gdb-info-breakpoints-custom () @@ -2192,6 +2190,7 @@ corresponding to the mode line clicked." (define-key gud-menu-map [ui] `(menu-item "GDB-UI" ,menu :visible (eq gud-minor-mode 'gdba))) (define-key menu [gdb-use-inferior-io] + ;; See defadvice below. (menu-bar-make-toggle toggle-gdb-use-inferior-io-buffer gdb-use-inferior-io-buffer "Separate inferior IO" "Use separate IO %s" @@ -2204,6 +2203,7 @@ corresponding to the mode line clicked." '(menu-item "Restore Window Layout" gdb-restore-windows :help "Restore standard layout for debug session."))) +;; This function is defined above through a macro. (defadvice toggle-gdb-use-inferior-io-buffer (after gdb-kill-io-buffer activate) (unless gdb-use-inferior-io-buffer (kill-buffer (gdb-inferior-io-name)))) diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index 4378a7c253d..6dc5fcabd41 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el @@ -206,7 +206,7 @@ See `compilation-error-screen-columns'" (define-key map [menu-bar grep compilation-compile] '("Compile..." . compile)) (define-key map [menu-bar grep compilation-grep] - '("Another grep" . grep)) + '("Another grep..." . grep)) (define-key map [menu-bar grep compilation-recompile] '("Repeat grep" . recompile)) (define-key map [menu-bar grep compilation-separator2] @@ -244,11 +244,11 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies ;;;###autoload (defvar grep-regexp-alist - '(("^\\([^:\n]+\\)\\(:[ \t]*\\)\\([0-9]+\\)\\2" + '(("^\\(.+?\\)\\(:[ \t]*\\)\\([0-9]+\\)\\2" 1 3) ;; Rule to match column numbers is commented out since no known grep ;; produces them - ;; ("^\\([^:\n]+\\)\\(:[ \t]*\\)\\([0-9]+\\)\\2\\(?:\\([0-9]+\\)\\(?:-\\([0-9]+\\)\\)?\\2\\)?" + ;; ("^\\(.+?\\)\\(:[ \t]*\\)\\([0-9]+\\)\\2\\(?:\\([0-9]+\\)\\(?:-\\([0-9]+\\)\\)?\\2\\)?" ;; 1 3 (4 . 5)) ("^\\(\\(.+?\\):\\([0-9]+\\):\\).*?\ \\(\033\\[01;31m\\(?:\033\\[K\\)?\\)\\(.*?\\)\\(\033\\[[0-9]*m\\)" @@ -261,7 +261,7 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies (lambda () (- (match-end 5) (match-end 1) (- (match-end 4) (match-beginning 4))))) nil 1) - ("^Binary file \\(.+\\) matches$" 1 nil nil 1 1)) + ("^Binary file \\(.+\\) matches$" 1 nil nil 0 1)) "Regexp used to match grep hits. See `compilation-error-regexp-alist'.") (defvar grep-error "grep hit" @@ -272,8 +272,7 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies (defvar grep-hit-face compilation-info-face "Face name to use for grep hits.") -;; compilation-error-face is wrong for this; it's designed to look like a link. -(defvar grep-error-face font-lock-keyword-face +(defvar grep-error-face 'compilation-error "Face name to use for grep error messages.") (defvar grep-match-face 'match @@ -288,15 +287,17 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies (": \\(.+\\): \\(?:Permission denied\\|No such \\(?:file or directory\\|device or address\\)\\)$" 1 grep-error-face) ;; remove match from grep-regexp-alist before fontifying + ("^Grep started.*" + (0 '(face nil message nil help-echo nil mouse-face nil) t)) ("^Grep finished \\(?:(\\(matches found\\))\\|with \\(no matches found\\)\\).*" (0 '(face nil message nil help-echo nil mouse-face nil) t) - (1 font-lock-keyword-face nil t) - (2 font-lock-keyword-face nil t)) - ("^Grep \\(exited abnormally\\) with code \\([0-9]+\\).*" + (1 compilation-info-face nil t) + (2 compilation-warning-face nil t)) + ("^Grep \\(exited abnormally\\|interrupt\\|killed\\|terminated\\)\\(?:.*with code \\([0-9]+\\)\\)?.*" (0 '(face nil message nil help-echo nil mouse-face nil) t) (1 grep-error-face) - (2 grep-error-face)) - ("^[^\n-]+-[0-9]+-.*" (0 grep-context-face)) + (2 grep-error-face nil t)) + ("^.+?-[0-9]+-.*\n" (0 grep-context-face)) ;; Highlight grep matches and delete markers ("\\(\033\\[01;31m\\)\\(.*?\\)\\(\033\\[[0-9]*m\\)" ;; Refontification does not work after the markers have been @@ -517,11 +518,10 @@ temporarily highlight in visited source lines." ;; Setting process-setup-function makes exit-message-function work ;; even when async processes aren't supported. - (let ((compilation-process-setup-function 'grep-process-setup)) - (compilation-start (if (and grep-use-null-device null-device) - (concat command-args " " null-device) - command-args) - 'grep-mode nil highlight-regexp))) + (compilation-start (if (and grep-use-null-device null-device) + (concat command-args " " null-device) + command-args) + 'grep-mode nil highlight-regexp)) ;;;###autoload (define-compilation-mode grep-mode "Grep" @@ -531,6 +531,9 @@ temporarily highlight in visited source lines." grep-hit-face) (set (make-local-variable 'compilation-error-regexp-alist) grep-regexp-alist) + (set (make-local-variable 'compilation-process-setup-function) + 'grep-process-setup) + (set (make-local-variable 'compilation-disable-input) t) ;; Set `font-lock-lines-before' to 0 to not refontify the previous ;; line where grep markers may be already removed. (set (make-local-variable 'font-lock-lines-before) 0)) diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 22b0b7b36d6..0577e2a2bb7 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -586,7 +586,9 @@ and source-file directory for your debugger." (gud-def gud-nexti "nexti %p" nil "Step one instruction (skip functions).") (gud-def gud-cont "cont" "\C-r" "Continue with display.") (gud-def gud-finish "finish" "\C-f" "Finish executing current function.") - (gud-def gud-jump "tbreak %f:%l\njump %f:%l" "\C-j" "Relocate execution address to line at point in source buffer.") + (gud-def gud-jump + (progn (gud-call "tbreak %f:%l") (gud-call "jump %f:%l")) + "\C-j" "Set execution address to current line.") (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") @@ -2596,7 +2598,7 @@ It is saved for when this flag is not set.") (defun gud-kill-buffer-hook () (setq gud-minor-mode-type gud-minor-mode) (condition-case nil - (kill-process (get-buffer-process gud-comint-buffer)) + (kill-process (get-buffer-process (current-buffer))) (error nil))) (defun gud-reset () diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el index 6dbbca4c5b1..8c43831ebac 100644 --- a/lisp/progmodes/idlw-help.el +++ b/lisp/progmodes/idlw-help.el @@ -193,8 +193,6 @@ support." (t (:weight bold))) "Face for highlighting links into IDLWAVE online help." :group 'idlwave-online-help) -;; backward-compatibility alias -(put 'idlwave-help-link-face 'face-alias 'idlwave-help-link) (defvar idlwave-help-activate-links-aggressively nil "Obsolete variable.") diff --git a/lisp/progmodes/idlw-rinfo.el b/lisp/progmodes/idlw-rinfo.el index 962292b740a..367de774bcf 100644 --- a/lisp/progmodes/idlw-rinfo.el +++ b/lisp/progmodes/idlw-rinfo.el @@ -1899,7 +1899,7 @@ ) "1850 builtin routines with 7685 keywords for IDL version 6.1.") -(setq idlwave-system-variables-alist +(defvar idlwave-system-variables-alist '( ("C" (link "sysvars7.html#wp997337")) ("CPU" (tags ("HW_VECTOR") ("VECTOR_ENABLE") ("HW_NCPU") ("TPOOL_NTHREADS") ("TPOOL_MIN_ELTS") ("TPOOL_MAX_ELTS")) (link "sysvars6.html#wp1014201")) @@ -1932,7 +1932,7 @@ ("Z" (tags ("TITLE" . 997839) ("TYPE" . 997842) ("STYLE" . 997742) ("TICKS" . 999577) ("TICKLEN" . 1012793) ("THICK" . 997798) ("RANGE" . 997713) ("CRANGE" . 997670) ("S" . 997736) ("MARGIN" . 997689) ("OMARGIN" . 997702) ("WINDOW" . 997845) ("REGION" . 997724) ("CHARSIZE" . 1012787) ("MINOR" . 997699) ("TICKV" . 997833) ("TICKNAME" . 997811) ("GRIDSTYLE" . 998134) ("TICKFORMAT" . 997801) ("TICKINTERVAL" . 997808) ("TICKLAYOUT" . 1012924) ("TICKUNITS" . 1012962)) (link "sysvars7.html#wp997657")))) -(setq idlwave-system-class-info +(defvar idlwave-system-class-info '( ("IDLgrContour" (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "PARENT" "IDLGRCOMPONENT_BOTTOM" "IDLGRGRAPHIC_TOP" "IDLGRGRAPHICVERSION" "ALPHACHANNEL" "CLIP_PLANES" "COLOR" "DEPTH_TEST_DISABLE" "DEPTH_TEST_FUNCTION" "DEPTH_WRITE_DISABLE" "GRAPHICFLAGS" "PALETTE" "XCOORD_CONV" "YCOORD_CONV" "ZCOORD_CONV" "XRANGE" "YRANGE" "ZRANGE" "GRAPHIC_DATA_OBJECT" "IDLGRGRAPHIC_BOTTOM" "IDLGRCONTOUR_TOP" "IDLGRCONTOURVERSION" "AM_PM" "ANISOTROPY" "DATA_FORMAT" "DATA" "DAYS_OF_WEEK" "GEOM_FORMAT" "GEOM" "CONTOURFLAGS" "C_COLOR" "C_FILLPATTERN" "C_LABEL_INTERVAL" "C_LABEL_NOGAPS" "C_LABEL_OBJECTS" "C_LABEL_SHOW" "C_LINESTYLE" "C_THICK" "C_USE_LABEL_COLOR" "C_USE_LABEL_ORIENTATION" "C_VALUE" "LABEL_DEFAULTS" "LABEL_FONT" "LABEL_FORMAT" "LABEL_FRMTDATA" "LABEL_UNITS" "LABEL_UNIT_CODE" "MAXVAL" "MINVAL" "MONTHS" "NLEVELS" "POLYGONS" "SHADERANGE" "SHADING" "TICKINTERVAL" "TICKLEN" "PRECISIONDATA" "PRECISIONGEOM" "PRECISIONGRAPH" "LEVELINFO" "CFILL1" "DEPTHOFFSET" "MAPINFO" "IDLGRCONTOUR_BOTTOM") (inherits "IDLitComponent") (link "objects_gr43.html")) ("IDLgrAxis" (tags "IDLGRCOMPONENT_TOP" "IDLGRCOMPONENTVERSION" "HIDE" "PARENT" "IDLGRCOMPONENT_BOTTOM" "IDLGRGRAPHIC_TOP" "IDLGRGRAPHICVERSION" "ALPHACHANNEL" "CLIP_PLANES" "COLOR" "DEPTH_TEST_DISABLE" "DEPTH_TEST_FUNCTION" "DEPTH_WRITE_DISABLE" "GRAPHICFLAGS" "PALETTE" "XCOORD_CONV" "YCOORD_CONV" "ZCOORD_CONV" "XRANGE" "YRANGE" "ZRANGE" "GRAPHIC_DATA_OBJECT" "IDLGRGRAPHIC_BOTTOM" "IDLGRAXIS_TOP" "IDLGRAXISVERSION" "AM_PM" "AXIS_TYPE" "CALCFLAGS" "DAYS_OF_WEEK" "DIRECTION" "AXISFLAGS" "GRIDSTYLE" "LOCATION" "MAJOR" "MINOR" "MONTHS" "OUTRANGE" "RANGE" "SUBTICKLEN" "TEXTALIGNMENTS" "TEXTBASELINE" "TEXTUPDIR" "THICK" "TICKDIR" "TICKFORMAT" "ARRAY_TICKFORMAT" "TICKFRMTDATA" "TICKINTERVAL" "TICKLAYOUT" "TICKLEN" "TICKTEXT" "TICKUNITCODES" "TICKUNITS" "TICKVALUES" "TITLE" "CURRENT_LEVEL" "LEVEL_DATA" "STEPRANGEUNITS" "STEPRANGE" "IDLGRAXIS_BOTTOM") (inherits "IDLitComponent") (link "objects_gr3.html")) @@ -2014,7 +2014,7 @@ ("IDLjavaObject" (link "objects_misc28.html")))) -(setq idlwave-executive-commands-alist '( +(defvar idlwave-executive-commands-alist '( ("RESET_SESSION" . "symbols8.html") ("TRACE" . "symbols15.html") ("RNEW" . "symbols10.html") diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index 7c1324c94af..cc706195cc2 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el @@ -533,9 +533,7 @@ lines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'." '((((class color)) (:foreground "Black" :background "Pink")) (t (:underline t))) "Face for highlighting lines with breakpoints." - :group 'idlwave-shell-highlighting-and-faces) - ;; backward-compatibility alias - (put 'idlwave-shell-bp-face 'face-alias 'idlwave-shell-bp)) + :group 'idlwave-shell-highlighting-and-faces)) (defcustom idlwave-shell-disabled-breakpoint-face 'idlwave-shell-disabled-bp @@ -553,10 +551,7 @@ lines which have a breakpoint. See also `idlwave-shell-mark-breakpoints'." '((((class color)) (:foreground "Black" :background "gray")) (t (:underline t))) "Face for highlighting lines with breakpoints." - :group 'idlwave-shell-highlighting-and-faces) - ;; backward-compatibility alias - (put 'idlwave-shell-disabled-bp-face 'face-alias 'idlwave-shell-disabled-bp)) - + :group 'idlwave-shell-highlighting-and-faces)) (defcustom idlwave-shell-expression-face 'secondary-selection "*The face for `idlwave-shell-expression-overlay'. @@ -2761,13 +2756,14 @@ Runs to the last statement and then steps 1 statement. Use the .out command." t) (defun idlwave-xemacs-hack-mouse-track (event) - (let ((oldfunc (symbol-function 'default-mouse-track-event-is-with-button))) - (unwind-protect - (progn - (fset 'default-mouse-track-event-is-with-button - 'idlwave-default-mouse-track-event-is-with-button) - (mouse-track event)) - (fset 'default-mouse-track-event-is-with-button oldfunc)))) + (if (featurep 'xemacs) + (let ((oldfunc (symbol-function 'default-mouse-track-event-is-with-button))) + (unwind-protect + (progn + (fset 'default-mouse-track-event-is-with-button + 'idlwave-default-mouse-track-event-is-with-button) + (mouse-track event)) + (fset 'default-mouse-track-event-is-with-button oldfunc))))) ;;; End terrible hack section (defun idlwave-shell-mouse-print (event) diff --git a/lisp/progmodes/idlw-toolbar.el b/lisp/progmodes/idlw-toolbar.el index 9592acb607d..08dd08335bb 100644 --- a/lisp/progmodes/idlw-toolbar.el +++ b/lisp/progmodes/idlw-toolbar.el @@ -44,6 +44,9 @@ (list 'image :type 'xpm :data image))) (defvar default-toolbar) +(defvar idlwave-toolbar) +(defvar idlwave-toolbar-is-possible) + (if (not (or (and (featurep 'xemacs) ; This is XEmacs (featurep 'xpm) ; need xpm (featurep 'toolbar)) ; ... and the toolbar diff --git a/lisp/progmodes/ld-script.el b/lisp/progmodes/ld-script.el index 8b378b7f0ab..a2449b6817e 100644 --- a/lisp/progmodes/ld-script.el +++ b/lisp/progmodes/ld-script.el @@ -39,8 +39,6 @@ '((t (:weight bold :inherit font-lock-builtin-face))) "Face for location counter in GNU ld script." :group 'ld-script) -;; backward-compatibility alias -(put 'ld-script-location-counter-face 'face-alias 'ld-script-location-counter) ;; Syntax rules (defvar ld-script-mode-syntax-table diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index f7f96130f39..aeb09927535 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -815,7 +815,7 @@ See `sh-feature'.") :group 'sh-script :version "22.1") -(defvar sh-font-lock-keywords +(defvar sh-font-lock-keywords-var '((csh sh-append shell ("\\${?[#?]?\\([A-Za-z_][A-Za-z0-9_]*\\|0\\)" 1 font-lock-variable-name-face)) @@ -838,7 +838,7 @@ See `sh-feature'.") 1 font-lock-negation-char-face)) ;; The next entry is only used for defining the others - (shell sh-append executable-font-lock-keywords + (shell ;; Using font-lock-string-face here confuses sh-get-indent-info. ("\\(^\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\\\)$" 3 'sh-escaped-newline) ("\\\\[^A-Za-z0-9]" 0 font-lock-string-face) @@ -850,11 +850,11 @@ See `sh-feature'.") ("^\\(\\sw+\\):" 1 font-lock-variable-name-face))) "Default expressions to highlight in Shell Script modes. See `sh-feature'.") -(defvar sh-font-lock-keywords-1 +(defvar sh-font-lock-keywords-var-1 '((sh "[ \t]in\\>")) "Subdued level highlighting for Shell Script modes.") -(defvar sh-font-lock-keywords-2 () +(defvar sh-font-lock-keywords-var-2 () "Gaudy level highlighting for Shell Script modes.") ;; These are used for the syntax table stuff (derived from cperl-mode). @@ -1364,9 +1364,12 @@ with your script for an edit-interpret-debug cycle." paragraph-start (concat page-delimiter "\\|$") paragraph-separate paragraph-start comment-start "# " + comment-start-skip "#+[\t ]*" + local-abbrev-table sh-mode-abbrev-table comint-dynamic-complete-functions sh-dynamic-complete-functions ;; we can't look if previous line ended with `\' comint-prompt-regexp "^[ \t]*" + imenu-case-fold-search nil font-lock-defaults `((sh-font-lock-keywords sh-font-lock-keywords-1 sh-font-lock-keywords-2) @@ -1403,13 +1406,14 @@ with your script for an edit-interpret-debug cycle." (defun sh-font-lock-keywords (&optional keywords) "Function to get simple fontification based on `sh-font-lock-keywords'. This adds rules for comments and assignments." - (sh-feature sh-font-lock-keywords + (sh-feature sh-font-lock-keywords-var (when (stringp (sh-feature sh-assignment-regexp)) (lambda (list) `((,(sh-feature sh-assignment-regexp) 1 font-lock-variable-name-face) ,@keywords - ,@list))))) + ,@list + ,@executable-font-lock-keywords))))) (defun sh-font-lock-keywords-1 (&optional builtins) "Function to get better fontification including keywords." @@ -1426,10 +1430,10 @@ This adds rules for comments and assignments." "\\>") (2 font-lock-keyword-face nil t) (6 font-lock-builtin-face)) - ,@(sh-feature sh-font-lock-keywords-2))) + ,@(sh-feature sh-font-lock-keywords-var-2))) (,(concat keywords "\\)\\>") 2 font-lock-keyword-face) - ,@(sh-feature sh-font-lock-keywords-1))))) + ,@(sh-feature sh-font-lock-keywords-var-1))))) (defun sh-font-lock-keywords-2 () "Function to get better fontification including keywords and builtins." @@ -1491,6 +1495,7 @@ This adds rules for comments and assignments." ("case" sh-handle-this-rc-case sh-handle-prev-rc-case)))) + (defun sh-set-shell (shell &optional no-query-flag insert-flag) "Set this buffer's shell to SHELL (a string). When used interactively, insert the proper starting #!-line, @@ -1523,13 +1528,10 @@ Calls the value of `sh-set-shell-hook' if set." (if (eq tem t) (setq require-final-newline mode-require-final-newline))) (setq - comment-start-skip "#+[\t ]*" - local-abbrev-table sh-mode-abbrev-table mode-line-process (format "[%s]" sh-shell) sh-shell-variables nil sh-shell-variables-initialized nil - imenu-generic-expression (sh-feature sh-imenu-generic-expression) - imenu-case-fold-search nil) + imenu-generic-expression (sh-feature sh-imenu-generic-expression)) (make-local-variable 'sh-mode-syntax-table) (let ((tem (sh-feature sh-mode-syntax-table-input))) (setq sh-mode-syntax-table @@ -1557,10 +1559,13 @@ Calls the value of `sh-set-shell-hook' if set." (message "Indentation setup for shell type %s" sh-shell)) (message "No indentation for this shell type.") (setq indent-line-function 'sh-basic-indent-line)) + (when font-lock-mode + (setq font-lock-set-defaults nil) + (font-lock-set-defaults) + (font-lock-fontify-buffer)) (run-hooks 'sh-set-shell-hook)) - (defun sh-feature (alist &optional function) "Index ALIST by the current shell. If ALIST isn't a list where every element is a cons, it is returned as is. @@ -1578,39 +1583,38 @@ Else indexing follows an inheritance logic which works in two ways: one shell to be derived from another shell. The value thus determined is physically replaced into the alist. -Optional FUNCTION is applied to the determined value and the result is cached -in ALIST." +If FUNCTION is non-nil, it is called with one argument, +the value thus obtained, and the result is used instead." (or (if (consp alist) + ;; Check for something that isn't a valid alist. (let ((l alist)) (while (and l (consp (car l))) (setq l (cdr l))) (if l alist))) - (if function - (cdr (assoc (setq function (cons sh-shell function)) alist))) - (let ((sh-shell sh-shell) - elt val) - (while (and sh-shell - (not (setq elt (assq sh-shell alist)))) - (setq sh-shell (cdr (assq sh-shell sh-ancestor-alist)))) - ;; If the shell is not known, treat it as sh. - (unless elt - (setq elt (assq 'sh alist))) - (if (and (consp (setq val (cdr elt))) - (memq (car val) '(sh-append sh-modify))) - (setcdr elt - (setq val - (apply (car val) - (let ((sh-shell (car (cdr val)))) - (if (assq sh-shell alist) - (sh-feature alist) - (eval sh-shell))) - (cddr val))))) - (if function - (nconc alist - (list (cons function - (setq sh-shell (car function) - val (funcall (cdr function) val)))))) - val))) + + (let ((orig-sh-shell sh-shell)) + (let ((sh-shell sh-shell) + elt val) + (while (and sh-shell + (not (setq elt (assq sh-shell alist)))) + (setq sh-shell (cdr (assq sh-shell sh-ancestor-alist)))) + ;; If the shell is not known, treat it as sh. + (unless elt + (setq elt (assq 'sh alist))) + (setq val (cdr elt)) + (if (and (consp val) + (memq (car val) '(sh-append sh-modify))) + (setq val + (apply (car val) + ;; Refer to the value for a different shell, + ;; as a kind of inheritance. + (let ((sh-shell (car (cdr val)))) + (sh-feature alist)) + (cddr val)))) + (if function + (setq sh-shell orig-sh-shell + val (funcall function val))) + val)))) diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index 129137c32fd..7e259dfb6e4 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el @@ -736,10 +736,11 @@ Used by `sql-rename-buffer'.") (defvar sql-interactive-mode-map (let ((map (make-sparse-keymap))) - (if (functionp 'set-keymap-parent) + (if (fboundp 'set-keymap-parent) (set-keymap-parent map comint-mode-map); Emacs - (set-keymap-parents map (list comint-mode-map))); XEmacs - (if (functionp 'set-keymap-name) + (if (fboundp 'set-keymap-parents) + (set-keymap-parents map (list comint-mode-map)))); XEmacs + (if (fboundp 'set-keymap-name) (set-keymap-name map 'sql-interactive-mode-map)); XEmacs (define-key map (kbd "C-j") 'sql-accumulate-and-indent) (define-key map (kbd "C-c C-w") 'sql-copy-column) @@ -1901,16 +1902,8 @@ appended to the SQLi buffer without disturbing your SQL buffer." (describe-function 'sql-help)) (defun sql-read-passwd (prompt &optional default) - "Read a password using PROMPT. -Optional DEFAULT is password to start with. This function calls -`read-passwd' if it is available. If not, function -`ange-ftp-read-passwd' is called. This should always be available, -even in old versions of Emacs." - (if (fboundp 'read-passwd) - (read-passwd prompt nil default) - (unless (fboundp 'ange-ftp-read-passwd) - (autoload 'ange-ftp-read-passwd "ange-ftp")) - (ange-ftp-read-passwd prompt default))) + "Read a password using PROMPT. Optional DEFAULT is password to start with." + (read-passwd prompt nil default)) (defun sql-get-login (&rest what) "Get username, password and database from the user. diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el index 26d68aea50f..75f2bb56aa4 100644 --- a/lisp/progmodes/vhdl-mode.el +++ b/lisp/progmodes/vhdl-mode.el @@ -4,9 +4,8 @@ ;; Authors: Reto Zimmermann <reto@gnu.org> ;; Rodney J. Whitby <software.vhdl-mode@rwhitby.net> -;; Maintainer: Reto Zimmermann <reto@gnu.org> +;; Maintainer: FSF (Because Reto Zimmermann seems to have disappeared) ;; Keywords: languages vhdl -;; WWW: http://opensource.ethz.ch/emacs/vhdl-mode.html (defconst vhdl-version "3.32.12" "VHDL Mode version number.") @@ -67,13 +66,13 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Emacs Versions -;; supported: GNU Emacs 20.X/21.X, XEmacs 20.X/21.X +;; supported: GNU Emacs 20.X/21.X/22.X, XEmacs 20.X/21.X ;; tested on: GNU Emacs 20.4, XEmacs 21.1 (marginally) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Installation -;; Prerequisites: GNU Emacs 20.X/21.X, XEmacs 20.X/21.X. +;; Prerequisites: GNU Emacs 20.X/21.X/22.X, XEmacs 20.X/21.X. ;; Put `vhdl-mode.el' into the `site-lisp' directory of your Emacs installation ;; or into an arbitrary directory that is added to the load path by the @@ -125,9 +124,9 @@ ;; XEmacs handling (defconst vhdl-xemacs (string-match "XEmacs" emacs-version) "Non-nil if XEmacs is used.") -;; Emacs 21 handling -(defconst vhdl-emacs-21 (and (= emacs-major-version 21) (not vhdl-xemacs)) - "Non-nil if Emacs 21 is used.") +;; Emacs 21+ handling +(defconst vhdl-emacs-21 (and (<= 21 emacs-major-version) (not vhdl-xemacs)) + "Non-nil if Emacs 21, 22, ... is used.") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/lisp/progmodes/which-func.el b/lisp/progmodes/which-func.el index c1bfc140d84..66d91dce3da 100644 --- a/lisp/progmodes/which-func.el +++ b/lisp/progmodes/which-func.el @@ -139,8 +139,6 @@ Zero means compute the Imenu menu regardless of size." :foreground "LightSkyBlue")) "Face used to highlight mode line function names." :group 'which-func) -;; backward-compatibility alias -(put 'which-func-face 'face-alias 'which-func) (defcustom which-func-format `("[" diff --git a/lisp/progmodes/xscheme.el b/lisp/progmodes/xscheme.el index f53653a306d..d568bca5b75 100644 --- a/lisp/progmodes/xscheme.el +++ b/lisp/progmodes/xscheme.el @@ -33,6 +33,85 @@ ;;; Code: (require 'scheme) + +;;;; Internal Variables + +(defvar xscheme-previous-mode) +(defvar xscheme-previous-process-state) +(defvar xscheme-last-input-end) + +(defvar xscheme-process-command-line nil + "Command used to start the most recent Scheme process.") + +(defvar xscheme-process-name "scheme" + "Name of xscheme process that we're currently interacting with.") + +(defvar xscheme-buffer-name "*scheme*" + "Name of xscheme buffer that we're currently interacting with.") + +(defvar xscheme-expressions-ring-max 30 + "*Maximum length of Scheme expressions ring.") + +(defvar xscheme-expressions-ring nil + "List of expressions recently transmitted to the Scheme process.") + +(defvar xscheme-expressions-ring-yank-pointer nil + "The tail of the Scheme expressions ring whose car is the last thing yanked.") + +(defvar xscheme-running-p nil + "This variable, if nil, indicates that the scheme process is +waiting for input. Otherwise, it is busy evaluating something.") + +(defconst xscheme-control-g-synchronization-p t + "If non-nil, insert markers in the scheme input stream to indicate when +control-g interrupts were signaled. Do not allow more control-g's to be +signaled until the scheme process acknowledges receipt.") + +(defvar xscheme-control-g-disabled-p nil + "This variable, if non-nil, indicates that a control-g is being processed +by the scheme process, so additional control-g's are to be ignored.") + +(defvar xscheme-string-receiver nil + "Procedure to send the string argument from the scheme process.") + +(defconst default-xscheme-runlight + '(": " xscheme-runlight-string) + "Default global (shared) xscheme-runlight modeline format.") + +(defvar xscheme-runlight "") +(defvar xscheme-runlight-string nil) + +(defvar xscheme-process-filter-state 'idle + "State of scheme process escape reader state machine: +idle waiting for an escape sequence +reading-type received an altmode but nothing else +reading-string reading prompt string") + +(defvar xscheme-allow-output-p t + "This variable, if nil, prevents output from the scheme process +from being inserted into the process-buffer.") + +(defvar xscheme-prompt "" + "The current scheme prompt string.") + +(defvar xscheme-string-accumulator "" + "Accumulator for the string being received from the scheme process.") + +(defvar xscheme-mode-string nil) +(setq-default scheme-mode-line-process + '("" xscheme-runlight)) + +(mapcar 'make-variable-buffer-local + '(xscheme-expressions-ring + xscheme-expressions-ring-yank-pointer + xscheme-process-filter-state + xscheme-running-p + xscheme-control-g-disabled-p + xscheme-allow-output-p + xscheme-prompt + xscheme-string-accumulator + xscheme-mode-string + scheme-mode-line-process)) (defgroup xscheme nil "Major mode for editing Scheme and interacting with MIT's C-Scheme." @@ -355,6 +434,9 @@ with no args, if that value is non-nil. (if (eq (process-sentinel process) 'xscheme-process-sentinel) (set-process-sentinel process (cdr previous-state)))))))) +(defvar scheme-interaction-mode-commands-alist nil) +(defvar scheme-interaction-mode-map nil) + (defun scheme-interaction-mode-initialize () (use-local-map scheme-interaction-mode-map) (setq major-mode 'scheme-interaction-mode) @@ -368,7 +450,7 @@ with no args, if that value is non-nil. (car (cdr (car entries)))) (setq entries (cdr entries))))) -(defvar scheme-interaction-mode-commands-alist nil) +;; Initialize the command alist (setq scheme-interaction-mode-commands-alist (append scheme-interaction-mode-commands-alist '(("\C-c\C-m" xscheme-send-current-line) @@ -378,7 +460,7 @@ with no args, if that value is non-nil. ("\ep" xscheme-yank-pop) ("\en" xscheme-yank-push)))) -(defvar scheme-interaction-mode-map nil) +;; Initialize the mode map (if (not scheme-interaction-mode-map) (progn (setq scheme-interaction-mode-map (make-keymap)) @@ -411,18 +493,20 @@ Commands: \\{scheme-debugger-mode-map}" (error "Invalid entry to scheme-debugger-mode")) +(defvar scheme-debugger-mode-map nil) + (defun scheme-debugger-mode-initialize () (use-local-map scheme-debugger-mode-map) (setq major-mode 'scheme-debugger-mode) (setq mode-name "Scheme Debugger")) (defun scheme-debugger-mode-commands (keymap) - (let ((char ? )) + (let ((char ?\s)) (while (< char 127) (define-key keymap (char-to-string char) 'scheme-debugger-self-insert) (setq char (1+ char))))) -(defvar scheme-debugger-mode-map nil) +;; Initialize the debugger mode map (if (not scheme-debugger-mode-map) (progn (setq scheme-debugger-mode-map (make-keymap)) @@ -675,6 +759,9 @@ Useful for working with debugging Scheme under adb." (interactive) (process-send-string xscheme-process-name "(proceed)\n")) +(defconst xscheme-control-g-message-string + "Sending C-G interrupt to Scheme...") + (defun xscheme-send-control-g-interrupt () "Cause the Scheme processor to halt and flush input. Control returns to the top level rep loop." @@ -695,9 +782,6 @@ Control returns to the top level rep loop." (sleep-for 0.1) (xscheme-send-char 0))))) -(defconst xscheme-control-g-message-string - "Sending C-G interrupt to Scheme...") - (defun xscheme-send-control-u-interrupt () "Cause the Scheme process to halt, returning to previous rep loop." (interactive) @@ -722,82 +806,6 @@ Control returns to the top level rep loop." (if (and mark-p xscheme-control-g-synchronization-p) (xscheme-send-char 0))) -;;;; Internal Variables - -(defvar xscheme-process-command-line nil - "Command used to start the most recent Scheme process.") - -(defvar xscheme-process-name "scheme" - "Name of xscheme process that we're currently interacting with.") - -(defvar xscheme-buffer-name "*scheme*" - "Name of xscheme buffer that we're currently interacting with.") - -(defvar xscheme-expressions-ring-max 30 - "*Maximum length of Scheme expressions ring.") - -(defvar xscheme-expressions-ring nil - "List of expressions recently transmitted to the Scheme process.") - -(defvar xscheme-expressions-ring-yank-pointer nil - "The tail of the Scheme expressions ring whose car is the last thing yanked.") - -(defvar xscheme-last-input-end) - -(defvar xscheme-process-filter-state 'idle - "State of scheme process escape reader state machine: -idle waiting for an escape sequence -reading-type received an altmode but nothing else -reading-string reading prompt string") - -(defvar xscheme-running-p nil - "This variable, if nil, indicates that the scheme process is -waiting for input. Otherwise, it is busy evaluating something.") - -(defconst xscheme-control-g-synchronization-p t - "If non-nil, insert markers in the scheme input stream to indicate when -control-g interrupts were signaled. Do not allow more control-g's to be -signaled until the scheme process acknowledges receipt.") - -(defvar xscheme-control-g-disabled-p nil - "This variable, if non-nil, indicates that a control-g is being processed -by the scheme process, so additional control-g's are to be ignored.") - -(defvar xscheme-allow-output-p t - "This variable, if nil, prevents output from the scheme process -from being inserted into the process-buffer.") - -(defvar xscheme-prompt "" - "The current scheme prompt string.") - -(defvar xscheme-string-accumulator "" - "Accumulator for the string being received from the scheme process.") - -(defvar xscheme-string-receiver nil - "Procedure to send the string argument from the scheme process.") - -(defconst default-xscheme-runlight - '(": " xscheme-runlight-string) - "Default global (shared) xscheme-runlight modeline format.") - -(defvar xscheme-runlight "") -(defvar xscheme-runlight-string nil) -(defvar xscheme-mode-string nil) -(setq-default scheme-mode-line-process - '("" xscheme-runlight)) - -(mapcar 'make-variable-buffer-local - '(xscheme-expressions-ring - xscheme-expressions-ring-yank-pointer - xscheme-process-filter-state - xscheme-running-p - xscheme-control-g-disabled-p - xscheme-allow-output-p - xscheme-prompt - xscheme-string-accumulator - xscheme-mode-string - scheme-mode-line-process)) - ;;;; Basic Process Control (defun xscheme-start-process (command-line the-process the-buffer) @@ -880,6 +888,61 @@ from being inserted into the process-buffer.") "True iff the current buffer is the Scheme process buffer." (eq (xscheme-process-buffer) (current-buffer))) +;;;; Process Filter Operations + +(defvar xscheme-process-filter-alist + '((?A xscheme-eval + xscheme-process-filter:string-action-noexcursion) + (?D xscheme-enter-debugger-mode + xscheme-process-filter:string-action) + (?E xscheme-eval + xscheme-process-filter:string-action) + (?P xscheme-set-prompt-variable + xscheme-process-filter:string-action) + (?R xscheme-enter-interaction-mode + xscheme-process-filter:simple-action) + (?b xscheme-start-gc + xscheme-process-filter:simple-action) + (?c xscheme-unsolicited-read-char + xscheme-process-filter:simple-action) + (?e xscheme-finish-gc + xscheme-process-filter:simple-action) + (?f xscheme-exit-input-wait + xscheme-process-filter:simple-action) + (?g xscheme-enable-control-g + xscheme-process-filter:simple-action) + (?i xscheme-prompt-for-expression + xscheme-process-filter:string-action) + (?m xscheme-message + xscheme-process-filter:string-action) + (?n xscheme-prompt-for-confirmation + xscheme-process-filter:string-action) + (?o xscheme-output-goto + xscheme-process-filter:simple-action) + (?p xscheme-set-prompt + xscheme-process-filter:string-action) + (?s xscheme-enter-input-wait + xscheme-process-filter:simple-action) + (?v xscheme-write-value + xscheme-process-filter:string-action) + (?w xscheme-cd + xscheme-process-filter:string-action) + (?z xscheme-display-process-buffer + xscheme-process-filter:simple-action)) + "Table used to decide how to handle process filter commands. +Value is a list of entries, each entry is a list of three items. + +The first item is the character that the process filter dispatches on. +The second item is the action to be taken, a function. +The third item is the handler for the entry, a function. + +When the process filter sees a command whose character matches a +particular entry, it calls the handler with two arguments: the action +and the string containing the rest of the process filter's input +stream. It is the responsibility of the handler to invoke the action +with the appropriate arguments, and to reenter the process filter with +the remaining input.") + ;;;; Process Filter (defun xscheme-process-sentinel (proc reason) @@ -1037,61 +1100,6 @@ from being inserted into the process-buffer.") (rplaca (nthcdr 3 xscheme-runlight) runlight) (force-mode-line-update t)) -;;;; Process Filter Operations - -(defvar xscheme-process-filter-alist - '((?A xscheme-eval - xscheme-process-filter:string-action-noexcursion) - (?D xscheme-enter-debugger-mode - xscheme-process-filter:string-action) - (?E xscheme-eval - xscheme-process-filter:string-action) - (?P xscheme-set-prompt-variable - xscheme-process-filter:string-action) - (?R xscheme-enter-interaction-mode - xscheme-process-filter:simple-action) - (?b xscheme-start-gc - xscheme-process-filter:simple-action) - (?c xscheme-unsolicited-read-char - xscheme-process-filter:simple-action) - (?e xscheme-finish-gc - xscheme-process-filter:simple-action) - (?f xscheme-exit-input-wait - xscheme-process-filter:simple-action) - (?g xscheme-enable-control-g - xscheme-process-filter:simple-action) - (?i xscheme-prompt-for-expression - xscheme-process-filter:string-action) - (?m xscheme-message - xscheme-process-filter:string-action) - (?n xscheme-prompt-for-confirmation - xscheme-process-filter:string-action) - (?o xscheme-output-goto - xscheme-process-filter:simple-action) - (?p xscheme-set-prompt - xscheme-process-filter:string-action) - (?s xscheme-enter-input-wait - xscheme-process-filter:simple-action) - (?v xscheme-write-value - xscheme-process-filter:string-action) - (?w xscheme-cd - xscheme-process-filter:string-action) - (?z xscheme-display-process-buffer - xscheme-process-filter:simple-action)) - "Table used to decide how to handle process filter commands. -Value is a list of entries, each entry is a list of three items. - -The first item is the character that the process filter dispatches on. -The second item is the action to be taken, a function. -The third item is the handler for the entry, a function. - -When the process filter sees a command whose character matches a -particular entry, it calls the handler with two arguments: the action -and the string containing the rest of the process filter's input -stream. It is the responsibility of the handler to invoke the action -with the appropriate arguments, and to reenter the process filter with -the remaining input.") - (defun xscheme-process-filter:simple-action (action) (setq xscheme-process-filter-state 'idle) (funcall action)) @@ -1196,10 +1204,6 @@ the remaining input.") (defun xscheme-prompt-for-confirmation (prompt-string) (xscheme-send-char (if (y-or-n-p prompt-string) ?y ?n))) -(defun xscheme-prompt-for-expression (prompt-string) - (xscheme-send-string-2 - (read-from-minibuffer prompt-string nil xscheme-prompt-for-expression-map))) - (defvar xscheme-prompt-for-expression-map nil) (if (not xscheme-prompt-for-expression-map) (progn @@ -1209,6 +1213,10 @@ the remaining input.") 'xscheme-prompt-for-expression-exit xscheme-prompt-for-expression-map))) +(defun xscheme-prompt-for-expression (prompt-string) + (xscheme-send-string-2 + (read-from-minibuffer prompt-string nil xscheme-prompt-for-expression-map))) + (defun xscheme-prompt-for-expression-exit () (interactive) (if (eq (xscheme-region-expression-p (point-min) (point-max)) 'one) diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el index 9138c7eb115..76b9100f59a 100644 --- a/lisp/ps-mule.el +++ b/lisp/ps-mule.el @@ -1,7 +1,7 @@ ;;; ps-mule.el --- provide multi-byte character facility to ps-print -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003 -;; Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; Kenichi Handa <handa@etl.go.jp> (multi-byte characters) diff --git a/lisp/ps-print.el b/lisp/ps-print.el index ffaa78becc1..4d44eb36ab3 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -1,7 +1,7 @@ ;;; ps-print.el --- print text from the buffer as PostScript -;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, -;; 2003, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, +;; 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Jim Thompson (was <thompson@wg2.waii.com>) ;; Jacques Duthen (was <duthen@cegelec-red.fr>) diff --git a/lisp/recentf.el b/lisp/recentf.el index dcb962c3f19..524d00d389d 100644 --- a/lisp/recentf.el +++ b/lisp/recentf.el @@ -1,7 +1,7 @@ ;;; recentf.el --- setup a menu of recently opened files -;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: David Ponce <david@dponce.com> ;; Created: July 19 1999 diff --git a/lisp/rect.el b/lisp/rect.el index 08b601c050e..d7ae6592f74 100644 --- a/lisp/rect.el +++ b/lisp/rect.el @@ -1,6 +1,7 @@ ;;; rect.el --- rectangle functions for GNU Emacs -;; Copyright (C) 1985, 1999, 2000, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1999, 2000, 2001, 2002, 2003, 2004 +;; 2005 Free Software Foundation, Inc. ;; Maintainer: Didier Verna <didier@xemacs.org> ;; Keywords: internal diff --git a/lisp/register.el b/lisp/register.el index 4789047b0af..14d7494633a 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -1,6 +1,7 @@ ;;; register.el --- register commands for Emacs -;; Copyright (C) 1985, 1993, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1993, 1994, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal diff --git a/lisp/repeat.el b/lisp/repeat.el index b1b8cc40aa8..adaf8a4bb9a 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el @@ -1,6 +1,6 @@ ;;; repeat.el --- convenient way to repeat the previous command -;; Copyright (C) 1998 Free Software Foundation, Inc. +;; Copyright (C) 1998, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Will Mengarini <seldon@eskimo.com> ;; Created: Mo 02 Mar 98 diff --git a/lisp/replace.el b/lisp/replace.el index 451650401b1..33162b02d3c 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -1,7 +1,7 @@ ;;; replace.el --- replace commands for Emacs -;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1996, 1997, 2000, 2001, 2002, -;; 2003, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1996, 1997, 2000, 2001, +;; 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF @@ -88,7 +88,7 @@ is highlighted lazily using isearch lazy highlighting (see (defun query-replace-descr (string) (mapconcat 'isearch-text-char-description string "")) -(defun query-replace-read-from (string regexp-flag) +(defun query-replace-read-from (prompt regexp-flag) "Query and return the `from' argument of a query-replace operation. The return value can also be a pair (FROM . TO) indicating that the user wants to replace FROM with TO." @@ -107,10 +107,10 @@ wants to replace FROM with TO." query-replace-from-history-variable)))) (read-from-minibuffer (if (and lastto lastfrom) - (format "%s (default %s -> %s): " string + (format "%s (default %s -> %s): " prompt (query-replace-descr lastfrom) (query-replace-descr lastto)) - (format "%s: " string)) + (format "%s: " prompt)) nil nil nil query-replace-from-history-variable nil t t)))) @@ -173,22 +173,22 @@ the original string if not." to)) -(defun query-replace-read-to (from string regexp-flag) +(defun query-replace-read-to (from prompt regexp-flag) "Query and return the `to' argument of a query-replace operation." (query-replace-compile-replacement (save-excursion (read-from-minibuffer - (format "%s %s with: " string (query-replace-descr from)) + (format "%s %s with: " prompt (query-replace-descr from)) nil nil nil query-replace-to-history-variable from t t)) regexp-flag)) -(defun query-replace-read-args (string regexp-flag &optional noerror) +(defun query-replace-read-args (prompt regexp-flag &optional noerror) (unless noerror (barf-if-buffer-read-only)) - (let* ((from (query-replace-read-from string regexp-flag)) + (let* ((from (query-replace-read-from prompt regexp-flag)) (to (if (consp from) (prog1 (cdr from) (setq from (car from))) - (query-replace-read-to from string regexp-flag)))) + (query-replace-read-to from prompt regexp-flag)))) (list from to current-prefix-arg))) (defun query-replace (from-string to-string &optional delimited start end) @@ -1061,6 +1061,8 @@ See also `multi-occur'." title-face prefix-face match-face keep-props) (with-current-buffer out-buf (let ((globalcount 0) + ;; Don't generate undo entries for creation of the initial contents. + (buffer-undo-list t) (coding nil)) ;; Map over all the buffers (dolist (buf buffers) diff --git a/lisp/reposition.el b/lisp/reposition.el index 41283ce251a..7a6ea277b02 100644 --- a/lisp/reposition.el +++ b/lisp/reposition.el @@ -1,6 +1,7 @@ ;;; reposition.el --- center a Lisp function or comment on the screen -;; Copyright (C) 1991, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1991, 1994, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Michael D. Ernst <mernst@theory.lcs.mit.edu> ;; Created: Jan 1991 diff --git a/lisp/resume.el b/lisp/resume.el index db21a4bab4c..29ce253e4a2 100644 --- a/lisp/resume.el +++ b/lisp/resume.el @@ -1,6 +1,6 @@ ;;; resume.el --- process command line args from within a suspended Emacs job -;; Copyright (C) 1992 Free Software Foundation, Inc. +;; Copyright (C) 1992, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Joe Wells <jbw@bucsf.bu.edu> ;; Adapted-By: ESR diff --git a/lisp/reveal.el b/lisp/reveal.el index 402fa7c4f49..41b7c4268c2 100644 --- a/lisp/reveal.el +++ b/lisp/reveal.el @@ -1,6 +1,7 @@ ;;; reveal.el --- Automatically reveal hidden text at point -;; Copyright (C) 2000, 2001, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: outlines diff --git a/lisp/rfn-eshadow.el b/lisp/rfn-eshadow.el index 5c7865d864f..9141b5220e8 100644 --- a/lisp/rfn-eshadow.el +++ b/lisp/rfn-eshadow.el @@ -1,6 +1,7 @@ ;;; rfn-eshadow.el --- Highlight `shadowed' part of read-file-name input text ;; -;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; ;; Author: Miles Bader <miles@gnu.org> ;; Keywords: convenience minibuffer diff --git a/lisp/rot13.el b/lisp/rot13.el index 99b34ef9d17..664e2cfadc6 100644 --- a/lisp/rot13.el +++ b/lisp/rot13.el @@ -1,6 +1,6 @@ ;;; rot13.el --- display a buffer in rot13 -;; Copyright (C) 1988,2002 Free Software Foundation, Inc. +;; Copyright (C) 1988, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Howard Gayle ;; Maintainer: FSF diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el index c26c5efb98b..6bb93b93cc8 100644 --- a/lisp/ruler-mode.el +++ b/lisp/ruler-mode.el @@ -220,8 +220,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or ))) "Default face used by the ruler." :group 'ruler-mode) -;; backward-compatibility alias -(put 'ruler-mode-default-face 'face-alias 'ruler-mode-default) (defface ruler-mode-pad '((((type tty)) @@ -234,8 +232,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or ))) "Face used to pad inactive ruler areas." :group 'ruler-mode) -;; backward-compatibility alias -(put 'ruler-mode-pad-face 'face-alias 'ruler-mode-pad) (defface ruler-mode-margins '((t @@ -244,8 +240,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or ))) "Face used to highlight margin areas." :group 'ruler-mode) -;; backward-compatibility alias -(put 'ruler-mode-margins-face 'face-alias 'ruler-mode-margins) (defface ruler-mode-fringes '((t @@ -254,8 +248,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or ))) "Face used to highlight fringes areas." :group 'ruler-mode) -;; backward-compatibility alias -(put 'ruler-mode-fringes-face 'face-alias 'ruler-mode-fringes) (defface ruler-mode-column-number '((t @@ -264,8 +256,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or ))) "Face used to highlight number graduations." :group 'ruler-mode) -;; backward-compatibility alias -(put 'ruler-mode-column-number-face 'face-alias 'ruler-mode-column-number) (defface ruler-mode-fill-column '((t @@ -274,8 +264,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or ))) "Face used to highlight the fill column character." :group 'ruler-mode) -;; backward-compatibility alias -(put 'ruler-mode-fill-column-face 'face-alias 'ruler-mode-fill-column) (defface ruler-mode-comment-column '((t @@ -284,8 +272,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or ))) "Face used to highlight the comment column character." :group 'ruler-mode) -;; backward-compatibility alias -(put 'ruler-mode-comment-column-face 'face-alias 'ruler-mode-comment-column) (defface ruler-mode-goal-column '((t @@ -294,8 +280,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or ))) "Face used to highlight the goal column character." :group 'ruler-mode) -;; backward-compatibility alias -(put 'ruler-mode-goal-column-face 'face-alias 'ruler-mode-goal-column) (defface ruler-mode-tab-stop '((t @@ -304,8 +288,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or ))) "Face used to highlight tab stop characters." :group 'ruler-mode) -;; backward-compatibility alias -(put 'ruler-mode-tab-stop-face 'face-alias 'ruler-mode-tab-stop) (defface ruler-mode-current-column '((t @@ -315,8 +297,6 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or ))) "Face used to highlight the `current-column' character." :group 'ruler-mode) -;; backward-compatibility alias -(put 'ruler-mode-current-column-face 'face-alias 'ruler-mode-current-column) (defsubst ruler-mode-full-window-width () diff --git a/lisp/s-region.el b/lisp/s-region.el index b28ab222434..06b5bb3f926 100644 --- a/lisp/s-region.el +++ b/lisp/s-region.el @@ -1,6 +1,7 @@ ;;; s-region.el --- set region using shift key -;; Copyright (C) 1994, 1995 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Morten Welinder <terra@diku.dk> ;; Keywords: terminals diff --git a/lisp/saveplace.el b/lisp/saveplace.el index afb10ede9d5..645b298ee66 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el @@ -1,6 +1,7 @@ ;;; saveplace.el --- automatically save place in files -;; Copyright (C) 1993, 1994, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Karl Fogel <kfogel@red-bean.com> ;; Maintainer: FSF diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el index 2c0636d69d2..f2a953f7a21 100644 --- a/lisp/scroll-all.el +++ b/lisp/scroll-all.el @@ -1,6 +1,6 @@ ;;; scroll-all.el --- scroll all buffers together minor mode -;; Copyright (C) 1997 Free Software Foundation, Inc. +;; Copyright (C) 1997, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Gary D. Foster <Gary.Foster@corp.sun.com> ;; Keywords: scroll crisp brief lock diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el index 64429ba4da5..1fabb78dc49 100644 --- a/lisp/scroll-bar.el +++ b/lisp/scroll-bar.el @@ -1,7 +1,7 @@ ;;; scroll-bar.el --- window system-independent scroll bar support -;; Copyright (C) 1993, 1994, 1995, 1999, 2000, 2001, 2003 -;; Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: hardware diff --git a/lisp/scroll-lock.el b/lisp/scroll-lock.el new file mode 100644 index 00000000000..e5fca2d1c6e --- /dev/null +++ b/lisp/scroll-lock.el @@ -0,0 +1,129 @@ +;;; scroll-lock.el --- Scroll lock scrolling. + +;; Copyright (C) 2005 Free Software Foundation, Inc. + +;; Author: Ralf Angeli <angeli@iwi.uni-sb.de> +;; Maintainer: FSF +;; Created: 2005-06-18 + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; By activating Scroll Lock mode, keys for moving point by line or +;; paragraph will scroll the buffer by the respective amount of lines +;; instead. Point will be kept vertically fixed relative to window +;; boundaries. + +;;; Code: + +(defvar scroll-lock-mode-map + (let ((map (make-sparse-keymap))) + (define-key map [remap next-line] 'scroll-lock-next-line) + (define-key map [remap previous-line] 'scroll-lock-previous-line) + (define-key map [remap forward-paragraph] 'scroll-lock-forward-paragraph) + (define-key map [remap backward-paragraph] 'scroll-lock-backward-paragraph) + map) + "Keymap for Scroll Lock mode.") + +(defvar scroll-lock-preserve-screen-pos-save scroll-preserve-screen-position + "Used for saving the state of `scroll-preserve-screen-position'.") +(make-variable-buffer-local 'scroll-lock-preserve-screen-pos-save) + +(defvar scroll-lock-temporary-goal-column 0 + "Like `temporary-goal-column' but for scroll-lock-* commands.") + +;;;###autoload +(define-minor-mode scroll-lock-mode + "Minor mode for pager-like scrolling. +Keys which normally move point by line or paragraph will scroll +the buffer by the respective amount of lines instead and point +will be kept vertically fixed relative to window boundaries +during scrolling." + :lighter " ScrLck" + :keymap scroll-lock-mode-map + (if scroll-lock-mode + (progn + (setq scroll-lock-preserve-screen-pos-save + scroll-preserve-screen-position) + (set (make-local-variable 'scroll-preserve-screen-position) 'always)) + (setq scroll-preserve-screen-position + scroll-lock-preserve-screen-pos-save))) + +(defun scroll-lock-update-goal-column () + "Update `scroll-lock-temporary-goal-column' if necessary." + (unless (memq last-command '(scroll-lock-next-line + scroll-lock-previous-line + scroll-lock-forward-paragraph + scroll-lock-backward-paragraph)) + (setq scroll-lock-temporary-goal-column (current-column)))) + +(defun scroll-lock-move-to-column (column) + "Like `move-to-column' but cater for wrapped lines." + (if (or (bolp) + ;; Start of a screen line. + (not (zerop (mod (- (point) (line-beginning-position)) + (window-width))))) + (move-to-column column) + (forward-char (min column (- (line-end-position) (point)))))) + +(defun scroll-lock-next-line (&optional arg) + "Scroll up ARG lines keeping point fixed." + (interactive "p") + (or arg (setq arg 1)) + (scroll-lock-update-goal-column) + (if (pos-visible-in-window-p (point-max)) + (next-line arg) + (scroll-up arg)) + (scroll-lock-move-to-column scroll-lock-temporary-goal-column)) + +(defun scroll-lock-previous-line (&optional arg) + "Scroll up ARG lines keeping point fixed." + (interactive "p") + (or arg (setq arg 1)) + (scroll-lock-update-goal-column) + (condition-case nil + (scroll-down arg) + (beginning-of-buffer (previous-line arg))) + (scroll-lock-move-to-column scroll-lock-temporary-goal-column)) + +(defun scroll-lock-forward-paragraph (&optional arg) + "Scroll down ARG paragraphs keeping point fixed." + (interactive "p") + (or arg (setq arg 1)) + (scroll-lock-update-goal-column) + (scroll-up (count-screen-lines (point) (save-excursion + (forward-paragraph arg) + (point)))) + (scroll-lock-move-to-column scroll-lock-temporary-goal-column)) + +(defun scroll-lock-backward-paragraph (&optional arg) + "Scroll up ARG paragraphs keeping point fixed." + (interactive "p") + (or arg (setq arg 1)) + (scroll-lock-update-goal-column) + (let ((goal (save-excursion (backward-paragraph arg) (point)))) + (condition-case nil + (scroll-down (count-screen-lines goal (point))) + (beginning-of-buffer (goto-char goal)))) + (scroll-lock-move-to-column scroll-lock-temporary-goal-column)) + +(provide 'scroll-lock) + +;; arch-tag: 148fc8e8-67e0-4638-bb34-3291595ab7e1 +;;; scroll-lock.el ends here diff --git a/lisp/select.el b/lisp/select.el index 46f9fd7fab3..1d8d13208fa 100644 --- a/lisp/select.el +++ b/lisp/select.el @@ -3,7 +3,8 @@ ;; Maintainer: FSF ;; Keywords: internal -;; Copyright (c) 1993, 1994, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Based partially on earlier release by Lucid. ;; This file is part of GNU Emacs. diff --git a/lisp/server.el b/lisp/server.el index 48ff50f3dbc..7256a729de3 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -1,7 +1,7 @@ ;;; server.el --- Lisp code for GNU Emacs running as server process -;; Copyright (C) 1986,87,92,94,95,96,97,98,99,2000,01,02,03,2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1986, 1987, 1992, 1994, 1995, 1996, 1997, 1998, 1999, 2000, +;; 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: William Sommerfeld <wesommer@athena.mit.edu> ;; Maintainer: FSF diff --git a/lisp/ses.el b/lisp/ses.el index f7de1ddb50a..e4124de9fb5 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -1,6 +1,6 @@ ;;; ses.el -- Simple Emacs Spreadsheet -*- coding: utf-8 -*- -;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Jonathan Yavner <jyavner@member.fsf.org> ;; Maintainer: Jonathan Yavner <jyavner@member.fsf.org> diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el index 2e5943db0f5..990049afff1 100644 --- a/lisp/shadowfile.el +++ b/lisp/shadowfile.el @@ -1,6 +1,7 @@ ;;; shadowfile.el --- automatic file copying -;; Copyright (C) 1993, 1994, 2001, 2002 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Boris Goldowsky <boris@gnu.org> ;; Keywords: comm files diff --git a/lisp/shell.el b/lisp/shell.el index 2684ee30a65..6b25cf3abde 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -1,6 +1,7 @@ ;;; shell.el --- specialized comint.el for running the shell -;; Copyright (C) 1988, 93, 94, 95, 96, 1997, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1988, 1993, 1994, 1995, 1996, 1997, 2000, +;; 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Olin Shivers <shivers@cs.cmu.edu> ;; Simon Marshall <simon@gnu.org> diff --git a/lisp/simple.el b/lisp/simple.el index c967559553e..fc6d2a502ac 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1,8 +1,7 @@ ;;; simple.el --- basic editing commands for Emacs ;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -;; 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal @@ -309,7 +308,7 @@ select the source buffer." When turned on, cursor motion in the compilation, grep, occur or diff buffer causes automatic display of the corresponding source code location." - :group 'next-error :init-value " Fol" + :group 'next-error :init-value nil :lighter " Fol" (if (not next-error-follow-minor-mode) (remove-hook 'post-command-hook 'next-error-follow-mode-post-command-hook t) (add-hook 'post-command-hook 'next-error-follow-mode-post-command-hook nil t) @@ -3241,8 +3240,8 @@ as a fallback, and won't change the buffer bounds.") (or (and (>= position (point-min)) (<= position (point-max))) (if widen-automatically - (error "Global mark position is outside accessible part of buffer") - (widen))) + (widen) + (error "Global mark position is outside accessible part of buffer"))) (goto-char position) (switch-to-buffer buffer))) diff --git a/lisp/skeleton.el b/lisp/skeleton.el index d0d7a0e96c6..26d6613d1bf 100644 --- a/lisp/skeleton.el +++ b/lisp/skeleton.el @@ -1,6 +1,7 @@ ;;; skeleton.el --- Lisp language extension for writing statement skeletons -;; Copyright (C) 1993, 1994, 1995, 1996, 2003 by Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995, 1996, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Daniel Pfeiffer <occitan@esperanto.org> ;; Maintainer: FSF diff --git a/lisp/smerge-mode.el b/lisp/smerge-mode.el index a40486ffd07..71fb650da7d 100644 --- a/lisp/smerge-mode.el +++ b/lisp/smerge-mode.el @@ -1,6 +1,7 @@ ;;; smerge-mode.el --- Minor mode to resolve diff3 conflicts -;; Copyright (C) 1999, 2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: revision-control merge diff3 cvs conflict @@ -52,7 +53,7 @@ (defvar smerge-mode) (defgroup smerge () - "Minor mode to resolve diff3 conflicts." + "Minor mode to highlight and resolve diff3 conflicts." :group 'tools :prefix "smerge-") @@ -68,13 +69,13 @@ (defcustom smerge-diff-switches (append '("-d" "-b") (if (listp diff-switches) diff-switches (list diff-switches))) - "*A list of strings specifying switches to be passed to diff. + "A list of strings specifying switches to be passed to diff. Used in `smerge-diff-base-mine' and related functions." :group 'smerge :type '(repeat string)) (defcustom smerge-auto-leave t - "*Non-nil means to leave `smerge-mode' when the last conflict is resolved." + "Non-nil means to leave `smerge-mode' when the last conflict is resolved." :group 'smerge :type 'boolean) @@ -128,6 +129,10 @@ Used in `smerge-diff-base-mine' and related functions." (put 'smerge-markers-face 'face-alias 'smerge-markers) (defvar smerge-markers-face 'smerge-markers) +(defface smerge-refined-change + '((t :background "yellow")) + "Face used for char-based changes shown by `smerge-refine'.") + (easy-mmode-defmap smerge-basic-map `(("n" . smerge-next) ("p" . smerge-prev) @@ -137,6 +142,8 @@ Used in `smerge-diff-base-mine' and related functions." ("o" . smerge-keep-other) ("m" . smerge-keep-mine) ("E" . smerge-ediff) + ("C" . smerge-combine-with-next) + ("R" . smerge-refine) ("\C-m" . smerge-keep-current) ("=" . ,(make-sparse-keymap "Diff")) ("=<" "base-mine" . smerge-diff-base-mine) @@ -256,6 +263,8 @@ Can be nil if the style is undecided, or else: (when (and smerge-auto-leave (save-excursion (goto-char (point-min)) (not (re-search-forward smerge-begin-re nil t)))) + (when (and (listp buffer-undo-list) smerge-mode) + (push (list 'apply 'smerge-mode 1) buffer-undo-list)) (smerge-mode -1))) @@ -273,6 +282,7 @@ Can be nil if the style is undecided, or else: (smerge-auto-leave))) (defun smerge-keep-n (n) + (smerge-remove-props (match-beginning 0) (match-end 0)) ;; We used to use replace-match, but that did not preserve markers so well. (delete-region (match-end n) (match-end 0)) (delete-region (match-beginning 0) (match-beginning n))) @@ -315,17 +325,16 @@ Can be nil if the style is undecided, or else: "Mode-specific merge function. The function is called with no argument and with the match data set according to `smerge-match-conflict'.") +(add-to-list 'debug-ignored-errors "Don't know how to resolve") (defvar smerge-text-properties `(help-echo "merge conflict: mouse-3 shows a menu" ;; mouse-face highlight keymap (keymap (down-mouse-3 . smerge-popup-context-menu)))) -(defun smerge-remove-props (&optional beg end) - (remove-text-properties - (or beg (match-beginning 0)) - (or end (match-end 0)) - smerge-text-properties)) +(defun smerge-remove-props (beg end) + (remove-overlays beg end 'smerge 'refine) + (remove-overlays beg end 'smerge 'conflict)) (defun smerge-popup-context-menu (event) "Pop up the Smerge mode context menu under mouse." @@ -367,8 +376,16 @@ some major modes. Uses `smerge-resolve-function' to do the actual work." ;; Trivial diff3 -A non-conflicts. ((and (eq (match-end 1) (match-end 3)) (eq (match-beginning 1) (match-beginning 3))) - ;; FIXME: Add "if [ diff -b MINE OTHER ]; then select OTHER; fi" (smerge-keep-n 3)) + ;; Mode-specific conflict resolution. + ((condition-case nil + (atomic-change-group + (funcall smerge-resolve-function) + t) + (error nil)) + ;; Nothing to do: the resolution function has done it already. + nil) + ;; FIXME: Add "if [ diff -b MINE OTHER ]; then select OTHER; fi" ((and (match-end 2) ;; FIXME: Add "diff -b BASE MINE | patch OTHER". ;; FIXME: Add "diff -b BASE OTHER | patch MINE". @@ -379,8 +396,7 @@ some major modes. Uses `smerge-resolve-function' to do the actual work." nil) ) (t - ;; Mode-specific conflict resolution. - (funcall smerge-resolve-function))) + (error "Don't know how to resolve"))) (smerge-auto-leave)) (defun smerge-keep-base () @@ -388,7 +404,6 @@ some major modes. Uses `smerge-resolve-function' to do the actual work." (interactive) (smerge-match-conflict) (smerge-ensure-match 2) - (smerge-remove-props) (smerge-keep-n 2) (smerge-auto-leave)) @@ -397,7 +412,6 @@ some major modes. Uses `smerge-resolve-function' to do the actual work." (interactive) (smerge-match-conflict) ;;(smerge-ensure-match 3) - (smerge-remove-props) (smerge-keep-n 3) (smerge-auto-leave)) @@ -406,7 +420,6 @@ some major modes. Uses `smerge-resolve-function' to do the actual work." (interactive) (smerge-match-conflict) ;;(smerge-ensure-match 1) - (smerge-remove-props) (smerge-keep-n 1) (smerge-auto-leave)) @@ -424,7 +437,6 @@ some major modes. Uses `smerge-resolve-function' to do the actual work." (smerge-match-conflict) (let ((i (smerge-get-current))) (if (<= i 0) (error "Not inside a version") - (smerge-remove-props) (smerge-keep-n i) (smerge-auto-leave)))) @@ -434,7 +446,6 @@ some major modes. Uses `smerge-resolve-function' to do the actual work." (smerge-match-conflict) (let ((i (smerge-get-current))) (if (<= i 0) (error "Not inside a version") - (smerge-remove-props) (let ((left nil)) (dolist (n '(3 2 1)) (if (and (match-end n) (/= (match-end n) (match-end i))) @@ -499,6 +510,10 @@ An error is raised if not inside a conflict." (re-search-forward smerge-begin-re end t)) ;; There's a nested conflict and we're after the the beginning ;; of the outer one but before the beginning of the inner one. + ;; Of course, maybe this is not a nested conflict but in that + ;; case it can only be something nastier that we don't know how + ;; to handle, so may as well arbitrarily decide to treat it as + ;; a nested conflict. --Stef (error "There is a nested conflict")) ((re-search-backward smerge-base-re start t) @@ -523,13 +538,6 @@ An error is raised if not inside a conflict." (setq mine-start other-start) (setq mine-end other-end))) - (let ((inhibit-read-only t) - (inhibit-modification-hooks t) - (m (buffer-modified-p))) - (unwind-protect - (add-text-properties start end smerge-text-properties) - (restore-buffer-modified-p m))) - (store-match-data (list start end mine-start mine-end base-start base-end @@ -539,17 +547,138 @@ An error is raised if not inside a conflict." t) (search-failed (error "Point not in conflict region"))))) +(defun smerge-conflict-overlay (pos) + "Return the conflict overlay at POS if any." + (let ((ols (overlays-at pos)) + conflict) + (dolist (ol ols) + (if (and (eq (overlay-get ol 'smerge) 'conflict) + (> (overlay-end ol) pos)) + (setq conflict ol))) + conflict)) + (defun smerge-find-conflict (&optional limit) "Find and match a conflict region. Intended as a font-lock MATCHER. The submatches are the same as in `smerge-match-conflict'. -Returns non-nil if a match is found between the point and LIMIT. -The point is moved to the end of the conflict." - (when (re-search-forward smerge-begin-re limit t) - (condition-case err - (progn - (smerge-match-conflict) - (goto-char (match-end 0))) - (error (smerge-find-conflict limit))))) +Returns non-nil if a match is found between point and LIMIT. +Point is moved to the end of the conflict." + (let ((found nil) + (pos (point)) + conflict) + ;; First check to see if point is already inside a conflict, using + ;; the conflict overlays. + (while (and (not found) (setq conflict (smerge-conflict-overlay pos))) + ;; Check the overlay's validity and kill it if it's out of date. + (condition-case nil + (progn + (goto-char (overlay-start conflict)) + (smerge-match-conflict) + (goto-char (match-end 0)) + (if (<= (point) pos) + (error "Matching backward!") + (setq found t))) + (error (smerge-remove-props + (overlay-start conflict) (overlay-end conflict)) + (goto-char pos)))) + ;; If we're not already inside a conflict, look for the next conflict + ;; and add/update its overlay. + (while (and (not found) (re-search-forward smerge-begin-re limit t)) + (condition-case nil + (progn + (smerge-match-conflict) + (goto-char (match-end 0)) + (let ((conflict (smerge-conflict-overlay (1- (point))))) + (if conflict + ;; Update its location, just in case it got messed up. + (move-overlay conflict (match-beginning 0) (match-end 0)) + (setq conflict (make-overlay (match-beginning 0) (match-end 0) + nil 'front-advance nil)) + (overlay-put conflict 'evaporate t) + (overlay-put conflict 'smerge 'conflict) + (let ((props smerge-text-properties)) + (while props + (overlay-put conflict (pop props) (pop props)))))) + (setq found t)) + (error nil))) + found)) + +(defun smerge-refine-chopup-region (beg end file) + "Chopup the region into small elements, one per line." + ;; ediff chops up into words, where the definition of a word is + ;; customizable. Instead we here keep only one char per line. + ;; The advantages are that there's nothing to configure, that we get very + ;; fine results, and that it's trivial to map the line numbers in the + ;; output of diff back into buffer positions. The disadvantage is that it + ;; can take more time to compute the diff and that the result is sometimes + ;; too fine. I'm not too concerned about the slowdown because conflicts + ;; are usually significantly smaller than the whole file. As for the + ;; problem of too-fine-refinement, I have found it to be unimportant + ;; especially when you consider the cases where the fine-grain is just + ;; what you want. + (let ((buf (current-buffer))) + (with-temp-buffer + (insert-buffer-substring buf beg end) + (goto-char (point-min)) + (while (not (eobp)) + (forward-char 1) + (unless (eq (char-before) ?\n) (insert ?\n))) + (let ((coding-system-for-write 'emacs-mule)) + (write-region (point-min) (point-max) file nil 'nomessage))))) + +(defun smerge-refine-highlight-change (buf beg match-num1 match-num2) + (let* ((startline (string-to-number (match-string match-num1))) + (ol (make-overlay + (+ beg startline -1) + (+ beg (if (match-end match-num2) + (string-to-number (match-string match-num2)) + startline)) + buf + 'front-advance nil))) + (overlay-put ol 'smerge 'refine) + (overlay-put ol 'evaporate t) + (overlay-put ol 'face 'smerge-refined-change))) + + +(defun smerge-refine () + "Highlight the parts of the conflict that are different." + (interactive) + ;; FIXME: make it work with 3-way conflicts. + (smerge-match-conflict) + (remove-overlays (match-beginning 0) (match-end 0) 'smerge 'refine) + (smerge-ensure-match 1) + (smerge-ensure-match 3) + (let ((buf (current-buffer)) + ;; Read them before the match-data gets clobbered. + (beg1 (match-beginning 1)) (end1 (match-end 1)) + (beg2 (match-beginning 3)) (end2 (match-end 3)) + (file1 (make-temp-file "smerge1")) + (file2 (make-temp-file "smerge2"))) + + ;; Chop up regions into smaller elements and save into files. + (smerge-refine-chopup-region beg1 end1 file1) + (smerge-refine-chopup-region beg2 end2 file2) + + ;; Call diff on those files. + (unwind-protect + (with-temp-buffer + (let ((coding-system-for-read 'emacs-mule)) + (call-process diff-command nil t nil file1 file2)) + ;; Process diff's output. + (goto-char (point-min)) + (while (not (eobp)) + (if (not (looking-at "\\([0-9]+\\)\\(?:,\\([0-9]+\\)\\)?\\([acd]\\)\\([0-9]+\\)\\(?:,\\([0-9]+\\)\\)?$")) + (error "Unexpected patch hunk header: %s" + (buffer-substring (point) (line-end-position))) + (let ((op (char-after (match-beginning 3)))) + (when (memq op '(?d ?c)) + (smerge-refine-highlight-change buf beg1 1 2)) + (when (memq op '(?a ?c)) + (smerge-refine-highlight-change buf beg2 4 5))) + (forward-line 1) ;Skip hunk header. + (and (re-search-forward "^[0-9]" nil 'move) ;Skip hunk body. + (goto-char (match-beginning 0)))))) + (delete-file file1) + (delete-file file2)))) (defun smerge-diff (n1 n2) (smerge-match-conflict) @@ -565,7 +694,12 @@ The point is moved to the end of the conflict." (file1 (make-temp-file "smerge1")) (file2 (make-temp-file "smerge2")) (dir default-directory) - (file (file-relative-name buffer-file-name)) + (file (if buffer-file-name (file-relative-name buffer-file-name))) + ;; We would want to use `emacs-mule-unix' for read&write, but we + ;; bump into problems with the coding-system used by diff to write + ;; the file names and the time stamps in the header. + ;; `buffer-file-coding-system' is not always correct either, but if + ;; the OS/user uses only one coding-system, then it works. (coding-system-for-read buffer-file-coding-system)) (write-region beg1 end1 file1 nil 'nomessage) (write-region beg2 end2 file2 nil 'nomessage) @@ -593,6 +727,8 @@ The point is moved to the end of the conflict." (defvar ediff-buffer-A) (defvar ediff-buffer-B) (defvar ediff-buffer-C) +(defvar ediff-ancestor-buffer) +(defvar ediff-quit-hook) ;;;###autoload (defun smerge-ediff (&optional name-mine name-other name-base) @@ -686,7 +822,6 @@ buffer names." \\{smerge-mode-map}" :group 'smerge :lighter " SMerge" (when (and (boundp 'font-lock-mode) font-lock-mode) - (set (make-local-variable 'font-lock-multiline) t) (save-excursion (if smerge-mode (font-lock-add-keywords nil smerge-font-lock-keywords 'append) @@ -694,7 +829,9 @@ buffer names." (goto-char (point-min)) (while (smerge-find-conflict) (save-excursion - (font-lock-fontify-region (match-beginning 0) (match-end 0) nil)))))) + (font-lock-fontify-region (match-beginning 0) (match-end 0) nil))))) + (unless smerge-mode + (smerge-remove-props (point-min) (point-max)))) (provide 'smerge-mode) diff --git a/lisp/sort.el b/lisp/sort.el index e2fe806c430..6a008b82425 100644 --- a/lisp/sort.el +++ b/lisp/sort.el @@ -1,6 +1,7 @@ ;;; sort.el --- commands to sort text in an Emacs buffer -;; Copyright (C) 1986, 1987, 1994, 1995, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1986, 1987, 1994, 1995, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Howie Kaye ;; Maintainer: FSF diff --git a/lisp/soundex.el b/lisp/soundex.el index 2ed79b29455..58ba1872503 100644 --- a/lisp/soundex.el +++ b/lisp/soundex.el @@ -1,6 +1,6 @@ ;;; soundex.el --- implement Soundex algorithm -;; Copyright (C) 1993 Free Software Foundation, Inc. +;; Copyright (C) 1993, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Christian Plaunt <chris@bliss.berkeley.edu> ;; Maintainer: FSF diff --git a/lisp/speedbar.el b/lisp/speedbar.el index 188304bce74..12d25ed7ee0 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el @@ -1,7 +1,7 @@ ;;; speedbar.el --- quick access to files and tags in a frame -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2005 -;; Free Software Foundation +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Eric M. Ludlam <zappo@gnu.org> ;; Version: 0.11a diff --git a/lisp/startup.el b/lisp/startup.el index 59fdc75dd09..ec58c909b24 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1,7 +1,7 @@ ;;; startup.el --- process Emacs shell arguments ;; Copyright (C) 1985, 1986, 1992, 1994, 1995, 1996, 1997, 1998, 1999, 2000, -;; 2001, 2002, 2004, 2005 Free Software Foundation, Inc. +;; 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal @@ -1638,6 +1638,15 @@ normal otherwise." (setq file file-ex)) (load file nil t))) + ;; This is used to handle -script. It's not clear + ;; we need to document it. + ((member argi '("-scriptload")) + (let* ((file (command-line-normalize-file-name + (or argval (pop command-line-args-left)))) + ;; Take file from default dir. + (file-ex (expand-file-name file))) + (load file-ex nil t t))) + ((equal argi "-insert") (setq tem (or argval (pop command-line-args-left))) (or (stringp tem) @@ -1718,11 +1727,7 @@ normal otherwise." ;; Maybe display a startup screen. (unless (or inhibit-startup-message noninteractive - emacs-quick-startup - ;; Don't display startup screen if init file - ;; has started some sort of server. - (and (fboundp 'process-list) - (process-list))) + emacs-quick-startup) ;; Display a startup screen, after some preparations. ;; If there are no switches to process, we might as well diff --git a/lisp/strokes.el b/lisp/strokes.el index a35a5d6f161..a432191b18a 100644 --- a/lisp/strokes.el +++ b/lisp/strokes.el @@ -1,6 +1,7 @@ ;;; strokes.el --- control Emacs through mouse strokes -;; Copyright (C) 1997, 2000, 2002, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1997, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: David Bakhash <cadet@alum.mit.edu> ;; Maintainer: FSF @@ -1423,8 +1424,6 @@ Encode/decode your strokes with \\[strokes-encode-buffer], "Face for strokes characters." :version "21.1" :group 'strokes) -;; backward-compatibility alias -(put 'strokes-char-face 'face-alias 'strokes-char) (put 'strokes 'char-table-extra-slots 0) (defconst strokes-char-table (make-char-table 'strokes) ; diff --git a/lisp/subr.el b/lisp/subr.el index 0033511c8e6..db3ea4d9d8b 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1,7 +1,7 @@ ;;; subr.el --- basic lisp subroutines for Emacs ;; Copyright (C) 1985, 1986, 1992, 1994, 1995, 1999, 2000, 2001, 2002, 2003, -;; 2004, 2005 Free Software Foundation, Inc. +;; 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal @@ -1597,7 +1597,7 @@ Strip text properties from the inserted text according to If STRING has a non-nil `yank-handler' property on the first character, the normal insert behavior is modified in various ways. The value of -the yank-handler property must be a list with one to five elements +the yank-handler property must be a list with one to four elements with the following format: (FUNCTION PARAM NOEXCLUDE UNDO). When FUNCTION is present and non-nil, it is called instead of `insert' to insert the string. FUNCTION takes one argument--the object to insert. @@ -1833,14 +1833,14 @@ is allowed once again." (defmacro while-no-input (&rest body) "Execute BODY only as long as there's no pending input. If input arrives, that ends the execution of BODY, -and `while-no-input' returns nil. If BODY finishes, -`while-no-input' returns whatever value BODY produced." +and `while-no-input' returns t. Quitting makes it return nil. +If BODY finishes, `while-no-input' returns whatever value BODY produced." (declare (debug t) (indent 0)) (let ((catch-sym (make-symbol "input"))) `(with-local-quit (catch ',catch-sym (let ((throw-on-input ',catch-sym)) - (when (sit-for 0 0 t) + (or (not (sit-for 0 0 t)) ,@body)))))) (defmacro combine-after-change-calls (&rest body) @@ -2167,9 +2167,10 @@ arguments with the same names of function `replace-match'. If START is non-nil, start replacements at that index in STRING. REP is either a string used as the NEWTEXT arg of `replace-match' or a -function. If it is a function it is applied to each match to generate -the replacement passed to `replace-match'; the match-data at this -point are such that match 0 is the function's argument. +function. If it is a function, it is called with the actual text of each +match, and its value is used as the replacement text. When REP is called, +the match-data are the result of matching REGEXP against a substring +of STRING. To replace only the first match (if any), make REGEXP match up to \\' and replace a sub-expression, e.g. @@ -2656,9 +2657,9 @@ don't change the volume setting of the sound device. :device DEVICE - play sound on DEVICE. If not specified, a system-dependent default device name is used." - (unless (fboundp 'play-sound-internal) - (error "This Emacs binary lacks sound support")) - (play-sound-internal sound)) + (if (fboundp 'play-sound-internal) + (play-sound-internal sound) + (error "This Emacs binary lacks sound support"))) (defun define-mail-user-agent (symbol composefunc sendfunc &optional abortfunc hookvar) @@ -2850,6 +2851,207 @@ convenience wrapper around `make-progress-reporter' and friends. (setq ,(car spec) (1+ ,(car spec))))) (progress-reporter-done ,temp2) nil ,@(cdr (cdr spec))))) + +;;;; Integer list & Version funs. + +(defvar version-separator "." + "*Specify the string used to separate the version elements. + +Usually the separator is \".\", but it can be any other string.") + + +(defvar version-regexp-alist + '(("^a\\(lpha\\)?$" . -3) + ("^b\\(eta\\)?$" . -2) + ("^\\(pre\\|rc\\)$" . -1)) + "*Specify association between non-numeric version part and a priority. + +This association is used to handle version string like \"1.0pre2\", +\"0.9alpha1\", etc. It's used by `version-to-list' (which see) to convert the +non-numeric part to an integer. For example: + + String Version Integer List Version + \"1.0pre2\" (1 0 -1 2) + \"1.0PRE2\" (1 0 -1 2) + \"22.8beta3\" (22 8 -2 3) + \"22.8Beta3\" (22 8 -2 3) + \"0.9alpha1\" (0 9 -3 1) + \"0.9AlphA1\" (0 9 -3 1) + \"0.9alpha\" (0 9 -3) + +Each element has the following form: + + (REGEXP . PRIORITY) + +Where: + +REGEXP regexp used to match non-numeric part of a version string. + +PRIORITY negative integer which indicate the non-numeric priority.") + + +(defun version-to-list (ver) + "Convert version string VER into an integer list. + +The version syntax is given by the following EBNF: + + VERSION ::= NUMBER ( SEPARATOR NUMBER )*. + + NUMBER ::= (0|1|2|3|4|5|6|7|8|9)+. + + SEPARATOR ::= `version-separator' (which see) + | `version-regexp-alist' (which see). + +As an example of valid version syntax: + + 1.0pre2 1.0.7.5 22.8beta3 0.9alpha1 + +As an example of invalid version syntax: + + 1.0prepre2 1.0..7.5 22.8X3 alpha3.2 .5 + +As an example of version convertion: + + String Version Integer List Version + \"1.0.7.5\" (1 0 7 5) + \"1.0pre2\" (1 0 -1 2) + \"1.0PRE2\" (1 0 -1 2) + \"22.8beta3\" (22 8 -2 3) + \"22.8Beta3\" (22 8 -2 3) + \"0.9alpha1\" (0 9 -3 1) + \"0.9AlphA1\" (0 9 -3 1) + \"0.9alpha\" (0 9 -3) + +See documentation for `version-separator' and `version-regexp-alist'." + (or (and (stringp ver) (not (string= ver ""))) + (error "Invalid version string: '%s'" ver)) + (save-match-data + (let ((i 0) + case-fold-search ; ignore case in matching + lst s al) + (while (and (setq s (string-match "[0-9]+" ver i)) + (= s i)) + ;; handle numeric part + (setq lst (cons (string-to-number (substring ver i (match-end 0))) + lst) + i (match-end 0)) + ;; handle non-numeric part + (when (and (setq s (string-match "[^0-9]+" ver i)) + (= s i)) + (setq s (substring ver i (match-end 0)) + i (match-end 0)) + ;; handle alpha, beta, pre, etc. separator + (unless (string= s version-separator) + (setq al version-regexp-alist) + (while (and al (not (string-match (caar al) s))) + (setq al (cdr al))) + (or al (error "Invalid version syntax: '%s'" ver)) + (setq lst (cons (cdar al) lst))))) + (if (null lst) + (error "Invalid version syntax: '%s'" ver) + (nreverse lst))))) + + +(defun integer-list-< (l1 l2) + "Return t if integer list L1 is lesser than L2. + +Note that integer list (1) is equal to (1 0), (1 0 0), (1 0 0 0), +etc. That is, the trailing zeroes are irrelevant. Also, integer +list (1) is greater than (1 -1) which is greater than (1 -2) +which is greater than (1 -3)." + (while (and l1 l2 (= (car l1) (car l2))) + (setq l1 (cdr l1) + l2 (cdr l2))) + (cond + ;; l1 not null and l2 not null + ((and l1 l2) (< (car l1) (car l2))) + ;; l1 null and l2 null ==> l1 length = l2 length + ((and (null l1) (null l2)) nil) + ;; l1 not null and l2 null ==> l1 length > l2 length + (l1 (< (integer-list-not-zero l1) 0)) + ;; l1 null and l2 not null ==> l2 length > l1 length + (t (< 0 (integer-list-not-zero l2))))) + + +(defun integer-list-= (l1 l2) + "Return t if integer list L1 is equal to L2. + +Note that integer list (1) is equal to (1 0), (1 0 0), (1 0 0 0), +etc. That is, the trailing zeroes are irrelevant. Also, integer +list (1) is greater than (1 -1) which is greater than (1 -2) +which is greater than (1 -3)." + (while (and l1 l2 (= (car l1) (car l2))) + (setq l1 (cdr l1) + l2 (cdr l2))) + (cond + ;; l1 not null and l2 not null + ((and l1 l2) nil) + ;; l1 null and l2 null ==> l1 length = l2 length + ((and (null l1) (null l2))) + ;; l1 not null and l2 null ==> l1 length > l2 length + (l1 (zerop (integer-list-not-zero l1))) + ;; l1 null and l2 not null ==> l2 length > l1 length + (t (zerop (integer-list-not-zero l2))))) + + +(defun integer-list-<= (l1 l2) + "Return t if integer list L1 is lesser than or equal to L2. + +Note that integer list (1) is equal to (1 0), (1 0 0), (1 0 0 0), +etc. That is, the trailing zeroes are irrelevant. Also, integer +list (1) is greater than (1 -1) which is greater than (1 -2) +which is greater than (1 -3)." + (while (and l1 l2 (= (car l1) (car l2))) + (setq l1 (cdr l1) + l2 (cdr l2))) + (cond + ;; l1 not null and l2 not null + ((and l1 l2) (< (car l1) (car l2))) + ;; l1 null and l2 null ==> l1 length = l2 length + ((and (null l1) (null l2))) + ;; l1 not null and l2 null ==> l1 length > l2 length + (l1 (<= (integer-list-not-zero l1) 0)) + ;; l1 null and l2 not null ==> l2 length > l1 length + (t (<= 0 (integer-list-not-zero l2))))) + + +(defalias 'version= 'string-equal + "Return t if version V1 is equal to V2. + +Compare version string using `string-equal'.") + + +(defun version< (v1 v2) + "Return t if version V1 is lesser than V2. + +Note that version string \"1\" is equal to \"1.0\", \"1.0.0\", \"1.0.0.0\", +etc. That is, the trailing \".0\"s are irrelevant. Also, version string \"1\" +is greater than \"1pre\" which is greater than \"1beta\" which is greater than +\"1alpha\"." + (integer-list-< (version-to-list v1) (version-to-list v2))) + + +(defun version<= (v1 v2) + "Return t if version V1 is lesser than or equal to V2. + +Note that version string \"1\" is equal to \"1.0\", \"1.0.0\", \"1.0.0.0\", +etc. That is, the trailing \".0\"s are irrelevant. Also, version string \"1\" +is greater than \"1pre\" which is greater than \"1beta\" which is greater than +\"1alpha\"." + (integer-list-<= (version-to-list v1) (version-to-list v2))) + + +(defun integer-list-not-zero (lst) + "Return the first non-zero element of integer list LST. + +If all LST elements are zeroes or LST is nil, return zero." + (while (zerop (car lst)) + (setq lst (cdr lst))) + (if lst + (car lst) + ;; there is no element different of zero + 0)) + ;; arch-tag: f7e0e6e5-70aa-4897-ae72-7a3511ec40bc ;;; subr.el ends here diff --git a/lisp/tabify.el b/lisp/tabify.el index 78ee80bee1b..84809839883 100644 --- a/lisp/tabify.el +++ b/lisp/tabify.el @@ -1,6 +1,7 @@ ;;; tabify.el --- tab conversion commands for Emacs -;; Copyright (C) 1985, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1994, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF diff --git a/lisp/talk.el b/lisp/talk.el index d2436e59ff2..6ef86736cae 100644 --- a/lisp/talk.el +++ b/lisp/talk.el @@ -1,6 +1,6 @@ ;;; talk.el --- allow several users to talk to each other through Emacs -;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: comm, frames diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 6497bc083b4..5ac6834e395 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -1,7 +1,7 @@ ;;; tar-mode.el --- simple editing of tar files from GNU emacs -;; Copyright (C) 1990,91,93,94,95,96,97,98,99,2000,01,2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1990, 1991, 1993, 1994, 1995, 1996, 1997, 1998, 1999, +;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Jamie Zawinski <jwz@lucid.com> ;; Maintainer: FSF diff --git a/lisp/tempo.el b/lisp/tempo.el index 282885e2d65..4939715a31c 100644 --- a/lisp/tempo.el +++ b/lisp/tempo.el @@ -1,6 +1,7 @@ ;;; tempo.el --- Flexible template insertion -;; Copyright (C) 1994, 1995, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: David K}gedal <davidk@lysator.liu.se> ;; Created: 16 Feb 1994 diff --git a/lisp/term.el b/lisp/term.el index ddb9fe5168e..aa6959237ac 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -1,6 +1,7 @@ ;;; term.el --- general command interpreter in a window stuff -;;; Copyright (C) 1988, 1990, 1992, 1994, 1995, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1988, 1990, 1992, 1994, 1995, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Per Bothner <per@bothner.com> ;; Maintainer: Dan Nicolaescu <dann@ics.uci.edu>, Per Bothner <per@bothner.com> diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el index 06fe5fd440d..a55c8902320 100644 --- a/lisp/term/sun-mouse.el +++ b/lisp/term/sun-mouse.el @@ -58,6 +58,11 @@ Setting to nil limits the scrollbar to the edge or vertical dividing bar.") "Returns a new mousemap." (cons 'mousemap nil)) +;;; initialize mouse maps +(defvar current-global-mousemap (make-mousemap)) +(defvar current-local-mousemap nil) +(make-variable-buffer-local 'current-local-mousemap) + (defun copy-mousemap (mousemap) "Return a copy of mousemap." (copy-alist mousemap)) @@ -668,13 +673,6 @@ just close the window, and wait for reopening." (if stuffstring (send-string-to-terminal stuffstring)) (send-string-to-terminal "\033[2t") ; To close EmacsTool window. (run-hooks 'suspend-resume-hook)) -;;; -;;; initialize mouse maps -;;; - -(make-variable-buffer-local 'current-local-mousemap) -(setq-default current-local-mousemap nil) -(defvar current-global-mousemap (make-mousemap)) (provide 'sun-mouse) (provide 'term/sun-mouse) ; have to (require 'term/sun-mouse) diff --git a/lisp/terminal.el b/lisp/terminal.el index d9ba5d3f728..75d0c7acbd7 100644 --- a/lisp/terminal.el +++ b/lisp/terminal.el @@ -1,6 +1,7 @@ ;;; terminal.el --- terminal emulator for GNU Emacs -;; Copyright (C) 1986, 1987, 1988, 1989, 1993, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1986, 1987, 1988, 1989, 1993, 1994, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Richard Mlynarik <mly@eddie.mit.edu> ;; Maintainer: FSF diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el index 245658b62b4..c50239ec635 100644 --- a/lisp/textmodes/artist.el +++ b/lisp/textmodes/artist.el @@ -1,6 +1,7 @@ ;;; artist.el --- draw ascii graphics with your mouse -;; Copyright (C) 2000, 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Tomas Abrahamsson <tab@lysator.liu.se> ;; Maintainer: Tomas Abrahamsson <tab@lysator.liu.se> diff --git a/lisp/textmodes/bib-mode.el b/lisp/textmodes/bib-mode.el index a6d47589d35..6609673289b 100644 --- a/lisp/textmodes/bib-mode.el +++ b/lisp/textmodes/bib-mode.el @@ -1,6 +1,6 @@ ;;; bib-mode.el --- major mode for editing bib files -;; Copyright (C) 1989 Free Software Foundation, Inc. +;; Copyright (C) 1989, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: bib diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index de387e86542..6f7fe0dec99 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -1,7 +1,7 @@ ;;; bibtex.el --- BibTeX mode for GNU Emacs -;; Copyright (C) 1992, 1994, 1995, 1996, 1997, 1998, 1999, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1992, 1994, 1995, 1996, 1997, 1998, 1999, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Stefan Schoef <schoef@offis.uni-oldenburg.de> ;; Bengt Martensson <bengt@mathematik.uni-Bremen.de> diff --git a/lisp/textmodes/conf-mode.el b/lisp/textmodes/conf-mode.el index 75249f7b547..1a73465467a 100644 --- a/lisp/textmodes/conf-mode.el +++ b/lisp/textmodes/conf-mode.el @@ -1,6 +1,8 @@ ;;; conf-mode.el --- Simple major mode for editing conf/ini/properties files -;; Copyright (C) 2004 by Daniel Pfeiffer <occitan@esperanto.org> +;; Copyright (C) 2004, 2005 Free Software Foundation, Inc. + +;; Author: Daniel Pfeiffer <occitan@esperanto.org> ;; Keywords: conf ini windows java ;; This file is part of GNU Emacs. diff --git a/lisp/textmodes/dns-mode.el b/lisp/textmodes/dns-mode.el index a6f3517d722..12f99ba090e 100644 --- a/lisp/textmodes/dns-mode.el +++ b/lisp/textmodes/dns-mode.el @@ -1,5 +1,6 @@ ;;; dns-mode.el --- a mode for viewing/editing Domain Name System master files -;; Copyright (c) 2000, 2001, 2003, 2004 Free Software Foundation, Inc. + +;; Copyright (C) 2000, 2001, 2004, 2005 Free Software Foundation, Inc. ;; Author: Simon Josefsson <simon@josefsson.org> ;; Keywords: DNS master zone file SOA diff --git a/lisp/textmodes/enriched.el b/lisp/textmodes/enriched.el index 61960e9d975..dc8d4c96b2b 100644 --- a/lisp/textmodes/enriched.el +++ b/lisp/textmodes/enriched.el @@ -1,6 +1,7 @@ ;;; enriched.el --- read and save files in text/enriched format -;; Copyright (c) 1994, 1995, 1996, 2002, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1996, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Boris Goldowsky <boris@gnu.org> ;; Keywords: wp, faces diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 9997b2a166e..11ddfc0e967 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -1,7 +1,7 @@ ;;; fill.el --- fill commands for Emacs -*- coding: iso-2022-7bit -*- ;; Copyright (C) 1985, 1986, 1992, 1994, 1995, 1996, 1997, 1999, 2001, 2002, -;; 2003, 2004, 2005 Free Software Foundation, Inc. +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: wp @@ -163,7 +163,7 @@ Remove indentation from each line." ;; This is quick, but loses when a tab follows the end of a sentence. ;; Actually, it is difficult to tell that from "Mr.\tSmith". ;; Blame the typist. - (subst-char-in-region beg end ?\t ?\ ) + (subst-char-in-region beg end ?\t ?\s) (while (and (< (point) end) (re-search-forward end-spc-re end t)) (delete-region @@ -282,7 +282,7 @@ act as a paragraph-separator." (string-match comment-start-skip first-line-prefix))) first-line-prefix - (make-string (string-width first-line-prefix) ?\ )))) + (make-string (string-width first-line-prefix) ?\s)))) ;; But either way, reject it if it indicates the start ;; of a paragraph when text follows it. (if (not (eq 0 (string-match paragraph-start @@ -312,7 +312,7 @@ places." (backward-char 1) (or (looking-at "[([{,A+,b+(B]") ;; Don't cut right after a single-letter word. - (and (memq (preceding-char) '(?\t ?\ )) + (and (memq (preceding-char) '(?\t ?\s)) (eq (char-syntax (following-char)) ?w))))))) (defcustom fill-nobreak-predicate nil @@ -439,10 +439,10 @@ Point is moved to just past the fill prefix on the first line." (sentence-end-without-space-list (string-to-list sentence-end-without-space))) (while (re-search-forward eol-double-space-re to t) - (or (>= (point) to) (memq (char-before) '(?\t ?\ )) + (or (>= (point) to) (memq (char-before) '(?\t ?\s)) (memq (char-after (match-beginning 0)) sentence-end-without-space-list) - (insert-and-inherit ?\ )))) + (insert-and-inherit ?\s)))) (goto-char from) (if enable-multibyte-characters @@ -471,7 +471,7 @@ Point is moved to just past the fill prefix on the first line." (goto-char from) (skip-chars-forward " \t") ;; Then change all newlines to spaces. - (subst-char-in-region from to ?\n ?\ ) + (subst-char-in-region from to ?\n ?\s) (if (and nosqueeze (not (eq justify 'full))) nil (canonically-space-region (or squeeze-after (point)) to) @@ -830,10 +830,10 @@ can take care of filling. JUSTIFY is used as in `fill-paragraph'." (if has-code-and-comment (concat (if (not indent-tabs-mode) - (make-string (current-column) ?\ ) + (make-string (current-column) ?\s) (concat (make-string (/ (current-column) tab-width) ?\t) - (make-string (% (current-column) tab-width) ?\ ))) + (make-string (% (current-column) tab-width) ?\s))) (buffer-substring (point) comin)) (buffer-substring (line-beginning-position) comin)))) beg end) @@ -1223,7 +1223,7 @@ otherwise it is made canonical." (while (> count 0) (skip-chars-forward " ") (insert-and-inherit - (make-string (/ curr-fracspace nspaces) ?\ )) + (make-string (/ curr-fracspace nspaces) ?\s)) (search-forward " " nil t) (setq count (1- count) curr-fracspace @@ -1282,8 +1282,8 @@ in the paragraph. When calling from a program, pass range to fill as first two arguments. -Optional third and fourth arguments JUSTIFY and MAIL-FLAG: -JUSTIFY to justify paragraphs (prefix arg), +Optional third and fourth arguments JUSTIFYP and CITATION-REGEXP: +JUSTIFYP to justify paragraphs (prefix arg). When filling a mail message, pass a regexp for CITATION-REGEXP which will match the prefix of a line which is a citation marker plus whitespace, but no other kind of prefix. diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 6b7b5492409..b6b7339c948 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -1,6 +1,7 @@ ;;; flyspell.el --- on-the-fly spell checker -;; Copyright (C) 1998, 2000, 2003, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1998, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Manuel Serrano <Manuel.Serrano@sophia.inria.fr> ;; Maintainer: FSF @@ -76,7 +77,9 @@ Non-nil means use highlight, nil means use minibuffer messages." :type 'boolean) (defcustom flyspell-mark-duplications-flag t - "*Non-nil means Flyspell reports a repeated word as an error." + "*Non-nil means Flyspell reports a repeated word as an error. +Detection of repeated words is not implemented in +\"large\" regions; see `flyspell-large-region'." :group 'flyspell :type 'boolean) @@ -237,10 +240,13 @@ If the region is smaller than this number of characters, flyspell methods. Else, if the region is large, a new Ispell process is spawned for speed. +Doubled words are not detected in a large region, because Ispell +does not check for them. + If `flyspell-large-region' is nil, all regions are treated as small." :group 'flyspell :version "21.1" - :type '(choice number boolean)) + :type '(choice number (const :tag "All small" nil))) (defcustom flyspell-insert-function (function insert) "*Function for inserting word by flyspell upon correction." @@ -450,6 +456,7 @@ See also `flyspell-duplicate-distance'." ;*---------------------------------------------------------------------*/ ;* flyspell-mode ... */ ;*---------------------------------------------------------------------*/ +;;;###autoload(defvar flyspell-mode nil) ;;;###autoload (define-minor-mode flyspell-mode "Minor mode performing on-the-fly spelling checking. diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 76e1767a9fb..358ee1f96e7 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1,7 +1,7 @@ ;;; ispell.el --- interface to International Ispell Versions 3.1 and 3.2 -;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Ken Stevens <k.stevens@ieee.org> ;; Maintainer: Ken Stevens <k.stevens@ieee.org> @@ -862,9 +862,113 @@ and added as a submenu of the \"Edit\" menu.") ) "Non-nil means that the OS supports asynchronous processes.") +;; Make ispell.el work better with aspell. + +(defvar ispell-have-aspell-dictionaries nil + "Non-nil if we have queried Aspell for dictionaries at least once.") + +(defun ispell-find-aspell-dictionaries () + "Find Aspell's dictionaries, and record in `ispell-dictionary-alist'." + (interactive) + (unless ispell-really-aspell + (error "This function only works with aspell")) + (let ((dictionaries + (split-string + (with-temp-buffer + (call-process ispell-program-name nil t nil "dicts") + (buffer-string))))) + (setq ispell-dictionary-alist + (mapcar #'ispell-aspell-find-dictionary dictionaries)) + (ispell-aspell-add-aliases) + ;; Add a default entry + (let* ((english-dict (assoc "en" ispell-dictionary-alist)) + (default-dict (cons nil (cdr english-dict)))) + (push default-dict ispell-dictionary-alist)) + (setq ispell-have-aspell-dictionaries t))) + +(defvar ispell-aspell-data-dir nil + "Data directory of Aspell.") + +(defvar ispell-aspell-dict-dir nil + "Dictionary directory of Aspell.") + +(defun ispell-get-aspell-config-value (key) + "Return value of Aspell configuration option KEY. +Assumes that value contains no whitespace." + (with-temp-buffer + (call-process ispell-program-name nil t nil "config" key) + (car (split-string (buffer-string))))) + +(defun ispell-aspell-find-dictionary (dict-name) + (let* ((lang ;; Strip out region, variant, etc. + (and (string-match "^[[:alpha:]]+" dict-name) + (match-string 0 dict-name))) + (data-file + (concat (or ispell-aspell-data-dir + (setq ispell-aspell-data-dir + (ispell-get-aspell-config-value "data-dir"))) + "/" lang ".dat")) + otherchars) + ;; This file really should exist; there is no sensible recovery. + (with-temp-buffer + (insert-file-contents data-file) + ;; There is zero or one line with special characters declarations. + (when (search-forward-regexp "^special" nil t) + (let ((specials (split-string + (buffer-substring (point) + (progn (end-of-line) (point)))))) + ;; The line looks like: special ' -** - -** . -** : -*- + ;; -** means that this character + ;; - doesn't appear at word start + ;; * may appear in the middle of a word + ;; * may appear at word end + ;; `otherchars' is about the middle case. + (while specials + (when (eq (aref (cadr specials) 1) ?*) + (push (car specials) otherchars)) + (setq specials (cddr specials)))))) + (list dict-name + "[[:alpha:]]" + "[^[:alpha:]]" + (regexp-opt otherchars) + t ; We can't tell, so set this to t + (list "-d" dict-name "--encoding=utf-8") + nil ; aspell doesn't support this + ;; Here we specify the encoding to use while communicating with + ;; aspell. This doesn't apply to command line arguments, so + ;; just don't pass words to spellcheck as arguments... + 'utf-8))) + +(defun ispell-aspell-add-aliases () + "Find aspell's dictionary aliases and add them to `ispell-dictionary-alist'." + (let ((aliases (file-expand-wildcards + (concat (or ispell-aspell-dict-dir + (setq ispell-aspell-dict-dir + (ispell-get-aspell-config-value "dict-dir"))) + "/*.alias")))) + (dolist (alias-file aliases) + (with-temp-buffer + (insert-file-contents alias-file) + ;; Look for a line "add FOO.multi", extract FOO + (when (search-forward-regexp "^add \\([^.]+\\)\\.multi" nil t) + (let* ((aliasname (file-name-sans-extension + (file-name-nondirectory alias-file))) + (already-exists-p (assoc aliasname ispell-dictionary-alist)) + (realname (match-string 1)) + (realdict (assoc realname ispell-dictionary-alist))) + (when (and realdict (not already-exists-p)) + (push (cons aliasname (cdr realdict)) ispell-dictionary-alist)))))))) + (defun ispell-valid-dictionary-list () "Returns a list of valid dictionaries. The variable `ispell-library-directory' defines the library location." + ;; If Ispell is really Aspell, query it for the dictionary list. + (when (and (not ispell-have-aspell-dictionaries) + (condition-case () + (progn (ispell-check-version) t) + (error nil)) + ispell-really-aspell) + (ispell-find-aspell-dictionaries)) (let ((dicts (append ispell-local-dictionary-alist ispell-dictionary-alist)) (dict-list (cons "default" nil)) name load-dict) @@ -875,7 +979,9 @@ The variable `ispell-library-directory' defines the library location." (if (and name ;; include all dictionaries if lib directory not known. - (or (not ispell-library-directory) + ;; For Aspell, we already know which dictionaries exist. + (or ispell-really-aspell + (not ispell-library-directory) (file-exists-p (concat ispell-library-directory "/" name ".hash")) (file-exists-p (concat ispell-library-directory "/" name ".has")) @@ -887,36 +993,11 @@ The variable `ispell-library-directory' defines the library location." (setq dict-list (cons name dict-list)))) dict-list)) -;;;###autoload -(if ispell-menu-map-needed - (let ((dicts (if (fboundp 'ispell-valid-dictionary-list) - (ispell-valid-dictionary-list) - ;; This case is used in loaddefs.el - ;; since ispell-valid-dictionary-list isn't defined then. - (mapcar (lambda (x) (or (car x) "default")) - ispell-dictionary-alist))) - (dict-map (make-sparse-keymap "Dictionaries"))) - (setq ispell-menu-map (make-sparse-keymap "Spell")) - ;; add the dictionaries to the bottom of the list. - (if (not dicts) - (define-key ispell-menu-map [default] - '("Select Default Dict" - "Dictionary for which Ispell was configured" - . (lambda () (interactive) - (ispell-change-dictionary "default"))))) - (fset 'ispell-dict-map dict-map) - (define-key ispell-menu-map [dictionaries] - `(menu-item "Select Dict" ispell-dict-map)) - (dolist (name dicts) - (define-key dict-map (vector (intern name)) - (cons (concat "Select " (capitalize name) " Dict") - `(lambda () (interactive) - (ispell-change-dictionary ,name))))))) - ;;; define commands in menu in opposite order you want them to appear. ;;;###autoload (if ispell-menu-map-needed (progn + (setq ispell-menu-map (make-sparse-keymap "Spell")) (define-key ispell-menu-map [ispell-change-dictionary] '(menu-item "Change Dictionary..." ispell-change-dictionary :help "Supply explicit dictionary file name")) @@ -1461,7 +1542,8 @@ quit spell session exited." (funcall ispell-format-word word))) (and (fboundp 'extent-at) (extent-at start) - (delete-extent (extent-at start)))) + (and (fboundp 'delete-extent) + (delete-extent (extent-at start))))) ((stringp poss) (or quietly (message "%s is correct because of root %s" @@ -1469,13 +1551,15 @@ quit spell session exited." (funcall ispell-format-word poss))) (and (fboundp 'extent-at) (extent-at start) - (delete-extent (extent-at start)))) + (and (fboundp 'delete-extent) + (delete-extent (extent-at start))))) ((null poss) (message "Error in ispell process")) (ispell-check-only ; called from ispell minor mode. (if (fboundp 'make-extent) - (let ((ext (make-extent start end))) - (set-extent-property ext 'face ispell-highlight-face) - (set-extent-property ext 'priority 2000)) + (if (fboundp 'set-extent-property) + (let ((ext (make-extent start end))) + (set-extent-property ext 'face ispell-highlight-face) + (set-extent-property ext 'priority 2000))) (beep) (message "%s is incorrect"(funcall ispell-format-word word)))) (t ; prompt for correct word. @@ -2036,9 +2120,13 @@ Optional second argument contains the dictionary to use; the default is (while (search-backward "*" nil t) (insert ".")) (setq word (buffer-string)) (erase-buffer)) - (setq status (if lookup-dict - (call-process prog nil t nil args word lookup-dict) - (call-process prog nil t nil args word))) + (setq status (apply 'call-process prog nil t nil + (nconc (if (and args (> (length args) 0)) + (list args) + (if look-p nil + (list "-e"))) + (list word) + (if lookup-dict (list lookup-dict))))) ;; grep returns status 1 and no output when word not found, which ;; is a perfectly normal thing. (if (stringp status) diff --git a/lisp/textmodes/makeinfo.el b/lisp/textmodes/makeinfo.el index bbea460cf6e..f2c407975e2 100644 --- a/lisp/textmodes/makeinfo.el +++ b/lisp/textmodes/makeinfo.el @@ -1,6 +1,7 @@ ;;; makeinfo.el --- run makeinfo conveniently -;; Copyright (C) 1991, 1993, 2002 Free Software Foundation, Inc. +;; Copyright (C) 1991, 1993, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Robert J. Chassell ;; Maintainer: FSF diff --git a/lisp/textmodes/nroff-mode.el b/lisp/textmodes/nroff-mode.el index 48de6b3243e..05a740ee390 100644 --- a/lisp/textmodes/nroff-mode.el +++ b/lisp/textmodes/nroff-mode.el @@ -1,6 +1,7 @@ ;;; nroff-mode.el --- GNU Emacs major mode for editing nroff source -;; Copyright (C) 1985, 86, 94, 95, 97, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1994, 1995, 1997, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: wp diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el index 26708deefe2..b7d714249dc 100644 --- a/lisp/textmodes/org.el +++ b/lisp/textmodes/org.el @@ -1,6 +1,7 @@ ;; org.el --- Outline-based notes management and organizer ;; Carstens outline-mode for keeping track of everything. -;; Copyright (c) 2004, 2005 Free Software Foundation + +;; Copyright (C) 2004, 2005 Free Software Foundation, Inc. ;; ;; Author: Carsten Dominik <dominik at science dot uva dot nl> ;; Keywords: outlines, hypermedia, calendar diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el index c8828e1a6d5..365ed19d9ce 100644 --- a/lisp/textmodes/page-ext.el +++ b/lisp/textmodes/page-ext.el @@ -1,6 +1,7 @@ ;;; page-ext.el --- extended page handling commands -;; Copyright (C) 1990, 1991, 1993, 1994 Free Software Foundation +;; Copyright (C) 1990, 1991, 1993, 1994, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: Robert J. Chassell <bob@gnu.org> ;; Keywords: wp data diff --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el index 712b1ef12a1..ffb4c89f2db 100644 --- a/lisp/textmodes/page.el +++ b/lisp/textmodes/page.el @@ -1,6 +1,6 @@ ;;; page.el --- page motion commands for Emacs -;; Copyright (C) 1985 Free Software Foundation, Inc. +;; Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: wp convenience diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index c4f7750fe70..f4af34fdabf 100644 --- a/lisp/textmodes/paragraphs.el +++ b/lisp/textmodes/paragraphs.el @@ -1,7 +1,7 @@ ;;; paragraphs.el --- paragraph and sentence parsing -;; Copyright (C) 1985, 86, 87, 91, 94, 95, 96, 1997, 1999, 2000, 2001, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1991, 1994, 1995, 1996, 1997, 1999, 2000, +;; 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: wp @@ -358,7 +358,7 @@ If ARG is negative, point is put at end of this paragraph, mark is put at beginning of this or a previous paragraph. Interactively, if this command is repeated -or (in Transient Mark mode) if the mark is active, +or (in Transient Mark mode) if the mark is active, it marks the next ARG paragraphs after the ones already marked." (interactive "p\np") (unless arg (setq arg 1)) diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index 3ae39213dff..5d528dec109 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el @@ -1,6 +1,7 @@ ;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model -;; Copyright (C) 1985, 1994, 2002, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1994, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: K. Shane Hartman ;; Maintainer: FSF diff --git a/lisp/textmodes/po.el b/lisp/textmodes/po.el index cf80f02090a..c9af801bef0 100644 --- a/lisp/textmodes/po.el +++ b/lisp/textmodes/po.el @@ -1,6 +1,7 @@ ;;; po.el --- basic support of PO translation files -*- coding: latin-1; -*- -;; Copyright (C) 1995-1998, 2000-2002 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Authors: François Pinard <pinard@iro.umontreal.ca>, ;; Greg McGary <gkm@magilla.cichlid.com>, diff --git a/lisp/textmodes/refbib.el b/lisp/textmodes/refbib.el index 7fcfc44fb2d..99e2b780999 100644 --- a/lisp/textmodes/refbib.el +++ b/lisp/textmodes/refbib.el @@ -1,8 +1,9 @@ ;;; refbib.el --- convert refer-style references to ones usable by Latex bib -;; Copyright (C) 1989, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1989, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Henry Kautz <kautz@research.att.com> +;; Maintainer: FSF ;; Keywords: bib, tex ;; This file is part of GNU Emacs. @@ -221,37 +222,49 @@ This is in addition to the `r2b-capitalize-title-stop-words'.") (defvar r2b-error-found nil) +(eval-when-compile + (defvar r2b-variables) (defvar r2bv-address) (defvar r2bv-annote) + (defvar r2bv-author) (defvar r2bv-booktitle) (defvar r2bv-date) + (defvar r2bv-decade) (defvar r2bv-editor) (defvar r2bv-entry-kind) + (defvar r2bv-institution) (defvar r2bv-journal) (defvar r2bv-keywords) + (defvar r2bv-kn) (defvar r2bv-month) (defvar r2bv-note) + (defvar r2bv-number) (defvar r2bv-ordering) (defvar r2bv-organization) + (defvar r2bv-pages) (defvar r2bv-primary-author) (defvar r2bv-publisher) + (defvar r2bv-school) (defvar r2bv-title) (defvar r2bv-title-first-word) + (defvar r2bv-tr) (defvar r2bv-type) (defvar r2bv-volume) + (defvar r2bv-where) (defvar r2bv-year)) + (setq r2b-variables '( - r2b-error-found - r2bv-author - r2bv-primary-author - r2bv-date - r2bv-year - r2bv-decade - r2bv-month - r2bv-title - r2bv-title-first-word - r2bv-editor - r2bv-annote - r2bv-tr - r2bv-address - r2bv-institution - r2bv-keywords - r2bv-booktitle - r2bv-journal - r2bv-volume - r2bv-number - r2bv-pages - r2bv-booktitle - r2bv-kn - r2bv-publisher - r2bv-organization - r2bv-school - r2bv-type - r2bv-where - r2bv-note - r2bv-ordering - )) + r2b-error-found + r2bv-author + r2bv-primary-author + r2bv-date + r2bv-year + r2bv-decade + r2bv-month + r2bv-title + r2bv-title-first-word + r2bv-editor + r2bv-annote + r2bv-tr + r2bv-address + r2bv-institution + r2bv-keywords + r2bv-booktitle + r2bv-journal + r2bv-volume + r2bv-number + r2bv-pages + r2bv-booktitle + r2bv-kn + r2bv-publisher + r2bv-organization + r2bv-school + r2bv-type + r2bv-where + r2bv-note + r2bv-ordering + )) (defun r2b-clear-variables () "Set all global vars used by r2b to nil." @@ -632,14 +645,14 @@ but not a publisher." ) -(defun r2b-convert-record (output-name) - "Transform current bib entry and append to buffer OUTPUT; -do \"M-x r2b-help\" for more info." +(defun r2b-convert-record (output) + "Transform current bib entry and append to buffer OUTPUT. +Do `\\[r2b-help]' for more info." (interactive (list (read-string "Output to buffer: " r2b-out-buf-name))) (let (rec-end rec-begin not-done) - (setq r2b-out-buf-name output-name) - (setq r2b-out-buf (get-buffer-create output-name)) + (setq r2b-out-buf-name output) + (setq r2b-out-buf (get-buffer-create output)) (setq r2b-in-buf (current-buffer)) (set-buffer r2b-out-buf) (goto-char (point-max)) @@ -669,9 +682,9 @@ do \"M-x r2b-help\" for more info." )) -(defun r2b-convert-buffer (output-name) +(defun r2b-convert-buffer (output) "Transform current buffer and append to buffer OUTPUT. -Do `M-x r2b-help' for more info." +Do `\\[r2b-help]' for more info." (interactive (list (read-string "Output to buffer: " r2b-out-buf-name))) (save-excursion @@ -682,7 +695,7 @@ Do `M-x r2b-help' for more info." (goto-char (point-min)) (message "Working, please be patient...") (sit-for 0) - (while (r2b-convert-record output-name) t) + (while (r2b-convert-record output) t) (message "Done, results in %s, errors in %s" r2b-out-buf-name r2b-log-name) ) diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el index 3ff01ef5c76..82f06576c1a 100644 --- a/lisp/textmodes/refer.el +++ b/lisp/textmodes/refer.el @@ -1,6 +1,7 @@ ;;; refer.el --- look up references in bibliography files -;; Copyright (C) 1992, 1996, 2001, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1996, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Ashwin Ram <ashwin@cc.gatech.edu> ;; Maintainer: Gernot Heiser <gernot@acm.org> diff --git a/lisp/textmodes/refill.el b/lisp/textmodes/refill.el index d49513ccf3f..bf8938a7ec5 100644 --- a/lisp/textmodes/refill.el +++ b/lisp/textmodes/refill.el @@ -1,6 +1,6 @@ ;;; refill.el --- `auto-fill' by refilling paragraphs on changes -;; Copyright (C) 2000, 2003, 2005 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Dave Love <fx@gnu.org> ;; Maintainer: Miles Bader <miles@gnu.org> diff --git a/lisp/textmodes/reftex-auc.el b/lisp/textmodes/reftex-auc.el index 1c6741806f0..f11d607f3e2 100644 --- a/lisp/textmodes/reftex-auc.el +++ b/lisp/textmodes/reftex-auc.el @@ -1,6 +1,7 @@ ;;; reftex-auc.el --- RefTeX's interface to AUCTeX -;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Carsten Dominik <dominik@science.uva.nl> ;; Version: 4.28 @@ -75,7 +76,7 @@ What is being used depends upon `reftex-plug-into-AUCTeX'." (defun reftex-arg-index-tag (optional &optional prompt &rest args) - "Prompt for an index tag with completion. + "Prompt for an index tag with completion. This is the name of an index, not the entry." (let (tag taglist) (setq prompt (concat (if optional "(Optional) " "") @@ -85,8 +86,8 @@ This is the name of an index, not the entry." ;; Use RefTeX completion (progn (reftex-access-scan-info nil) - (setq taglist - (cdr (assoc 'index-tags + (setq taglist + (cdr (assoc 'index-tags (symbol-value reftex-docstruct-symbol))) tag (completing-read prompt (mapcar 'list taglist)))) ;; Just ask like AUCTeX does. @@ -131,7 +132,7 @@ argument identify one of multiple indices." ;; Replace AUCTeX functions with RefTeX functions. ;; Which functions are replaced is controlled by the variable ;; `reftex-plug-into-AUCTeX'. - + (if (reftex-plug-flag 0) (setq LaTeX-label-function 'reftex-label) (setq LaTeX-label-function nil)) @@ -143,11 +144,11 @@ argument identify one of multiple indices." (and (reftex-plug-flag 3) (fboundp 'TeX-arg-cite) (fset 'TeX-arg-cite 'reftex-arg-cite)) - - (and (reftex-plug-flag 4) + + (and (reftex-plug-flag 4) (fboundp 'TeX-arg-index-tag) (fset 'TeX-arg-index-tag 'reftex-arg-index-tag)) - (and (reftex-plug-flag 4) + (and (reftex-plug-flag 4) (fboundp 'TeX-arg-index) (fset 'TeX-arg-index 'reftex-arg-index))) diff --git a/lisp/textmodes/reftex-cite.el b/lisp/textmodes/reftex-cite.el index 6a15665ea21..08ee88e1a74 100644 --- a/lisp/textmodes/reftex-cite.el +++ b/lisp/textmodes/reftex-cite.el @@ -1,6 +1,7 @@ ;;; reftex-cite.el --- creating citations with RefTeX -;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Carsten Dominik <dominik@science.uva.nl> ;; Version: 4.28 @@ -69,7 +70,7 @@ (unless (eq (get 'reftex-default-bibliography :reftex-raw) reftex-default-bibliography) (put 'reftex-default-bibliography :reftex-expanded - (reftex-locate-bibliography-files + (reftex-locate-bibliography-files default-directory reftex-default-bibliography)) (put 'reftex-default-bibliography :reftex-raw reftex-default-bibliography)) @@ -128,7 +129,7 @@ ;; If RETURN is non-nil, just return the entry. (let* ((re - (if item + (if item (concat "\\\\bibitem\\(\\[[^]]*\\]\\)?{" (regexp-quote key) "}") (concat "@[a-zA-Z]+[ \t\n\r]*[{(][ \t\n\r]*" (regexp-quote key) "[, \t\r\n}]"))) @@ -150,7 +151,7 @@ (when return ;; Just return the relevant entry (if item (goto-char (match-end 0))) - (setq return (buffer-substring + (setq return (buffer-substring (point) (reftex-end-of-bib-entry item))) (set-buffer buffer-conf) (throw 'exit return)) @@ -166,9 +167,9 @@ (error "No BibTeX entry with citation key %s" key))))) (defun reftex-end-of-bib-entry (item) - (save-excursion + (save-excursion (condition-case nil - (if item + (if item (progn (end-of-line) (re-search-forward "\\\\bibitem\\|\\end{thebibliography}") @@ -189,16 +190,16 @@ ;; Read a regexp, completing on known citation keys. (setq default (regexp-quote (reftex-get-bibkey-default))) - (setq re-list - (split-string - (completing-read + (setq re-list + (split-string + (completing-read (concat "Regex { && Regex...}: " "[" default "]: ") (if reftex-mode (if (fboundp 'LaTeX-bibitem-list) (LaTeX-bibitem-list) - (cdr (assoc 'bibview-cache + (cdr (assoc 'bibview-cache (symbol-value reftex-docstruct-symbol)))) nil) nil nil nil 'reftex-cite-regexp-hist) @@ -245,7 +246,7 @@ (error (goto-char key-point) (throw 'search-again nil))) (setq end-point (point)) - + ;; Ignore @string, @comment and @c entries or things ;; outside entries (when (or (string= (downcase (match-string 2)) "string") @@ -254,12 +255,12 @@ (< (point) key-point)) ; this means match not in {} (goto-char key-point) (throw 'search-again nil)) - + ;; Well, we have got a match ;;(setq entry (concat ;; (buffer-substring start-point (point)) "\n")) (setq entry (buffer-substring start-point (point))) - + ;; Check if other regexp match as well (setq re-list rest-re) (while re-list @@ -267,24 +268,24 @@ ;; nope - move on (throw 'search-again nil)) (pop re-list)) - + (setq alist (reftex-parse-bibtex-entry nil start-point end-point)) (push (cons "&entry" entry) alist) - + ;; check for crossref entries (if (assoc "crossref" alist) (setq alist (append alist (reftex-get-crossref-alist alist)))) - + ;; format the entry (push (cons "&formatted" (reftex-format-bib-entry alist)) alist) - + ;; make key the first element (push (reftex-get-bib-field "&key" alist) alist) - + ;; add it to the list (push alist found-list))))) (reftex-kill-temporary-buffers)))) @@ -347,7 +348,7 @@ (unless files (error "Need file name to find thebibliography environment")) (while (setq file (pop files)) - (setq buf (reftex-get-file-buffer-force + (setq buf (reftex-get-file-buffer-force file (not reftex-keep-temporary-buffers))) (unless buf (error "No such file %s" file)) @@ -358,21 +359,21 @@ (save-restriction (widen) (goto-char (point-min)) - (while (re-search-forward + (while (re-search-forward "\\(\\`\\|[\n\r]\\)[ \t]*\\\\begin{thebibliography}" nil t) (beginning-of-line 2) (setq start (point)) - (if (re-search-forward + (if (re-search-forward "\\(\\`\\|[\n\r]\\)[ \t]*\\\\end{thebibliography}" nil t) (progn (beginning-of-line 1) (setq end (point)))) (when (and start end) - (setq entries + (setq entries (append entries (mapcar 'reftex-parse-bibitem (delete "" - (split-string + (split-string (buffer-substring-no-properties start end) "[ \t\n\r]*\\\\bibitem\\(\\[[^]]*]\\)*")))))) (goto-char end))))) @@ -381,16 +382,16 @@ ;; Read a regexp, completing on known citation keys. (setq default (regexp-quote (reftex-get-bibkey-default))) - (setq re-list - (split-string - (completing-read + (setq re-list + (split-string + (completing-read (concat "Regex { && Regex...}: " "[" default "]: ") (if reftex-mode (if (fboundp 'LaTeX-bibitem-list) (LaTeX-bibitem-list) - (cdr (assoc 'bibview-cache + (cdr (assoc 'bibview-cache (symbol-value reftex-docstruct-symbol)))) nil) nil nil nil 'reftex-cite-regexp-hist) @@ -403,14 +404,14 @@ (error "Empty regular expression")) (while (and (setq re (pop re-list)) entries) - (setq entries + (setq entries (delq nil (mapcar (lambda (x) (if (string-match re (cdr (assoc "&entry" x))) x nil)) entries)))) - (setq entries - (mapcar + (setq entries + (mapcar (lambda (x) (push (cons "&formatted" (reftex-format-bibitem x)) x) (push (reftex-get-bib-field "&key" x) x) @@ -654,9 +655,9 @@ While entering the regexp, completion on knows citation keys is possible. ;; FIXME: Unfortunately, this meens that commenting does not work right. (pop selected-entries) (let ((concat-keys (mapconcat 'car selected-entries ","))) - (setq insert-entries + (setq insert-entries (list (list concat-keys (cons "&key" concat-keys)))))) - + (unless no-insert ;; We shall insert this into the buffer... @@ -683,7 +684,7 @@ While entering the regexp, completion on knows citation keys is possible. ;; it has to go. If there is only a single arg and empty, it can go ;; as well. (when reftex-cite-cleanup-optional-args - (cond + (cond ((string-match "\\([a-zA-Z0-9]\\)\\[\\]{" string) (setq string (replace-match "\\1{" nil nil string))) ((string-match "\\[\\]\\(\\[[a-zA-Z0-9., ]+\\]\\)" string) @@ -698,14 +699,14 @@ While entering the regexp, completion on knows citation keys is possible. (delete-char 1)) ;; Tell AUCTeX - (when (and reftex-mode + (when (and reftex-mode (fboundp 'LaTeX-add-bibitems) reftex-plug-into-AUCTeX) (apply 'LaTeX-add-bibitems (mapcar 'car selected-entries))) - + ;; Produce the cite-view strings (when (and reftex-mode reftex-cache-cite-echo cite-view) - (mapcar (lambda (entry) + (mapcar (lambda (entry) (reftex-make-cite-echo-string entry docstruct-symbol)) selected-entries)) @@ -713,16 +714,16 @@ While entering the regexp, completion on knows citation keys is possible. (set-marker reftex-select-return-marker nil) (reftex-kill-buffer "*RefTeX Select*") - + ;; Check if the prefix arg was numeric, and call recursively (when (integerp arg) (if (> arg 1) - (progn + (progn (skip-chars-backward "}") (decf arg) (reftex-do-citation arg)) (forward-char 1))) - + ;; Return the citation key (car (car selected-entries)))) @@ -736,7 +737,7 @@ While entering the regexp, completion on knows citation keys is possible. (no-insert ;; Format does not really matter because nothing will be inserted. (setq format "%l")) - + ((and (stringp macro) (string-match "\\`\\\\cite\\|cite\\'" macro)) ;; We are already inside a cite macro @@ -757,7 +758,7 @@ While entering the regexp, completion on knows citation keys is possible. (when (listp format) (setq key (or format-key - (reftex-select-with-char + (reftex-select-with-char "" (concat "SELECT A CITATION FORMAT\n\n" (mapconcat (lambda (x) @@ -786,8 +787,8 @@ While entering the regexp, completion on knows citation keys is possible. (let ((bibtype (reftex-bib-or-thebib)) found-list rtn key data selected-entries) - (while - (not + (while + (not (catch 'done ;; Scan bibtex files (setq found-list @@ -802,20 +803,20 @@ While entering the regexp, completion on knows citation keys is possible. (reftex-extract-bib-entries-from-thebibliography (reftex-uniquify (mapcar 'cdr - (reftex-all-assq + (reftex-all-assq 'thebib (symbol-value reftex-docstruct-symbol)))))) (reftex-default-bibliography (message "Using default bibliography") (reftex-extract-bib-entries (reftex-default-bibliography))) (t (error "No valid bibliography in this document, and no default available")))) - + (unless found-list (error "Sorry, no matches found")) - + ;; Remember where we came from (setq reftex-call-back-to-this-buffer (current-buffer)) (set-marker reftex-select-return-marker (point)) - + ;; Offer selection (save-window-excursion (delete-other-windows) @@ -856,15 +857,15 @@ While entering the regexp, completion on knows citation keys is possible. (goto-char 1)) ((eq key ?A) ;; Take all (marked) - (setq selected-entries + (setq selected-entries (if reftex-select-marked (mapcar 'car (nreverse reftex-select-marked)) found-list)) (throw 'done t)) ((eq key ?a) ;; Take all (marked), and push the symbol 'concat - (setq selected-entries - (cons 'concat + (setq selected-entries + (cons 'concat (if reftex-select-marked (mapcar 'car (nreverse reftex-select-marked)) found-list))) @@ -883,9 +884,9 @@ While entering the regexp, completion on knows citation keys is possible. ((or (eq key ?\C-m) (eq key 'return)) ;; Take selected - (setq selected-entries + (setq selected-entries (if reftex-select-marked - (cons 'concat + (cons 'concat (mapcar 'car (nreverse reftex-select-marked))) (if data (list data) nil))) (throw 'done t)) @@ -925,7 +926,7 @@ While entering the regexp, completion on knows citation keys is possible. (let ((file (read-file-name "File to create: "))) (find-file-other-window file) (if (> (buffer-size) 0) - (unless (yes-or-no-p + (unless (yes-or-no-p (format "Overwrite non-empty file %s? " file)) (error "Abort"))) (erase-buffer) @@ -950,7 +951,7 @@ While entering the regexp, completion on knows citation keys is possible. reftex-mouse-selected-face nil)) tmp len) - (mapcar + (mapcar (lambda (x) (setq tmp (cdr (assoc "&formatted" x)) len (length tmp)) @@ -1045,7 +1046,7 @@ While entering the regexp, completion on knows citation keys is possible. (defun reftex-make-cite-echo-string (entry docstruct-symbol) ;; Format a bibtex entry for the echo area and cache the result. (let* ((key (reftex-get-bib-field "&key" entry)) - (string + (string (let* ((reftex-cite-punctuation '(" " " & " " etal."))) (reftex-format-citation entry reftex-cite-view-format))) (cache (assq 'bibview-cache (symbol-value docstruct-symbol))) @@ -1087,7 +1088,7 @@ While entering the regexp, completion on knows citation keys is possible. (setq bibfile-list (reftex-uniquify (mapcar 'cdr - (reftex-all-assq + (reftex-all-assq 'thebib (symbol-value reftex-docstruct-symbol)))) item t)) (reftex-default-bibliography @@ -1098,10 +1099,10 @@ While entering the regexp, completion on knows citation keys is possible. (setq bibfile-list (reftex-visited-files bibfile-list))) (condition-case nil - (reftex-pop-to-bibtex-entry + (reftex-pop-to-bibtex-entry key bibfile-list (not reftex-keep-temporary-buffers) t item) (error (ding)))) - + (select-window win))) ;;; Global BibTeX file @@ -1130,7 +1131,7 @@ While entering the regexp, completion on knows citation keys is possible. "Create a new BibTeX database file with all entries referenced in document. The command prompts for a filename and writes the collected entries to that file. Only entries referenced in the current document with -any \\cite-like macros are used. +any \\cite-like macros are used. The sequence in the new file is the same as it was in the old database." (interactive "FNew BibTeX file: ") (let ((keys (reftex-all-used-citation-keys)) @@ -1144,7 +1145,7 @@ The sequence in the new file is the same as it was in the old database." (save-restriction (widen) (goto-char (point-min)) - (while (re-search-forward + (while (re-search-forward "^[ \t]*@[a-zA-Z]+[ \t]*{\\([^ \t\r\n]+\\)," nil t) (setq key (match-string 1) @@ -1161,7 +1162,7 @@ The sequence in the new file is the same as it was in the old database." keys (delete key keys))))))))) (find-file-other-window bibfile) (if (> (buffer-size) 0) - (unless (yes-or-no-p + (unless (yes-or-no-p (format "Overwrite non-empty file %s? " bibfile)) (error "Abort"))) (erase-buffer) diff --git a/lisp/textmodes/reftex-dcr.el b/lisp/textmodes/reftex-dcr.el index 2a518ae9d77..e4f09d04902 100644 --- a/lisp/textmodes/reftex-dcr.el +++ b/lisp/textmodes/reftex-dcr.el @@ -1,6 +1,7 @@ ;;; reftex-dcr.el --- viewing cross references and citations with RefTeX -;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Carsten Dominik <dominik@science.uva.nl> ;; Version: 4.28 diff --git a/lisp/textmodes/reftex-global.el b/lisp/textmodes/reftex-global.el index f7f635aaf1b..281e852a40d 100644 --- a/lisp/textmodes/reftex-global.el +++ b/lisp/textmodes/reftex-global.el @@ -1,6 +1,7 @@ ;;; reftex-global.el --- operations on entire documents with RefTeX -;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Carsten Dominik <dominik@science.uva.nl> ;; Version: 4.28 diff --git a/lisp/textmodes/reftex-index.el b/lisp/textmodes/reftex-index.el index a0bc2d85754..ebcc5d06754 100644 --- a/lisp/textmodes/reftex-index.el +++ b/lisp/textmodes/reftex-index.el @@ -1,6 +1,7 @@ ;;; reftex-index.el --- index support with RefTeX -;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Carsten Dominik <dominik@science.uva.nl> ;; Version: 4.28 diff --git a/lisp/textmodes/reftex-parse.el b/lisp/textmodes/reftex-parse.el index 76372dc1ddb..b08d1e87999 100644 --- a/lisp/textmodes/reftex-parse.el +++ b/lisp/textmodes/reftex-parse.el @@ -1,6 +1,7 @@ ;;; reftex-parse.el --- parser functions for RefTeX -;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Carsten Dominik <dominik@science.uva.nl> ;; Version: 4.28 diff --git a/lisp/textmodes/reftex-ref.el b/lisp/textmodes/reftex-ref.el index bc4260367d8..edc284a3060 100644 --- a/lisp/textmodes/reftex-ref.el +++ b/lisp/textmodes/reftex-ref.el @@ -1,6 +1,7 @@ ;;; reftex-ref.el --- code to create labels and references with RefTeX -;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Carsten Dominik <dominik@science.uva.nl> ;; Version: 4.28 diff --git a/lisp/textmodes/reftex-sel.el b/lisp/textmodes/reftex-sel.el index 90f2e057aa8..1c91d9a662b 100644 --- a/lisp/textmodes/reftex-sel.el +++ b/lisp/textmodes/reftex-sel.el @@ -1,6 +1,7 @@ ;;; reftex-sel.el --- the selection modes for RefTeX -;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Carsten Dominik <dominik@science.uva.nl> ;; Version: 4.28 diff --git a/lisp/textmodes/reftex-toc.el b/lisp/textmodes/reftex-toc.el index a9f1a280dcf..7f922ce85a4 100644 --- a/lisp/textmodes/reftex-toc.el +++ b/lisp/textmodes/reftex-toc.el @@ -1,6 +1,7 @@ ;;; reftex-toc.el --- RefTeX's table of contents mode -;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Carsten Dominik <dominik@science.uva.nl> ;; Version: 4.28 diff --git a/lisp/textmodes/reftex-vars.el b/lisp/textmodes/reftex-vars.el index 5f39167bb46..170b77d9e36 100644 --- a/lisp/textmodes/reftex-vars.el +++ b/lisp/textmodes/reftex-vars.el @@ -1,6 +1,7 @@ ;;; reftex-vars.el --- configuration variables for RefTeX -;; Copyright (c) 1997, 1998, 1999, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1997, 1998, 1999, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Carsten Dominik <dominik@science.uva.nl> ;; Version: 4.28 diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el index a97d122c17e..01d40a6ea5b 100644 --- a/lisp/textmodes/reftex.el +++ b/lisp/textmodes/reftex.el @@ -1,6 +1,7 @@ ;;; reftex.el --- minor mode for doing \label, \ref, \cite, \index in LaTeX -;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005 -;; Free Software Foundation, Inc. + +;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Carsten Dominik <dominik@science.uva.nl> ;; Version: 4.28 diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 99cb10ae497..3288023c835 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -1,7 +1,7 @@ ;;; sgml-mode.el --- SGML- and HTML-editing modes -;; Copyright (C) 1992, 1995, 1996, 1998, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1992, 1995, 1996, 1998, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: James Clark <jjc@jclark.com> ;; Maintainer: FSF @@ -250,8 +250,6 @@ Any terminating `>' or `/' is not matched.") '((t (:inherit font-lock-builtin-face))) "`sgml-mode' face used to highlight the namespace part of identifiers." :group 'sgml) -;; backward-compatibility alias -(put 'sgml-namespace-face 'face-alias 'sgml-namespace) (defvar sgml-namespace-face 'sgml-namespace) ;; internal diff --git a/lisp/textmodes/spell.el b/lisp/textmodes/spell.el index 99046988036..077e9b0fd35 100644 --- a/lisp/textmodes/spell.el +++ b/lisp/textmodes/spell.el @@ -1,6 +1,6 @@ ;;; spell.el --- spelling correction interface for Emacs -;; Copyright (C) 1985 Free Software Foundation, Inc. +;; Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: wp, unix diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el index 4b6e305922b..f45bcde6684 100644 --- a/lisp/textmodes/table.el +++ b/lisp/textmodes/table.el @@ -1,12 +1,12 @@ ;;; table.el --- create and edit WYSIWYG text based embedded tables -;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: wp, convenience ;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com> ;; Created: Sat Jul 08 2000 13:28:45 (PST) -;; Revised: Fri Mar 18 2005 13:50:13 (PST) +;; Revised: Sat Aug 06 2005 19:42:54 (CEST) ;; This file is part of GNU Emacs. @@ -691,8 +691,6 @@ height." "*Face used for table cell contents." :tag "Cell Face" :group 'table) -;; backward-compatibility alias -(put 'table-cell-face 'face-alias 'table-cell) (defcustom table-cell-horizontal-chars "-=" "*Characters that may be used for table cell's horizontal border line." diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 87af346af6a..ebb00756c9d 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -1,7 +1,7 @@ ;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands -*- coding: utf-8 -*- ;; Copyright (C) 1985, 1986, 1989, 1992, 1994, 1995, 1996, 1997, 1998, 1999, -;; 2002, 2003, 2004, 2005 Free Software Foundation, Inc. +;; 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: tex @@ -1942,7 +1942,8 @@ FILE is typically the output DVI or PDF file." default-directory)))) (not dir)) (let (shell-dirtrack-verbose) - (tex-send-command tex-shell-cd-command dir))) + (tex-send-command tex-shell-cd-command + (concat "\"" (convert-standard-filename dir) "\"")))) (with-current-buffer (process-buffer (tex-send-command cmd)) (setq compilation-last-buffer (current-buffer)) (compilation-forget-errors) @@ -2307,7 +2308,8 @@ Runs the shell command defined by `tex-show-queue-command'." (tex-out-file (tex-append (file-name-nondirectory (buffer-file-name)) "")) (file-dir (file-name-directory (buffer-file-name)))) - (tex-send-command tex-shell-cd-command file-dir) + (tex-send-command tex-shell-cd-command + (concat "\"" (convert-standard-filename file-dir) "\"")) (tex-send-command tex-bibtex-command tex-out-file)) (tex-display-shell)) diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el index 8425d691d77..d46d2f81fd4 100644 --- a/lisp/textmodes/texinfmt.el +++ b/lisp/textmodes/texinfmt.el @@ -1,8 +1,8 @@ ;;; texinfmt.el --- format Texinfo files into Info files ;; Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993, -;; 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2005 -;; Free Software Foundation, Inc. +;; 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: Robert J. Chassell <bug-texinfo@gnu.org> ;; Keywords: maint, tex, docs diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el index 693ab4e608e..8fce8099ed7 100644 --- a/lisp/textmodes/texinfo.el +++ b/lisp/textmodes/texinfo.el @@ -1,7 +1,7 @@ ;;; texinfo.el --- major mode for editing Texinfo files ;; Copyright (C) 1985, 1988, 1989, 1990, 1991, 1992, 1993, 1996, 1997, -;; 2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc. +;; 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Robert J. Chassell ;; Date: [See date below for texinfo-version] diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el index dbd9b8a5c67..110981d33b0 100644 --- a/lisp/textmodes/texnfo-upd.el +++ b/lisp/textmodes/texnfo-upd.el @@ -1,6 +1,7 @@ ;;; texnfo-upd.el --- utilities for updating nodes and menus in Texinfo files -;; Copyright (C) 1989, 1990, 1991, 1992, 2001, 2002, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1989, 1990, 1991, 1992, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Robert J. Chassell ;; Maintainer: bug-texinfo@gnu.org diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el index 0737f64f768..5e4cfc88471 100644 --- a/lisp/textmodes/text-mode.el +++ b/lisp/textmodes/text-mode.el @@ -1,6 +1,7 @@ ;;; text-mode.el --- text mode, and its idiosyncratic commands -;; Copyright (C) 1985, 1992, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1992, 1994, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: wp diff --git a/lisp/textmodes/tildify.el b/lisp/textmodes/tildify.el index 469cd73cd66..c317131d955 100644 --- a/lisp/textmodes/tildify.el +++ b/lisp/textmodes/tildify.el @@ -1,6 +1,7 @@ ;;; tildify.el --- adding hard spaces into texts -;; Copyright (C) 1997, 1998, 1999, 2000, 2002 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Milan Zamazal <pdm@zamazal.org> ;; Version: 4.5 diff --git a/lisp/textmodes/two-column.el b/lisp/textmodes/two-column.el index 30429638cb8..1e83b7a725b 100644 --- a/lisp/textmodes/two-column.el +++ b/lisp/textmodes/two-column.el @@ -1,6 +1,7 @@ ;;; two-column.el --- minor mode for editing of two-column text -;; Copyright (C) 1992, 1993, 1994, 1995 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 1995, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Daniel Pfeiffer <occitan@esperanto.org> ;; Adapted-By: ESR, Daniel Pfeiffer diff --git a/lisp/textmodes/underline.el b/lisp/textmodes/underline.el index c380c809a7d..3c67307da51 100644 --- a/lisp/textmodes/underline.el +++ b/lisp/textmodes/underline.el @@ -1,6 +1,6 @@ ;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs -;; Copyright (C) 1985 Free Software Foundation, Inc. +;; Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: wp diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index eee7b853743..c76a3bf2d70 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -1,7 +1,7 @@ ;;; thingatpt.el --- get the `thing' at point -;; Copyright (C) 1991,92,93,94,95,96,97,1998,2000 -;; Free Software Foundation, Inc. +;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000 +;; 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Mike Williams <mikew@gopher.dosli.govt.nz> ;; Maintainer: FSF diff --git a/lisp/thumbs.el b/lisp/thumbs.el index 0d6e9a5ac44..0fa448d4d7a 100644 --- a/lisp/thumbs.el +++ b/lisp/thumbs.el @@ -1,6 +1,6 @@ ;;; thumbs.el --- Thumbnails previewer for images files -;; Copyright 2004, 2005 Free Software Foundation, Inc +;; Copyright (C) 2004, 2005 Free Software Foundation, Inc. ;; Author: Jean-Philippe Theberge <jphiltheberge@videotron.ca> ;; Keywords: Multimedia diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el index bbceb153459..5cb54430627 100644 --- a/lisp/time-stamp.el +++ b/lisp/time-stamp.el @@ -1,7 +1,7 @@ ;;; time-stamp.el --- Maintain last change time stamps in files edited by Emacs -;; Copyright 1989, 1993, 1994, 1995, 1997, 2000, 2001, 2005 -;;; Free Software Foundation, Inc. +;; Copyright (C) 1989, 1993, 1994, 1995, 1997, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. diff --git a/lisp/time.el b/lisp/time.el index a6a4d771a2c..b70e7f7b00e 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -1,7 +1,7 @@ ;;; time.el --- display time, load and mail indicator in mode line of Emacs -*-coding: utf-8 -*- -;; Copyright (C) 1985, 86, 87, 93, 94, 96, 2000, 2001, 2002, 2003 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1996, 2000, 2001, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF @@ -142,7 +142,7 @@ See `display-time-use-mail-icon' and `display-time-mail-face'.") ;; Fixme: Default to icon on graphical display? (defcustom display-time-use-mail-icon nil - "Non-nil means use an icon as the mail indicator on a graphic display. + "Non-nil means use an icon as mail indicator on a graphic display. Otherwise use `display-time-mail-string'. The icon may consume less of the mode line. It is specified by `display-time-mail-icon'." :group 'display-time @@ -161,7 +161,7 @@ This can use the Unicode letter character if you can display it." string)) (defcustom display-time-format nil - "*A string specifying the format for displaying the time in the mode line. + "*String specifying format for displaying the time in the mode line. See the function `format-time-string' for an explanation of how to write this string. If this is nil, the defaults depend on `display-time-day-and-date' and `display-time-24hr-format'." @@ -204,7 +204,7 @@ depend on `display-time-day-and-date' and `display-time-24hr-format'." 'local-map (make-mode-line-mouse-map 'mouse-2 read-mail-command))) "")) - "*A list of expressions governing display of the time in the mode line. + "*List of expressions governing display of the time in the mode line. For most purposes, you can control the time format using `display-time-format' which is a more standard interface. diff --git a/lisp/timezone.el b/lisp/timezone.el index 692e2a682ce..7093aec22a4 100644 --- a/lisp/timezone.el +++ b/lisp/timezone.el @@ -1,6 +1,7 @@ ;;; timezone.el --- time zone package for GNU Emacs -;; Copyright (C) 1990, 1991, 1992, 1993, 1996, 1999 Free Software Foundation, Inc. +;; Copyright (C) 1990, 1991, 1992, 1993, 1996, 1999, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Masanobu Umeda ;; Maintainer: umerin@mse.kyutech.ac.jp diff --git a/lisp/tmm.el b/lisp/tmm.el index a55b11b17f6..f73e3fa0980 100644 --- a/lisp/tmm.el +++ b/lisp/tmm.el @@ -1,7 +1,7 @@ ;;; tmm.el --- text mode access to menu-bar -;; Copyright (C) 1994, 1995, 1996, 2000, 2001, 2002 -;; Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1996, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Ilya Zakharevich <ilya@math.mps.ohio-state.edu> ;; Maintainer: FSF diff --git a/lisp/tooltip.el b/lisp/tooltip.el index c8991c07e54..59f07df0089 100644 --- a/lisp/tooltip.el +++ b/lisp/tooltip.el @@ -1,7 +1,7 @@ ;;; tooltip.el --- show tooltip windows -;; Copyright (C) 1997, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1997, 1999, 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Gerd Moellmann <gerd@acm.org> ;; Keywords: help c mouse tools diff --git a/lisp/tree-widget.el b/lisp/tree-widget.el index 407fb65ea49..049999a7b88 100644 --- a/lisp/tree-widget.el +++ b/lisp/tree-widget.el @@ -59,37 +59,52 @@ ;; values, it is necessary to set the :args property to nil, then ;; redraw the tree. ;; -;; :open-control (default `tree-widget-open-control') -;; :close-control (default `tree-widget-close-control') -;; :empty-control (default `tree-widget-empty-control') -;; :leaf-control (default `tree-widget-leaf-control') -;; :guide (default `tree-widget-guide') -;; :end-guide (default `tree-widget-end-guide') -;; :no-guide (default `tree-widget-no-guide') -;; :handle (default `tree-widget-handle') -;; :no-handle (default `tree-widget-no-handle') -;; Those properties define the widgets used to draw the tree, and -;; permit to customize its look and feel. For example, using -;; `item' widgets with these :tag values: +;; :open-icon (default `tree-widget-open-icon') +;; :close-icon (default `tree-widget-close-icon') +;; :empty-icon (default `tree-widget-empty-icon') +;; :leaf-icon (default `tree-widget-leaf-icon') +;; Those properties define the icon widgets associated to tree +;; nodes. Icon widgets must derive from the `tree-widget-icon' +;; widget. The :tag and :glyph-name property values are +;; respectively used when drawing the text and graphic +;; representation of the tree. The :tag value must be a string +;; that represent a node icon, like "[+]" for example. The +;; :glyph-name value must the name of an image found in the current +;; theme, like "close" for example (see also the variable +;; `tree-widget-theme'). ;; -;; open-control "[-] " (OC) -;; close-control "[+] " (CC) -;; empty-control "[X] " (EC) -;; leaf-control "[>] " (LC) -;; guide " |" (GU) -;; noguide " " (NG) -;; end-guide " `" (EG) -;; handle "-" (HA) -;; no-handle " " (NH) +;; :guide (default `tree-widget-guide') +;; :end-guide (default `tree-widget-end-guide') +;; :no-guide (default `tree-widget-no-guide') +;; :handle (default `tree-widget-handle') +;; :no-handle (default `tree-widget-no-handle') +;; Those properties define `item'-like widgets used to draw the +;; tree guide lines. The :tag property value is used when drawing +;; the text representation of the tree. The graphic look and feel +;; is given by the images named "guide", "no-guide", "end-guide", +;; "handle", and "no-handle" found in the current theme (see also +;; the variable `tree-widget-theme'). ;; -;; A tree will look like this: +;; These are the default :tag values for icons, and guide lines: ;; -;; [-] 1 (OC :node) -;; |-[+] 1.0 (GU+HA+CC :node) -;; |-[X] 1.1 (GU+HA+EC :node) -;; `-[-] 1.2 (EG+HA+OC :node) -;; |-[>] 1.2.1 (NG+NH+GU+HA+LC child) -;; `-[>] 1.2.2 (NG+NH+EG+HA+LC child) +;; open-icon "[-]" +;; close-icon "[+]" +;; empty-icon "[X]" +;; leaf-icon "" +;; guide " |" +;; no-guide " " +;; end-guide " `" +;; handle "-" +;; no-handle " " +;; +;; The text representation of a tree looks like this: +;; +;; [-] 1 (open-icon :node) +;; |-[+] 1.0 (guide+handle+close-icon :node) +;; |-[X] 1.1 (guide+handle+empty-icon :node) +;; `-[-] 1.2 (end-guide+handle+open-icon :node) +;; |- 1.2.1 (no-guide+no-handle+guide+handle+leaf-icon leaf) +;; `- 1.2.2 (no-guide+no-handle+end-guide+handle+leaf-icon leaf) ;; ;; By default, images will be used instead of strings to draw a ;; nice-looking tree. See the `tree-widget-image-enable', @@ -133,19 +148,13 @@ The default is to use the \"tree-widget\" relative name." (defcustom tree-widget-theme nil "*Name of the theme where to look up for images. It must be a sub directory of the directory specified in variable -`tree-widget-themes-directory'. The default is \"default\". When an -image is not found in this theme, the default theme is searched too. -A complete theme must contain images with these file names with a -supported extension (see also `tree-widget-image-formats'): +`tree-widget-themes-directory'. The default theme is \"default\". +When an image is not found in a theme, it is searched in the default +theme. + +A complete theme must at least contain images with these file names +with a supported extension (see also `tree-widget-image-formats'): -\"open\" - Represent an expanded node. -\"close\" - Represent a collapsed node. -\"empty\" - Represent an expanded node with no child. -\"leaf\" - Represent a leaf node. \"guide\" A vertical guide line. \"no-guide\" @@ -153,9 +162,21 @@ supported extension (see also `tree-widget-image-formats'): \"end-guide\" End of a vertical guide line. \"handle\" - Horizontal guide line that joins the vertical guide line to a node. + Horizontal guide line that joins the vertical guide line to an icon. \"no-handle\" - An invisible handle." + An invisible handle. + +Plus images whose name is given by the :glyph-name property of the +icon widgets used to draw the tree. By default these images are used: + +\"open\" + Icon associated to an expanded tree. +\"close\" + Icon associated to a collapsed tree. +\"empty\" + Icon associated to an expanded tree with no child. +\"leaf\" + Icon associated to a leaf node." :type '(choice (const :tag "Default" nil) (string :tag "Name")) :group 'tree-widget) @@ -171,6 +192,12 @@ supported extension (see also `tree-widget-image-formats'): "*Default properties of XEmacs images." :type 'plist :group 'tree-widget) + +(defcustom tree-widget-space-width 0.5 + "Amount of space between an icon image and a node widget. +Must be a valid space :width display property." + :group 'tree-widget + :type 'sexp) ;;; Image support ;; @@ -297,6 +324,8 @@ properties. Typically it should contain something like this: '(:ascent center :mask (heuristic t)) )) +When there is no \"tree-widget-theme-setup\" library in the current +theme directory, load the one from the default theme, if available. Default global properties are provided for respectively Emacs and XEmacs in the variables `tree-widget-image-properties-emacs', and `tree-widget-image-properties-xemacs'." @@ -308,12 +337,17 @@ XEmacs in the variables `tree-widget-image-properties-emacs', and (file-name-directory file)) t t) ;; If properties have been setup, use them. (unless (setq plist (aref tree-widget--theme 2)) - ;; By default, use supplied global properties. - (setq plist (if (featurep 'xemacs) - tree-widget-image-properties-xemacs - tree-widget-image-properties-emacs)) - ;; Setup the cache. - (tree-widget-set-image-properties plist))) + ;; Try from the default theme. + (load (expand-file-name "../default/tree-widget-theme-setup" + (file-name-directory file)) t t) + ;; If properties have been setup, use them. + (unless (setq plist (aref tree-widget--theme 2)) + ;; By default, use supplied global properties. + (setq plist (if (featurep 'xemacs) + tree-widget-image-properties-xemacs + tree-widget-image-properties-emacs)) + ;; Setup the cache. + (tree-widget-set-image-properties plist)))) plist)) (defconst tree-widget--cursors @@ -321,10 +355,6 @@ XEmacs in the variables `tree-widget-image-properties-emacs', and ;; This feature works since Emacs 22, and ignored on older versions, ;; and XEmacs. '( - ("open" . hand ) - ("close" . hand ) - ("empty" . arrow) - ("leaf" . arrow) ("guide" . arrow) ("no-guide" . arrow) ("end-guide" . arrow) @@ -357,7 +387,8 @@ found." ;; Add the pointer shape (cons :pointer (cons - (cdr (assoc name tree-widget--cursors)) + (or (cdr (assoc name tree-widget--cursors)) + 'hand) (tree-widget-image-properties file))))))))) nil))))) @@ -395,40 +426,39 @@ Return the image found, or nil if not found." "Keymap used inside node buttons. Handle mouse button 1 click on buttons.") -(define-widget 'tree-widget-control 'push-button - "Basic widget other tree-widget node buttons are derived from." +(define-widget 'tree-widget-icon 'push-button + "Basic widget other tree-widget icons are derived from." :format "%[%t%]" :button-keymap tree-widget-button-keymap ; XEmacs :keymap tree-widget-button-keymap ; Emacs + :create 'tree-widget-icon-create + :action 'tree-widget-icon-action + :help-echo 'tree-widget-icon-help-echo ) -(define-widget 'tree-widget-open-control 'tree-widget-control - "Button for an expanded tree-widget node." - :tag "[-] " - ;;:tag-glyph (tree-widget-find-image "open") - :notify 'tree-widget-close-node - :help-echo "Collapse node" +(define-widget 'tree-widget-open-icon 'tree-widget-icon + "Icon for an expanded tree-widget node." + :tag "[-]" + :glyph-name "open" ) -(define-widget 'tree-widget-empty-control 'tree-widget-open-control - "Button for an expanded tree-widget node with no child." - :tag "[X] " - ;;:tag-glyph (tree-widget-find-image "empty") +(define-widget 'tree-widget-empty-icon 'tree-widget-icon + "Icon for an expanded tree-widget node with no child." + :tag "[X]" + :glyph-name "empty" ) -(define-widget 'tree-widget-close-control 'tree-widget-control - "Button for a collapsed tree-widget node." - :tag "[+] " - ;;:tag-glyph (tree-widget-find-image "close") - :notify 'tree-widget-open-node - :help-echo "Expand node" +(define-widget 'tree-widget-close-icon 'tree-widget-icon + "Icon for a collapsed tree-widget node." + :tag "[+]" + :glyph-name "close" ) -(define-widget 'tree-widget-leaf-control 'item - "Representation of a tree-widget leaf node." - :tag " " ;; Need at least one char to display the image :-( - ;;:tag-glyph (tree-widget-find-image "leaf") - :format "%t" +(define-widget 'tree-widget-leaf-icon 'tree-widget-icon + "Icon for a tree-widget leaf node." + :tag "" + :glyph-name "leaf" + :button-face 'default ) (define-widget 'tree-widget-guide 'item @@ -454,7 +484,7 @@ Handle mouse button 1 click on buttons.") (define-widget 'tree-widget-handle 'item "Horizontal guide line that joins a vertical guide line to a node." - :tag " " + :tag "-" ;;:tag-glyph (tree-widget-find-image "handle") :format "%t" ) @@ -473,10 +503,12 @@ Handle mouse button 1 click on buttons.") :value-get 'widget-value-value-get :value-delete 'widget-children-value-delete :value-create 'tree-widget-value-create - :open-control 'tree-widget-open-control - :close-control 'tree-widget-close-control - :empty-control 'tree-widget-empty-control - :leaf-control 'tree-widget-leaf-control + :action 'tree-widget-action + :help-echo 'tree-widget-help-echo + :open-icon 'tree-widget-open-icon + :close-icon 'tree-widget-close-icon + :empty-icon 'tree-widget-empty-icon + :leaf-icon 'tree-widget-leaf-icon :guide 'tree-widget-guide :end-guide 'tree-widget-end-guide :no-guide 'tree-widget-no-guide @@ -553,32 +585,35 @@ WIDGET's :node sub-widget." (widget-put arg :value (widget-value child)) ;; Save properties specified in :keep. (tree-widget-keep arg child))))) - -(defvar tree-widget-after-toggle-functions nil - "Hooks run after toggling a tree-widget expansion. -Each function will receive the tree-widget as its unique argument. -This hook should be local in the buffer used to display widgets.") - -(defun tree-widget-close-node (widget &rest ignore) - "Collapse the tree-widget, parent of WIDGET. -WIDGET is, or derives from, a tree-widget-open-control widget. -IGNORE other arguments." - (let ((tree (widget-get widget :parent))) - ;; Before to collapse the node, save children values so next open - ;; can recover them. - (tree-widget-children-value-save tree) - (widget-put tree :open nil) - (widget-value-set tree nil) - (run-hook-with-args 'tree-widget-after-toggle-functions tree))) - -(defun tree-widget-open-node (widget &rest ignore) - "Expand the tree-widget, parent of WIDGET. -WIDGET is, or derives from, a tree-widget-close-control widget. -IGNORE other arguments." - (let ((tree (widget-get widget :parent))) - (widget-put tree :open t) - (widget-value-set tree t) - (run-hook-with-args 'tree-widget-after-toggle-functions tree))) + +;;; Widget creation +;; +(defvar tree-widget-before-create-icon-functions nil + "Hooks run before to create a tree-widget icon. +Each function is passed the icon widget not yet created. +The value of the icon widget :node property is a tree :node widget or +a leaf node widget, not yet created. +This hook can be used to dynamically change properties of the icon and +associated node widgets. For example, to dynamically change the look +and feel of the tree-widget by changing the values of the :tag +and :glyph-name properties of the icon widget. +This hook should be local in the buffer setup to display widgets.") + +(defun tree-widget-icon-create (icon) + "Create the ICON widget." + (run-hook-with-args 'tree-widget-before-create-icon-functions icon) + (widget-put icon :tag-glyph + (tree-widget-find-image (widget-get icon :glyph-name))) + ;; Ensure there is at least one char to display the image. + (and (widget-get icon :tag-glyph) + (equal "" (or (widget-get icon :tag) "")) + (widget-put icon :tag " ")) + (widget-default-create icon) + ;; Insert space between the icon and the node widget. + (insert-char ? 1) + (put-text-property + (1- (point)) (point) + 'display (list 'space :width tree-widget-space-width))) (defun tree-widget-value-create (tree) "Create the TREE tree-widget." @@ -598,37 +633,34 @@ IGNORE other arguments." (let ((args (widget-get tree :args)) (xpandr (or (widget-get tree :expander) (widget-get tree :dynargs))) - (leaf (widget-get tree :leaf-control)) (guide (widget-get tree :guide)) (noguide (widget-get tree :no-guide)) (endguide (widget-get tree :end-guide)) (handle (widget-get tree :handle)) (nohandle (widget-get tree :no-handle)) - (leafi (tree-widget-find-image "leaf")) (guidi (tree-widget-find-image "guide")) (noguidi (tree-widget-find-image "no-guide")) (endguidi (tree-widget-find-image "end-guide")) (handli (tree-widget-find-image "handle")) - (nohandli (tree-widget-find-image "no-handle")) - child) + (nohandli (tree-widget-find-image "no-handle"))) ;; Request children at run time, when not already done. (when (and (not args) xpandr) (setq args (mapcar 'widget-convert (funcall xpandr tree))) (widget-put tree :args args)) - ;; Insert the node "open" button. + ;; Create the icon widget for the expanded tree. (push (widget-create-child-and-convert - tree (widget-get - tree (if args :open-control :empty-control)) - :tag-glyph (tree-widget-find-image - (if args "open" "empty"))) + tree (widget-get tree (if args :open-icon :empty-icon)) + ;; At this point the node widget isn't yet created. + :node (setq node (widget-convert node))) buttons) - ;; Insert the :node element. - (push (widget-create-child-and-convert tree node) - children) - ;; Insert children. + ;; Create the tree node widget. + (push (widget-create-child tree node) children) + ;; Update the icon :node with the created node widget. + (widget-put (car buttons) :node (car children)) + ;; Create the tree children. (while args - (setq child (car args) - args (cdr args)) + (setq node (car args) + args (cdr args)) (and indent (insert-char ?\ indent)) ;; Insert guide lines elements from previous levels. (dolist (f (reverse flags)) @@ -644,30 +676,92 @@ IGNORE other arguments." ;; Insert the node handle line (widget-create-child-and-convert tree handle :tag-glyph handli) - ;; If leaf node, insert a leaf node button. - (unless (tree-widget-p child) + (if (tree-widget-p node) + ;; Create a sub-tree node. + (push (widget-create-child-and-convert + tree node :tree-widget--guide-flags + (cons (if args t) flags)) + children) + ;; Create the icon widget for a leaf node. (push (widget-create-child-and-convert - tree leaf :tag-glyph leafi) - buttons)) - ;; Finally, insert the child widget. - (push (widget-create-child-and-convert - tree child - :tree-widget--guide-flags (cons (if args t) flags)) - children))) + tree (widget-get tree :leaf-icon) + ;; At this point the node widget isn't yet created. + :node (setq node (widget-convert + node :tree-widget--guide-flags + (cons (if args t) flags))) + :tree-widget--leaf-flag t) + buttons) + ;; Create the leaf node widget. + (push (widget-create-child tree node) children) + ;; Update the icon :node with the created node widget. + (widget-put (car buttons) :node (car children))))) ;;;; Collapsed node. - ;; Insert the "closed" node button. + ;; Create the icon widget for the collapsed tree. (push (widget-create-child-and-convert - tree (widget-get tree :close-control) - :tag-glyph (tree-widget-find-image "close")) + tree (widget-get tree :close-icon) + ;; At this point the node widget isn't yet created. + :node (setq node (widget-convert node))) buttons) - ;; Insert the :node element. - (push (widget-create-child-and-convert tree node) - children)) - ;; Save widget children and buttons. The :node child is the first - ;; element in children. + ;; Create the tree node widget. + (push (widget-create-child tree node) children) + ;; Update the icon :node with the created node widget. + (widget-put (car buttons) :node (car children))) + ;; Save widget children and buttons. The tree-widget :node child + ;; is the first element in :children. (widget-put tree :children (nreverse children)) - (widget-put tree :buttons buttons) - )) + (widget-put tree :buttons buttons))) + +;;; Widget callbacks +;; +(defsubst tree-widget-leaf-node-icon-p (icon) + "Return non-nil if ICON is a leaf node icon. +That is, if its :node property value is a leaf node widget." + (widget-get icon :tree-widget--leaf-flag)) + +(defun tree-widget-icon-action (icon &optional event) + "Handle the ICON widget :action. +If ICON :node is a leaf node it handles the :action. The tree-widget +parent of ICON handles the :action otherwise. +Pass the received EVENT to :action." + (let ((node (widget-get icon (if (tree-widget-leaf-node-icon-p icon) + :node :parent)))) + (widget-apply node :action event))) + +(defun tree-widget-icon-help-echo (icon) + "Return the help-echo string of ICON. +If ICON :node is a leaf node it handles the :help-echo. The tree-widget +parent of ICON handles the :help-echo otherwise." + (let* ((node (widget-get icon (if (tree-widget-leaf-node-icon-p icon) + :node :parent))) + (help-echo (widget-get node :help-echo))) + (if (functionp help-echo) + (funcall help-echo node) + help-echo))) + +(defvar tree-widget-after-toggle-functions nil + "Hooks run after toggling a tree-widget expansion. +Each function is passed a tree-widget. If the value of the :open +property is non-nil the tree has been expanded, else collapsed. +This hook should be local in the buffer setup to display widgets.") + +(defun tree-widget-action (tree &optional event) + "Handle the :action of the TREE tree-widget. +That is, toggle expansion of the TREE tree-widget. +Ignore the EVENT argument." + (let ((open (not (widget-get tree :open)))) + (or open + ;; Before to collapse the node, save children values so next + ;; open can recover them. + (tree-widget-children-value-save tree)) + (widget-put tree :open open) + (widget-value-set tree open) + (run-hook-with-args 'tree-widget-after-toggle-functions tree))) + +(defun tree-widget-help-echo (tree) + "Return the help-echo string of the TREE tree-widget." + (if (widget-get tree :open) + "Collapse node" + "Expand node")) (provide 'tree-widget) diff --git a/lisp/type-break.el b/lisp/type-break.el index 4545351f5a9..9c49a5b6672 100644 --- a/lisp/type-break.el +++ b/lisp/type-break.el @@ -1,6 +1,7 @@ ;;; type-break.el --- encourage rests from typing at appropriate intervals -;; Copyright (C) 1994, 95, 97, 2000, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1997, 2000, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Noah Friedman ;; Maintainer: Noah Friedman <friedman@splode.com> diff --git a/lisp/uniquify.el b/lisp/uniquify.el index 9e241a55f8b..cc08ab70836 100644 --- a/lisp/uniquify.el +++ b/lisp/uniquify.el @@ -1,7 +1,7 @@ ;;; uniquify.el --- unique buffer names dependent on file name -;; Copyright (c) 1989, 1995, 1996, 1997, 2001, 2003, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1989, 1995, 1996, 1997, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Dick King <king@reasoning.com> ;; Maintainer: FSF diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 2609ff4ee13..e1d8406ae70 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,8 @@ +2005-08-24 Juanma Barranquero <lekktu@gmail.com> + + * url-news.el (nntp-open-tls-stream, nntp-open-ssl-stream): + * url-http.el (url-http-cookies-sources): Defvar at compile time. + 2005-07-15 Richard M. Stallman <rms@gnu.org> * url-http.el (url-http-parse-headers): Add :redirect arg-pair diff --git a/lisp/url/url-about.el b/lisp/url/url-about.el index d2fae55b141..c305bb31f7a 100644 --- a/lisp/url/url-about.el +++ b/lisp/url/url-about.el @@ -1,6 +1,6 @@ ;;; url-about.el --- Show internal URLs -;; Copyright (c) 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2004, 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes, hypermedia diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el index 336c28eab26..317f91c9a13 100644 --- a/lisp/url/url-auth.el +++ b/lisp/url/url-auth.el @@ -1,6 +1,7 @@ ;;; url-auth.el --- Uniform Resource Locator authorization modules -;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes, hypermedia diff --git a/lisp/url/url-cache.el b/lisp/url/url-cache.el index e80ba059393..40967446dd7 100644 --- a/lisp/url/url-cache.el +++ b/lisp/url/url-cache.el @@ -1,6 +1,7 @@ ;;; url-cache.el --- Uniform Resource Locator retrieval tool -;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes, hypermedia @@ -39,7 +40,7 @@ (if (file-exists-p file) (not (file-directory-p file)) (file-directory-p (file-name-directory file))))) - + (defun url-cache-prepare (file) "Makes it possible to cache data in FILE. Creates any necessary parent directories, deleting any non-directory files @@ -70,7 +71,7 @@ FILE can be created or overwritten." (if (url-cache-prepare fname) (let ((coding-system-for-write 'binary)) (write-region (point-min) (point-max) fname nil 5))))))) - + ;;;###autoload (defun url-is-cached (url) "Return non-nil if the URL is cached." diff --git a/lisp/url/url-cid.el b/lisp/url/url-cid.el index 40307c49eaf..abaf8dd9e76 100644 --- a/lisp/url/url-cid.el +++ b/lisp/url/url-cid.el @@ -1,6 +1,6 @@ ;;; url-cid.el --- Content-ID URL loader -;; Copyright (c) 1998 - 1999 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2004, 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el index 314911f789b..618f89e60e9 100644 --- a/lisp/url/url-cookie.el +++ b/lisp/url/url-cookie.el @@ -1,6 +1,7 @@ ;;; url-cookie.el --- Netscape Cookie support -;; Copyright (c) 1996 - 1999,2004 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes, hypermedia diff --git a/lisp/url/url-dav.el b/lisp/url/url-dav.el index 1b683124c94..2a6b28b9b3c 100644 --- a/lisp/url/url-dav.el +++ b/lisp/url/url-dav.el @@ -1,6 +1,6 @@ ;;; url-dav.el --- WebDAV support -;; Copyright (C) 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2004, 2005 Free Software Foundation, Inc. ;; Author: Bill Perry <wmperry@gnu.org> ;; Maintainer: Bill Perry <wmperry@gnu.org> diff --git a/lisp/url/url-dired.el b/lisp/url/url-dired.el index 5d5381db0bf..7c635d13e3b 100644 --- a/lisp/url/url-dired.el +++ b/lisp/url/url-dired.el @@ -1,6 +1,7 @@ ;;; url-dired.el --- URL Dired minor mode -;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, files diff --git a/lisp/url/url-expand.el b/lisp/url/url-expand.el index c8e17a524bb..ca4b8c72ab8 100644 --- a/lisp/url/url-expand.el +++ b/lisp/url/url-expand.el @@ -1,6 +1,6 @@ ;;; url-expand.el --- expand-file-name for URLs -;; Copyright (c) 1999 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2004, 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes diff --git a/lisp/url/url-file.el b/lisp/url/url-file.el index 7e224bd1420..44a4f8bd9f4 100644 --- a/lisp/url/url-file.el +++ b/lisp/url/url-file.el @@ -1,6 +1,7 @@ ;;; url-file.el --- File retrieval code -;; Copyright (c) 1996 - 1999,2004 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes diff --git a/lisp/url/url-ftp.el b/lisp/url/url-ftp.el index 966000249d3..633f4ed40d1 100644 --- a/lisp/url/url-ftp.el +++ b/lisp/url/url-ftp.el @@ -1,6 +1,7 @@ ;;; url-ftp.el --- FTP wrapper -;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes diff --git a/lisp/url/url-gw.el b/lisp/url/url-gw.el index e0ccbbdc4e7..66ac39612fd 100644 --- a/lisp/url/url-gw.el +++ b/lisp/url/url-gw.el @@ -1,6 +1,6 @@ ;;; url-gw.el --- Gateway munging for URL loading -;; Copyright (c) 1997, 1998, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1998, 2004, 2005 Free Software Foundation, Inc. ;; Author: Bill Perry <wmperry@gnu.org> ;; Keywords: comm, data, processes diff --git a/lisp/url/url-handlers.el b/lisp/url/url-handlers.el index cc626a4cb44..bbbf19f53fc 100644 --- a/lisp/url/url-handlers.el +++ b/lisp/url/url-handlers.el @@ -1,6 +1,7 @@ ;;; url-handlers.el --- file-name-handler stuff for URL loading -;; Copyright (c) 1996, 1997, 1998, 1999, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes, hypermedia diff --git a/lisp/url/url-history.el b/lisp/url/url-history.el index 040f83ad2f2..6da5dd91551 100644 --- a/lisp/url/url-history.el +++ b/lisp/url/url-history.el @@ -1,6 +1,7 @@ ;;; url-history.el --- Global history tracking for URL package -;; Copyright (c) 1996 - 1999,2004 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes, hypermedia diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index b8bf920e2e5..14f5eab1b16 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -1,6 +1,6 @@ ;;; url-http.el --- HTTP retrieval routines -;; Copyright (c) 1999, 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2001, 2004, 2005 Free Software Foundation, Inc. ;; Author: Bill Perry <wmperry@gnu.org> ;; Keywords: comm, data, processes @@ -28,7 +28,8 @@ (eval-when-compile (require 'cl) - (defvar url-http-extra-headers)) + (defvar url-http-extra-headers) + (defvar url-http-cookies-sources)) (require 'url-gw) (require 'url-util) (require 'url-parse) diff --git a/lisp/url/url-https.el b/lisp/url/url-https.el index e7aeffde788..1777da0b6b9 100644 --- a/lisp/url/url-https.el +++ b/lisp/url/url-https.el @@ -1,6 +1,6 @@ ;;; url-https.el --- HTTP over SSL/TLS routines -;; Copyright (c) 1999, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2004, 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes diff --git a/lisp/url/url-imap.el b/lisp/url/url-imap.el index 9d923e17259..8d1b9b3877b 100644 --- a/lisp/url/url-imap.el +++ b/lisp/url/url-imap.el @@ -1,6 +1,6 @@ ;;; url-imap.el --- IMAP retrieval routines -;; Copyright (c) 1999 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2004, 2005 Free Software Foundation, Inc. ;; Author: Simon Josefsson <jas@pdc.kth.se> ;; Keywords: comm, data, processes diff --git a/lisp/url/url-irc.el b/lisp/url/url-irc.el index dd88a85a03a..a06bdff5bfd 100644 --- a/lisp/url/url-irc.el +++ b/lisp/url/url-irc.el @@ -1,6 +1,7 @@ ;;; url-irc.el --- IRC URL interface -;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes diff --git a/lisp/url/url-ldap.el b/lisp/url/url-ldap.el index 9b7ce5c89b4..ce7b7a9bab1 100644 --- a/lisp/url/url-ldap.el +++ b/lisp/url/url-ldap.el @@ -1,5 +1,6 @@ ;;; url-ldap.el --- LDAP Uniform Resource Locator retrieval code -;; Copyright (c) 1998, 1999, 2004, 2005 Free Software Foundation, Inc. + +;; Copyright (C) 1998, 1999, 2004, 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes @@ -189,7 +190,7 @@ URL can be a URL string, or a URL vector of the type returned by (setq binddn (cdr-safe (or (assoc "bindname" extensions) (assoc "!bindname" extensions)))) - + ;; Now, let's actually do something with it. (setq results (cdr (ldap-search-internal (list 'host (concat host ":" (number-to-string port)) diff --git a/lisp/url/url-mailto.el b/lisp/url/url-mailto.el index fc3eb97e085..86f5d4a88b6 100644 --- a/lisp/url/url-mailto.el +++ b/lisp/url/url-mailto.el @@ -1,6 +1,7 @@ ;;; url-mail.el --- Mail Uniform Resource Locator retrieval code -;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes diff --git a/lisp/url/url-methods.el b/lisp/url/url-methods.el index a82d78db3ac..e39ffa1eb5b 100644 --- a/lisp/url/url-methods.el +++ b/lisp/url/url-methods.el @@ -1,6 +1,7 @@ ;;; url-methods.el --- Load URL schemes as needed -;; Copyright (c) 1996,1997,1998,1999,2004 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes, hypermedia diff --git a/lisp/url/url-misc.el b/lisp/url/url-misc.el index e937c99a518..5041a407420 100644 --- a/lisp/url/url-misc.el +++ b/lisp/url/url-misc.el @@ -1,6 +1,7 @@ ;;; url-misc.el --- Misc Uniform Resource Locator retrieval code -;; Copyright (c) 1996,1997,1998,1999,2002 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2002, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes diff --git a/lisp/url/url-news.el b/lisp/url/url-news.el index 969edf6f684..93a9dd5e504 100644 --- a/lisp/url/url-news.el +++ b/lisp/url/url-news.el @@ -1,6 +1,7 @@ ;;; url-news.el --- News Uniform Resource Locator retrieval code -;; Copyright (c) 1996 - 1999, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes @@ -29,7 +30,10 @@ (require 'nntp) (autoload 'url-warn "url") (autoload 'gnus-group-read-ephemeral-group "gnus-group") -(eval-when-compile (require 'cl)) +(eval-when-compile + (require 'cl) + (defvar nntp-open-tls-stream) + (defvar nntp-open-ssl-stream)) (defgroup url-news nil "News related options." diff --git a/lisp/url/url-nfs.el b/lisp/url/url-nfs.el index 0273415b8ab..858cd029a85 100644 --- a/lisp/url/url-nfs.el +++ b/lisp/url/url-nfs.el @@ -1,6 +1,7 @@ ;;; url-nfs.el --- NFS URL interface -;; Copyright (c) 1996,1997,1998,1999,2004 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes diff --git a/lisp/url/url-ns.el b/lisp/url/url-ns.el index d76c7cf459d..3edbf2c84d4 100644 --- a/lisp/url/url-ns.el +++ b/lisp/url/url-ns.el @@ -1,6 +1,6 @@ ;;; url-ns.el --- Various netscape-ish functions for proxy definitions -;; Copyright (c) 1997 - 1999 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1998, 1999, 2004, 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes, hypermedia diff --git a/lisp/url/url-parse.el b/lisp/url/url-parse.el index db85c43a38f..bbe7f112cea 100644 --- a/lisp/url/url-parse.el +++ b/lisp/url/url-parse.el @@ -1,6 +1,7 @@ ;;; url-parse.el --- Uniform Resource Locator parser -;; Copyright (c) 1996,1997,1998,1999,2004 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes @@ -84,7 +85,7 @@ (defmacro url-set-full (urlobj val) `(aset ,urlobj 8 ,val)) - + ;;;###autoload (defun url-recreate-url (urlobj) "Recreate a URL string from the parsed URLOBJ." diff --git a/lisp/url/url-privacy.el b/lisp/url/url-privacy.el index e28a388dfa3..7700bb13941 100644 --- a/lisp/url/url-privacy.el +++ b/lisp/url/url-privacy.el @@ -1,6 +1,7 @@ ;;; url-privacy.el --- Global history tracking for URL package -;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes, hypermedia diff --git a/lisp/url/url-proxy.el b/lisp/url/url-proxy.el index 1eb8f90bda3..c5d7753daf5 100644 --- a/lisp/url/url-proxy.el +++ b/lisp/url/url-proxy.el @@ -1,6 +1,6 @@ ;;; url-proxy.el --- Proxy server support -;; Copyright (c) 1999 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2004, 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes, hypermedia diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el index e64d328fd3d..bec0c7a3133 100644 --- a/lisp/url/url-util.el +++ b/lisp/url/url-util.el @@ -1,6 +1,7 @@ ;;; url-util.el --- Miscellaneous helper routines for URL library -;; Copyright (c) 1996,1997,1998,1999,2001,2004 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Bill Perry <wmperry@gnu.org> ;; Keywords: comm, data, processes diff --git a/lisp/url/url-vars.el b/lisp/url/url-vars.el index 76669899172..53b8a5eef31 100644 --- a/lisp/url/url-vars.el +++ b/lisp/url/url-vars.el @@ -1,6 +1,7 @@ ;;; url-vars.el --- Variables for Uniform Resource Locator tool -;; Copyright (c) 1996,1997,1998,1999,2001,2004 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2004, +;; 2005 Free Software Foundation, Inc. ;; Keywords: comm, data, processes, hypermedia diff --git a/lisp/url/url.el b/lisp/url/url.el index 21859ad9566..ef101fe6f2a 100644 --- a/lisp/url/url.el +++ b/lisp/url/url.el @@ -1,7 +1,7 @@ ;;; url.el --- Uniform Resource Locator retrieval tool -;; Copyright (c) 1996, 1997, 1998, 1999, 2001, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Bill Perry <wmperry@gnu.org> ;; Keywords: comm, data, processes, hypermedia @@ -56,7 +56,7 @@ (require 'url-parse) (require 'url-util) -;; Fixme: customize? convert-standard-filename? +;; Fixme: customize? convert-standard-filename? ;;;###autoload (defvar url-configuration-directory "~/.url") @@ -71,7 +71,7 @@ Emacs." (mailcap-parse-mailcaps) (mailcap-parse-mimetypes) - + ;; Register all the authentication schemes we can handle (url-register-auth-scheme "basic" nil 4) (url-register-auth-scheme "digest" nil 7) @@ -79,11 +79,11 @@ Emacs." (setq url-cookie-file (or url-cookie-file (expand-file-name "cookies" url-configuration-directory))) - + (setq url-history-file (or url-history-file (expand-file-name "history" url-configuration-directory))) - + ;; Parse the global history file if it exists, so that it can be used ;; for URL completion, etc. (url-history-parse-history) @@ -229,7 +229,7 @@ no further processing). URL is either a string or a parsed URL." (message "Viewing externally") (kill-buffer (current-buffer))) (display-buffer (current-buffer)) - (add-hook 'kill-buffer-hook + (add-hook 'kill-buffer-hook `(lambda () (mm-destroy-parts ',handle)) nil t))))) diff --git a/lisp/url/vc-dav.el b/lisp/url/vc-dav.el index bfc532958b6..926b90d5f31 100644 --- a/lisp/url/vc-dav.el +++ b/lisp/url/vc-dav.el @@ -1,6 +1,6 @@ ;;; vc-dav.el --- vc.el support for WebDAV -;; Copyright (C) 2001 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2004, 2005 Free Software Foundation, Inc. ;; Author: Bill Perry <wmperry@gnu.org> ;; Maintainer: Bill Perry <wmperry@gnu.org> @@ -57,7 +57,7 @@ For a list of possible values, see `vc-state'." ;; _WE_ have a lock 'edited (cdr (car locks))))))) - + (defun vc-dav-checkout-model (url) "Indicate whether URL needs to be \"checked out\" before it can be edited. See `vc-checkout-model' for a list of possible values." diff --git a/lisp/userlock.el b/lisp/userlock.el index 5e2f337db07..37ff1f13ba2 100644 --- a/lisp/userlock.el +++ b/lisp/userlock.el @@ -1,6 +1,7 @@ ;;; userlock.el --- handle file access contention between multiple users -;; Copyright (C) 1985, 1986 Free Software Foundation, inc. +;; Copyright (C) 1985, 1986, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el index d59e7143179..79056c4c947 100644 --- a/lisp/vc-arch.el +++ b/lisp/vc-arch.el @@ -1,7 +1,6 @@ ;;; vc-arch.el --- VC backend for the Arch version-control system -;; Copyright (C) 1995, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 2004, 2005 Free Software Foundation, Inc. ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Stefan Monnier <monnier@gnu.org> diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index 16759351407..cf661f62768 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -1,7 +1,7 @@ ;;; vc-cvs.el --- non-resident support for CVS version-control -;; Copyright (C) 1995,98,99,2000,2001,02,2003, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 5e8bf4f523c..5872e2f1990 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -1,7 +1,7 @@ ;;; vc-hooks.el --- resident support for version-control -;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2003, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> diff --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el index e324cb7eb1c..271cd01cbfb 100644 --- a/lisp/vc-mcvs.el +++ b/lisp/vc-mcvs.el @@ -1,7 +1,6 @@ ;;; vc-mcvs.el --- VC backend for the Meta-CVS version-control system -;; Copyright (C) 1995, 1998, 1999, 2000, 2001, 2002, 2003, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Stefan Monnier <monnier@gnu.org> diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el index e591baf3a26..e301804cf17 100644 --- a/lisp/vc-rcs.el +++ b/lisp/vc-rcs.el @@ -1,7 +1,7 @@ ;;; vc-rcs.el --- support for RCS version-control -;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -;; 2000, 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, +;; 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el index c4a48274e36..e4d14d8ae70 100644 --- a/lisp/vc-sccs.el +++ b/lisp/vc-sccs.el @@ -1,7 +1,7 @@ ;;; vc-sccs.el --- support for SCCS version-control -;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -;; 2000, 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, +;; 2001, 2002, 2003, 2004 Free Software Foundation, Inc. ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index 9e0b3414a04..de34fa847e2 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el @@ -1,7 +1,6 @@ ;;; vc-svn.el --- non-resident support for Subversion version-control -;; Copyright (C) 1995, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Stefan Monnier <monnier@gnu.org> diff --git a/lisp/vc.el b/lisp/vc.el index d4ece57a3d6..a0b6ffa0ad8 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -1,7 +1,7 @@ ;;; vc.el --- drive a version-control system from within Emacs -;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, -;; 2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000, +;; 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: FSF (see below for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> diff --git a/lisp/vcursor.el b/lisp/vcursor.el index 89f30cf7232..11ac28ae14a 100644 --- a/lisp/vcursor.el +++ b/lisp/vcursor.el @@ -1,6 +1,7 @@ ;;; vcursor.el --- manipulate an alternative ("virtual") cursor -;; Copyright (C) 1994, 1996, 1998 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1996, 1998, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Peter Stephenson <pws@ibmth.df.unipi.it> ;; Maintainer: FSF diff --git a/lisp/version.el b/lisp/version.el index 110317bff6c..d83702da234 100644 --- a/lisp/version.el +++ b/lisp/version.el @@ -1,7 +1,7 @@ ;;; version.el --- record version number of Emacs -*- no-byte-compile: t -*- -;;; Copyright (C) 1985, 1992, 1994, 1995, 1999, 2000, 2001, 2005 -;;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1992, 1994, 1995, 1999, 2000, 2001, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal diff --git a/lisp/view.el b/lisp/view.el index c327dcdaa36..80c6207f275 100644 --- a/lisp/view.el +++ b/lisp/view.el @@ -1,7 +1,7 @@ ;;; view.el --- peruse file or buffer without editing -;; Copyright (C) 1985, 1989, 1994, 1995, 1997, 2000, 2001 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1989, 1994, 1995, 1997, 2000, 2001, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: K. Shane Hartman ;; Maintainer: Inge Frick <inge@nada.kth.se> diff --git a/lisp/vms-patch.el b/lisp/vms-patch.el index 886b8572e77..b591c0d56f2 100644 --- a/lisp/vms-patch.el +++ b/lisp/vms-patch.el @@ -1,6 +1,7 @@ ;;; vms-patch.el --- override parts of files.el for VMS -;; Copyright (C) 1986, 1992 Free Software Foundation, Inc. +;; Copyright (C) 1986, 1992, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: vms diff --git a/lisp/vmsproc.el b/lisp/vmsproc.el index 3c4df12c8bb..aa96560ee48 100644 --- a/lisp/vmsproc.el +++ b/lisp/vmsproc.el @@ -1,6 +1,6 @@ ;;; vmsproc.el --- run asynchronous VMS subprocesses under Emacs -;; Copyright (C) 1986, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Mukesh Prasad ;; Maintainer: FSF diff --git a/lisp/vt-control.el b/lisp/vt-control.el index ed65c93290f..61d8ec32a7b 100644 --- a/lisp/vt-control.el +++ b/lisp/vt-control.el @@ -1,6 +1,7 @@ ;;; vt-control.el --- Common VTxxx control functions -;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Rob Riepel <riepel@networking.stanford.edu> ;; Maintainer: Rob Riepel <riepel@networking.stanford.edu> diff --git a/lisp/vt100-led.el b/lisp/vt100-led.el index 805746dd495..0238962082e 100644 --- a/lisp/vt100-led.el +++ b/lisp/vt100-led.el @@ -1,6 +1,6 @@ ;;; vt100-led.el --- functions for LED control on VT-100 terminals & clones -;; Copyright (C) 1988 Free Software Foundation, Inc. +;; Copyright (C) 1988, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Howard Gayle ;; Maintainer: FSF diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index 9edcdb8c29e..6e04b6039ce 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el @@ -1,6 +1,7 @@ ;;; w32-fns.el --- Lisp routines for Windows NT -;; Copyright (C) 1994, 2001, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1994, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Geoff Voelker <voelker@cs.washington.edu> ;; Keywords: internal diff --git a/lisp/w32-vars.el b/lisp/w32-vars.el index 8e998b9968d..1b4ea8ee60b 100644 --- a/lisp/w32-vars.el +++ b/lisp/w32-vars.el @@ -1,6 +1,6 @@ ;;; w32-vars.el --- MS-Windows specific user options -;; Copyright (C) 2002 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Jason Rumney <jasonr@gnu.org> ;; Keywords: internal diff --git a/lisp/wdired.el b/lisp/wdired.el index c22a8dff633..ef20ea6f9a2 100644 --- a/lisp/wdired.el +++ b/lisp/wdired.el @@ -1,6 +1,6 @@ ;;; wdired.el --- Rename files editing their names in dired buffers -;; Copyright (C) 2001, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 2004, 2005 Free Software Foundation, Inc. ;; Filename: wdired.el ;; Author: Juan León Lahoz García <juanleon1@gmail.com> diff --git a/lisp/whitespace.el b/lisp/whitespace.el index ac31a4d820b..d3ae080e485 100644 --- a/lisp/whitespace.el +++ b/lisp/whitespace.el @@ -1,6 +1,7 @@ ;;; whitespace.el --- warn about and clean bogus whitespaces in the file -;; Copyright (C) 1999, 2000, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Rajesh Vaidheeswarran <rv@gnu.org> ;; Keywords: convenience diff --git a/lisp/wid-browse.el b/lisp/wid-browse.el index 17fe9c24214..c8a34140f69 100644 --- a/lisp/wid-browse.el +++ b/lisp/wid-browse.el @@ -1,6 +1,6 @@ ;;; wid-browse.el --- functions for browsing widgets ;; -;; Copyright (C) 1997 Free Software Foundation, Inc. +;; Copyright (C) 1997, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: extensions diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 372b068ceaf..b11240addab 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -1,6 +1,7 @@ ;;; wid-edit.el --- Functions for creating and using widgets -*-byte-compile-dynamic: t;-*- ;; -;; Copyright (C) 1996,97,1999,2000,01,02,2003, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Maintainer: FSF @@ -1955,13 +1956,14 @@ the earlier input." (args (widget-get widget :args)) (explicit (widget-get widget :explicit-choice)) current) - (if (and explicit (equal value (widget-get widget :explicit-choice-value))) + (if explicit (progn ;; If the user specified the choice for this value, - ;; respect that choice as long as the value is the same. + ;; respect that choice. (widget-put widget :children (list (widget-create-child-value widget explicit value))) - (widget-put widget :choice explicit)) + (widget-put widget :choice explicit) + (widget-put widget :explicit-choice nil)) (while args (setq current (car args) args (cdr args)) @@ -2047,13 +2049,10 @@ when he invoked the menu." (setq this-explicit t) (widget-choose tag (reverse choices) event)))) (when current - ;; If this was an explicit user choice, - ;; record the choice, and the record the value it was made for. - ;; widget-choice-value-create will respect this choice, - ;; as long as the value is the same. + ;; If this was an explicit user choice, record the choice, + ;; so that widget-choice-value-create will respect it. (when this-explicit - (widget-put widget :explicit-choice current) - (widget-put widget :explicit-choice-value (widget-get widget :value))) + (widget-put widget :explicit-choice current)) (widget-value-set widget (widget-default-get current)) (widget-setup) (widget-apply widget :notify widget event))) diff --git a/lisp/widget.el b/lisp/widget.el index f6c8efa6374..8e9b0977c05 100644 --- a/lisp/widget.el +++ b/lisp/widget.el @@ -1,6 +1,7 @@ ;;; widget.el --- a library of user interface components ;; -;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. +;; Copyright (C) 1996, 1997, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: help, extensions, faces, hypermedia diff --git a/lisp/windmove.el b/lisp/windmove.el index 785a7538a69..b3aacf62d51 100644 --- a/lisp/windmove.el +++ b/lisp/windmove.el @@ -1,6 +1,7 @@ ;;; windmove.el --- directional window-selection routines ;; -;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; ;; Author: Hovav Shacham (hovav@cs.stanford.edu) ;; Created: 17 October 1998 @@ -206,11 +207,8 @@ placement bugs in old versions of Emacs." ;; rest. ;; ;; This work is done by `windmove-reference-loc'. It can figure out -;; the locations of the corners by calling `window-edges', but to -;; calculate the frame-based location of point, it calls the workhorse -;; function `windmove-coordinates-of-position', which itself calls the -;; incredibly hairy builtin `compute-motion'. There is a good deal of -;; black magic in getting all the arguments to this function just right. +;; the locations of the corners by calling `window-edges' combined +;; with the result of `posn-at-point'. ;; ;; The second step is more messy. Conceptually, it is fairly simple: ;; if we know the reference location, and the coordinates of the @@ -404,58 +402,6 @@ Returns the wrapped coordinate." (windmove-constrain-around-range (cdr coord) min-y max-y))))) - -;; `windmove-coordinates-of-position' is stolen and modified from the -;; Emacs 20 Lisp Reference Manual, section 27.2.5. It seems to work -;; okay, although I am bothered by the fact that tab-offset (the cdr -;; of the next-to- last argument) is set to 0. On the other hand, I -;; can't find a single usage of `compute-motion' anywhere that doesn't -;; set this component to zero, and I'm too lazy to grovel through the -;; C source to figure out what's happening in the background. there -;; also seems to be a good deal of fun in calculating the correct -;; width of lines for telling `compute-motion' about; in particular, -;; it seems we need to subtract 1 (for the continuation column) from -;; the number that `window-width' gives, or continuation lines aren't -;; counted correctly. I haven't seen anyone doing this before, -;; though. -;; -;; Now updated for Emacs 21, based on the Emacs 21 Lisp Reference -;; Manual, section 30.2.5. It is no longer necessary to subtract -;; 1 for the usable width of the window. -;; TODO: also handle minibuffer case, w/ `minibuffer-prompt-width'. -(defun windmove-coordinates-of-position (pos) - "Return the coordinates of position POS in the current window. -Return the window-based coodinates in a cons pair: (HPOS . VPOS), -where HPOS and VPOS are the zero-based x and y components of the -screen location of POS. -As an example, if point is in the top left corner of a window, then -the return value from `windmove-coordinates-of-position' is (0 . 0) -regardless of the where point is in the buffer and where the window -is placed in the frame." - (let ((big-hairy-result (compute-motion - (window-start) - '(0 . 0) - pos - nil ; (window-width window-height) - nil ; window-width - (cons (window-hscroll) - 0) ; why zero? - (selected-window)))) - (cons (nth 1 big-hairy-result) ; hpos, not vpos as documented - (nth 2 big-hairy-result)))) ; vpos, not hpos as documented - -(defun windmove-coordinates-of-window-position (pos &optional window) - "Return the coordinates of position POS in WINDOW. -Return the window-based coodinates in a cons pair: (HPOS . VPOS), -where HPOS and VPOS are the zero-based x and y components of the -screen location of POS. If WINDOW is nil, return the coordinates in -the currently selected window." - (if (null window) - (windmove-coordinates-of-position pos) - (save-selected-window - (select-window window) - (windmove-coordinates-of-position pos)))) - ;; This calculates the reference location in the current window: the ;; frame-based (x . y) of either point, the top-left, or the ;; bottom-right of the window, depending on ARG. @@ -482,9 +428,11 @@ supplied, if ARG is greater or smaller than zero, respectively." ((= effective-arg 0) (windmove-coord-add top-left - (windmove-coordinates-of-window-position - (window-point window) - window))))))) + (let ((col-row + (posn-col-row + (posn-at-point (window-point window) window)))) + (cons (- (car col-row) (window-hscroll window)) + (cdr col-row))))))))) ;; This uses the reference location in the current window (calculated ;; by `windmove-reference-loc' above) to find a reference location diff --git a/lisp/window.el b/lisp/window.el index c31b3149556..a0820bb7cf6 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -1,7 +1,7 @@ ;;; window.el --- GNU Emacs window commands aside from those written in C -;; Copyright (C) 1985, 1989, 1992, 1993, 1994, 2000, 2001, 2002, 2004, 2005 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1989, 1992, 1993, 1994, 2000, 2001, 2002, +;; 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal diff --git a/lisp/winner.el b/lisp/winner.el index af72bea14d2..0fbd0221e49 100644 --- a/lisp/winner.el +++ b/lisp/winner.el @@ -1,6 +1,7 @@ ;;; winner.el --- Restore old window configurations -;; Copyright (C) 1997, 1998, 2001, 2004 Free Software Foundation. Inc. +;; Copyright (C) 1997, 1998, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation. Inc. ;; Author: Ivar Rummelhoff <ivarru@math.uio.no> ;; Created: 27 Feb 1997 diff --git a/lisp/woman.el b/lisp/woman.el index 9ad3b50e381..5ecc4744305 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -1,6 +1,6 @@ ;;; woman.el --- browse UN*X manual pages `wo (without) man' -;; Copyright (C) 2000, 2002, 2004, 2005 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Francis J. Wright <F.J.Wright@qmul.ac.uk> ;; Maintainer: Francis J. Wright <F.J.Wright@qmul.ac.uk> diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el index 0a4017a7b7c..612e033c4cb 100644 --- a/lisp/x-dnd.el +++ b/lisp/x-dnd.el @@ -1,7 +1,6 @@ ;;; x-dnd.el --- drag and drop support for X. -;; Copyright (C) 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 2004, 2005 Free Software Foundation, Inc. ;; Author: Jan Dj,Ad(Brv <jan.h.d@swipnet.se> ;; Maintainer: FSF diff --git a/lisp/xml.el b/lisp/xml.el index 53cf850b983..5fdb6f33b18 100644 --- a/lisp/xml.el +++ b/lisp/xml.el @@ -1,6 +1,7 @@ ;;; xml.el --- XML parser -;; Copyright (C) 2000, 01, 03, 2004 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, +;; 2005 Free Software Foundation, Inc. ;; Author: Emmanuel Briot <briot@gnat.com> ;; Maintainer: Mark A. Hershberger <mah@everybody.org> @@ -184,6 +185,7 @@ If PARSE-NS is non-nil, then QNAMES are expanded." (defvar xml-name-re) (defvar xml-entity-value-re) +(defvar xml-att-def-re) (let* ((start-chars (concat "[:alpha:]:_")) (name-chars (concat "-[:digit:]." start-chars)) ;;[3] S ::= (#x20 | #x9 | #xD | #xA)+ diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index e8b0cee00e4..80927647fbb 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el @@ -1,6 +1,7 @@ ;;; xt-mouse.el --- support the mouse when emacs run in an xterm -;; Copyright (C) 1994, 2000, 2001, 2005 Free Software Foundation +;; Copyright (C) 1994, 2000, 2001, 2002, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: mouse, terminals diff --git a/lispintro/ChangeLog b/lispintro/ChangeLog index fb0144f6119..2b9ab752ad9 100644 --- a/lispintro/ChangeLog +++ b/lispintro/ChangeLog @@ -53,7 +53,7 @@ ;; coding: iso-2022-7bit ;; End: - Copyright (C) 2001 + Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted provided the copyright notice and this notice are preserved. diff --git a/lispintro/Makefile.in b/lispintro/Makefile.in index c1ee2ab80eb..0f912d61487 100644 --- a/lispintro/Makefile.in +++ b/lispintro/Makefile.in @@ -1,6 +1,7 @@ #### Makefile for the Emacs Lisp Introduction manual -# Copyright (C) 1994, 1995-8, 1999, 2001 Free Software Foundation, Inc. +# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2001, 2002, +# 2003, 2004, 2005 Free Software Foundation, Inc. # This file is part of GNU Emacs. diff --git a/lispintro/aclocal.m4 b/lispintro/aclocal.m4 index 58ddd1cd9ad..e446f25337a 100644 --- a/lispintro/aclocal.m4 +++ b/lispintro/aclocal.m4 @@ -1,6 +1,7 @@ dnl aclocal.m4 generated automatically by aclocal 1.4-p4 -dnl Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc. +dnl Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2002, 2003, +dnl 2004, 2005 Free Software Foundation, Inc. dnl This file is free software; the Free Software Foundation dnl gives unlimited permission to copy and/or distribute it, dnl with or without modifications, as long as this notice is preserved. diff --git a/lispintro/emacs-lisp-intro.texi b/lispintro/emacs-lisp-intro.texi index d2ef7d1ce2c..f133cb029f3 100644 --- a/lispintro/emacs-lisp-intro.texi +++ b/lispintro/emacs-lisp-intro.texi @@ -183,7 +183,7 @@ people who are not programmers. Edition @value{edition-number}, @value{update-date} @sp 1 Copyright @copyright{} 1990, 1991, 1992, 1993, 1994, 1995, 1997, 2001, -2002, 2003, 2004 Free Software Foundation, Inc. + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @sp 1 @iftex diff --git a/lispintro/makefile.w32-in b/lispintro/makefile.w32-in index f7e99334188..09acbb699ab 100644 --- a/lispintro/makefile.w32-in +++ b/lispintro/makefile.w32-in @@ -1,6 +1,6 @@ #### -*- Makefile -*- for the Emacs Lisp Introduction manual. -# Copyright (C) 2003, 2004 Free Software Foundation, Inc. +# Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. # This file is part of GNU Emacs. diff --git a/lispref/ChangeLog b/lispref/ChangeLog index 98d38b57ce0..2a094262bb1 100644 --- a/lispref/ChangeLog +++ b/lispref/ChangeLog @@ -1,3 +1,106 @@ +2005-08-25 Richard M. Stallman <rms@gnu.org> + + * searching.texi (Search and Replace): Add replace-regexp-in-string. + +2005-08-25 Emilio C. Lopes <eclig@gmx.net> + + * display.texi (Finding Overlays): Fix `find-overlay-prop' in + `next-overlay-change' example. + +2005-08-22 Juri Linkov <juri@jurta.org> + + * display.texi (Attribute Functions): Add set-face-inverse-video-p. + Fix invert-face. Fix args of face-background. + + * display.texi (Standard Faces): Delete node. + (Faces): Add xref to `(emacs)Standard Faces'. + (Displaying Faces): Fix xref to `Standard Faces'. + + * modes.texi (Mode Line Data): Fix xref to Standard Faces. + +2005-08-20 Alan Mackenzie <acm@muc.de> + + * buffers.texi (The Buffer List): Clarify the manipulation of the + buffer list. + +2005-08-14 Richard M. Stallman <rms@gnu.org> + + * modes.texi (Auto Major Mode): interpreter-mode-alist key is not + a regexp. + +2005-08-11 Richard M. Stallman <rms@gnu.org> + + * elisp.texi (Top): Update subnode lists. + + * display.texi (Inverse Video): Node deleted. + + * tips.texi (Key Binding Conventions, Programming Tips, Warning Tips): + New nodes split out of Coding Conventions. + + * searching.texi (Regular Expressions): Document re-builder. + + * os.texi (Time Parsing): New node split out of Time Conversion. + + * processes.texi (Misc Network, Network Feature Testing) + (Network Options, Make Network): New nodes split out of + Low-Level Network. + +2005-08-09 Richard M. Stallman <rms@gnu.org> + + * frames.texi (Geometry): New node, split from Size and Position. + (Frame Parameters): Refer to Geometry. + + * buffers.texi (The Buffer List): Fix xrefs. + + * windows.texi (Splitting Windows): Fix xref. + + * frames.texi (Layout Parameters): Add xref. + + * display.texi (Line Height, Scroll Bars): Fix xrefs. + + * keymaps.texi (Menu Bar): Fix xref. + + * locals.texi (Standard Buffer-Local Variables): Fix xref. + + * modes.texi (%-Constructs): Fix xref. + + * frames.texi (Window Frame Parameters): Node split up. + (Basic Parameters, Position Parameters, Size Parameters) + (Layout Parameters, Buffer Parameters, Management Parameters) + (Cursor Parameters, Color Parameters): New subnodes. + +2005-08-09 Luc Teirlinck <teirllm@auburn.edu> + + * positions.texi (Screen Lines): Update xref for previous change + in minibuf.texi. + + * minibuf.texi (Intro to Minibuffers): Update pxref for previous + change in minibuf.texi. + +2005-08-09 Richard M. Stallman <rms@gnu.org> + + * tips.texi (Coding Conventions): Minor cleanup. + + * modes.texi (Defining Minor Modes): Explain when init-value + can be non-nil. + + * elisp.texi (Top): Update submenu for Minibuffer. + + * minibuf.texi (Minibuffer Misc): Node split up. + (Minibuffer Commands, Minibuffer Windows, Minibuffer Contents) + (Recursive Mini): New nodes split out from Minibuffer Misc. + (Minibuffer Misc): Document max-mini-window-height. + + * hash.texi (Defining Hash): Delete stray paren in example. + + * display.texi (Echo Area Customization): Don't define + max-mini-window-height here; xref instead. + + * commands.texi (Event Input Misc): Update while-no-input. + + * advice.texi (Advising Functions): Explain when to use advice + and when to use a hook. + 2005-07-30 Eli Zaretskii <eliz@gnu.org> * makefile.w32-in (info): Don't run install-info. @@ -3685,7 +3788,8 @@ Tue Apr 11 12:23:28 1989 Robert J. Chassell (bob@rice-chex.ai.mit.edu) ;; coding: iso-2022-7bit ;; End: - Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc. + Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted provided the copyright notice and this notice are preserved. diff --git a/lispref/Makefile.in b/lispref/Makefile.in index 4fac4c025b0..7d5ce02714d 100644 --- a/lispref/Makefile.in +++ b/lispref/Makefile.in @@ -1,7 +1,7 @@ # Makefile for the GNU Emacs Lisp Reference Manual. -# Copyright (C) 1990,1991,1992,1993,1994,1995,1996,1998,1999,2000,2001,2003,2004 -# Free Software Foundation, Inc. +# Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, +# 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. # This file is part of GNU Emacs. diff --git a/lispref/abbrevs.texi b/lispref/abbrevs.texi index a58064ab387..38c5854adc6 100644 --- a/lispref/abbrevs.texi +++ b/lispref/abbrevs.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1999, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1999, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/abbrevs @node Abbrevs, Processes, Syntax Tables, Top diff --git a/lispref/advice.texi b/lispref/advice.texi index 2006474fc61..8299e13ac10 100644 --- a/lispref/advice.texi +++ b/lispref/advice.texi @@ -1,6 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1998, 1999 Free Software Foundation, Inc. +@c Copyright (C) 1998, 1999, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/advising @node Advising Functions, Debugging, Byte Compilation, Top @@ -8,7 +9,7 @@ @cindex advising functions The @dfn{advice} feature lets you add to the existing definition of -a function, by @dfn{advising the function}. This is a clean method +a function, by @dfn{advising the function}. This is a cleaner method for a library to customize functions defined within Emacs---cleaner than redefining the whole function. @@ -23,8 +24,20 @@ are not the same thing. @strong{Usage Note:} Advice is useful for altering the behavior of existing calls to an existing function. If you want the new behavior -for new calls, or for key bindings, it is cleaner to define a new -function (or a new command) which uses the existing function. +for new calls, or for key bindings, you should define a new function +(or a new command) which uses the existing function. + + @strong{Usage note:} Advising a function can cause confusion in +debugging, since people who debug calls to the original function may +not notice that it has been modified with advice. Therefore, if you +have the possibility to change the code of that function (or ask +someone to do so) to run a hook, please solve the problem that way. +Advice should be reserved for the cases where you cannot get the +function changed. + + In particular, this means that a file in Emacs should not put advice +on a function in Emacs. There are currently a few exceptions to this +convention, but we aim to correct them. @menu * Simple Advice:: A simple example to explain the basics of advice. diff --git a/lispref/anti.texi b/lispref/anti.texi index 2c3d6414c1c..d6ae30f2106 100644 --- a/lispref/anti.texi +++ b/lispref/anti.texi @@ -1,6 +1,6 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1999, 2005 Free Software Foundation, Inc. +@c Copyright (C) 1999, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @c This node must have no pointers. diff --git a/lispref/backups.texi b/lispref/backups.texi index 24c617510bf..3b5363f64a3 100644 --- a/lispref/backups.texi +++ b/lispref/backups.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1999, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1999, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/backups @node Backups and Auto-Saving, Buffers, Files, Top diff --git a/lispref/buffers.texi b/lispref/buffers.texi index a0769be23dd..6204dfce339 100644 --- a/lispref/buffers.texi +++ b/lispref/buffers.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/buffers @node Buffers, Windows, Backups and Auto-Saving, Top @@ -757,21 +757,24 @@ signal an error if the current buffer is read-only. @section The Buffer List @cindex buffer list - The @dfn{buffer list} is a list of all live buffers. Creating a -buffer adds it to this list, and killing a buffer removes it. The -order of the buffers in the list is based primarily on how recently -each buffer has been displayed in the selected window. Buffers move -to the front of the list when they are selected (selecting a window -that already displays the buffer counts as selecting the buffer), and -to the end when they are buried (see @code{bury-buffer}, below). -Several functions, notably @code{other-buffer}, use this ordering. A -buffer list displayed for the user also follows this order. + The @dfn{buffer list} is a list of all live buffers. The order of +the buffers in the list is based primarily on how recently each buffer +has been displayed in a window. Several functions, notably +@code{other-buffer}, use this ordering. A buffer list displayed for +the user also follows this order. + Creating a buffer adds it to the end of the buffer list, and killing +a buffer removes it. Buffers move to the front of the list when they +are selected for display in a window (@pxref{Displaying Buffers}), and +to the end when they are buried (see @code{bury-buffer}, below). +There are no functions available to the Lisp programmer which directly +manipulate the buffer list. + In addition to the fundamental Emacs buffer list, each frame has its own version of the buffer list, in which the buffers that have been selected in that frame come first, starting with the buffers most recently selected @emph{in that frame}. (This order is recorded in -@var{frame}'s @code{buffer-list} frame parameter; see @ref{Window Frame +@var{frame}'s @code{buffer-list} frame parameter; see @ref{Buffer Parameters}.) The buffers that were never selected in @var{frame} come afterward, ordered according to the fundamental Emacs buffer list. @@ -838,7 +841,7 @@ buffer list that is not now visible in any window in a visible frame. If @var{frame} has a non-@code{nil} @code{buffer-predicate} parameter, then @code{other-buffer} uses that predicate to decide which buffers to consider. It calls the predicate once for each buffer, and if the value -is @code{nil}, that buffer is ignored. @xref{Window Frame Parameters}. +is @code{nil}, that buffer is ignored. @xref{Buffer Parameters}. @c Emacs 19 feature If @var{visible-ok} is @code{nil}, @code{other-buffer} avoids returning diff --git a/lispref/commands.texi b/lispref/commands.texi index 5ded722155c..353a7436c28 100644 --- a/lispref/commands.texi +++ b/lispref/commands.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/commands @node Command Loop, Keymaps, Minibuffers, Top @@ -2435,15 +2435,26 @@ Emacs version 18. @end defvar @defmac while-no-input body... -This construct runs the @var{body} forms and returns the value -of the last one---but only if no input arrives. If any input -arrives during the execution of the @var{body} forms, it aborts -them (working much like a quit), and the @code{while-no-input} -form returns @code{nil}. +This construct runs the @var{body} forms and returns the value of the +last one---but only if no input arrives. If any input arrives during +the execution of the @var{body} forms, it aborts them (working much +like a quit). The @code{while-no-input} form returns @code{nil} if +aborted by a real quit, and returns @code{t} if aborted by arrival of +other input. If a part of @var{body} binds @code{inhibit-quit} to non-@code{nil}, arrival of input during those parts won't cause an abort until the end of that part. + +If you want to be able to distingish all possible values computed +by @var{body} from both kinds of abort conditions, write the code +like this: + +@example +(while-no-input + (list + (progn . @var{body}))) +@end example @end defmac @defun discard-input diff --git a/lispref/compile.texi b/lispref/compile.texi index 951a090e0da..79ac366c27d 100644 --- a/lispref/compile.texi +++ b/lispref/compile.texi @@ -1,6 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/compile @node Byte Compilation, Advising Functions, Loading, Top diff --git a/lispref/control.texi b/lispref/control.texi index 573a32b1cde..8dae3d46484 100644 --- a/lispref/control.texi +++ b/lispref/control.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2003 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/control @node Control Structures, Variables, Evaluation, Top diff --git a/lispref/customize.texi b/lispref/customize.texi index 8ee82f088a8..b573ab942a6 100644 --- a/lispref/customize.texi +++ b/lispref/customize.texi @@ -1,6 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2005 Free Software Foundation, Inc. +@c Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/customize @node Customization, Loading, Macros, Top diff --git a/lispref/debugging.texi b/lispref/debugging.texi index 66663aad131..9c0fa9bc865 100644 --- a/lispref/debugging.texi +++ b/lispref/debugging.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1998, 1999, 2005 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1998, 1999, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/debugging @node Debugging, Read and Print, Advising Functions, Top diff --git a/lispref/display.texi b/lispref/display.texi index de024a71b32..8addb3b67ec 100644 --- a/lispref/display.texi +++ b/lispref/display.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. @c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2000, 2001, -@c 2002, 2005 Free Software Foundation, Inc. +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/display @node Display, System Interface, Processes, Top @@ -31,7 +31,6 @@ that Emacs presents to the user. * Images:: Displaying images in Emacs buffers. * Buttons:: Adding clickable buttons to Emacs buffers. * Blinking:: How Emacs shows the matching open parenthesis. -* Inverse Video:: Specifying how the screen looks. * Usual Display:: The usual conventions for displaying nonprinting chars. * Display Tables:: How to specify other conventions. * Beeping:: Audible signal to the user. @@ -495,12 +494,6 @@ sequence are echoed immediately.) If the value is zero, then command input is not echoed. @end defvar -@defopt max-mini-window-height -This variable specifies the maximum height for resizing minibuffer -windows. If a float, it specifies a fraction of the height of the -frame. If an integer, it specifies a number of lines. -@end defopt - @defvar message-truncate-lines Normally, displaying a long message resizes the echo area to display the entire message. But if the variable @code{message-truncate-lines} @@ -508,6 +501,11 @@ is non-@code{nil}, the echo area does not resize, and the message is truncated to fit it, as in Emacs 20 and before. @end defvar + The variable @code{max-mini-window-height}, which specifies the +maximum height for resizing minibuffer windows, also applies to the +echo area (which is really a special use of the minibuffer window. +@xref{Minibuffer Misc}. + @node Warnings @section Reporting Warnings @cindex warnings @@ -1503,20 +1501,26 @@ end of an overlay, before @var{pos}. If there is none, it returns @code{(point-min)}. @end defun - Here's an easy way to use @code{next-overlay-change} to search for the -next character which gets a non-@code{nil} @code{happy} property from + Here's a function which uses @code{next-overlay-change} to search +for the next character which gets a given property @code{prop} from either its overlays or its text properties (@pxref{Property Search}): @smallexample (defun find-overlay-prop (prop) (save-excursion (while (and (not (eobp)) - (not (get-char-property (point) 'happy))) + (not (get-char-property (point) prop))) (goto-char (min (next-overlay-change (point)) - (next-single-property-change (point) 'happy)))) + (next-single-property-change (point) prop)))) (point))) @end smallexample + Now you can search for a @code{happy} property like this: + +@smallexample +(find-overlay-prop 'happy) +@end smallexample + @node Width @section Width @@ -1642,7 +1646,7 @@ parts of Emacs text. @vindex default-line-spacing You can specify the line spacing for all lines in a frame with the -@code{line-spacing} frame parameter, @xref{Window Frame Parameters}. +@code{line-spacing} frame parameter (@pxref{Layout Parameters}). However, if the variable @code{default-line-spacing} is non-@code{nil}, it overrides the frame's @code{line-spacing} parameter. An integer value specifies the number of pixels put below @@ -1675,7 +1679,9 @@ height. A @dfn{face} is a named collection of graphical attributes: font family, foreground color, background color, optional underlining, and many others. Faces are used in Emacs to control the style of display of -particular parts of the text or the frame. +particular parts of the text or the frame. @xref{Standard Faces,,, +emacs, The GNU Emacs Manual}, for the list of faces Emacs normally +comes with. @cindex face id Each face has its own @dfn{face number}, which distinguishes faces at @@ -1693,7 +1699,6 @@ same meaning in all frames. But you can arrange to give a particular face name a special meaning in one frame if you wish. @menu -* Standard Faces:: The faces Emacs normally comes with. * Defining Faces:: How to define a face with @code{defface}. * Face Attributes:: What is in a face? * Attribute Functions:: Functions to examine and set face attributes. @@ -1707,139 +1712,6 @@ face name a special meaning in one frame if you wish. that handle a range of character sets. @end menu -@node Standard Faces -@subsection Standard Faces - - This table lists all the standard faces and their uses. Most of them -are used for displaying certain parts of the frames or certain kinds of -text; you can control how those places look by customizing these faces. - -@table @code -@item default -@kindex default @r{(face name)} -This face is used for ordinary text. - -@item mode-line -@kindex mode-line @r{(face name)} -This face is used for the mode line of the selected window, and for -menu bars when toolkit menus are not used. - -@item modeline -@kindex modeline @r{(face name)} -This is an alias for the @code{mode-line} face, for compatibility with -old Emacs versions. - -@item mode-line-inactive -@kindex mode-line-inactive @r{(face name)} -This face is used for mode lines of non-selected windows. -This face inherits from @code{mode-line}, so changes -in that face affect all windows. - -@item header-line -@kindex header-line @r{(face name)} -This face is used for the header lines of windows that have them. - -@item menu -This face controls the display of menus, both their colors and their -font. (This works only on certain systems.) - -@item fringe -@kindex fringe @r{(face name)} -This face controls the default colors of window fringes, the thin -areas on either side that are used to display continuation and -truncation glyphs. Other faces used to display bitmaps in the fringe -are implicitly merged with this face. - -@item minibuffer-prompt -@kindex minibuffer-prompt @r{(face name)} -@vindex minibuffer-prompt-properties -This face is used for the text of minibuffer prompts. By default, -Emacs automatically adds this face to the value of -@code{minibuffer-prompt-properties}, which is a list of text -properties used to display the prompt text. - -@item scroll-bar -@kindex scroll-bar @r{(face name)} -This face controls the colors for display of scroll bars. - -@item tool-bar -@kindex tool-bar @r{(face name)} -This face is used for display of the tool bar, if any. - -@item region -@kindex region @r{(face name)} -This face is used for highlighting the region in Transient Mark mode. - -@item secondary-selection -@kindex secondary-selection @r{(face name)} -This face is used to show any secondary selection you have made. - -@item highlight -@kindex highlight @r{(face name)} -This face is meant to be used for highlighting for various purposes. - -@item mode-line-highlight -@kindex mode-line-highlight @r{(face name)} -This face is used for highlighting something on @code{mode-line} or -@code{header-line} for various purposes. - -@item trailing-whitespace -@kindex trailing-whitespace @r{(face name)} -This face is used to display excess whitespace at the end of a line, -if @code{show-trailing-whitespace} is non-@code{nil}. - -@item escape-glyph -@kindex escape-glyph @r{(face name)} -This face is used to display control characters and escape glyphs. -@end table - - In contrast, these faces are provided to change the appearance of text -in specific ways. You can use them on specific text, when you want -the effects they produce. - -@table @code -@item bold -@kindex bold @r{(face name)} -This face uses a bold font, if possible. It uses the bold variant of -the frame's font, if it has one. It's up to you to choose a default -font that has a bold variant, if you want to use one. - -@item italic -@kindex italic @r{(face name)} -This face uses the italic variant of the frame's font, if it has one. - -@item bold-italic -@kindex bold-italic @r{(face name)} -This face uses the bold italic variant of the frame's font, if it has -one. - -@item underline -@kindex underline @r{(face name)} -This face underlines text. - -@item fixed-pitch -@kindex fixed-pitch @r{(face name)} -This face forces use of a particular fixed-width font. - -@item variable-pitch -@kindex variable-pitch @r{(face name)} -This face forces use of a particular variable-width font. It's -reasonable to customize this to use a different variable-width font, if -you like, but you should not make it a fixed-width font. - -@item shadow -@kindex shadow @r{(face name)} -This face is used for making the text less noticeable than the -surrounding ordinary text. -@end table - -@defvar show-trailing-whitespace -@tindex show-trailing-whitespace -If this variable is non-@code{nil}, Emacs uses the -@code{trailing-whitespace} face to display any spaces and tabs at the -end of a line. -@end defvar - @node Defining Faces @subsection Defining Faces @@ -2290,10 +2162,14 @@ This function sets the underline attribute of face @var{face}. Non-@code{nil} means do underline; @code{nil} means don't. @end defun +@defun set-face-inverse-video-p face inverse-video-p &optional frame +This function sets the @code{:inverse-video} attribute of face +@var{face}. +@end defun + @defun invert-face face &optional frame -This function inverts the @code{:inverse-video} attribute of face -@var{face}. If the attribute is @code{nil}, this function sets it to -@code{t}, and vice versa. +This function swaps the foreground and background colors of face +@var{face}. @end defun These functions examine the attributes of a face. If you don't @@ -2302,7 +2178,7 @@ They return the symbol @code{unspecified} if the face doesn't define any value for that attribute. @defun face-foreground face &optional frame inherit -@defunx face-background face &optional frame +@defunx face-background face &optional frame inherit These functions return the foreground color (or background color, respectively) of face @var{face}, as a string. @@ -2380,7 +2256,8 @@ properties too; they apply to all the text covered by the overlay. @item With a region that is active. In Transient Mark mode, the region is -highlighted with the face @code{region} (@pxref{Standard Faces}). +highlighted with the face @code{region} (@pxref{Standard Faces,,, +emacs, The GNU Emacs Manual}). @item With special glyphs. Each glyph can specify a particular face @@ -3078,7 +2955,7 @@ Normally the frame parameter @code{vertical-scroll-bars} controls whether the windows in the frame have vertical scroll bars, and whether they are on the left or right. The frame parameter @code{scroll-bar-width} specifies how wide they are (@code{nil} -meaning the default). @xref{Window Frame Parameters}. +meaning the default). @xref{Layout Parameters}. @defun frame-current-scroll-bars &optional frame This function reports the scroll bar type settings for frame @@ -4592,17 +4469,6 @@ Here is an example of calling this function explicitly. @end smallexample @end deffn -@node Inverse Video -@section Inverse Video -@cindex Inverse Video - -@defopt inverse-video -@cindex highlighting -This variable controls whether Emacs uses inverse video for all text -on the screen. Non-@code{nil} means yes, @code{nil} means no. The -default is @code{nil}. -@end defopt - @node Usual Display @section Usual Display Conventions diff --git a/lispref/edebug.texi b/lispref/edebug.texi index f074cf3dbd5..a32c5e9189c 100644 --- a/lispref/edebug.texi +++ b/lispref/edebug.texi @@ -1,6 +1,7 @@ @comment -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1992, 1993, 1994, 1998, 1999, 2005 Free Software Foundation, Inc. +@c Copyright (C) 1992, 1993, 1994, 1998, 1999, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @c This file can also be used by an independent Edebug User diff --git a/lispref/elisp.texi b/lispref/elisp.texi index 64b4ee90292..8c99ee6acaa 100644 --- a/lispref/elisp.texi +++ b/lispref/elisp.texi @@ -31,7 +31,7 @@ This is edition @value{VERSION} of the GNU Emacs Lisp Reference Manual, corresponding to Emacs version @value{EMACSVER}. Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, - 2000, 2002, 2003, 2004, 2005, Free Software Foundation, Inc. + 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document @@ -543,6 +543,10 @@ Minibuffers * Yes-or-No Queries:: Asking a question with a simple answer. * Multiple Queries:: Asking a series of similar questions. * Reading a Password:: Reading a password from the terminal. +* Minibuffer Commands:: Commands used as key bindings in minibuffers. +* Minibuffer Contents:: How such commands access the minibuffer text. +* Minibuffer Windows:: Operating on the special minibuffer windows. +* Recursive Mini:: Whether recursive entry to minibuffer is allowed. * Minibuffer Misc:: Various customization hooks and variables. Completion @@ -970,7 +974,8 @@ Processes * Datagrams:: UDP network connections. * Low-Level Network:: Lower-level but more general function to create connections and servers. -* Byte Packing:: Using bindat to pack and unpack binary data. +* Misc Network:: Additional relevant functions for network connections. +* Byte Packing:: Using bindat to pack and unpack binary data. Receiving Output from Processes @@ -1001,7 +1006,6 @@ Emacs Display * Images:: Displaying images in Emacs buffers. * Buttons:: Adding clickable buttons to Emacs buffers. * Blinking:: How Emacs shows the matching open parenthesis. -* Inverse Video:: Specifying how the screen looks. * Usual Display:: The usual conventions for displaying nonprinting chars. * Display Tables:: How to specify other conventions. * Beeping:: Audible signal to the user. @@ -1016,6 +1020,8 @@ Operating System Interface * Time of Day:: Getting the current time. * Time Conversion:: Converting a time from numeric form to a string, or to calendrical data (or vice versa). +* Time Parsing:: Converting a time from numeric form to text + and vice versa. * Processor Run Time:: Getting the run time used by Emacs. * Time Calculations:: Adding, subtracting, comparing times, etc. * Timers:: Setting a timer to call a function at a certain time. @@ -1042,7 +1048,10 @@ Getting out of Emacs Tips and Conventions * Coding Conventions:: Conventions for clean and robust programs. -* Compilation Tips:: Making compiled code run fast. +* Key Binding Conventions:: Which keys should be bound by which programs. +* Programming Tips:: Making Emacs code fit smoothly in Emacs. +* Compilation Tips:: Making compiled code run fast. +* Warning Tips:: Turning off compiler warnings. * Documentation Tips:: Writing readable documentation strings. * Comment Tips:: Conventions for writing comments. * Library Headers:: Standard headers for library packages. diff --git a/lispref/errors.texi b/lispref/errors.texi index a246539b8fd..ce48c3cf549 100644 --- a/lispref/errors.texi +++ b/lispref/errors.texi @@ -1,6 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1999 Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1999, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/errors @node Standard Errors, Standard Buffer-Local Variables, GNU Emacs Internals, Top diff --git a/lispref/eval.texi b/lispref/eval.texi index 6a43466af67..36bc941f26b 100644 --- a/lispref/eval.texi +++ b/lispref/eval.texi @@ -1,6 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1998, 2003, 2004 Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1998, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/eval @node Evaluation, Control Structures, Symbols, Top diff --git a/lispref/files.texi b/lispref/files.texi index 93c104e6ccd..d8d47964cdf 100644 --- a/lispref/files.texi +++ b/lispref/files.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/files @node Files, Backups and Auto-Saving, Documentation, Top diff --git a/lispref/frames.texi b/lispref/frames.texi index 827f98d24c2..3cb5e49dbac 100644 --- a/lispref/frames.texi +++ b/lispref/frames.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/frames @node Frames, Positions, Windows, Top @@ -205,6 +205,7 @@ parameters @code{foreground-color}, @code{background-color}, * Initial Parameters:: Specifying frame parameters when you make a frame. * Window Frame Parameters:: List of frame parameters for window systems. * Size and Position:: Changing the size and position of a frame. +* Geometry:: Parsing geometry specifications. @end menu @node Parameter Access @@ -310,14 +311,31 @@ Line Arguments for Emacs Invocation, emacs, The GNU Emacs Manual}. @node Window Frame Parameters @subsection Window Frame Parameters - Just what parameters a frame has depends on what display mechanism it -uses. Here is a table of the parameters that have special meanings in a -window frame; of these, @code{name}, @code{title}, @code{height}, -@code{width}, @code{buffer-list} and @code{buffer-predicate} provide -meaningful information in terminal frames, and @code{tty-color-mode} -is meaningful @emph{only} in terminal frames. Frame parameter whose -values measured in pixels, when used on text-only terminals, count -characters or lines instead. + Just what parameters a frame has depends on what display mechanism +it uses. This section describes the parameters that have special +meanings on some or all kinds of terminals. Of these, @code{name}, +@code{title}, @code{height}, @code{width}, @code{buffer-list} and +@code{buffer-predicate} provide meaningful information in terminal +frames, and @code{tty-color-mode} is meaningful @emph{only} in +terminal frames. + +@menu +* Basic Parameters:: Parameters that are fundamental. +* Position Parameters:: The position of the frame on the screen. +* Size Parameters:: Frame's size. +* Layout Parameters:: Size of parts of the frame, and + enabling or disabling some parts. +* Buffer Parameters:: Which buffers have been or should be shown. +* Management Parameters:: Communicating with the window manager. +* Cursor Parameters:: Controlling the cursor appearance. +* Color Parameters:: Colors of various parts of the frame. +@end menu + +@node Basic Parameters +@subsubsection Basic Parameters + + These frame parameters give the most basic information about the +frame. @code{title} and @code{name} are meaningful on all terminals. @table @code @item display @@ -325,6 +343,11 @@ The display on which to open this frame. It should be a string of the form @code{"@var{host}:@var{dpy}.@var{screen}"}, just like the @code{DISPLAY} environment variable. +@item display-type +This parameter describes the range of possible colors that can be used +in this frame. Its value is @code{color}, @code{grayscale} or +@code{mono}. + @item title If a frame has a non-@code{nil} title, it appears in the window system's border for the frame, and also in the mode line of windows in that frame @@ -342,7 +365,15 @@ you don't specify a name, Emacs sets the frame name automatically If you specify the frame name explicitly when you create the frame, the name is also used (instead of the name of the Emacs executable) when looking up X resources for the frame. +@end table +@node Position Parameters +@subsubsection Position Parameters + + Position parameters' values are normally measured in pixels, but on +text-only terminals they count characters or lines instead. + +@table @code @item left The screen position of the left edge, in pixels, with respect to the left edge of the screen. The value may be a positive number @var{pos}, @@ -397,7 +428,15 @@ When you call @code{make-frame}, you should specify a non-@code{nil} value for this parameter if the values of the @code{left} and @code{top} parameters represent the user's stated preference; otherwise, use @code{nil}. +@end table + +@node Size Parameters +@subsubsection Size Parameters + Size parameters' values are normally measured in pixels, but on +text-only terminals they count characters or lines instead. + +@table @code @item height The height of the frame contents, in characters. (To get the height in pixels, call @code{frame-pixel-height}; see @ref{Size and Position}.) @@ -417,14 +456,76 @@ The value @code{fullwidth} specifies that width shall be the size of the screen. The value @code{fullheight} specifies that height shall be the size of the screen. The value @code{fullboth} specifies that both the width and the height shall be set to the size of the screen. +@end table -@item window-id -The number of the window-system window used by the frame -to contain the actual Emacs windows. +@node Layout Parameters +@subsubsection Layout Parameters -@item outer-window-id -The number of the outermost window-system window used for the whole frame. + These frame parameters enable or disable various parts of the +frame, or control their sizes. +@table @code +@item border-width +The width in pixels of the window border. + +@item internal-border-width +The distance in pixels between text and border. + +@item vertical-scroll-bars +Whether the frame has scroll bars for vertical scrolling, and which side +of the frame they should be on. The possible values are @code{left}, +@code{right}, and @code{nil} for no scroll bars. + +@ignore +@item horizontal-scroll-bars +Whether the frame has scroll bars for horizontal scrolling +(non-@code{nil} means yes). Horizontal scroll bars are not currently +implemented. +@end ignore + +@item scroll-bar-width +The width of vertical scroll bars, in pixels, or @code{nil} meaning to +use the default width. + +@item left-fringe +@itemx right-fringe +The default width of the left and right fringes of windows in this +frame (@pxref{Fringes}). If either of these is zero, that effectively +removes the corresponding fringe. A value of @code{nil} stands for +the standard fringe width, which is the width needed to display the +fringe bitmaps. + +The combined fringe widths must add up to an integral number of +columns, so the actual default fringe widths for the frame may be +larger than the specified values. The extra width needed to reach an +acceptable total is distributed evenly between the left and right +fringe. However, you can force one fringe or the other to a precise +width by specifying that width as a negative integer. If both widths are +negative, only the left fringe gets the specified width. + +@item menu-bar-lines +The number of lines to allocate at the top of the frame for a menu +bar. The default is 1. A value of @code{nil} means don't display a +menu bar. @xref{Menu Bar}. (The X toolkit and GTK allow at most one +menu bar line; they treat larger values as 1.) + +@item tool-bar-lines +The number of lines to use for the tool bar. A value of @code{nil} +means don't display a tool bar. (GTK allows at most one tool bar line; +it treats larger values as 1.) + +@item line-spacing +Additional space to leave below each text line, in pixels (a positive +integer). @xref{Line Height}, for more information. +@end table + +@node Buffer Parameters +@subsubsection Buffer Parameters + + These frame parameters, meaningful on all kinds of terminals, deal +with which buffers have been, or should, be displayed in the frame. + +@table @code @item minibuffer Whether this frame has its own minibuffer. The value @code{t} means yes, @code{nil} means no, @code{only} means this frame is just a @@ -443,26 +544,28 @@ considers that buffer. A list of buffers that have been selected in this frame, ordered most-recently-selected first. +@item unsplittable +If non-@code{nil}, this frame's window is never split automatically. +@end table + +@node Management Parameters +@subsubsection Window Management Parameters + + These frame parameters, meaningful only on window system displays, +interact with the window manager. + +@table @code +@item visibility +The state of visibility of the frame. There are three possibilities: +@code{nil} for invisible, @code{t} for visible, and @code{icon} for +iconified. @xref{Visibility of Frames}. + @item auto-raise Whether selecting the frame raises it (non-@code{nil} means yes). @item auto-lower Whether deselecting the frame lowers it (non-@code{nil} means yes). -@item vertical-scroll-bars -Whether the frame has scroll bars for vertical scrolling, and which side -of the frame they should be on. The possible values are @code{left}, -@code{right}, and @code{nil} for no scroll bars. - -@item horizontal-scroll-bars -Whether the frame has scroll bars for horizontal scrolling -(non-@code{nil} means yes). (Horizontal scroll bars are not currently -implemented.) - -@item scroll-bar-width -The width of the vertical scroll bar, in pixels, -or @code{nil} meaning to use the default width. - @item icon-type The type of icon to use for this frame when it is iconified. If the value is a string, that specifies a file containing a bitmap to use. @@ -473,29 +576,35 @@ picture of a gnu); @code{nil} specifies a text icon. The name to use in the icon for this frame, when and if the icon appears. If this is @code{nil}, the frame's title is used. -@item background-mode -This parameter is either @code{dark} or @code{light}, according -to whether the background color is a light one or a dark one. +@item window-id +The number of the window-system window used by the frame +to contain the actual Emacs windows. -@item tty-color-mode -@cindex standard colors for character terminals -This parameter overrides the terminal's color support as given by the -system's terminal capabilities database in that this parameter's value -specifies the color mode to use in terminal frames. The value can be -either a symbol or a number. A number specifies the number of colors -to use (and, indirectly, what commands to issue to produce each -color). For example, @code{(tty-color-mode . 8)} forces Emacs to use -the ANSI escape sequences for 8 standard text colors; and a value of --1 means Emacs should turn off color support. If the parameter's -value is a symbol, that symbol is looked up in the alist -@code{tty-color-mode-alist}, and if found, the associated number is -used as the color support mode. +@item outer-window-id +The number of the outermost window-system window used for the whole frame. -@item display-type -This parameter describes the range of possible colors that can be used -in this frame. Its value is @code{color}, @code{grayscale} or -@code{mono}. +@item wait-for-wm +If non-@code{nil}, tell Xt to wait for the window manager to confirm +geometry changes. Some window managers, including versions of Fvwm2 +and KDE, fail to confirm, so Xt hangs. Set this to @code{nil} to +prevent hanging with those window managers. + +@ignore +@item parent-id +@c ??? Not yet working. +The X window number of the window that should be the parent of this one. +Specifying this lets you create an Emacs window inside some other +application's window. (It is not certain this will be implemented; try +it and see if it works.) +@end ignore +@end table +@node Cursor Parameters +@subsubsection Cursor Parameters + + This frame parameter controls the way the cursor looks. + +@table @code @item cursor-type How to display the cursor. Legitimate values are: @@ -515,52 +624,51 @@ Display a horizontal bar. @item (hbar . @var{height}) Display a horizontal bar @var{height} pixels high. @end table +@end table @vindex cursor-type The buffer-local variable @code{cursor-type} overrides the value of the @code{cursor-type} frame parameter, but if it is @code{t}, that means to use the cursor specified for the frame. -@item border-width -The width in pixels of the window border. - -@item internal-border-width -The distance in pixels between text and border. - -@item left-fringe -@itemx right-fringe -The default width of the left and right fringes of windows in this -frame (@pxref{Fringes}). If either of these is zero, that effectively -removes the corresponding fringe. A value of @code{nil} stands for -the standard fringe width, which is the width needed to display the -fringe bitmaps. +@defvar blink-cursor-alist +This variable specifies how to blink the cursor. Each element has the +form @code{(@var{on-state} . @var{off-state})}. Whenever the cursor +type equals @var{on-state} (comparing using @code{equal}), the +corresponding @var{off-state} specifies what the cursor looks like +when it blinks ``off''. Both @var{on-state} and @var{off-state} +should be suitable values for the @code{cursor-type} frame parameter. + +There are various defaults for how to blink each type of cursor, if +the type is not mentioned as an @var{on-state} here. Changes in this +variable do not take effect immediately, because the variable is +examined only when you specify the @code{cursor-type} parameter. +@end defvar -The combined fringe widths must add up to an integral number of -columns, so the actual default fringe widths for the frame may be -larger than the specified values. The extra width needed to reach an -acceptable total is distributed evenly between the left and right -fringe. However, you can force one fringe or the other to a precise -width by specifying that width as a negative integer. If both widths are -negative, only the left fringe gets the specified width. +@node Color Parameters +@subsubsection Color Parameters -@item unsplittable -If non-@code{nil}, this frame's window is never split automatically. + These frame parameters control the use of colors. -@item visibility -The state of visibility of the frame. There are three possibilities: -@code{nil} for invisible, @code{t} for visible, and @code{icon} for -iconified. @xref{Visibility of Frames}. +@table @code +@item background-mode +This parameter is either @code{dark} or @code{light}, according +to whether the background color is a light one or a dark one. -@item menu-bar-lines -The number of lines to allocate at the top of the frame for a menu -bar. The default is 1. A value of @code{nil} means don't display a -menu bar. @xref{Menu Bar}. (The X toolkit and GTK allow at most one -menu bar line; they treat larger values as 1.) +@item tty-color-mode +@cindex standard colors for character terminals +This parameter overrides the terminal's color support as given by the +system's terminal capabilities database in that this parameter's value +specifies the color mode to use in terminal frames. The value can be +either a symbol or a number. A number specifies the number of colors +to use (and, indirectly, what commands to issue to produce each +color). For example, @code{(tty-color-mode . 8)} specifies use of the +ANSI escape sequences for 8 standard text colors. A value of -1 turns +off color support. -@item tool-bar-lines -The number of lines to use for the tool bar. A value of @code{nil} -means don't display a tool bar. (GTK allows at most one tool bar line; -it treats larger values as 1.) +If the parameter's value is a symbol, it specifies a number through +the value of @code{tty-color-mode-alist}, and the associated number is +used instead. @item screen-gamma @cindex gamma correction @@ -580,40 +688,8 @@ If your monitor displays colors too light, you should specify a @code{screen-gamma} value smaller than 2.2. This requests correction that makes colors darker. A screen gamma value of 1.5 may give good results for LCD color displays. - -@item line-spacing -Additional space put below text lines, in pixels (a positive integer) - -@item wait-for-wm -If non-@code{nil}, tell Xt to wait for the window manager to confirm -geometry changes. Some window managers, including versions of Fvwm2 -and KDE, fail to confirm, so Xt hangs. Set this to @code{nil} to -prevent hanging with those window managers. - -@ignore -@item parent-id -@c ??? Not yet working. -The X window number of the window that should be the parent of this one. -Specifying this lets you create an Emacs window inside some other -application's window. (It is not certain this will be implemented; try -it and see if it works.) -@end ignore @end table -@defvar blink-cursor-alist -This variable specifies how to blink the cursor. Each element has the -form @code{(@var{on-state} . @var{off-state})}. Whenever the cursor -type equals @var{on-state} (comparing using @code{equal}), Emacs uses -@var{off-state} to specify what the cursor looks like when it blinks -``off''. Both @var{on-state} and @var{off-state} should be suitable -values for the @code{cursor-type} frame parameter. - -There are various defaults for how to blink each type of cursor, -if the type is not mentioned as an @var{on-state} here. Changes -in this variable do not take effect immediately, because the variable -is examined only when you specify a cursor type for a frame. -@end defvar - These frame parameters are semi-obsolete in that they are automatically equivalent to particular face attributes of particular faces. @@ -750,6 +826,12 @@ The argument @var{pretend} has the same meaning as in screen, in Emacs versions that did not support multiple frames. They are semi-obsolete, but still work; they apply to the selected frame. +@node Geometry +@subsection Geometry + + Here's how to examine the data in an X-style window geometry +specification: + @defun x-parse-geometry geom @cindex geometry specification The function @code{x-parse-geometry} converts a standard X window @@ -1150,7 +1232,7 @@ they are currently being displayed or not, and this function returns @end defun The visibility status of a frame is also available as a frame -parameter. You can read or change it as such. @xref{Window Frame +parameter. You can read or change it as such. @xref{Management Parameters}. The user can iconify and deiconify frames with the window manager. @@ -1195,7 +1277,7 @@ that the minibuffer window is in. You can also enable auto-raise (raising automatically when a frame is selected) or auto-lower (lowering automatically when it is deselected) -for any frame using frame parameters. @xref{Window Frame Parameters}. +for any frame using frame parameters. @xref{Management Parameters}. @node Frame Configurations @section Frame Configurations @@ -1504,7 +1586,7 @@ is over mouse-sensitive text. These variables affect newly created frames. They do not normally affect existing frames; however, if you set the mouse color of a frame, that also updates its pointer shapes based on the current values of -these variables. @xref{Window Frame Parameters}. +these variables. @xref{Color Parameters}. The values you can use, to specify either of these pointer shapes, are defined in the file @file{lisp/term/x-win.el}. Use @kbd{M-x apropos diff --git a/lispref/functions.texi b/lispref/functions.texi index f58cad69bb7..17a96734b10 100644 --- a/lispref/functions.texi +++ b/lispref/functions.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/functions @node Functions, Macros, Variables, Top diff --git a/lispref/hash.texi b/lispref/hash.texi index b8ddd0ee6a4..7b4c8c67711 100644 --- a/lispref/hash.texi +++ b/lispref/hash.texi @@ -1,6 +1,6 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1999, 2003 Free Software Foundation, Inc. +@c Copyright (C) 1999, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/hash @node Hash Tables, Symbols, Sequences Arrays Vectors, Top @@ -281,8 +281,8 @@ compared case-insensitively. (defun case-fold-string-hash (a) (sxhash (upcase a))) -(define-hash-table-test 'case-fold 'case-fold-string= - 'case-fold-string-hash)) +(define-hash-table-test 'case-fold + 'case-fold-string= 'case-fold-string-hash) (make-hash-table :test 'case-fold) @end example diff --git a/lispref/help.texi b/lispref/help.texi index 2dbea2038cc..c7c99fa8987 100644 --- a/lispref/help.texi +++ b/lispref/help.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/help @node Documentation, Files, Modes, Top diff --git a/lispref/hooks.texi b/lispref/hooks.texi index 1278589de53..11b2233dc0e 100644 --- a/lispref/hooks.texi +++ b/lispref/hooks.texi @@ -1,6 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1998, 2004, 2005 Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1998, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/hooks @node Standard Hooks, Index, Standard Keymaps, Top diff --git a/lispref/internals.texi b/lispref/internals.texi index 5cc0fe6e497..e032f5a7ddf 100644 --- a/lispref/internals.texi +++ b/lispref/internals.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1998, 1999, 2005 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1998, 1999, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/internals @node GNU Emacs Internals, Standard Errors, Tips, Top diff --git a/lispref/intro.texi b/lispref/intro.texi index bb264c81c46..01ffeb3321c 100644 --- a/lispref/intro.texi +++ b/lispref/intro.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 2002 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/intro diff --git a/lispref/keymaps.texi b/lispref/keymaps.texi index 895ca48109b..5509b35b799 100644 --- a/lispref/keymaps.texi +++ b/lispref/keymaps.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1998, 1999, 2000, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1998, 1999, 2000, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/keymaps @node Keymaps, Modes, Command Loop, Top @@ -2199,7 +2199,7 @@ were @code{nil}. @xref{Active Keymaps}. parameter must be greater than zero. Emacs uses just one line for the menu bar itself; if you specify more than one line, the other lines serve to separate the menu bar from the windows in the frame. We -recommend 1 or 2 as the value of @code{menu-bar-lines}. @xref{Window Frame +recommend 1 or 2 as the value of @code{menu-bar-lines}. @xref{Layout Parameters}. Here's an example of setting up a menu bar item: diff --git a/lispref/lists.texi b/lispref/lists.texi index 22edec42db2..422c977184c 100644 --- a/lispref/lists.texi +++ b/lispref/lists.texi @@ -1,8 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, -@c 2003, 2004, 2005 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/lists @node Lists, Sequences Arrays Vectors, Strings and Characters, Top diff --git a/lispref/loading.texi b/lispref/loading.texi index b64a0ce6736..afef0e787a5 100644 --- a/lispref/loading.texi +++ b/lispref/loading.texi @@ -1,8 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, -@c 2003, 2004, 2005 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/loading @node Loading, Byte Compilation, Customization, Top diff --git a/lispref/locals.texi b/lispref/locals.texi index 942baa9dd1b..57b17d3d41b 100644 --- a/lispref/locals.texi +++ b/lispref/locals.texi @@ -1,6 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1999 Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1999, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/locals @node Standard Buffer-Local Variables, Standard Keymaps, Standard Errors, Top @@ -82,7 +83,7 @@ use, but we don't try to list them all here. @xref{Usual Display}. @item cursor-type -@xref{Window Frame Parameters}. +@xref{Cursor Parameters}. @item comment-column @xref{Comments,,, emacs, The GNU Emacs Manual}. diff --git a/lispref/macros.texi b/lispref/macros.texi index 0a1bf942c29..dc822352ab3 100644 --- a/lispref/macros.texi +++ b/lispref/macros.texi @@ -1,6 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 2004 Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/macros @node Macros, Customization, Functions, Top diff --git a/lispref/makefile.w32-in b/lispref/makefile.w32-in index 10b1e168805..038c05db7c3 100644 --- a/lispref/makefile.w32-in +++ b/lispref/makefile.w32-in @@ -1,7 +1,6 @@ # -*- Makefile -*- for the GNU Emacs Lisp Reference Manual. -# Copyright (C) 2003, 2004 -# Free Software Foundation, Inc. +# Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. # This file is part of GNU Emacs. diff --git a/lispref/maps.texi b/lispref/maps.texi index 16c1f0bab9b..ef5984cc32f 100644 --- a/lispref/maps.texi +++ b/lispref/maps.texi @@ -1,6 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1999 Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1999, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/maps @node Standard Keymaps, Standard Hooks, Standard Buffer-Local Variables, Top diff --git a/lispref/markers.texi b/lispref/markers.texi index 60b2aae6a98..d9f6d19a4b0 100644 --- a/lispref/markers.texi +++ b/lispref/markers.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/markers @node Markers, Text, Positions, Top diff --git a/lispref/minibuf.texi b/lispref/minibuf.texi index a6153fdaca2..04443c493f3 100644 --- a/lispref/minibuf.texi +++ b/lispref/minibuf.texi @@ -1,8 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, -@c 2001, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2001, 2002, +@c 2003, 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/minibuf @node Minibuffers, Command Loop, Read and Print, Top @@ -11,12 +10,13 @@ @cindex complex arguments @cindex minibuffer - A @dfn{minibuffer} is a special buffer that Emacs commands use to read -arguments more complicated than the single numeric prefix argument. -These arguments include file names, buffer names, and command names (as -in @kbd{M-x}). The minibuffer is displayed on the bottom line of the -frame, in the same place as the echo area, but only while it is in use -for reading an argument. + A @dfn{minibuffer} is a special buffer that Emacs commands use to +read arguments more complicated than the single numeric prefix +argument. These arguments include file names, buffer names, and +command names (as in @kbd{M-x}). The minibuffer is displayed on the +bottom line of the frame, in the same place as the echo area +(@pxref{The Echo Area}), but only while it is in use for reading an +argument. @menu * Intro to Minibuffers:: Basic information about minibuffers. @@ -29,6 +29,10 @@ for reading an argument. * Yes-or-No Queries:: Asking a question with a simple answer. * Multiple Queries:: Asking a series of similar questions. * Reading a Password:: Reading a password from the terminal. +* Minibuffer Commands:: Commands used as key bindings in minibuffers. +* Minibuffer Contents:: How such commands access the minibuffer text. +* Minibuffer Windows:: Operating on the special minibuffer windows. +* Recursive Mini:: Whether recursive entry to minibuffer is allowed. * Minibuffer Misc:: Various customization hooks and variables. @end menu @@ -79,7 +83,7 @@ recursive minibuffers, the innermost (or most recently entered) is the active minibuffer. We usually call this ``the'' minibuffer. You can permit or forbid recursive minibuffers by setting the variable @code{enable-recursive-minibuffers} or by putting properties of that -name on command symbols (@pxref{Minibuffer Misc}). +name on command symbols (@pxref{Recursive Mini}). Like other buffers, a minibuffer may use any of several local keymaps (@pxref{Keymaps}); these contain various exit commands and in some cases @@ -1694,11 +1698,11 @@ return if the user enters empty input. If @var{default} is @code{nil}, then @code{read-passwd} returns the null string in that case. @end defun -@node Minibuffer Misc -@section Minibuffer Miscellany +@node Minibuffer Commands +@section Minibuffer Commands - This section describes some basic functions and variables related to -minibuffers. + This section describes some commands meant for use in the +minibuffer. @deffn Command exit-minibuffer This command exits the active minibuffer. It is normally bound to @@ -1733,65 +1737,11 @@ This command replaces the minibuffer contents with the value of the regular expression). @end deffn -@defun minibuffer-prompt -This function returns the prompt string of the currently active -minibuffer. If no minibuffer is active, it returns @code{nil}. -@end defun - -@defun minibuffer-prompt-end -@tindex minibuffer-prompt-end -This function returns the current -position of the end of the minibuffer prompt, if a minibuffer is -current. Otherwise, it returns the minimum valid buffer position. -@end defun - -@defun minibuffer-contents -@tindex minibuffer-contents -This function returns the editable -contents of the minibuffer (that is, everything except the prompt) as -a string, if a minibuffer is current. Otherwise, it returns the -entire contents of the current buffer. -@end defun - -@defun minibuffer-contents-no-properties -@tindex minibuffer-contents-no-properties -This is like @code{minibuffer-contents}, except that it does not copy text -properties, just the characters themselves. @xref{Text Properties}. -@end defun - -@defun delete-minibuffer-contents -@tindex delete-minibuffer-contents -This function erases the editable -contents of the minibuffer (that is, everything except the prompt), if -a minibuffer is current. Otherwise, it erases the entire buffer. -@end defun - -@defun minibuffer-prompt-width -This function returns the current display-width of the minibuffer -prompt, if a minibuffer is current. Otherwise, it returns zero. -@end defun - -@defvar minibuffer-setup-hook -This is a normal hook that is run whenever the minibuffer is entered. -@xref{Hooks}. -@end defvar - -@defvar minibuffer-exit-hook -This is a normal hook that is run whenever the minibuffer is exited. -@xref{Hooks}. -@end defvar - -@defvar minibuffer-help-form -@anchor{Definition of minibuffer-help-form} -The current value of this variable is used to rebind @code{help-form} -locally inside the minibuffer (@pxref{Help Functions}). -@end defvar +@node Minibuffer Windows +@section Minibuffer Windows -@defun minibufferp &optional buffer-or-name -This function returns non-@code{nil} if @var{buffer-or-name} is a -minibuffer. If @var{buffer-or-name} is omitted, it tests the current -buffer. -@end defun + These functions access and select minibuffer windows +and test whether they are active. @defun active-minibuffer-window This function returns the currently active minibuffer window, or @@ -1832,20 +1782,53 @@ This function returns non-@code{nil} if @var{window}, assumed to be a minibuffer window, is currently active. @end defun -@defvar minibuffer-scroll-window -@anchor{Definition of minibuffer-scroll-window} -If the value of this variable is non-@code{nil}, it should be a window -object. When the function @code{scroll-other-window} is called in the -minibuffer, it scrolls this window. -@end defvar +@node Minibuffer Contents +@section Minibuffer Contents -@defun minibuffer-selected-window -This function returns the window which was selected when the -minibuffer was entered. If selected window is not a minibuffer -window, it returns @code{nil}. + These functions access the minibuffer prompt and contents. + +@defun minibuffer-prompt +This function returns the prompt string of the currently active +minibuffer. If no minibuffer is active, it returns @code{nil}. @end defun -Finally, some functions and variables deal with recursive minibuffers +@defun minibuffer-prompt-end +@tindex minibuffer-prompt-end +This function returns the current +position of the end of the minibuffer prompt, if a minibuffer is +current. Otherwise, it returns the minimum valid buffer position. +@end defun + +@defun minibuffer-prompt-width +This function returns the current display-width of the minibuffer +prompt, if a minibuffer is current. Otherwise, it returns zero. +@end defun + +@defun minibuffer-contents +@tindex minibuffer-contents +This function returns the editable +contents of the minibuffer (that is, everything except the prompt) as +a string, if a minibuffer is current. Otherwise, it returns the +entire contents of the current buffer. +@end defun + +@defun minibuffer-contents-no-properties +@tindex minibuffer-contents-no-properties +This is like @code{minibuffer-contents}, except that it does not copy text +properties, just the characters themselves. @xref{Text Properties}. +@end defun + +@defun delete-minibuffer-contents +@tindex delete-minibuffer-contents +This function erases the editable contents of the minibuffer (that is, +everything except the prompt), if a minibuffer is current. Otherwise, +it erases the entire current buffer. +@end defun + +@node Recursive Mini +@section Recursive Minibuffers + + These functions and variables deal with recursive minibuffers (@pxref{Recursive Editing}): @defun minibuffer-depth @@ -1875,6 +1858,50 @@ to @code{t} in the interactive declaration (@pxref{Using Interactive}). The minibuffer command @code{next-matching-history-element} (normally @kbd{M-s} in the minibuffer) does the latter. +@node Minibuffer Misc +@section Minibuffer Miscellany + +@defun minibufferp &optional buffer-or-name +This function returns non-@code{nil} if @var{buffer-or-name} is a +minibuffer. If @var{buffer-or-name} is omitted, it tests the current +buffer. +@end defun + +@defvar minibuffer-setup-hook +This is a normal hook that is run whenever the minibuffer is entered. +@xref{Hooks}. +@end defvar + +@defvar minibuffer-exit-hook +This is a normal hook that is run whenever the minibuffer is exited. +@xref{Hooks}. +@end defvar + +@defvar minibuffer-help-form +@anchor{Definition of minibuffer-help-form} +The current value of this variable is used to rebind @code{help-form} +locally inside the minibuffer (@pxref{Help Functions}). +@end defvar + +@defvar minibuffer-scroll-window +@anchor{Definition of minibuffer-scroll-window} +If the value of this variable is non-@code{nil}, it should be a window +object. When the function @code{scroll-other-window} is called in the +minibuffer, it scrolls this window. +@end defvar + +@defun minibuffer-selected-window +This function returns the window which was selected when the +minibuffer was entered. If selected window is not a minibuffer +window, it returns @code{nil}. +@end defun + +@defopt max-mini-window-height +This variable specifies the maximum height for resizing minibuffer +windows. If a float, it specifies a fraction of the height of the +frame. If an integer, it specifies a number of lines. +@end defopt + @defun minibuffer-message string This function displays @var{string} temporarily at the end of the minibuffer text, for two seconds, or until the next input event diff --git a/lispref/modes.texi b/lispref/modes.texi index 053e7a511e8..49b05021d91 100644 --- a/lispref/modes.texi +++ b/lispref/modes.texi @@ -1,6 +1,6 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, @c 2003, 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/modes @@ -869,9 +869,7 @@ command interpreter in a @samp{#!} line. Its value is an alist with elements of the form @code{(@var{interpreter} . @var{mode})}; for example, @code{("perl" . perl-mode)} is one element present by default. The element says to use mode @var{mode} if the file -specifies an interpreter which matches @var{interpreter}. The value -of @var{interpreter} is actually a regular expression. @xref{Regular -Expressions}. +specifies an interpreter which matches @var{interpreter}. @end defvar @defvar magic-mode-alist @@ -1373,7 +1371,8 @@ symbol). It defines a command named @var{mode} to toggle the minor mode, with @var{doc} as its documentation string. It also defines a variable named @var{mode}, which is set to @code{t} or @code{nil} by enabling or disabling the mode. The variable is initialized to -@var{init-value}. +@var{init-value}. Except in unusual circumstances (see below), this +value must be @code{nil}. The string @var{lighter} says what to display in the mode line when the mode is enabled; if it is @code{nil}, the mode is not displayed @@ -1424,6 +1423,14 @@ as setting the variable named @var{mode} and then executes the variable @code{@var{mode}-hook}. @end defmac + The initial value must be @code{nil} except in cases where (1) the +mode is preloaded in Emacs, or (2) it is painless to for loading to +enable the mode even though the user did not request it. For +instance, if the mode has no effect unless something else is enabled, +and will always be loaded by that time, enabling it by default is +harmless. But these are unusual circumstances. Normally, the +initial value must be @code{nil}. + @findex easy-mmode-define-minor-mode The name @code{easy-mmode-define-minor-mode} is an alias for this macro. @@ -1607,7 +1614,7 @@ value is a list, each element may be a list, a symbol, or a string. The mode line can display various faces, if the strings that control it have the @code{face} property. @xref{Properties in Mode}. In addition, the face @code{mode-line} is used as a default for the whole -mode line (@pxref{Standard Faces}). +mode line (@pxref{Standard Faces,,, emacs, The GNU Emacs Manual}). @table @code @cindex percent symbol in mode line @@ -1920,7 +1927,7 @@ function. @xref{Buffer File Name}. @item %F The title (only on a window system) or the name of the selected frame. -@xref{Window Frame Parameters}. +@xref{Basic Parameters}. @item %i The size of the accessible part of the current buffer; basically diff --git a/lispref/nonascii.texi b/lispref/nonascii.texi index 9683156541d..2af367a0f85 100644 --- a/lispref/nonascii.texi +++ b/lispref/nonascii.texi @@ -1,6 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1998, 1999 Free Software Foundation, Inc. +@c Copyright (C) 1998, 1999, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/characters @node Non-ASCII Characters, Searching and Matching, Text, Top diff --git a/lispref/numbers.texi b/lispref/numbers.texi index f7f88248ff1..db28a2850a6 100644 --- a/lispref/numbers.texi +++ b/lispref/numbers.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2003 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/numbers @node Numbers, Strings and Characters, Lisp Data Types, Top diff --git a/lispref/objects.texi b/lispref/objects.texi index 4a693f186d6..99ef896c4b4 100644 --- a/lispref/objects.texi +++ b/lispref/objects.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2003 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/objects @node Lisp Data Types, Numbers, Introduction, Top diff --git a/lispref/os.texi b/lispref/os.texi index 1e6dacb7d80..3f00ae99cf0 100644 --- a/lispref/os.texi +++ b/lispref/os.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/os @node System Interface, Antinews, Display, Top @@ -21,8 +21,10 @@ pertaining to the terminal and the screen. * System Environment:: Distinguish the name and kind of system. * User Identification:: Finding the name and user id of the user. * Time of Day:: Getting the current time. -* Time Conversion:: Converting a time from numeric form to a string, or - to calendrical data (or vice versa). +* Time Conversion:: Converting a time from numeric form + to calendrical data, and vice versa). +* Time Parsing:: Converting a time from numeric form to text + and vice versa. * Processor Run Time:: Getting the run time used by Emacs. * Time Calculations:: Adding, subtracting, comparing times, etc. * Timers:: Setting a timer to call a function at a certain time. @@ -1071,22 +1073,102 @@ exact. Do not use this function if precise time stamps are required. @section Time Conversion These functions convert time values (lists of two or three integers) -to strings or to calendrical information. There is also a function to -convert calendrical information to a time value. You can get time -values from the functions @code{current-time} (@pxref{Time of Day}) and +to calendrical information and vice versa. You can get time values +from the functions @code{current-time} (@pxref{Time of Day}) and @code{file-attributes} (@pxref{Definition of file-attributes}). -Many operating systems are limited to time values that contain 32 bits + Many operating systems are limited to time values that contain 32 bits of information; these systems typically handle only the times from 1901-12-13 20:45:52 UTC through 2038-01-19 03:14:07 UTC. However, some operating systems have larger time values, and can represent times far in the past or future. -Time conversion functions always use the Gregorian calendar, even for -dates before the Gregorian calendar was introduced. Year numbers count -the number of years since the year 1 B.C., and do not skip zero as -traditional Gregorian years do; for example, the year number @minus{}37 -represents the Gregorian year 38 B.C@. + Time conversion functions always use the Gregorian calendar, even +for dates before the Gregorian calendar was introduced. Year numbers +count the number of years since the year 1 B.C., and do not skip zero +as traditional Gregorian years do; for example, the year number +@minus{}37 represents the Gregorian year 38 B.C@. + +@defun decode-time &optional time +This function converts a time value into calendrical information. If +you don't specify @var{time}, it decodes the current time. The return +value is a list of nine elements, as follows: + +@example +(@var{seconds} @var{minutes} @var{hour} @var{day} @var{month} @var{year} @var{dow} @var{dst} @var{zone}) +@end example + +Here is what the elements mean: + +@table @var +@item seconds +The number of seconds past the minute, as an integer between 0 and 59. +On some operating systems, this is 60 for leap seconds. +@item minutes +The number of minutes past the hour, as an integer between 0 and 59. +@item hour +The hour of the day, as an integer between 0 and 23. +@item day +The day of the month, as an integer between 1 and 31. +@item month +The month of the year, as an integer between 1 and 12. +@item year +The year, an integer typically greater than 1900. +@item dow +The day of week, as an integer between 0 and 6, where 0 stands for +Sunday. +@item dst +@code{t} if daylight savings time is effect, otherwise @code{nil}. +@item zone +An integer indicating the time zone, as the number of seconds east of +Greenwich. +@end table + +@strong{Common Lisp Note:} Common Lisp has different meanings for +@var{dow} and @var{zone}. +@end defun + +@defun encode-time seconds minutes hour day month year &optional zone +This function is the inverse of @code{decode-time}. It converts seven +items of calendrical data into a time value. For the meanings of the +arguments, see the table above under @code{decode-time}. + +Year numbers less than 100 are not treated specially. If you want them +to stand for years above 1900, or years above 2000, you must alter them +yourself before you call @code{encode-time}. + +The optional argument @var{zone} defaults to the current time zone and +its daylight savings time rules. If specified, it can be either a list +(as you would get from @code{current-time-zone}), a string as in the +@code{TZ} environment variable, @code{t} for Universal Time, or an +integer (as you would get from @code{decode-time}). The specified +zone is used without any further alteration for daylight savings time. + +If you pass more than seven arguments to @code{encode-time}, the first +six are used as @var{seconds} through @var{year}, the last argument is +used as @var{zone}, and the arguments in between are ignored. This +feature makes it possible to use the elements of a list returned by +@code{decode-time} as the arguments to @code{encode-time}, like this: + +@example +(apply 'encode-time (decode-time @dots{})) +@end example + +You can perform simple date arithmetic by using out-of-range values for +the @var{seconds}, @var{minutes}, @var{hour}, @var{day}, and @var{month} +arguments; for example, day 0 means the day preceding the given month. + +The operating system puts limits on the range of possible time values; +if you try to encode a time that is out of range, an error results. +For instance, years before 1970 do not work on some systems; +on others, years as early as 1901 do work. +@end defun + +@node Time Parsing +@section Parsing and Formatting Times + + These functions convert time values (lists of two or three integers) +to text in a string, and vice versa. @defun date-to-time string This function parses the time-string @var{string} and returns the @@ -1213,81 +1295,6 @@ seconds since the epoch, to a time value and returns that. To perform the inverse conversion, use @code{float-time}. @end defun -@defun decode-time &optional time -This function converts a time value into calendrical information. If -you don't specify @var{time}, it decodes the current time. The return -value is a list of nine elements, as follows: - -@example -(@var{seconds} @var{minutes} @var{hour} @var{day} @var{month} @var{year} @var{dow} @var{dst} @var{zone}) -@end example - -Here is what the elements mean: - -@table @var -@item seconds -The number of seconds past the minute, as an integer between 0 and 59. -On some operating systems, this is 60 for leap seconds. -@item minutes -The number of minutes past the hour, as an integer between 0 and 59. -@item hour -The hour of the day, as an integer between 0 and 23. -@item day -The day of the month, as an integer between 1 and 31. -@item month -The month of the year, as an integer between 1 and 12. -@item year -The year, an integer typically greater than 1900. -@item dow -The day of week, as an integer between 0 and 6, where 0 stands for -Sunday. -@item dst -@code{t} if daylight savings time is effect, otherwise @code{nil}. -@item zone -An integer indicating the time zone, as the number of seconds east of -Greenwich. -@end table - -@strong{Common Lisp Note:} Common Lisp has different meanings for -@var{dow} and @var{zone}. -@end defun - -@defun encode-time seconds minutes hour day month year &optional zone -This function is the inverse of @code{decode-time}. It converts seven -items of calendrical data into a time value. For the meanings of the -arguments, see the table above under @code{decode-time}. - -Year numbers less than 100 are not treated specially. If you want them -to stand for years above 1900, or years above 2000, you must alter them -yourself before you call @code{encode-time}. - -The optional argument @var{zone} defaults to the current time zone and -its daylight savings time rules. If specified, it can be either a list -(as you would get from @code{current-time-zone}), a string as in the -@code{TZ} environment variable, @code{t} for Universal Time, or an -integer (as you would get from @code{decode-time}). The specified -zone is used without any further alteration for daylight savings time. - -If you pass more than seven arguments to @code{encode-time}, the first -six are used as @var{seconds} through @var{year}, the last argument is -used as @var{zone}, and the arguments in between are ignored. This -feature makes it possible to use the elements of a list returned by -@code{decode-time} as the arguments to @code{encode-time}, like this: - -@example -(apply 'encode-time (decode-time @dots{})) -@end example - -You can perform simple date arithmetic by using out-of-range values for -the @var{seconds}, @var{minutes}, @var{hour}, @var{day}, and @var{month} -arguments; for example, day 0 means the day preceding the given month. - -The operating system puts limits on the range of possible time values; -if you try to encode a time that is out of range, an error results. -For instance, years before 1970 do not work on some systems; -on others, years as early as 1901 do work. -@end defun - @node Processor Run Time @section Processor Run time diff --git a/lispref/positions.texi b/lispref/positions.texi index 3c1e642e6b4..cb249f526f1 100644 --- a/lispref/positions.texi +++ b/lispref/positions.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2000, 2001 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2000, 2001, +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/positions @node Positions, Markers, Frames, Top @@ -636,7 +636,7 @@ the end of the accessible portion of the buffer, and pass @var{line} and When you use @code{compute-motion} for the minibuffer, you need to use @code{minibuffer-prompt-width} to get the horizontal position of the -beginning of the first screen line. @xref{Minibuffer Misc}. +beginning of the first screen line. @xref{Minibuffer Contents}. @end defun @node List Motion diff --git a/lispref/processes.texi b/lispref/processes.texi index dddb08bc46b..afdeaa1d2a0 100644 --- a/lispref/processes.texi +++ b/lispref/processes.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2005 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/processes @node Processes, Display, Abbrevs, Top @@ -52,6 +52,7 @@ This function returns @code{t} if @var{object} is a process, * Datagrams:: UDP network connections. * Low-Level Network:: Lower-level but more general function to create connections and servers. +* Misc Network:: Additional relevant functions for network connections. * Byte Packing:: Using bindat to pack and unpack binary data. @end menu @@ -1716,6 +1717,20 @@ sets its remote peer address to @var{address}. @node Low-Level Network @section Low-Level Network Access + You can also create network connections by operating at a lower +level that that of @code{open-network-stream}, using +@code{make-network-process}. + +@menu +* Make Network:: Using @code{make-network-process}. +* Network Options:: Further control over network connections. +* Network Feature Testing:: Determining which network features work on + the machine you are using. +@end menu + +@node Make Network +@subsection @code{make-network-process} + The basic function for creating network connections and network servers is @code{make-network-process}. It can do either of those jobs, depending on the arguments you give it. @@ -1852,14 +1867,21 @@ happened. Initialize the process plist to @var{plist}. @end table -The following network options can be specified for the network -process. Except for @code{:reuseaddr}, you can set or modify these -options later using @code{set-network-process-option}. +The original argument list, modified with the actual connection +information, is available via the @code{process-contact} function. +@end defun + +@node Network Options +@subsection Network Options -For a server process, the options specified with + The following network options can be specified when you create a +network process. Except for @code{:reuseaddr}, you can also set or +modify these options later, using @code{set-network-process-option}. + + For a server process, the options specified with @code{make-network-process} are not inherited by the client connections, so you will need to set the necessary options for each -child connection as they are created. +child connection as it is created. @table @asis @item :bindtodevice @var{device-name} @@ -1914,13 +1936,8 @@ listening on that port. If @var{reuseaddr-flag} is @code{nil}, there may be a period of time after the last use of that port (by any process on the host), where it is not possible to make a new server on that port. - @end table -The original argument list, modified with the actual connection -information, is available via the @code{process-contact} function. -@end defun - @defun set-network-process-option process option value This function sets or modifies a network option for network process @var{process}. See @code{make-network-process} for details of options @@ -1930,44 +1947,8 @@ The current setting of an option is available via the @code{process-contact} function. @end defun -@defun network-interface-list -This function returns a list describing the network interfaces -of the machine you are using. The value is an alist whose -elements have the form @code{(@var{name} . @var{address})}. -@var{address} has the same form as the @var{local-address} -and @var{remote-address} arguments to @code{make-network-process}. -@end defun - -@defun network-interface-info ifname -This function returns information about the network interface named -@var{ifname}. The value is a list of the form -@code{(@var{addr} @var{bcast} @var{netmask} @var{hwaddr} @var{flags})}. - -@table @var -@item addr -The internet protocol address. -@item bcast -The broadcast address. -@item netmask -The network mask. -@item hwaddr -The layer 2 address (Ethernet MAC address, for instance). -@item flags -The current flags of the interface. -@end table -@end defun - -@defun format-network-address address &optional omit-port -This function converts the Lisp representation of a network address to -a string. For example, a five-element vector @code{[@var{a} @var{b} -@var{c} @var{d} @var{p}]} represents an IP address -@var{a}.@var{b}.@var{c}.@var{d} and port number @var{p}. -@code{format-network-address} converts that to the string -@code{"@var{a}.@var{b}.@var{c}.@var{d}:@var{p}"}. - -If @var{omit-port} is non-@code{nil}, the value does not include -the port number. -@end defun +@node Network Feature Testing +@subsection Testing Availability of Network Features To test for the availability of a given network feature, use @code{featurep} like this: @@ -2002,8 +1983,8 @@ Non-@code{nil} if the system can select the port for a server. (featurep 'make-network-process '@var{keyword}) @end example -Here are some of the option @var{keyword}s you can test in -this way. +@noindent +Here are some of the options you can test in this way. @table @code @item :bindtodevice @@ -2018,6 +1999,51 @@ That particular network option is supported by @code{make-network-process} and @code{set-network-process-option}. @end table +@node Misc Network +@section Misc Network Facilities + + These additional functions are useful for creating and operating +on network connections. + +@defun network-interface-list +This function returns a list describing the network interfaces +of the machine you are using. The value is an alist whose +elements have the form @code{(@var{name} . @var{address})}. +@var{address} has the same form as the @var{local-address} +and @var{remote-address} arguments to @code{make-network-process}. +@end defun + +@defun network-interface-info ifname +This function returns information about the network interface named +@var{ifname}. The value is a list of the form +@code{(@var{addr} @var{bcast} @var{netmask} @var{hwaddr} @var{flags})}. + +@table @var +@item addr +The internet protocol address. +@item bcast +The broadcast address. +@item netmask +The network mask. +@item hwaddr +The layer 2 address (Ethernet MAC address, for instance). +@item flags +The current flags of the interface. +@end table +@end defun + +@defun format-network-address address &optional omit-port +This function converts the Lisp representation of a network address to +a string. For example, a five-element vector @code{[@var{a} @var{b} +@var{c} @var{d} @var{p}]} represents an IP address +@var{a}.@var{b}.@var{c}.@var{d} and port number @var{p}. +@code{format-network-address} converts that to the string +@code{"@var{a}.@var{b}.@var{c}.@var{d}:@var{p}"}. + +If @var{omit-port} is non-@code{nil}, the value does not include +the port number. +@end defun + @node Byte Packing @section Packing and Unpacking Byte Arrays diff --git a/lispref/searching.texi b/lispref/searching.texi index cfb5a87d8ec..e702469a14b 100644 --- a/lispref/searching.texi +++ b/lispref/searching.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/searching @node Searching and Matching, Syntax Tables, Non-ASCII Characters, Top @@ -167,6 +167,16 @@ denotes a (possibly infinite) set of strings. Searching for matches for a regexp is a very powerful operation. This section explains how to write regexps; the following section says how to search for them. +@findex re-builder +@cindex authoring regular expressions + For convenient interactive development of regular expressions, you +can use the @kbd{M-x re-builder} command. It provides a convenient +interface for creating regular expressions, by giving immediate visual +feedback in a separate buffer. As you edit the regexp, all its +matches in the target buffer are highlighted. Each parenthesized +sub-expression of the regexp is shown in a distinct face, which makes +it easier to verify even very complex regexps. + @menu * Syntax of Regexps:: Rules for writing regular expressions. * Regexp Example:: Illustrates regular expression syntax. @@ -1137,6 +1147,25 @@ A positive number means to include that many lines both before and after. @section Search and Replace @cindex replacement +@defun replace-regexp-in-string regexp rep string &optional fixedcase literal subexp start +This function copies @var{string} and searches it for matches for +@var{regexp}, and replaces them with @var{rep}. It returns the +modified copy. If @var{start} is non-@code{nil}, the search for +matches starts at that index in @var{string}, so matches starting +before that index are not changed. + +This function uses @code{replace-match} to do the replacement, and it +passes the optional arguments @var{fixedcase}, @var{literal} and +@var{subexp} along to @code{replace-match}. + +Instead of a string, @var{rep} can be a function. In that case, +@code{replace-regexp-in-string} calls @var{rep} for each match, +passing the text of the match as its sole argument. It collects the +value @var{rep} returns and passes that to @code{replace-match} as the +replacement string. The match-data at this point are the result +of matching @var{regexp} against a substring of @var{string}. +@end defun + @defun perform-replace from-string replacements query-flag regexp-flag delimited-flag &optional repeat-count map start end This function is the guts of @code{query-replace} and related commands. It searches for occurrences of @var{from-string} in the diff --git a/lispref/sequences.texi b/lispref/sequences.texi index 61387fe1e0c..eade483bda3 100644 --- a/lispref/sequences.texi +++ b/lispref/sequences.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/sequences @node Sequences Arrays Vectors, Hash Tables, Lists, Top diff --git a/lispref/streams.texi b/lispref/streams.texi index 09f8695cd25..b5a18e27d01 100644 --- a/lispref/streams.texi +++ b/lispref/streams.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1998, 1999 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1998, 1999, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/streams @node Read and Print, Minibuffers, Debugging, Top diff --git a/lispref/strings.texi b/lispref/strings.texi index d0504684f82..18c516041d6 100644 --- a/lispref/strings.texi +++ b/lispref/strings.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2003 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/strings @node Strings and Characters, Lists, Numbers, Top diff --git a/lispref/symbols.texi b/lispref/symbols.texi index 9f59ad1f02d..9e4b482cfa0 100644 --- a/lispref/symbols.texi +++ b/lispref/symbols.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2003 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/symbols @node Symbols, Evaluation, Hash Tables, Top diff --git a/lispref/syntax.texi b/lispref/syntax.texi index e582b52a2c8..5cde2badabd 100644 --- a/lispref/syntax.texi +++ b/lispref/syntax.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2004, 2005 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/syntax @node Syntax Tables, Abbrevs, Searching and Matching, Top diff --git a/lispref/text.texi b/lispref/text.texi index 5b9b4259a1c..59259415cc0 100644 --- a/lispref/text.texi +++ b/lispref/text.texi @@ -1,8 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, -@c 2000, 2001, 2004, 2005 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2000, 2001, +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/text @node Text, Non-ASCII Characters, Markers, Top diff --git a/lispref/tindex.pl b/lispref/tindex.pl index f3372bf21ee..68931bc9ed6 100755 --- a/lispref/tindex.pl +++ b/lispref/tindex.pl @@ -1,6 +1,6 @@ #! /usr/bin/perl -# Copyright (C) 2000 Free Software Foundation, Inc. +# Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/lispref/tips.texi b/lispref/tips.texi index 6e309155876..46eb887dce8 100644 --- a/lispref/tips.texi +++ b/lispref/tips.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1995, 1998, 1999 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/tips @node Tips, GNU Emacs Internals, GPL, Top @@ -23,7 +23,10 @@ all. @menu * Coding Conventions:: Conventions for clean and robust programs. +* Key Binding Conventions:: Which keys should be bound by which programs. +* Programming Tips:: Making Emacs code fit smoothly in Emacs. * Compilation Tips:: Making compiled code run fast. +* Warning Tips:: Turning off compiler warnings. * Documentation Tips:: Writing readable documentation strings. * Comment Tips:: Conventions for writing comments. * Library Headers:: Standard headers for library packages. @@ -68,7 +71,7 @@ in your program. Call it @code{mylib-twiddle-files} in your program, and send mail to @samp{bug-gnu-emacs@@gnu.org} suggesting we add it to Emacs. If and when we do, we can change the name easily enough. -If one prefix is insufficient, your package may use two or three +If one prefix is insufficient, your package can use two or three alternative common prefixes, so long as they make sense. Separate the prefix from the rest of the symbol name with a hyphen, @@ -76,12 +79,10 @@ Separate the prefix from the rest of the symbol name with a hyphen, Lisp programs. @item -It is often useful to put a call to @code{provide} in each separate -library program, at least if there is more than one entry point to the -program. +Put a call to @code{provide} at the end of each separate Lisp file. @item -If a file requires certain other library programs to be loaded +If a file requires certain other Lisp programs to be loaded beforehand, then the comments at the beginning of the file should say so. Also, use @code{require} to make sure they are loaded. @@ -138,6 +139,118 @@ to store a list of functions (i.e., the variable is a hook), please follow the naming conventions for hooks. @xref{Hooks}. @item +@cindex unloading packages +If loading the file adds functions to hooks, define a function +@code{@var{feature}-unload-hook}, where @var{feature} is the name of +the feature the package provides, and make it undo any such changes. +Using @code{unload-feature} to unload the file will run this function. +@xref{Unloading}. + +@item +It is a bad idea to define aliases for the Emacs primitives. Normally +you should use the standard names instead. The case where an alias +may be useful is where it facilitates backwards compatibility or +portability. + +@item +If a package needs to define an alias or a new function for +compatibility with some other version of Emacs, name it with the package +prefix, not with the raw name with which it occurs in the other version. +Here is an example from Gnus, which provides many examples of such +compatibility issues. + +@example +(defalias 'gnus-point-at-bol + (if (fboundp 'point-at-bol) + 'point-at-bol + 'line-beginning-position)) +@end example + +@item +Redefining (or advising) an Emacs primitive is discouraged. It may do +the right thing for a particular program, but there is no telling what +other programs might break as a result. + +@item +If a file does replace any of the functions or library programs of +standard Emacs, prominent comments at the beginning of the file should +say which functions are replaced, and how the behavior of the +replacements differs from that of the originals. + +@item +Avoid using macros that define functions and variables with names that +are constructed. It is best for maintenance when the name of the +function or variable being defined is given explicitly in the source +code, as the second element of the list---as it is when you use +@code{defun}, @code{defalias}, @code{defvar} and @code{defcustom}. + +@item +Please keep the names of your Emacs Lisp source files to 13 characters +or less. This way, if the files are compiled, the compiled files' names +will be 14 characters or less, which is short enough to fit on all kinds +of Unix systems. + +@item +In some other systems there is a convention of choosing variable names +that begin and end with @samp{*}. We don't use that convention in Emacs +Lisp, so please don't use it in your programs. (Emacs uses such names +only for special-purpose buffers.) The users will find Emacs more +coherent if all libraries use the same conventions. + +@item +Indent each function with @kbd{C-M-q} (@code{indent-sexp}) using the +default indentation parameters. + +@item +Don't make a habit of putting close-parentheses on lines by themselves; +Lisp programmers find this disconcerting. Once in a while, when there +is a sequence of many consecutive close-parentheses, it may make sense +to split the sequence in one or two significant places. + +@item +Please put a copyright notice and copying permission notice on the +file if you distribute copies. Use a notice like this one: + +@smallexample +;; Copyright (C) @var{year} @var{name} + +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation; either version 2 of +;; the License, or (at your option) any later version. + +;; This program is distributed in the hope that it will be +;; useful, but WITHOUT ANY WARRANTY; without even the implied +;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR +;; PURPOSE. See the GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public +;; License along with this program; if not, write to the Free +;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, +;; MA 02110-1301 USA +@end smallexample + +If you have signed papers to assign the copyright to the Foundation, +then use @samp{Free Software Foundation, Inc.} as @var{name}. +Otherwise, use your name. See also @xref{Library Headers}. +@end itemize + +@node Key Binding Conventions +@section Key Binding Conventions + +@itemize @bullet +@item +@cindex mouse-2 +@cindex references, following +Special major modes used for read-only text should usually redefine +@kbd{mouse-2} and @key{RET} to trace some sort of reference in the text. +Modes such as Dired, Info, Compilation, and Occur redefine it in this +way. + +In addition, they should mark the text as a kind of ``link'' so that +@kbd{mouse-1} will follow it also. @xref{Links and Mouse-1}. + +@item @cindex reserved keys @cindex keys, reserved Please do not define @kbd{C-c @var{letter}} as a key in Lisp programs. @@ -199,67 +312,15 @@ is potentially meaningful, then you must not define @kbd{@key{ESC} after @key{ESC}. In these states, you should define @kbd{@key{ESC} @key{ESC} @key{ESC}} as the way to escape. Otherwise, define @kbd{@key{ESC} @key{ESC}} instead. +@end itemize -@item -@cindex mouse-2 -@cindex references, following -Special major modes used for read-only text should usually redefine -@kbd{mouse-2} and @key{RET} to trace some sort of reference in the text. -Modes such as Dired, Info, Compilation, and Occur redefine it in this -way. - -In addition, they should mark the text as a kind of ``link'' so that -@kbd{mouse-1} will follow it also. @xref{Links and Mouse-1}. - -@cindex unloading packages -If loading the file adds functions to hooks, define a function -@code{@var{feature}-unload-hook}, where @var{feature} is the name of -the feature the package provides, and make it undo any such changes. -Using @code{unload-feature} to unload the file will run this function. -@xref{Unloading}. - -@item -It is a bad idea to define aliases for the Emacs primitives. Use the -standard names instead. - -@item -If a package needs to define an alias or a new function for -compatibility with some other version of Emacs, name it with the package -prefix, not with the raw name with which it occurs in the other version. -Here is an example from Gnus, which provides many examples of such -compatibility issues. - -@example -(defalias 'gnus-point-at-bol - (if (fboundp 'point-at-bol) - 'point-at-bol - 'line-beginning-position)) -@end example - -@item -Redefining (or advising) an Emacs primitive is discouraged. It may do -the right thing for a particular program, but there is no telling what -other programs might break as a result. - -@item -If a file does replace any of the functions or library programs of -standard Emacs, prominent comments at the beginning of the file should -say which functions are replaced, and how the behavior of the -replacements differs from that of the originals. - -@item -Avoid using macros that define functions and variables with names that -are constructed. It is best for maintenance when the name of the -function or variable being defined is given explicitly in the source -code, as the second element of the list---as it is when you use -@code{defun}, @code{defalias}, @code{defvar} and @code{defcustom}. +@node Programming Tips +@section Emacs Programming Tips -@item -Please keep the names of your Emacs Lisp source files to 13 characters -or less. This way, if the files are compiled, the compiled files' names -will be 14 characters or less, which is short enough to fit on all kinds -of Unix systems. + Following these conventions will make your program fit better +into Emacs when it runs. +@itemize @bullet @item Don't use @code{next-line} or @code{previous-line} in programs; nearly always, @code{forward-line} is more convenient as well as more @@ -278,11 +339,14 @@ In particular, don't use any of these functions: @code{beginning-of-buffer}, @code{end-of-buffer} @item @code{replace-string}, @code{replace-regexp} +@item +@code{insert-file}, @code{insert-buffer} @end itemize -If you just want to move point, or replace a certain string, without any -of the other features intended for interactive users, you can replace -these functions with one or two lines of simple Lisp code. +If you just want to move point, or replace a certain string, or insert +a file or buffer's contents, without any of the other features +intended for interactive users, you can replace these functions with +one or two lines of simple Lisp code. @item Use lists rather than vectors, except when there is a particular reason @@ -294,7 +358,7 @@ accessed in random order (not searched front to back), provided there is no need to insert or delete elements (only lists allow that). @item -The recommended way to print a message in the echo area is with +The recommended way to show a message in the echo area is with the @code{message} function, not @code{princ}. @xref{The Echo Area}. @item @@ -358,80 +422,6 @@ command does: use a new local keymap that contains one command defined to switch back to the old local keymap. Or do what the @code{edit-options} command does: switch to another buffer and let the user switch back at will. @xref{Recursive Editing}. - -@item -In some other systems there is a convention of choosing variable names -that begin and end with @samp{*}. We don't use that convention in Emacs -Lisp, so please don't use it in your programs. (Emacs uses such names -only for special-purpose buffers.) The users will find Emacs more -coherent if all libraries use the same conventions. - -@item -Try to avoid compiler warnings about undefined free variables, by adding -dummy @code{defvar} definitions for these variables, like this: - -@example -(defvar foo) -@end example - -Such a definition has no effect except to tell the compiler -not to warn about uses of the variable @code{foo} in this file. - -@item -If you use many functions and variables from a certain file, you can -add a @code{require} for that package to avoid compilation warnings -for them. For instance, - -@example -(eval-when-compile - (require 'foo)) -@end example - -@item -If you bind a variable in one function, and use it or set it in -another function, the compiler warns about the latter function unless -the variable has a definition. But adding a definition would be -unclean if the variable has a short name, since Lisp packages should -not define short variable names. The right thing to do is to rename -this variable to start with the name prefix used for the other -functions and variables in your package. - -@item -Indent each function with @kbd{C-M-q} (@code{indent-sexp}) using the -default indentation parameters. - -@item -Don't make a habit of putting close-parentheses on lines by themselves; -Lisp programmers find this disconcerting. Once in a while, when there -is a sequence of many consecutive close-parentheses, it may make sense -to split the sequence in one or two significant places. - -@item -Please put a copyright notice on the file if you give copies to anyone. -Use a message like this one: - -@smallexample -;; Copyright (C) @var{year} @var{name} - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2 of -;; the License, or (at your option) any later version. - -;; This program is distributed in the hope that it will be -;; useful, but WITHOUT ANY WARRANTY; without even the implied -;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -;; PURPOSE. See the GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public -;; License along with this program; if not, write to the Free -;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, -;; MA 02110-1301 USA -@end smallexample - -If you have signed papers to assign the copyright to the Foundation, -then use @samp{Free Software Foundation, Inc.} as @var{name}. -Otherwise, use your name. See also @xref{Library Headers}. @end itemize @node Compilation Tips @@ -495,6 +485,46 @@ a noticeable speedup in something slow enough that users care about the speed. @xref{Inline Functions}. @end itemize +@node Warning Tips +@section Tips for Avoiding Compiler Warnings + +@itemize @bullet +@item +Try to avoid compiler warnings about undefined free variables, by adding +dummy @code{defvar} definitions for these variables, like this: + +@example +(defvar foo) +@end example + +Such a definition has no effect except to tell the compiler +not to warn about uses of the variable @code{foo} in this file. + +@item +If you use many functions and variables from a certain file, you can +add a @code{require} for that package to avoid compilation warnings +for them. For instance, + +@example +(eval-when-compile + (require 'foo)) +@end example + +@item +If you bind a variable in one function, and use it or set it in +another function, the compiler warns about the latter function unless +the variable has a definition. But adding a definition would be +unclean if the variable has a short name, since Lisp packages should +not define short variable names. The right thing to do is to rename +this variable to start with the name prefix used for the other +functions and variables in your package. + +@item +The last resort for avoiding a warning, when you want to do something +that usually is a mistake but it's not a mistake in this one case, +is to put a call to @code{with-no-warnings} around it. +@end itemize + @node Documentation Tips @section Tips for Documentation Strings diff --git a/lispref/variables.texi b/lispref/variables.texi index 38fb929c16d..1f26b56db8f 100644 --- a/lispref/variables.texi +++ b/lispref/variables.texi @@ -1,8 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, -@c 2000, 2003, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2000, 2002, +@c 2003, 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/variables @node Variables, Functions, Control Structures, Top diff --git a/lispref/vol1.texi b/lispref/vol1.texi index f772fc58be5..e0a1f02df8d 100644 --- a/lispref/vol1.texi +++ b/lispref/vol1.texi @@ -2,8 +2,8 @@ This file is obsolete, and no longer part of the Emacs Lisp Reference Manual. It is still present in CVS in case we ever want to use some of it again. @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. \input texinfo @c -*-texinfo-*- diff --git a/lispref/vol2.texi b/lispref/vol2.texi index a4c6d4ae795..40ec8c4904f 100644 --- a/lispref/vol2.texi +++ b/lispref/vol2.texi @@ -2,8 +2,8 @@ This file is obsolete, and no longer part of the Emacs Lisp Reference Manual. It is still present in CVS in case we ever want to use some of it again. @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. diff --git a/lispref/windows.texi b/lispref/windows.texi index ec372d98aa8..e204a7ce7d0 100644 --- a/lispref/windows.texi +++ b/lispref/windows.texi @@ -1,7 +1,7 @@ @c -*-texinfo-*- @c This is part of the GNU Emacs Lisp Reference Manual. -@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See the file elisp.texi for copying conditions. @setfilename ../info/windows @node Windows, Frames, Buffers, Top @@ -267,7 +267,7 @@ Now the screen looks like this: @end smallexample Normally, Emacs indicates the border between two side-by-side windows -with a scroll bar (@pxref{Window Frame Parameters,Scroll Bars}) or @samp{|} +with a scroll bar (@pxref{Layout Parameters,Scroll Bars}) or @samp{|} characters. The display table can specify alternative border characters; see @ref{Display Tables}. @end deffn diff --git a/lwlib/lwlib-Xlw.c b/lwlib/lwlib-Xlw.c index e5d9ebbd0f3..40091e7b69b 100644 --- a/lwlib/lwlib-Xlw.c +++ b/lwlib/lwlib-Xlw.c @@ -1,6 +1,7 @@ /* The lwlib interface to "xlwmenu" menus. Copyright (C) 1992 Lucid, Inc. - Copyright (C) 1994, 2000, 2001 Free Software Foundation, Inc. + Copyright (C) 1994, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of the Lucid Widget Library. diff --git a/lwlib/lwlib-Xm.c b/lwlib/lwlib-Xm.c index 27118d8ab92..32abbca7601 100644 --- a/lwlib/lwlib-Xm.c +++ b/lwlib/lwlib-Xm.c @@ -1,6 +1,6 @@ /* The lwlib interface to Motif widgets. - Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2003, 2004, 2005 - Free Software Foundation, Inc. + Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. Copyright (C) 1992 Lucid, Inc. This file is part of the Lucid Widget Library. diff --git a/lwlib/lwlib-Xm.h b/lwlib/lwlib-Xm.h index c5a1fbe9155..d6069fad2d8 100644 --- a/lwlib/lwlib-Xm.h +++ b/lwlib/lwlib-Xm.h @@ -1,5 +1,6 @@ /* The lwlib interface to Motif widgets. - Copyright (C) 1994, 2000 Free Software Foundation, Inc. + Copyright (C) 1994, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Copyright (C) 1992 Lucid, Inc. This file is part of the Lucid Widget Library. diff --git a/lwlib/xlwmenu.c b/lwlib/xlwmenu.c index 09d11c8b683..f1ee1b68e9b 100644 --- a/lwlib/xlwmenu.c +++ b/lwlib/xlwmenu.c @@ -1,6 +1,6 @@ /* Implements a lightweight menubar widget. Copyright (C) 1992 Lucid, Inc. - Copyright (C) 2002, 2005 Free Software Foundation, Inc. + Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of the Lucid Widget Library. diff --git a/lwlib/xlwmenu.h b/lwlib/xlwmenu.h index e896617a69e..93703358ccb 100644 --- a/lwlib/xlwmenu.h +++ b/lwlib/xlwmenu.h @@ -1,5 +1,5 @@ /* Interface of a lightweight menubar widget. - Copyright (C) 2000, 2002, 2004 Free Software Foundation, Inc. + Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of the Lucid Widget Library. diff --git a/lwlib/xlwmenuP.h b/lwlib/xlwmenuP.h index a25307b6ff3..ca2b7dc6a1a 100644 --- a/lwlib/xlwmenuP.h +++ b/lwlib/xlwmenuP.h @@ -1,5 +1,6 @@ /* Internals of a lightweight menubar widget. - Copyright (C) 1999, 2000, 2002, 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of the Lucid Widget Library. diff --git a/mac/ChangeLog b/mac/ChangeLog index 8715ea3319f..acc89f75bd1 100644 --- a/mac/ChangeLog +++ b/mac/ChangeLog @@ -764,7 +764,7 @@ ;; coding: iso-2022-7bit-unix ;; End: - Copyright (C) 2001 Free Software Foundation, Inc. + Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted provided the copyright notice and this notice are preserved. diff --git a/mac/INSTALL b/mac/INSTALL index 9dcf1324f7d..c8af7e5f484 100644 --- a/mac/INSTALL +++ b/mac/INSTALL @@ -1,6 +1,6 @@ * BUILDING EMACS ON MAC OS 8/9 AND MAC OS X -*- outline -*- -Copyright (c) 2001, 2002, 2004 Free Software Foundation, Inc. +Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document as received, in any medium, provided that diff --git a/mac/README b/mac/README index 6a352e04af6..18e0942b365 100644 --- a/mac/README +++ b/mac/README @@ -1,6 +1,6 @@ Emacs for Mac OS 8/9 and Mac OS X -Copyright (c) 2001-4 Free Software Foundation, Inc. +Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Permission is granted to anyone to make or distribute verbatim copies of this document as received, in any medium, provided that diff --git a/mac/cw6-mcp.xml b/mac/cw6-mcp.xml index 4d3ae5a8c22..54bfc4be7e9 100644 --- a/mac/cw6-mcp.xml +++ b/mac/cw6-mcp.xml @@ -1,5 +1,5 @@ <!-- -Copyright (C) 2001 Free Software Foundation, Inc. +Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/alloca.h b/mac/inc/alloca.h index d8494e17b66..216af944738 100644 --- a/mac/inc/alloca.h +++ b/mac/inc/alloca.h @@ -1,4 +1,4 @@ -/* Copyright (C) 2001 Free Software Foundation, Inc. +/* Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/config.h b/mac/inc/config.h index 6cd2f52bbba..2bac002cc7c 100644 --- a/mac/inc/config.h +++ b/mac/inc/config.h @@ -1,7 +1,8 @@ /* Handcrafted Emacs site configuration file for Mac OS 9. -*- C -*- */ /* GNU Emacs site configuration template file. -*- C -*- - Copyright (C) 1988, 1993, 1994, 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1988, 1993, 1994, 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/defs-cw6.h b/mac/inc/defs-cw6.h index e7b56444af1..5073d8059a7 100644 --- a/mac/inc/defs-cw6.h +++ b/mac/inc/defs-cw6.h @@ -1,4 +1,4 @@ -/* Copyright (C) 2001 Free Software Foundation, Inc. +/* Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/dirent.h b/mac/inc/dirent.h index c29e2a743f3..17bbb60b8f4 100644 --- a/mac/inc/dirent.h +++ b/mac/inc/dirent.h @@ -1,5 +1,6 @@ /* Replacement dirent.h file for building GNU Emacs on the Macintosh. - Copyright (C) 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/epaths.h b/mac/inc/epaths.h index dc9b8ed495f..c65f8589c6e 100644 --- a/mac/inc/epaths.h +++ b/mac/inc/epaths.h @@ -1,7 +1,8 @@ /* Hey Emacs, this is -*- C -*- code! */ /* Handcrafted epaths.h file for building GNU Emacs on the Macintosh. - Copyright (C) 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/grp.h b/mac/inc/grp.h index c9db51282c0..058bc657016 100755 --- a/mac/inc/grp.h +++ b/mac/inc/grp.h @@ -1,5 +1,5 @@ /* Replacement grp.h file for building GNU Emacs on the Macintosh. - Copyright (C) 2003 Free Software Foundation, Inc. + Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/m-mac.h b/mac/inc/m-mac.h index 37ce77cea30..5e1f7db8112 100644 --- a/mac/inc/m-mac.h +++ b/mac/inc/m-mac.h @@ -1,5 +1,6 @@ /* Handcrafted m-mac.h file for building GNU Emacs on the Macintosh. - Copyright (C) 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/pwd.h b/mac/inc/pwd.h index ee77176e2af..df452f30d97 100644 --- a/mac/inc/pwd.h +++ b/mac/inc/pwd.h @@ -1,5 +1,6 @@ /* Replacement pwd.h file for building GNU Emacs on the Macintosh. - Copyright (C) 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/s-mac.h b/mac/inc/s-mac.h index ab8dbcdad89..d0f00ed6c13 100644 --- a/mac/inc/s-mac.h +++ b/mac/inc/s-mac.h @@ -1,5 +1,6 @@ /* Handcrafted s-mac.h file for building GNU Emacs on Mac OS 9. - Copyright (C) 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/sys/file.h b/mac/inc/sys/file.h index 1b0a0314539..f2686a5cc13 100644 --- a/mac/inc/sys/file.h +++ b/mac/inc/sys/file.h @@ -1,5 +1,6 @@ /* Replacement sys/file.h file for building GNU Emacs on the Macintosh. - Copyright (C) 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/sys/ioctl.h b/mac/inc/sys/ioctl.h index 2682dd45438..bdf68b97357 100644 --- a/mac/inc/sys/ioctl.h +++ b/mac/inc/sys/ioctl.h @@ -1,5 +1,6 @@ /* Replacement sys/ioctl.h file for building GNU Emacs on the Macintosh. - Copyright (C) 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/sys/param.h b/mac/inc/sys/param.h index b1669947bf9..8849489f7c6 100644 --- a/mac/inc/sys/param.h +++ b/mac/inc/sys/param.h @@ -1,5 +1,6 @@ /* Replacement sys/param.h file for building GNU Emacs on the Macintosh. - Copyright (C) 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/sys/stat.h b/mac/inc/sys/stat.h index c1c9f4a7842..2b8f9bfce79 100644 --- a/mac/inc/sys/stat.h +++ b/mac/inc/sys/stat.h @@ -1,5 +1,6 @@ /* Replacement sys/stat.h file for building GNU Emacs on the Macintosh. - Copyright (C) 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/sys/time.h b/mac/inc/sys/time.h index 76b5e3acbc4..b28a87e7d32 100644 --- a/mac/inc/sys/time.h +++ b/mac/inc/sys/time.h @@ -1,5 +1,5 @@ /* Replacement sys/time.h file for building GNU Emacs on the Macintosh. - Copyright (C) 2000 Free Software Foundation, Inc. + Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/sys/types.h b/mac/inc/sys/types.h index 7055a7a5d0d..bdc4f6c5be2 100644 --- a/mac/inc/sys/types.h +++ b/mac/inc/sys/types.h @@ -1,5 +1,6 @@ /* Replacement sys/types.h file for building GNU Emacs on the Macintosh. - Copyright (C) 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/termio.h b/mac/inc/termio.h index be5b0243e2f..596d6342177 100644 --- a/mac/inc/termio.h +++ b/mac/inc/termio.h @@ -1,5 +1,6 @@ /* Replacement termio.h file for building GNU Emacs on the Macintosh. - Copyright (C) 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/utime.h b/mac/inc/utime.h index dbe9544aca1..43281d40bfa 100644 --- a/mac/inc/utime.h +++ b/mac/inc/utime.h @@ -1,5 +1,5 @@ /* Replacement utime.h file for building GNU Emacs on the Macintosh. - Copyright (C) 2000 Free Software Foundation, Inc. + Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/inc/utsname.h b/mac/inc/utsname.h index 27cfbe4dcaa..fc120b014d7 100644 --- a/mac/inc/utsname.h +++ b/mac/inc/utsname.h @@ -1,5 +1,5 @@ /* Replacement utsname.h file for building GNU Emacs on the Macintosh. - Copyright (C) 2000 Free Software Foundation, Inc. + Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/make-package b/mac/make-package index e8bf66aaaa8..bef6aa9b2de 100755 --- a/mac/make-package +++ b/mac/make-package @@ -18,7 +18,7 @@ #### files inside /usr. This will replace the default version of #### emacs included with Mac OS X. -# Copyright (C) 2002 Free Software Foundation, Inc. +# Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/mac/makefile.MPW b/mac/makefile.MPW index a216064516f..d7088f02d98 100644 --- a/mac/makefile.MPW +++ b/mac/makefile.MPW @@ -1,5 +1,6 @@ # Make file for building GNU Emacs on the Macintosh. -# Copyright (C) 1999, 2000 Free Software Foundation, Inc. +# Copyright (C) 1999, 2000, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # # Author: Andrew Choi <akochoi@users.sourceforge.net> # diff --git a/mac/src/Emacs.r b/mac/src/Emacs.r index a36249a42a2..4984704f9fc 100644 --- a/mac/src/Emacs.r +++ b/mac/src/Emacs.r @@ -1,5 +1,6 @@ /* Resource definitions for GNU Emacs on the Macintosh. - Copyright (C) 1999, 2000, 2004 Free Software Foundation, Inc. + Copyright (C) 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/src/EmacsMPW.r b/mac/src/EmacsMPW.r index 133ba1a030e..16866de9574 100644 --- a/mac/src/EmacsMPW.r +++ b/mac/src/EmacsMPW.r @@ -1,7 +1,8 @@ /* Resource definitions for GNU Emacs on the Macintosh when building under MPW. - Copyright (C) 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/mac/src/chdir.c b/mac/src/chdir.c index cf7ac5f0375..61d0b63a78e 100644 --- a/mac/src/chdir.c +++ b/mac/src/chdir.c @@ -1,5 +1,6 @@ /* Implementation of chdir on the Mac for use with make-docfile. - Copyright (C) 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/man/ChangeLog b/man/ChangeLog index f68e9bcdc8e..d9b86056304 100644 --- a/man/ChangeLog +++ b/man/ChangeLog @@ -1,3 +1,140 @@ +2005-08-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * emacs-mime.texi (time-date): Fix description of safe-date-to-time. + +2005-08-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * emacs-mime.texi (Handles): Remove duplicate item. + (Encoding Customization): Fix the default value for + mm-coding-system-priorities. + (Charset Translation): Emacs doesn't use mm-mime-mule-charset-alist. + (Basic Functions): Fix reference. + +2005-08-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * gnus.texi (Charsets): Fj hierarchy uses iso-2022-jp. + +2005-08-22 Juri Linkov <juri@jurta.org> + + * display.texi (Standard Faces): Merge the text from + `(elisp)Standard Faces' into this node. + +2005-08-18 Luc Teirlinck <teirllm@auburn.edu> + + * emacs.texi (Top): Delete menu item for deleted node + Keyboard Translations. + +2005-08-18 Richard M. Stallman <rms@gnu.org> + + * faq.texi (Obtaining the FAQ): Delete refs to Lerner's email + and web site. + + * trouble.texi (Unasked-for Search): + Delete xref to Keyboard Translations. + + * glossary.texi (Glossary): Delete xref. + + * faq.texi (Swapping keys): Xref for normal-erase-is-backspace-mode, + not keyboard-translate. + + * custom.texi (Minor Modes): Say that the list here is not complete. + (Keyboard Translations): Node deleted. + (Disabling): Delete xref to it. + (Customization Groups): Fix Custom buffer example. + (Hooks): Mention remove-hooks. + +2005-08-17 Luc Teirlinck <teirllm@auburn.edu> + + * building.texi (GDB Graphical Interface): Improve filling of menu + item. + +2005-08-18 Nick Roberts <nickrob@snap.net.nz> + + * building.texi (GDB Graphical Interface): Use better node names. + +2005-08-14 Richard M. Stallman <rms@gnu.org> + + * text.texi (Sentences): Fix xref. + +2005-08-14 Juri Linkov <juri@jurta.org> + + * building.texi (Compilation, Grep Searching): Move grep command + headings from `Compilation' to `Grep Searching'. + + * dired.texi (Dired and Find): + * maintaining.texi (Tags Search): Replace grep xref to + `Compilation' node with `Grep Searching'. + + * files.texi (Comparing Files): Replace xref to `Compilation' with + `Compilation Mode'. + +2005-08-13 Alan Mackenzie <acm@muc.de> + + * search.texi (Non-ASCII Isearch): Correct a typo. + (Replacement Commands): Mention query-replace key binding. + +2005-08-11 Richard M. Stallman <rms@gnu.org> + + * programs.texi (Options for Comments): Fix xref. + + * search.texi (Regexp Backslash, Regexp Example): New nodes split + out of Regexps. + + * faq.texi (Using regular expressions): Fix xref. + +2005-08-09 Juri Linkov <juri@jurta.org> + + * building.texi (Compilation): Use `itemx' instead of `item'. + (Grep Searching): Simplify phrase. + + * display.texi (Standard Faces): Describe vertical-border on + window systems. + + * windows.texi (Split Window): Simplify phrase and mention + vertical-border face. + +2005-08-09 Richard M. Stallman <rms@gnu.org> + + * files.texi (Comparing Files): Clarify compare-windows. + + * calendar.texi (Scroll Calendar): Document < and > in calendar. + +2005-08-09 Juri Linkov <juri@jurta.org> + + * info.texi (Help-P): Replace `Prev' with `Previous'. + (Help-M, Help-Xref): Add S-TAB. + (Help-FOO): Update `u' command. + (Help-Xref): Move info about Mouse-2 from `Help-Int'. + Update info about visibility of xref parts. + (Help-Int): Fix `m' command. Rename `Info-last' to + `Info-history-back'. Add `Info-history-forward'. + (Advanced): Fix `g*' and `M-n' commands. + (Info Search): Add `index-apropos' in stand-alone browser. + Add isearch commands. + (Emacs Info Variables): Remove `Info-fontify'. + Add `Info-mode-hook'. Update face names. + Add `Info-fontify-maximum-menu-size', + `Info-fontify-visited-nodes', `Info-isearch-search'. + +2005-08-07 Michael Albinus <michael.albinus@gmx.de> + + Sync with Tramp 2.0.50. + + * tramp.texi: Use @option{} consequently for method names. + (Inline methods, External transfer methods): Remove references to + Cygwin. + (Issues with Cygwin ssh): Explain trouble with Cygwin's ssh + implementation. + +2005-08-06 Eli Zaretskii <eliz@gnu.org> + + * mule.texi (Coding Systems): Rephrase the paragraph about + codepages: no need for "M-x codepage-setup" anymore, except on + MS-DOS. + + * msdog.texi (MS-DOS and MULE): Clarify that this section is for + the MS-DOS port only. + 2005-07-30 Eli Zaretskii <eliz@gnu.org> * makefile.w32-in (info): Don't run multi-install-info.bat. @@ -113,7 +250,6 @@ * mh-e.texi (Copying): * trouble.texi (Checklist): Update FSF's address. ->>>>>>> 1.631 2005-07-03 Richard M. Stallman <rms@gnu.org> * flymake.texi (Example -- Configuring a tool called directly): @@ -3808,8 +3944,8 @@ ;; coding: iso-2022-7bit ;; End: - Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001 - Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001, 2002, + 2003, 2004, 2005 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted provided the copyright notice and this notice are preserved. diff --git a/man/Makefile.in b/man/Makefile.in index b8da48143bf..3cc88bf7b94 100644 --- a/man/Makefile.in +++ b/man/Makefile.in @@ -1,7 +1,7 @@ #### Makefile for the Emacs Manual and other documentation. -# Copyright (C) 1994, 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004 -# Free Software Foundation, Inc. +# Copyright (C) 1994, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +# 2004, 2005 Free Software Foundation, Inc. # This file is part of GNU Emacs. diff --git a/man/abbrevs.texi b/man/abbrevs.texi index 9ecdac7044f..2272b2ba133 100644 --- a/man/abbrevs.texi +++ b/man/abbrevs.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 86, 87, 93, 94, 95, 1997 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Abbrevs, Picture, Maintaining, Top @chapter Abbrevs diff --git a/man/ack.texi b/man/ack.texi index 5d9b26be7c1..48a32072083 100644 --- a/man/ack.texi +++ b/man/ack.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1994,1995,1996,1997,1999,2000,2001 -@c Free Software Foundation, Inc. +@c Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @c @node Acknowledgments, Screen, Concept Index, Top diff --git a/man/ada-mode.texi b/man/ada-mode.texi index a74150fe75a..4a25440f991 100644 --- a/man/ada-mode.texi +++ b/man/ada-mode.texi @@ -8,7 +8,8 @@ @comment !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @copying -Copyright @copyright{} 1999, 2000, 2001, 2002 Free Software Foundation, Inc. +Copyright @copyright{} 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/anti.texi b/man/anti.texi index 896924e3ad9..ecff1f06a8c 100644 --- a/man/anti.texi +++ b/man/anti.texi @@ -1,5 +1,5 @@ @c This is part of the Emacs manual. -@c Copyright (C) 2005 Free Software Foundation, Inc. +@c Copyright (C) 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Antinews, Mac OS, X Resources, Top diff --git a/man/autotype.texi b/man/autotype.texi index 9d88443e891..f760a6f8aed 100644 --- a/man/autotype.texi +++ b/man/autotype.texi @@ -1,6 +1,7 @@ \input texinfo @c This is an annex of the Emacs manual. -@c Copyright (C) 1994, 1995, 2002 Free Software Foundation, Inc. +@c Copyright (C) 1994, 1995, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c Author: Daniel.Pfeiffer@Informatik.START.dbp.de, fax (+49 69) 7588-2389 @setfilename ../info/autotype @c @node Autotypist, Picture, Abbrevs, Top @@ -11,7 +12,8 @@ @c @cindex autotypist @copying -Copyright @copyright{} 1994, 1995, 1999 Free Software Foundation, Inc. +Copyright @copyright{} 1994, 1995, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/basic.texi b/man/basic.texi index d94e52b0112..2f5aa3162e1 100644 --- a/man/basic.texi +++ b/man/basic.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985,86,87,93,94,95,97,2000,2001 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Basic, Minibuffer, Exiting, Top @chapter Basic Editing Commands diff --git a/man/buffers.texi b/man/buffers.texi index 694c7780854..9c572ca17c4 100644 --- a/man/buffers.texi +++ b/man/buffers.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 2000, 2001, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Buffers, Windows, Files, Top @chapter Using Multiple Buffers diff --git a/man/building.texi b/man/building.texi index 69b56f467f5..30daa8def26 100644 --- a/man/building.texi +++ b/man/building.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985,86,87,93,94,95,97,2000,2001 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Building, Maintaining, Programs, Top @chapter Compiling and Testing Programs @@ -48,16 +49,8 @@ the @samp{*compilation*} buffer. @item M-x recompile Invoke a compiler with the same command as in the last invocation of @kbd{M-x compile}. -@item M-x grep -Run @code{grep} asynchronously under Emacs, with matching lines -listed in the buffer named @samp{*grep*}. -@item M-x grep-find -@item M-x find-grep -Run @code{grep} via @code{find}, with user-specified arguments, and -collect output in the buffer named @samp{*grep*}. @item M-x kill-compilation -@itemx M-x kill-grep -Kill the running compilation or @code{grep} subprocess. +Kill the running compilation subprocess. @end table @findex compile @@ -323,13 +316,25 @@ Emacs. @xref{MS-DOS}. @node Grep Searching @section Searching with Grep under Emacs -@findex grep Just as you can run a compiler from Emacs and then visit the lines -where there were compilation errors, you can also run @code{grep} and +with compilation errors, you can also run @code{grep} and then visit the lines on which matches were found. This works by treating the matches reported by @code{grep} as if they were ``errors.'' - To do this, type @kbd{M-x grep}, then enter a command line that +@table @kbd +@item M-x grep +Run @code{grep} asynchronously under Emacs, with matching lines +listed in the buffer named @samp{*grep*}. +@item M-x grep-find +@itemx M-x find-grep +Run @code{grep} via @code{find}, with user-specified arguments, and +collect output in the buffer named @samp{*grep*}. +@item M-x kill-grep +Kill the running @code{grep} subprocess. +@end table + +@findex grep + To run @code{grep}, type @kbd{M-x grep}, then enter a command line that specifies how to run @code{grep}. Use the same arguments you would give @code{grep} when running it normally: a @code{grep}-style regexp (usually in single-quotes to quote the shell's special characters) @@ -768,16 +773,16 @@ session. If you have customized @code{gud-gdb-command-name} in that way, then you can use @kbd{M-x gdba} to invoke GDB in graphical mode. @menu -* Layout:: Control the number of displayed buffers. -* Breakpoints Buffer:: A breakpoint control panel. -* Stack Buffer:: Select a frame from the call stack. -* Watch Expressions:: Monitor variable values in the speedbar. -* Other Buffers:: Input/output, locals, registers, assembler, threads - and memory buffers. +* GDB User Interface Layout:: Control the number of displayed buffers. +* Breakpoints Buffer:: A breakpoint control panel. +* Stack Buffer:: Select a frame from the call stack. +* Watch Expressions:: Monitor variable values in the speedbar. +* Other GDB User Interface Buffers:: Input/output, locals, registers, + assembler, threads and memory buffers. @end menu -@node Layout -@subsubsection Layout +@node GDB User Interface Layout +@subsubsection GDB User Interface Layout @cindex GDB User Interface layout @findex gdb-many-windows @@ -912,7 +917,7 @@ FUNCTION::VARIABLE format to display variables in the speedbar. Since this does not work for variables defined in compound statements, the default value is @code{nil}. -@node Other Buffers +@node Other GDB User Interface Buffers @subsubsection Other Buffers @table @asis diff --git a/man/calc.texi b/man/calc.texi index 3ceb0c3ebff..a4e66de1a3d 100644 --- a/man/calc.texi +++ b/man/calc.texi @@ -83,7 +83,8 @@ @copying This file documents Calc, the GNU Emacs calculator. -Copyright (C) 1990, 1991, 2001, 2002, 2005 Free Software Foundation, Inc. +Copyright (C) 1990, 1991, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document @@ -118,8 +119,8 @@ Software Foundation raise funds for GNU development.'' @page @vskip 0pt plus 1filll -Copyright @copyright{} 1990, 1991, 2001, 2002, 2005 -Free Software Foundation, Inc. +Copyright @copyright{} 1990, 1991, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @insertcopying @end titlepage diff --git a/man/calendar.texi b/man/calendar.texi index 293905ca544..e5ddaa28e1b 100644 --- a/man/calendar.texi +++ b/man/calendar.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. @c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, -@c 2005 Free Software Foundation, Inc. +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Calendar/Diary, Gnus, Dired, Top @chapter The Calendar and the Diary @@ -235,9 +235,9 @@ the months on it. Scrolling the calendar means moving the strip horizontally, so that new months become visible in the window. @table @kbd -@item C-x < +@item < Scroll calendar one month forward (@code{scroll-calendar-left}). -@item C-x > +@item > Scroll calendar one month backward (@code{scroll-calendar-right}). @item C-v @itemx @key{NEXT} @@ -249,15 +249,15 @@ Scroll calendar three months backward (@code{scroll-calendar-right-three-months}). @end table -@kindex C-x < @r{(Calendar mode)} +@kindex < @r{(Calendar mode)} @findex scroll-calendar-left -@kindex C-x > @r{(Calendar mode)} +@kindex > @r{(Calendar mode)} @findex scroll-calendar-right The most basic calendar scroll commands scroll by one month at a time. This means that there are two months of overlap between the -display before the command and the display after. @kbd{C-x <} scrolls +display before the command and the display after. @kbd{<} scrolls the calendar contents one month to the left; that is, it moves the -display forward in time. @kbd{C-x >} scrolls the contents to the +display forward in time. @kbd{>} scrolls the contents to the right, which moves backwards in time. @kindex C-v @r{(Calendar mode)} diff --git a/man/cc-mode.texi b/man/cc-mode.texi index b9113088d44..5f9164dbf34 100644 --- a/man/cc-mode.texi +++ b/man/cc-mode.texi @@ -67,7 +67,7 @@ This manual is for CC Mode in Emacs. Copyright @copyright{} 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, -2003 Free Software Foundation, Inc. + 2003, 2004, 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/cl.texi b/man/cl.texi index b99322b1e23..8fc54ed02d8 100644 --- a/man/cl.texi +++ b/man/cl.texi @@ -5,7 +5,7 @@ @copying This file documents the GNU Emacs Common Lisp emulation package. -Copyright (C) 1993, 2002, 2005 Free Software Foundation, Inc. +Copyright (C) 1993, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/cmdargs.texi b/man/cmdargs.texi index 2dbdb5c5887..dad7e61dbf2 100644 --- a/man/cmdargs.texi +++ b/man/cmdargs.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 86, 87, 93, 94, 95, 97, -@c 2001, 03, 04, 2005 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2001, 2002, +@c 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Emacs Invocation, X Resources, GNU Free Documentation License, Top @appendix Command Line Arguments for Emacs Invocation diff --git a/man/commands.texi b/man/commands.texi index e0208473419..facc3d6f3a9 100644 --- a/man/commands.texi +++ b/man/commands.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 86, 87, 93, 94, 95, 1997 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @iftex @chapter Characters, Keys and Commands diff --git a/man/custom.texi b/man/custom.texi index 38e885cefc7..d531d92eb0f 100644 --- a/man/custom.texi +++ b/man/custom.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985,86,87,93,94,95,97,2000,2001,2002,2004,2005 -@c Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Customization, Quitting, Amusements, Top @chapter Customization @@ -33,9 +33,6 @@ replay sequences of keys. you can control their functioning. * Key Bindings:: The keymaps say what command each key runs. By changing them, you can "redefine keys". -* Keyboard Translations:: If your keyboard passes an undesired code - for a key, you can tell Emacs to - substitute another code. * Syntax:: The syntax table controls how words and expressions are parsed. * Init File:: How to write common customizations in the @@ -78,16 +75,16 @@ directly turns Outline minor mode on and off. To check whether a given minor mode works this way, use @kbd{C-h v} to ask for documentation on the variable name. - These minor-mode variables provide a good way for Lisp programs to turn -minor modes on and off; they are also useful in a file's local variables -list. But please think twice before setting minor modes with a local -variables list, because most minor modes are a matter of user -preference---other users editing the same file might not want the same -minor modes you prefer. + These minor-mode variables provide a good way for Lisp programs to +turn minor modes on and off; they are also useful in a file's local +variables list (@pxref{File Variables}). But please think twice +before setting minor modes with a local variables list, because most +minor modes are a matter of user preference---other users editing the +same file might not want the same minor modes you prefer. - The buffer-local minor modes include Abbrev mode, Auto Fill mode, -Auto Save mode, Font-Lock mode, Glasses mode, ISO Accents mode, -Outline minor mode, Overwrite mode, and Binary Overwrite mode. + The most useful buffer-local minor modes include Abbrev mode, Auto +Fill mode, Auto Save mode, Font-Lock mode, Glasses mode, ISO Accents +mode, Outline minor mode, Overwrite mode, and Binary Overwrite mode. Abbrev mode allows you to define abbreviations that automatically expand as you type them. For example, @samp{amd} might expand to @samp{abbrev @@ -146,11 +143,11 @@ they overwrite other characters and can be overwritten by them. In Binary Overwrite mode, digits after @kbd{C-q} specify an octal character code, as usual. - The following minor modes normally apply to all buffers at once. -Since each is enabled or disabled by the value of a variable, you -@emph{can} set them differently for particular buffers, by explicitly -making the corresponding variables local in those buffers. -@xref{Locals}. + Here are some useful minor modes that normally apply to all buffers +at once. Since each is enabled or disabled by the value of a +variable, you @emph{can} set them differently for particular buffers, +by explicitly making the corresponding variables local in those +buffers. @xref{Locals}. Icomplete mode displays an indication of available completions when you are in the minibuffer and completion is active. @xref{Completion @@ -222,10 +219,6 @@ under it. It looks like this, in part: Customization of the One True Editor. See also [Manual]. -Confirm Kill Emacs: [Hide] [Value Menu] Don't confirm - [State]: this option is unchanged from its standard setting. -How to ask for confirmation when leaving Emacs. [More] - Editing group: [Go to Group] Basic text editing facilities. @@ -854,8 +847,9 @@ recently added hook functions are executed first. If you play with adding various different versions of a hook function by calling @code{add-hook} over and over, remember that all -the versions you added will remain in the hook variable together. -To clear them out, you can do @code{(setq @var{hook-variable} nil)}. +the versions you added will remain in the hook variable together. You +can clear out individual functions with @code{remove-hook}, or do +@code{(setq @var{hook-variable} nil)} to remove everything. @node Locals @subsection Local Variables @@ -1638,14 +1632,14 @@ word: Many keyboards have a ``numeric keypad'' on the right hand side. The numeric keys in the keypad double up as cursor motion keys, toggled by a key labelled @samp{Num Lock}. By default, Emacs -translates these keys to the corresponding keys in the main keyboard -(@pxref{Keyboard Translations}). For example, when @samp{Num Lock} is -on, the key labelled @samp{8} on the numeric keypad produces -@code{kp-8}, which is translated to @kbd{8}; when @samp{Num Lock} is -off, the same key produces @code{kp-up}, which is translated to -@key{UP}. If you rebind a key such as @kbd{8} or @key{UP}, it affects -the equivalent keypad key too. However, if you rebind a @samp{kp-} -key directly, that won't affect its non-keypad equivalent. +translates these keys to the corresponding keys in the main keyboard. +For example, when @samp{Num Lock} is on, the key labelled @samp{8} on +the numeric keypad produces @code{kp-8}, which is translated to +@kbd{8}; when @samp{Num Lock} is off, the same key produces +@code{kp-up}, which is translated to @key{UP}. If you rebind a key +such as @kbd{8} or @key{UP}, it affects the equivalent keypad key too. +However, if you rebind a @samp{kp-} key directly, that won't affect +its non-keypad equivalent. Emacs provides a convenient method for binding the numeric keypad keys, using the variables @code{keypad-setup}, @@ -1893,52 +1887,6 @@ invoke it; disabling also applies if the command is invoked using @kbd{M-x}. Disabling a command has no effect on calling it as a function from Lisp programs. -@node Keyboard Translations -@section Keyboard Translations - - Some keyboards do not make it convenient to send all the special -characters that Emacs uses. The most common problem case is the -@key{DEL} character. Some keyboards provide no convenient way to type -this very important character---usually because they were designed to -expect the character @kbd{C-h} to be used for deletion. On these -keyboards, if you press the key normally used for deletion, Emacs handles -the @kbd{C-h} as a prefix character and offers you a list of help -options, which is not what you want. - -@cindex keyboard translations -@findex keyboard-translate - You can work around this problem within Emacs by setting up keyboard -translations to turn @kbd{C-h} into @key{DEL} and @key{DEL} into -@kbd{C-h}, as follows: - -@example -;; @r{Translate @kbd{C-h} to @key{DEL}.} -(keyboard-translate ?\C-h ?\C-?) - -;; @r{Translate @key{DEL} to @kbd{C-h}.} -(keyboard-translate ?\C-? ?\C-h) -@end example - - Keyboard translations are not the same as key bindings in keymaps -(@pxref{Keymaps}). Emacs contains numerous keymaps that apply in -different situations, but there is only one set of keyboard -translations, and it applies to every character that Emacs reads from -the terminal. Keyboard translations take place at the lowest level of -input processing; the keys that are looked up in keymaps contain the -characters that result from keyboard translation. - - On a window system, the keyboard key named @key{DELETE} is a function -key and is distinct from the @acronym{ASCII} character named @key{DEL}. -@xref{Named ASCII Chars}. Keyboard translations affect only @acronym{ASCII} -character input, not function keys; thus, the above example used on a -window system does not affect the @key{DELETE} key. However, the -translation above isn't necessary on window systems, because Emacs can -also distinguish between the @key{BACKSPACE} key and @kbd{C-h}; and it -normally treats @key{BACKSPACE} as @key{DEL}. - - For full information about how to use keyboard translations, see -@ref{Translating Input,,,elisp, The Emacs Lisp Reference Manual}. - @node Syntax @section The Syntax Table @cindex syntax table diff --git a/man/dired-x.texi b/man/dired-x.texi index 3e1c724dd5a..c1a3e9dbe66 100644 --- a/man/dired-x.texi +++ b/man/dired-x.texi @@ -28,7 +28,8 @@ This documents the ``extra'' features for Dired Mode for GNU Emacs found in the file @file{dired-x.el}. -Copyright @copyright{} 1993, 1994, 2001, 2002 Free Software Foundation, Inc. +Copyright @copyright{} 1993, 1994, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to make and distribute verbatim copies of this diff --git a/man/dired.texi b/man/dired.texi index 8cb4646075e..051c735f996 100644 --- a/man/dired.texi +++ b/man/dired.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985,86,87,93,94,95,97,2000,2001 -@c Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Dired, Calendar/Diary, Rmail, Top @chapter Dired, the Directory Editor @@ -1075,7 +1075,7 @@ use @kbd{M-x find-grep-dired}. This command reads two minibuffer arguments, @var{directory} and @var{regexp}; it chooses all the files in @var{directory} or its subdirectories that contain a match for @var{regexp}. It works by running the programs @code{find} and -@code{grep}. See also @kbd{M-x grep-find}, in @ref{Compilation}. +@code{grep}. See also @kbd{M-x grep-find}, in @ref{Grep Searching}. Remember to write the regular expression for @code{grep}, not for Emacs. (An alternative method of showing files whose contents match a given regexp is the @kbd{% g @var{regexp}} command, see @ref{Marks vs Flags}.) diff --git a/man/display.texi b/man/display.texi index 06b3a58642f..58e69ad4e60 100644 --- a/man/display.texi +++ b/man/display.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 86, 87, 93, 94, 95, 1997, 2000, 2001, 2002, 2005 -@c Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Display, Search, Registers, Top @chapter Controlling the Display @@ -104,14 +104,18 @@ future Emacs versions. To see what faces are currently defined, and what they look like, type @kbd{M-x list-faces-display}. It's possible for a given face to look different in different frames; this command shows the appearance -in the frame in which you type it. Here are the standard faces -for specifying text appearance: +in the frame in which you type it. + +Here are the standard faces for specifying text appearance. You can +use them on specific text, when you want the effects they produce. @table @code @item default This face is used for ordinary text that doesn't specify any other face. @item bold This face uses a bold variant of the default font, if it has one. +It's up to you to choose a default font that has a bold variant, +if you want to use one. @item italic This face uses an italic variant of the default font, if it has one. @item bold-italic @@ -119,9 +123,15 @@ This face uses a bold italic variant of the default font, if it has one. @item underline This face underlines text. @item fixed-pitch -The basic fixed-pitch face. +This face forces use of a particular fixed-width font. @item variable-pitch -The basic variable-pitch face. +This face forces use of a particular variable-width font. It's +reasonable to customize this to use a different variable-width font, +if you like, but you should not make it a fixed-width font. +@item shadow +This face is used for making the text less noticeable than the surrounding +ordinary text. Usually this can be achieved by using shades of gray in +contrast with either black or white default foreground color. @end table Here's an incomplete list of faces used to highlight parts of the @@ -146,19 +156,15 @@ mode is enabled---see below). This face is used for displaying a secondary X selection (@pxref{Secondary Selection}). @item trailing-whitespace -The face for highlighting trailing whitespace when -@code{show-trailing-whitespace} is non-@code{nil}; see @ref{Useless -Whitespace}. +The face for highlighting excess spaces and tabs at the end of a line +when @code{show-trailing-whitespace} is non-@code{nil}; see +@ref{Useless Whitespace}. @item nobreak-space The face for displaying the character ``nobreak space''. @item escape-glyph The face for highlighting the @samp{\} or @samp{^} that indicates a control character. It's also used when @samp{\} indicates a nobreak space or nobreak (soft) hyphen. -@item shadow -The basic face for making the text less noticeable than the surrounding -ordinary text. Usually this is achieved by using shades of grey in -contrast with either black or white default foreground color. @end table @cindex @code{region} face @@ -175,10 +181,13 @@ appearance of these parts of the frame. @table @code @item mode-line -This face is used for the mode line of the currently selected window. -By default, it's drawn with shadows for a ``raised'' effect on window -systems, and drawn as the inverse of the default face on non-windowed -terminals. +@itemx modeline +This face is used for the mode line of the currently selected window, +and for menu bars when toolkit menus are not used. By default, it's +drawn with shadows for a ``raised'' effect on window systems, and +drawn as the inverse of the default face on non-windowed terminals. +@code{modeline} is an alias for the @code{mode-line} face, for +compatibility with old Emacs versions. @item mode-line-inactive Like @code{mode-line}, but used for mode lines of the windows other than the selected one (if @code{mode-line-in-non-selected-windows} is @@ -186,15 +195,22 @@ non-@code{nil}). This face inherits from @code{mode-line}, so changes in that face affect mode lines in all windows. @item header-line Similar to @code{mode-line} for a window's header line. Most modes -don't use the header line, but the Info mode does. +don't use the header line, but some special modes, such the Info mode, do. @item vertical-border -This face is used for the vertical divider between windows on -character terminals. By default this face inherits from the -@code{mode-line-inactive} face. +This face is used for the vertical divider between windows. +By default this face inherits from the @code{mode-line-inactive} face +on character terminals. On window systems the foreground color of +this face is used for the vertical line between windows without +scrollbars. @item minibuffer-prompt +@cindex @code{minibuffer-prompt} face +@vindex minibuffer-prompt-properties This face is used for the prompt strings displayed in the minibuffer. +By default, Emacs automatically adds this face to the value of +@code{minibuffer-prompt-properties}, which is a list of text +properties used to display the prompt text. @item fringe -@cindex fringe +@cindex @code{fringe} face The face for the fringes to the left and right of windows on graphic displays. (The fringes are the narrow portions of the Emacs frame between the text area and the window's right and left borders.) diff --git a/man/ebrowse.texi b/man/ebrowse.texi index 8e3510242cf..93c82fbbba0 100644 --- a/man/ebrowse.texi +++ b/man/ebrowse.texi @@ -10,7 +10,8 @@ @copying This file documents Ebrowse, a C++ class browser for GNU Emacs. -Copyright @copyright{} 2000, 2002 Free Software Foundation, Inc. +Copyright @copyright{} 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/ediff.texi b/man/ediff.texi index 7b997e4b0eb..1991aa642d3 100644 --- a/man/ediff.texi +++ b/man/ediff.texi @@ -25,8 +25,8 @@ This file documents Ediff, a comprehensive visual interface to Unix diff and patch utilities. -Copyright 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002 Free Software -Foundation, Inc. +Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, + 2003, 2004, 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/emacs-mime.texi b/man/emacs-mime.texi index 06c0a4d77dc..7bd36f3ce46 100644 --- a/man/emacs-mime.texi +++ b/man/emacs-mime.texi @@ -9,7 +9,7 @@ @copying This file documents the Emacs MIME interface functionality. -Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003 +Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @quotation @@ -213,10 +213,6 @@ Set the undisplayer object. @findex mm-handle-disposition Return the parsed @code{Content-Disposition} of the part. -@item mm-handle-disposition -@findex mm-handle-disposition -Return the description of the part. - @item mm-get-content-id Returns the handle(s) referred to by @code{Content-ID}. @@ -813,7 +809,9 @@ by using the @code{encoding} @acronym{MML} tag (@pxref{MML Definition}). @item mm-coding-system-priorities @vindex mm-coding-system-priorities Prioritize coding systems to use for outgoing messages. The default -is @code{nil}, which means to use the defaults in Emacs. It is a list of +is @code{nil}, which means to use the defaults in Emacs, but is +@code{(iso-8859-1 iso-2022-jp iso-2022-jp-2 shift_jis utf-8)} when +running Emacs in the Japanese language environment. It is a list of coding system symbols (aliases of coding systems are also allowed, use @kbd{M-x describe-coding-system} to make sure you are specifying correct coding system names). For example, if you have configured Emacs @@ -880,8 +878,9 @@ used, of course. @vindex mm-mime-mule-charset-alist Things are slightly more complicated when running Emacs with @sc{mule} support. In this case, a list of the @sc{mule} charsets used in the -part is obtained, and the @sc{mule} charsets are translated to @acronym{MIME} -charsets by consulting the variable @code{mm-mime-mule-charset-alist}. +part is obtained, and the @sc{mule} charsets are translated to +@acronym{MIME} charsets by consulting the table provided by Emacs itself +or the variable @code{mm-mime-mule-charset-alist} for XEmacs. If this results in a single @acronym{MIME} charset, this is used to encode the part. But if the resulting list of @acronym{MIME} charsets contains more than one element, two things can happen: If it is possible to encode the @@ -1168,7 +1167,7 @@ in the subsequent sections. This chapter describes the basic, ground-level functions for parsing and handling. Covered here is parsing @code{From} lines, removing comments from header lines, decoding encoded words, parsing date headers and so -on. High-level functionality is dealt with in the next chapter +on. High-level functionality is dealt with in the first chapter (@pxref{Decoding and Viewing}). @menu @@ -1504,7 +1503,7 @@ Take a time and return the number of days that represents. @item safe-date-to-time Take a date and return a time. If the date is not syntactically valid, -return a ``zero'' date. +return a ``zero'' time. @item time-less-p Take two times and say whether the first time is less (i. e., earlier) diff --git a/man/emacs-xtra.texi b/man/emacs-xtra.texi index 94a37c2ec5e..d17a506a498 100644 --- a/man/emacs-xtra.texi +++ b/man/emacs-xtra.texi @@ -10,8 +10,7 @@ @copying This manual describes specialized features of Emacs. -Copyright (C) 2004, 2005 -Free Software Foundation, Inc. +Copyright (C) 2004, 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/emacs.texi b/man/emacs.texi index a4e713fd6f6..6eb78640bd4 100644 --- a/man/emacs.texi +++ b/man/emacs.texi @@ -11,8 +11,8 @@ This is the @value{EDITION} edition of the @cite{GNU Emacs Manual}, updated for Emacs version @value{EMACSVER}. -Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, -1999, 2000, 2001, 2002, 2004, 2005 Free Software Foundation, Inc. +Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, + 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document @@ -787,9 +787,6 @@ Customization you can control their functioning. * Key Bindings:: The keymaps say what command each key runs. By changing them, you can "redefine keys". -* Keyboard Translations:: If your keyboard passes an undesired code - for a key, you can tell Emacs to - substitute another code. * Syntax:: The syntax table controls how words and expressions are parsed. * Init File:: How to write common customizations in the diff --git a/man/entering.texi b/man/entering.texi index fe76bf34844..1d04ab427f6 100644 --- a/man/entering.texi +++ b/man/entering.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Entering Emacs, Exiting, Text Characters, Top @chapter Entering and Exiting Emacs diff --git a/man/eshell.texi b/man/eshell.texi index 82e957f4de8..fe36780955b 100644 --- a/man/eshell.texi +++ b/man/eshell.texi @@ -8,7 +8,8 @@ @copying This manual is for Eshell, the Emacs shell. -Copyright @copyright{} 1999, 2000, 2001, 2002, 2004 Free Software Foundation, Inc. +Copyright @copyright{} 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/eudc.texi b/man/eudc.texi index b5ff83be14a..23df55bb97b 100644 --- a/man/eudc.texi +++ b/man/eudc.texi @@ -12,7 +12,8 @@ EUDC is the Emacs Unified Directory Client, a common interface to directory servers using various protocols such as LDAP or the CCSO white pages directory system (PH/QI) -Copyright 1998, 2000, 2001, 2002 Free Software Foundation, Inc. +Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/faq.texi b/man/faq.texi index bccc23e181c..1212ed87d8e 100644 --- a/man/faq.texi +++ b/man/faq.texi @@ -10,7 +10,7 @@ @set VER 21.3 @copying -Copyright 2001, 2002, 2003 Free Software Foundation, Inc. +Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Copyright 1994,1995,1996,1997,1998,1999,2000 Reuven M. Lerner@* Copyright 1992,1993 Steven Byrnes@* Copyright 1990,1991,1992 Joseph Brian Wells@* @@ -1005,23 +1005,11 @@ administrator, because the most recent FAQ should not expire for a while. @item -Via HTTP or FTP. You can always fetch the latest FAQ from - -@uref{http://www.lerner.co.il/emacs/} and - -@uref{ftp://ftp.lerner.co.il/pub/emacs/} - -@item In the Emacs distribution. Since Emacs 18.56, the FAQ at the time of release has been part of the Emacs distribution as either @file{etc/FAQ} or @file{man/faq.texi} (@pxref{File-name conventions}). @item -Via the World Wide Web. A hypertext version is available at - -@uref{http://www.lerner.co.il/emacs/} - -@item Via anonymous ftp and e-mail from @file{rtfm.mit.edu} (and its mirror in Europe), the main repository for FAQs and other items posted to news.answers. The Emacs FAQs are available at @@ -1046,13 +1034,6 @@ send usenet/news.answers/GNU-Emacs-FAQ/part5 For more information, send email to @email{mail-server@@rtfm.mit.edu} with @samp{help} and @samp{index} in the body on separate lines. - -@item -As the very last resort, you can e-mail a request to -@email{emacs-faq@@lerner.co.il}. Don't do this unless you have made a -good-faith effort to obtain the FAQ list via one of the methods listed -above. - @end itemize @c ------------------------------------------------------------ @@ -2206,7 +2187,7 @@ otherwise. @inforef{Frame Commands, Frame Commands, emacs}. @cindex Unix regeps, differences from Emacs @cindex Text strings, putting regexps in -@inforef{Regexps, Regexps, emacs}. +@inforef{Regexp Backslash, Regexp Backslash, emacs}. The @code{or} operator is @samp{\|}, not @samp{|}, and the grouping operators are @samp{\(} and @samp{\)}. Also, the string syntax for a backslash is @@ -4637,9 +4618,9 @@ Good question! @cindex Keys, swapping @cindex @code{keyboard-translate} -In Emacs 19, you can swap two keys (or key sequences) by using the -@code{keyboard-translate} function. For example, to turn @kbd{C-h} into -@key{DEL} and @key{DEL} to @kbd{C-h}, use +You can swap two keys (or key sequences) by using the +@code{keyboard-translate} function. For example, to turn @kbd{C-h} +into @key{DEL} and @key{DEL} to @kbd{C-h}, use @lisp (keyboard-translate ?\C-h ?\C-?) ; translate `C-h' to DEL @@ -4651,6 +4632,11 @@ The first key sequence of the pair after the function identifies what is produced by the keyboard; the second, what is matched for in the keymaps. +However, in the specific case of @kbd{C-h} and @key{DEL}, you should +toggle @code{normal-erase-is-backspace-mode} instead of calling +@code{keyboard-translate}. @inforef{DEL Does Not Delete, DEL Does Not Delete, +emacs}. + Keyboard translations are not the same as key bindings in keymaps. Emacs contains numerous keymaps that apply in different situations, but there is only one set of keyboard translations, and it applies to every @@ -4659,8 +4645,6 @@ take place at the lowest level of input processing; the keys that are looked up in keymaps contain the characters that result from keyboard translation. -@inforef{Keyboard Translations, Keyboard Translations, emacs}. - @node Producing C-XXX with the keyboard, No Meta key, Swapping keys, Key bindings @section How do I produce C-XXX with my keyboard? @cindex Producing control characters diff --git a/man/files.texi b/man/files.texi index bc217de7b18..912fc6f7bf9 100644 --- a/man/files.texi +++ b/man/files.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. @c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1999, 2000, -@c 2001, 2004, 2005 Free Software Foundation, Inc. +@c 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Files, Buffers, Keyboard Macros, Top @chapter File Handling @@ -2907,7 +2907,7 @@ string; the default is @code{"-c"} to specify a context diff. @findex diff-goto-source After running @kbd{M-x diff}, you can use @kbd{C-x `} to visit successive changed locations in the two source files, as in -Compilation mode (@pxref{Compilation}.) In the @samp{*diff*} buffer, +Compilation mode (@pxref{Compilation Mode}.) In the @samp{*diff*} buffer, you can move to a particular hunk of changes and type @kbd{C-c C-c} (@code{diff-goto-source}) to visit the corresponding source location. @@ -2918,15 +2918,19 @@ recent backup. If you specify the name of a backup file, of. @findex compare-windows - The command @kbd{M-x compare-windows} compares the text in the current -window with that in the next window. Comparison starts at point in each -window, and each starting position is pushed on the mark ring in its -respective buffer. Then point moves forward in each window, a character -at a time, until a mismatch between the two windows is reached. Then -the command is finished. Another invocation of this command with -points on mismatching positions tries to skip non-matching text and -move points forward, until a match between the two windows is reached. -For more information about windows in Emacs, @ref{Windows}. + The command @kbd{M-x compare-windows} compares the text in the +current window with that in the next window. (For more information +about windows in Emacs, @ref{Windows}.) Comparison starts at point in +each window, after pushing each initial point value on the mark ring +in its respective buffer. Then it moves point forward in each window, +one character at a time, until it reaches characters that don't match. +Then the command exits. + + If point in the two windows is followed by non-matching text when +the command starts, it tries heuristically to advance up to matching +text in the two windows, and then exits. So if you use @kbd{M-x +compare-windows} repeatedly, each time it either skips one matching +range or finds the start of another. @vindex compare-ignore-case @vindex compare-ignore-whitespace diff --git a/man/fixit.texi b/man/fixit.texi index 08c5eeee2ec..f58d3c835a6 100644 --- a/man/fixit.texi +++ b/man/fixit.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 86, 87, 93, 94, 95, 1997 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Fixit, Keyboard Macros, Search, Top @chapter Commands for Fixing Typos diff --git a/man/flymake.texi b/man/flymake.texi index 7a9ca11f4d5..4f5223e3bd9 100644 --- a/man/flymake.texi +++ b/man/flymake.texi @@ -11,7 +11,7 @@ This manual is for GNU Flymake (version @value{VERSION}, @value{UPDATED}), which is a universal on-the-fly syntax checker for GNU Emacs. -Copyright @copyright{} 2004 Free Software Foundation, Inc. +Copyright @copyright{} 2004, 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/forms.texi b/man/forms.texi index 74876760ccc..adc3fe8a0b2 100644 --- a/man/forms.texi +++ b/man/forms.texi @@ -18,7 +18,8 @@ @copying This file documents Forms mode, a form-editing major mode for GNU Emacs. -Copyright 1989, 1997, 2001, 2002 Free Software Foundation, Inc. +Copyright (C) 1989, 1997, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/frames.texi b/man/frames.texi index 742091082c1..8e058867fcd 100644 --- a/man/frames.texi +++ b/man/frames.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 99, 2000, 2001, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1999, 2000, +@c 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Frames, International, Windows, Top @chapter Frames and X Windows diff --git a/man/glossary.texi b/man/glossary.texi index 78abbfb30b7..bab69b2c4dc 100644 --- a/man/glossary.texi +++ b/man/glossary.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985,86,87,93,94,95,1997,2001 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2001, 2002, +@c 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Glossary, Key Index, Intro, Top @unnumbered Glossary @@ -681,7 +682,7 @@ keymap binds the character @kbd{C-n} to the command function @item Keyboard Translation Table The keyboard translation table is an array that translates the character codes that come from the terminal into the character codes that make up -key sequences. @xref{Keyboard Translations}. +key sequences. @item Kill Ring The kill ring is where all text you have killed recently is saved. diff --git a/man/gnu.texi b/man/gnu.texi index 43d4ab0cacd..51e1a5615ff 100644 --- a/man/gnu.texi +++ b/man/gnu.texi @@ -1,11 +1,13 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 1986, 1987, 1993, 1995 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1995, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @ifclear justgnu @node Manifesto,, MS-DOS, Top @unnumbered The GNU Manifesto @end ifclear @ifset justgnu -Copyright (C) 1985, 1993, 2001 Free Software Foundation, Inc. +Copyright (C) 1985, 1993, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.1 or diff --git a/man/gnus.texi b/man/gnus.texi index 3317b85e3e3..131a92fae64 100644 --- a/man/gnus.texi +++ b/man/gnus.texi @@ -7,9 +7,8 @@ @syncodeindex pg cp @copying -Copyright (c) 1995, 1996, 1997, 1998, 1999, 2000, 2001, -2002, 2003, 2004, 2005 -Free Software Foundation, Inc. +Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document @@ -9407,7 +9406,7 @@ newsreaders and mailers that do not understand or use @acronym{MIME}, and just send out messages without saying what character sets they use. To help a bit with this, some local news hierarchies have policies that say what character set is the default. For instance, the @samp{fj} -hierarchy uses @code{iso-2022-jp-2}. +hierarchy uses @code{iso-2022-jp}. @vindex gnus-group-charset-alist This knowledge is encoded in the @code{gnus-group-charset-alist} diff --git a/man/help.texi b/man/help.texi index 29c06b499df..bcae911d55f 100644 --- a/man/help.texi +++ b/man/help.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 2000, 2001, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Help, Mark, M-x, Top @chapter Help diff --git a/man/idlwave.texi b/man/idlwave.texi index 8226c0ac63f..f9e167893a0 100644 --- a/man/idlwave.texi +++ b/man/idlwave.texi @@ -29,8 +29,8 @@ Emacs, and interacting with an IDL shell run as a subprocess. This is edition @value{EDITION} of the IDLWAVE User Manual for IDLWAVE @value{VERSION} -Copyright @copyright{} 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software -Foundation, Inc. +Copyright @copyright{} 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.1 or @@ -60,8 +60,8 @@ license to the document, as described in section 6 of the license. This is edition @value{EDITION} of the @cite{IDLWAVE User Manual} for IDLWAVE version @value{VERSION}, @value{DATE}. @sp 2 -Copyright @copyright{} 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software -Foundation, Inc. +Copyright @copyright{} 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @sp 2 @cindex Copyright, of IDLWAVE Permission is granted to copy, distribute and/or modify this document diff --git a/man/indent.texi b/man/indent.texi index 48a54747714..c748f5010b1 100644 --- a/man/indent.texi +++ b/man/indent.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 86, 87, 93, 94, 95, 1997, 2004 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Indentation, Text, Major Modes, Top @chapter Indentation diff --git a/man/info.texi b/man/info.texi index e6c508b4b49..3a0ba2b3947 100644 --- a/man/info.texi +++ b/man/info.texi @@ -14,8 +14,8 @@ This file describes how to use Info, the on-line, menu-driven GNU documentation system. -Copyright (C) 1989, 1992, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 -Free Software Foundation, Inc. +Copyright (C) 1989, 1992, 1996, 1997, 1998, 1999, 2000, 2001, 2002, + 2003, 2004, 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document @@ -238,7 +238,7 @@ line says that this is node @samp{Help} in the file @file{info}. (look at it now) says that the @samp{Next} node after this one is the node called @samp{Help-P}. An advanced Info command lets you go to any node whose name you know. In the stand-alone Info reader program, -the header line shows the names of this node and the info file as +the header line shows the names of this node and the Info file as well. In Emacs, the header line is duplicated in a special typeface, and the duplicate remains at the top of the window all the time even if you scroll through the node. @@ -284,7 +284,7 @@ node, @samp{Help-^L}. If you read this in Emacs, you will see an @samp{Info} item in the menu bar, close to its right edge. Clicking the mouse on the @samp{Info} menu-bar item opens a menu of commands which include -@samp{Next} and @samp{Prev} (and also some others which you didn't yet +@samp{Next} and @samp{Previous} (and also some others which you didn't yet learn about). This all probably seems insultingly simple so far, but @emph{please @@ -671,10 +671,12 @@ mistake. Another way to move to the menu subtopic lines and between them is to type @key{TAB}. Each time you type a @key{TAB}, you move to the -next subtopic line. To move to a previous subtopic line, type -@kbd{M-@key{TAB}}---that is, press and hold the @key{META} key and then -press @key{TAB}. (On some keyboards, the @key{META} key might be labeled -@samp{Alt}.) +next subtopic line. To move to a previous subtopic line in the +stand-alone reader, type @kbd{M-@key{TAB}}---that is, press and hold +the @key{META} key and then press @key{TAB}. (On some keyboards, the +@key{META} key might be labeled @samp{Alt}.) In Emacs Info, type +@kbd{S-@key{TAB}} to move to a previous subtopic line (press and hold +the @key{Shift} key and then press @key{TAB}). Once you move cursor to a subtopic line, press @key{RET} to go to that subtopic's node. @@ -727,7 +729,8 @@ usually used to ``stay on the same level but go backwards''. @code{Info-up}). That puts you at the @emph{front} of the node---to get back to where you were reading you have to type some @key{SPC}s. (Some Info readers, such as the one built into Emacs, put you at the -same place where you were reading in @samp{Help-M}.) +menu subtopic line which points to the subnode that the @kbd{u} command +brought you from.) Another way to go Up is to click @kbd{Mouse-2} on the @samp{Up} pointer shown in the header line (provided that you have a mouse). @@ -785,8 +788,14 @@ to cancel the @kbd{f}. type a @kbd{Control-g} and see how the @samp{f} gives up. @end format - The @key{TAB} and @kbd{M-@key{TAB}} key, which move between menu -items in a menu, also move between cross references outside of menus. + The @key{TAB}, @kbd{M-@key{TAB}} and @kbd{S-@key{TAB}} keys, +which move between menu items in a menu, also move between cross +references outside of menus. + + Clicking @kbd{Mouse-2} on or near a cross reference also follows the +reference. You can see that the cross reference is mouse-sensitive by +moving the mouse pointer to the reference and watching how the +underlying text and the mouse pointer change in response. Sometimes a cross reference (or a node) can lead to another file (in other words another ``manual''), or, on occasion, even a file on a @@ -795,36 +804,22 @@ stand-alone Info avoid using remote links). Such a cross reference looks like this: @xref{Top,, Overview of Texinfo, texinfo, Texinfo: The GNU Documentation Format}. (After following this link, type @kbd{l} to get back to this node.) Here the name @samp{texinfo} -between parentheses (shown in the stand-alone version) refers to the -file name. This file name appears in cross references and node names -if it differs from the current file. In Emacs, the file name is -hidden (along with other text). (Use @kbd{M-x visible-mode} to show -or hide it.) - - The remainder of this node applies only to the Emacs version. If -you use the stand-alone version, you can type @kbd{n} immediately. - - To some users, switching manuals is a much bigger switch than -switching sections. These users like to know that they are going to -be switching to another manual (and which one) before actually doing -so, especially given that, if one does not notice, Info commands like -@kbd{t} (see the next node) can have confusing results. - - If you put your mouse over the cross reference and if the cross -reference leads to a different manual, then the information appearing -in a separate box (tool tip) or in the echo area, will mention the -file the cross reference will carry you to (between parentheses). -This is also true for menu subtopic names. If you have a mouse, just -leave it over the @samp{Overview} cross reference above and watch what -happens. - - If you always like to have that information available without having -to move your mouse over the cross reference, set -@code{Info-hide-note-references} to a value other than @code{t} -(@pxref{Emacs Info Variables}). You might also want to do that if you -have a lot of cross references to files on remote machines and have -non-permanent or slow access, since otherwise you might not be able to -distinguish between local and remote links. +between parentheses refers to the file name. This file name appears +in cross references and node names if it differs from the current +file, so you can always know that you are going to be switching to +another manual and which one. + +However, Emacs normally hides some other text in cross-references. +If you put your mouse over the cross reference, then the information +appearing in a separate box (tool tip) or in the echo area will show +the full cross-reference including the file name and the node name of +the cross reference. If you have a mouse, just leave it over the +cross reference @xref{Top,, Overview of Texinfo, texinfo, Texinfo: +The GNU Documentation Format}, and watch what happens. If you +always like to have that information visible without having to move +your mouse over the cross reference, use @kbd{M-x visible-mode}, or +set @code{Info-hide-note-references} to a value other than @code{t} +(@pxref{Emacs Info Variables}). @format >> Now type @kbd{n} to learn more commands. @@ -845,8 +840,9 @@ This allows Info readers to go to the exact line of an entry, not just the start of the containing node.) You can get to the index from the main menu of the file with the -@kbd{m} command; then you can use the @kbd{m} command again in the -index node to go to the node that describes the topic you want. +@kbd{m} command and the name of the index node; then you can use the +@kbd{m} command again in the index node to go to the node that +describes the topic you want. There is also a short-cut Info command, @kbd{i}, which does all of that for you. It searches the index for a given topic (a string) and @@ -854,8 +850,8 @@ goes to the node which is listed in the index for that topic. @xref{Info Search}, for a full explanation. @kindex l @r{(Info mode)} -@findex Info-last -@cindex going back in Info mode +@findex Info-history-back +@cindex going back in Info history If you have been moving around to different nodes and wish to retrace your steps, the @kbd{l} command (@kbd{l} for @dfn{last}) will do that, one node-step at a time. As you move from node to node, Info @@ -863,7 +859,7 @@ records the nodes where you have been in a special history list. The @kbd{l} command revisits nodes in the history list; each successive @kbd{l} command moves one step back through the history. - In Emacs, @kbd{l} runs the command @code{Info-last}. + In Emacs, @kbd{l} runs the command @code{Info-history-back}. @format >> Try typing @kbd{p p n} and then three @kbd{l}'s, pausing in between @@ -875,6 +871,13 @@ where @emph{you} last were, whereas @kbd{p} always moves to the node which the header says is the @samp{Previous} node (from this node, the @samp{Prev} link leads to @samp{Help-Xref}). +@kindex r @r{(Info mode)} +@findex Info-history-forward +@cindex going forward in Info history + You can use the @kbd{r} command (@code{Info-history-forward} in Emacs) +to revisit nodes in the history list in the forward direction, so that +@kbd{r} will return you to the node you came from by typing @kbd{l}. + @kindex d @r{(Info mode)} @findex Info-directory @cindex go to Directory node @@ -898,11 +901,6 @@ This is useful if you want to browse the manual's main menu, or select some specific top-level menu item. The Emacs command run by @kbd{t} is @code{Info-top-node}. - Clicking @kbd{Mouse-2} on or near a cross reference also follows the -reference. You can see that the cross reference is mouse-sensitive by -moving the mouse pointer to the reference and watching how the -underlying text and the mouse pointer change in response. - @format >> Now type @kbd{n} to see the last node of the course. @end format @@ -935,7 +933,7 @@ Documentation Format}. * Menus:: How to add to or create menus in Info nodes. * Cross-refs:: How to add cross-references to Info nodes. * Tags:: How to make tags tables for Info files. -* Checking:: Checking an Info File +* Checking:: Checking an Info File. * Emacs Info Variables:: Variables modifying the behavior of Emacs Info. @end menu @@ -969,7 +967,7 @@ the node @samp{Top} in the Info file @file{dir}. Likewise, The node name @samp{*} specifies the whole file. So you can look at all of the current file by typing @kbd{g*@key{RET}} or all of any -other file with @kbd{g(@var{filename})@key{RET}}. +other file with @kbd{g(@var{filename})*@key{RET}}. @subheading @kbd{1}--@kbd{9} choose a menu subtopic by its number @@ -1017,7 +1015,7 @@ current node. @findex clone-buffer @cindex multiple Info buffers If you are reading Info in Emacs, you can select a new independent -Info buffer in another window by typing @kbd{M-n}. The new buffer +Info buffer in the same window by typing @kbd{M-n}. The new buffer starts out as an exact copy of the old one, but you will be able to move independently between nodes in the two buffers. (In Info mode, @kbd{M-n} runs the Emacs command @code{clone-buffer}.) @@ -1028,6 +1026,11 @@ m} and @kbd{C-u g} go to a new node in exactly the same way that @kbd{m} and @kbd{g} do, but they do so in a new Info buffer which they select in another window. + Another way to produce new Info buffers in Emacs is to use a numeric +prefix argument for the @kbd{C-h i} command (@code{info}) which +switches to the Info buffer with that number. Thus, @kbd{C-u 2 C-h i} +switches to the buffer @samp{*info*<2>}, creating it if necessary. + @node Info Search, Add, Advanced, Expert Info @comment node-name, next, previous, up @section How to search Info documents for specific subjects @@ -1083,10 +1086,12 @@ you type inside Emacs to run the command bound to @kbd{C-f}. In Emacs, @kbd{i} runs the command @code{Info-index}. @findex info-apropos +@findex index-apropos If you don't know what manual documents something, try the @kbd{M-x -info-apropos} command. It prompts for a string and then looks up that -string in all the indices of all the Info documents installed on your -system. +info-apropos} command in Emacs, or the @kbd{M-x index-apropos} command +in the stand-alone reader. It prompts for a string and then looks up +that string in all the indices of all the Info documents installed on +your system. @kindex s @r{(Info mode)} @findex Info-search @@ -1095,10 +1100,10 @@ It switches to the next node if and when that is necessary. You type @kbd{s} followed by the string to search for, terminated by @key{RET}. To search for the same string again, just @kbd{s} followed by @key{RET} will do. The file's nodes are scanned in the order -they are in in the file, which has no necessary relationship to the +they are in the file, which has no necessary relationship to the order that they may be in the tree structure of menus and @samp{next} pointers. But normally the two orders are not very different. In any -case, you can always do a @kbd{b} to find out what node you have +case, you can always look at the echo area to find out what node you have reached, if the header is not visible (this can happen, because @kbd{s} puts your cursor at the occurrence of the string, not at the beginning of the node). @@ -1109,6 +1114,15 @@ compatibility with other GNU packages that use @kbd{M-s} for a similar kind of search command. Both @kbd{s} and @kbd{M-s} run in Emacs the command @code{Info-search}. +@kindex C-s @r{(Info mode)} +@kindex C-r @r{(Info mode)} +@findex isearch + Instead of using @kbd{s} in Emacs Info and in the stand-alone Info, +you can use an incremental search started with @kbd{C-s} or @kbd{C-r}. +It can search through multiple Info nodes. @xref{Incremental Search,,, +emacs, The GNU Emacs Manual}. In Emacs, this behavior is enabled only +if the variable @code{Info-isearch-search} is non-@code{nil} +(@pxref{Emacs Info Variables}). @node Add, Menus, Info Search, Expert Info @comment node-name, next, previous, up @@ -1245,9 +1259,9 @@ the nodes in a file to form a connected structure. In fact, this file has two connected components. You are in one of them, which is under the node @samp{Top}; the other contains the node @samp{Help} which the @kbd{h} command goes to. In fact, since there is no garbage -collector, nothing terrible happens if a substructure is not pointed -to, but such a substructure is rather useless since nobody can -ever find out that it exists. +collector on the node graph, nothing terrible happens if a substructure +is not pointed to, but such a substructure is rather useless since nobody +can ever find out that it exists. @node Cross-refs, Tags, Menus, Expert Info @comment node-name, next, previous, up @@ -1328,7 +1342,7 @@ manner. @comment node-name, next, previous, up @section Tags Tables for Info Files -@cindex tags tables in info files +@cindex tags tables in Info files You can speed up the access to nodes of a large Info file by giving it a tags table. Unlike the tags table for a program, the tags table for an Info file lives inside the file itself and is used @@ -1408,22 +1422,30 @@ initialize it, or @code{Info-default-directory-list} if there is no @env{INFOPATH} variable in the environment. If you wish to customize the Info directory search list for both Emacs -info and stand-alone Info, it is best to set the @env{INFOPATH} +Info and stand-alone Info, it is best to set the @env{INFOPATH} environment variable, since that applies to both programs. @item Info-additional-directory-list A list of additional directories to search for Info documentation files. These directories are not searched for merging the @file{dir} file. -@item Info-fontify -When set to a non-@code{nil} value, enables highlighting of Info -files. The default is @code{t}. You can change how the highlighting -looks by customizing the faces @code{info-node}, @code{info-xref}, -@code{info-header-xref}, @code{info-header-node}, @code{info-menu-5}, -@code{info-menu-header}, and @code{info-title-@var{n}-face} (where -@var{n} is the level of the section, a number between 1 and 4). To -customize a face, type @kbd{M-x customize-face @key{RET} @var{face} -@key{RET}}, where @var{face} is one of the face names listed here. +@item Info-mode-hook +Hooks run when @code{Info-mode} is called. By default, it contains +the hook @code{turn-on-font-lock} which enables highlighting of Info +files. You can change how the highlighting looks by customizing the +faces @code{info-node}, @code{info-xref}, @code{info-xref-visited}, +@code{info-header-xref}, @code{info-header-node}, @code{info-menu-header}, +@code{info-menu-star}, and @code{info-title-@var{n}} (where @var{n} +is the level of the section, a number between 1 and 4). To customize +a face, type @kbd{M-x customize-face @key{RET} @var{face} @key{RET}}, +where @var{face} is one of the face names listed here. + +@item Info-fontify-maximum-menu-size +Maximum size of menu to fontify if @code{font-lock-mode} is non-@code{nil}. + +@item Info-fontify-visited-nodes +If non-@code{nil}, menu items and cross-references pointing to visited +nodes are displayed in the @code{info-xref-visited} face. @item Info-use-header-line If non-@code{nil}, Emacs puts in the Info buffer a header line showing @@ -1449,6 +1471,9 @@ subnode indicated by the following menu item. Setting this option to program, which visits the first subnode from the menu only when you hit the end of the current node. The default is @code{nil}. +@item Info-isearch-search +If non-@code{nil}, isearch in Info searches through multiple nodes. + @item Info-enable-active-nodes When set to a non-@code{nil} value, allows Info to execute Lisp code associated with nodes. The Lisp code is executed when the node is diff --git a/man/killing.texi b/man/killing.texi index 006af200c06..bcb170ac265 100644 --- a/man/killing.texi +++ b/man/killing.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985,86,87,93,94,95,97,2000,2001,2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Killing, Yanking, Mark, Top diff --git a/man/kmacro.texi b/man/kmacro.texi index e19c1434813..0693eefca54 100644 --- a/man/kmacro.texi +++ b/man/kmacro.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. @c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, -@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Keyboard Macros, Files, Fixit, Top @chapter Keyboard Macros diff --git a/man/m-x.texi b/man/m-x.texi index 5a33bab0737..46d3fab046e 100644 --- a/man/m-x.texi +++ b/man/m-x.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 86, 87, 93, 94, 95, 1997 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node M-x, Help, Minibuffer, Top @chapter Running Commands by Name diff --git a/man/macos.texi b/man/macos.texi index 9451f35f4a5..bcb25a7e52e 100644 --- a/man/macos.texi +++ b/man/macos.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 2000,2001,2002 Free Software Foundation, Inc. +@c Copyright (C) 2000, 2001, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Mac OS, MS-DOS, Antinews, Top @appendix Emacs and the Mac OS diff --git a/man/maintaining.texi b/man/maintaining.texi index b11ae6b6cdd..2af47f6ecaf 100644 --- a/man/maintaining.texi +++ b/man/maintaining.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. @c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1999, 2000, -@c 2001, 2005 Free Software Foundation, Inc. +@c 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Maintaining, Abbrevs, Building, Top @chapter Maintaining Programs @@ -849,7 +849,7 @@ continue to exist. Emacs and have Emacs show you the matching lines one by one. This works much like running a compilation; finding the source locations of the @code{grep} matches works like finding the compilation errors. -@xref{Compilation}. +@xref{Grep Searching}. @node List Tags @subsection Tags Table Inquiries diff --git a/man/major.texi b/man/major.texi index 23e0f8e116f..74613a24321 100644 --- a/man/major.texi +++ b/man/major.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 2000 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Major Modes, Indentation, International, Top @chapter Major Modes diff --git a/man/makefile.w32-in b/man/makefile.w32-in index 1792933e705..a5543a8c440 100644 --- a/man/makefile.w32-in +++ b/man/makefile.w32-in @@ -1,7 +1,6 @@ #### -*- Makefile -*- for the Emacs Manual and other documentation. -# Copyright (C) 2003, 2004 -# Free Software Foundation, Inc. +# Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. # This file is part of GNU Emacs. diff --git a/man/mark.texi b/man/mark.texi index 5f4c44de9e1..eb21a51cb27 100644 --- a/man/mark.texi +++ b/man/mark.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985,86,87,93,94,95,1997,2001 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2001, 2002, +@c 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Mark, Killing, Help, Top @chapter The Mark and the Region diff --git a/man/message.texi b/man/message.texi index ce78e1bb68b..7e4ffb84d72 100644 --- a/man/message.texi +++ b/man/message.texi @@ -8,8 +8,8 @@ @copying This file documents Message, the Emacs message composition mode. -Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 -Free Software Foundation, Inc. +Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/mh-e.texi b/man/mh-e.texi index 7f95178fde1..babe1a15aa0 100644 --- a/man/mh-e.texi +++ b/man/mh-e.texi @@ -15,7 +15,8 @@ This is Edition @value{EDITION}, last updated @value{UPDATED}, of @cite{mh-e, The Emacs Interface to MH}, for mh-e, Version @value{VERSION}. -Copyright 1995, 2001, 2002, 2004 Free Software Foundation, Inc. +Copyright (C) 1995, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/mini.texi b/man/mini.texi index 47daebc1e75..3797260f9cc 100644 --- a/man/mini.texi +++ b/man/mini.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 00, 2001 -@c Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Minibuffer, M-x, Basic, Top @chapter The Minibuffer diff --git a/man/misc.texi b/man/misc.texi index b52264e1f57..baebc6bf4d0 100644 --- a/man/misc.texi +++ b/man/misc.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. @c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, -@c 2004, 2005 Free Software Foundation, Inc. +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @iftex @chapter Miscellaneous Commands diff --git a/man/msdog.texi b/man/msdog.texi index a5aea27f161..782a239ed42 100644 --- a/man/msdog.texi +++ b/man/msdog.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985,86,87,93,94,95,1997,2000,2001 -@c Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node MS-DOS, Manifesto, Mac OS, Top @appendix Emacs and MS-DOS @@ -583,6 +583,12 @@ However, due to incompatibilities between MS-DOS/MS-Windows and other systems, there are several DOS-specific aspects of this support that you should be aware of. This section describes these aspects. + The description below is largely specific to the MS-DOS port of +Emacs, especially where it talks about practical implications for +Emacs users. For other operating systems, see the @file{code-pages.el} +package, which implements support for MS-DOS- and MS-Windows-specific +encodings for all platforms other than MS-DOS. + @table @kbd @item M-x dos-codepage-setup Set up Emacs display and coding systems as appropriate for the current @@ -721,7 +727,8 @@ DOS codepages for the same locale. For example, DOS codepage 850 supports the same character set as Windows codepage 1252; DOS codepage 855 supports the same character set as Windows codepage 1251, etc. The MS-Windows version of Emacs uses the current codepage for display -when invoked with the @samp{-nw} option. +when invoked with the @samp{-nw} option. Support for codepages in the +Windows port of Emacs is part of the @file{code-pages.el} package. @node MS-DOS Processes @section Subprocesses on MS-DOS diff --git a/man/mule.texi b/man/mule.texi index 7156c814f71..fa5e1246f25 100644 --- a/man/mule.texi +++ b/man/mule.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1997, 1999, 2000, 2001, 2005 Free Software Foundation, Inc. +@c Copyright (C) 1997, 1999, 2000, 2001, 2002, 2003, 2004, +@c 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node International, Major Modes, Frames, Top @chapter International Character Set Support @@ -592,12 +593,15 @@ coding systems @code{no-conversion}, @code{raw-text} and @cindex international files from DOS/Windows systems A special class of coding systems, collectively known as @dfn{codepages}, is designed to support text encoded by MS-Windows and -MS-DOS software. To use any of these systems, you need to create it -with @kbd{M-x codepage-setup}. @xref{MS-DOS and MULE}. After -creating the coding system for the codepage, you can use it as any -other coding system. For example, to visit a file encoded in codepage -850, type @kbd{C-x @key{RET} c cp850 @key{RET} C-x C-f @var{filename} -@key{RET}}. +MS-DOS software. The names of these coding systems are +@code{cp@var{nnnn}}, where @var{nnnn} is a 3- or 4-digit number of the +codepage. You can use these encodings just like any other coding +system; for example, to visit a file encoded in codepage 850, type +@kbd{C-x @key{RET} c cp850 @key{RET} C-x C-f @var{filename} +@key{RET}}@footnote{ +In the MS-DOS port of Emacs, you need to create a @code{cp@var{nnn}} +coding system with @kbd{M-x codepage-setup}, before you can use it. +@xref{MS-DOS and MULE}.}. In addition to converting various representations of non-@acronym{ASCII} characters, a coding system can perform end-of-line conversion. Emacs diff --git a/man/org.texi b/man/org.texi index 61c2eb5e7ad..e214927df5f 100644 --- a/man/org.texi +++ b/man/org.texi @@ -35,7 +35,7 @@ @copying This manual is for Org-mode (version @value{VERSION}). -Copyright @copyright{} 2004, 2005 Free Software Foundation +Copyright @copyright{} 2004, 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/pcl-cvs.texi b/man/pcl-cvs.texi index de9b962e4a5..26ca071d2e4 100644 --- a/man/pcl-cvs.texi +++ b/man/pcl-cvs.texi @@ -7,7 +7,7 @@ @copying Copyright @copyright{} 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, -1999, 2000, 2002, 2004 Free Software Foundation, Inc. + 1999, 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/pgg.texi b/man/pgg.texi index 8593a9e64a2..203f0cda371 100644 --- a/man/pgg.texi +++ b/man/pgg.texi @@ -8,7 +8,7 @@ @copying This file describes the PGG. -Copyright (C) 2003 Free Software Foundation, Inc. +Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. Copyright (C) 2001 Daiki Ueno. @quotation diff --git a/man/picture.texi b/man/picture.texi index 465c35143cc..46a735122df 100644 --- a/man/picture.texi +++ b/man/picture.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 86, 87, 93, 94, 95, 1997 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Picture, Sending Mail, Abbrevs, Top @chapter Editing Pictures diff --git a/man/programs.texi b/man/programs.texi index 83d8d6aa0b8..d5b608a288c 100644 --- a/man/programs.texi +++ b/man/programs.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. @c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1999, 2000, -@c 2001, 2005 Free Software Foundation, Inc. +@c 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Programs, Building, Text, Top @chapter Editing Programs @@ -1016,7 +1016,7 @@ for example, in C mode the value of the variable is after the @samp{/*} itself, and accepts C++ style comments also. (Note that @samp{\\} is needed in Lisp syntax to include a @samp{\} in the string, which is needed to deny the first star its special meaning -in regexp syntax. @xref{Regexps}.) +in regexp syntax. @xref{Regexp Backslash}.) @vindex comment-start @vindex comment-end diff --git a/man/reftex.texi b/man/reftex.texi index f6e5a6da082..12c4ce6e416 100644 --- a/man/reftex.texi +++ b/man/reftex.texi @@ -25,7 +25,8 @@ citations and indices for LaTeX documents with Emacs. This is edition @value{EDITION} of the @b{Ref@TeX{}} User Manual for @b{Ref@TeX{}} @value{VERSION} -Copyright (c) 1997, 1998, 1999, 2000, 2001, 2002, 2004, 2005 Free Software Foundation, Inc. +Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/regs.texi b/man/regs.texi index 41b2e639855..0e3c9073ac7 100644 --- a/man/regs.texi +++ b/man/regs.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 86, 87, 93, 94, 95, 1997 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Registers, Display, Rectangles, Top @chapter Registers diff --git a/man/rmail.texi b/man/rmail.texi index 091d1e60b74..71181b0db34 100644 --- a/man/rmail.texi +++ b/man/rmail.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985,86,87,93,94,95,1997,2001 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2001, 2002, +@c 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Rmail, Dired, Sending Mail, Top @chapter Reading Mail with Rmail diff --git a/man/sc.texi b/man/sc.texi index 95ce7f9e5d1..2189539476c 100644 --- a/man/sc.texi +++ b/man/sc.texi @@ -15,7 +15,8 @@ This document describes the Supercite Version 3.1 package for citing and attributing the replies for various GNU Emacs mail and news reading subsystems. -Copyright @copyright{} 1993, 2001, 2002 Free Software Foundation, Inc. +Copyright @copyright{} 1993, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/screen.texi b/man/screen.texi index a2f20e1721d..cd8224a6db2 100644 --- a/man/screen.texi +++ b/man/screen.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985,86,87,93,94,95,1997,2001 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2001, 2002, +@c 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Screen, User Input, Acknowledgments, Top @chapter The Organization of the Screen diff --git a/man/search.texi b/man/search.texi index e0bd00d7beb..0233f7ce8de 100644 --- a/man/search.texi +++ b/man/search.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, 2004, 2005 -@c Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, 2002, +@c 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Search, Fixit, Display, Top @chapter Searching and Replacement @@ -24,6 +24,8 @@ asks interactively which occurrences to replace. * Word Search:: Search for sequence of words. * Regexp Search:: Search for match for a regexp. * Regexps:: Syntax of regular expressions. +* Regexp Backslash:: Regular expression constructs starting with `\'. +* Regexp Example:: A complex regular expression explained. * Search Case:: To ignore case while searching, or not. * Replace:: Search, and replace some or all matches. * Other Repeating Search:: Operating on all matches for some regexp. @@ -210,7 +212,7 @@ of bindings, look at the documentation of @code{isearch-mode} with @cindex searching for non-@acronym{ASCII} characters @cindex input method, during incremental search - To enter non-@acronym{ASCII} characters in an incrementral search, + To enter non-@acronym{ASCII} characters in an incremental search, you must use an input method (@pxref{Input Methods}). If an input method is enabled in the current buffer when you start the search, you can use it while you type the search string also. Emacs indicates @@ -669,20 +671,26 @@ has two functions: it quotes the special characters (including Because @samp{\} quotes special characters, @samp{\$} is a regular expression that matches only @samp{$}, and @samp{\[} is a regular expression that matches only @samp{[}, and so on. + +See the following section for the special constructs that begin +with @samp{\}. @end table -Note: for historical compatibility, special characters are treated as + Note: for historical compatibility, special characters are treated as ordinary ones if they are in contexts where their special meanings make no sense. For example, @samp{*foo} treats @samp{*} as ordinary since there is no preceding expression on which the @samp{*} can act. It is poor practice to depend on this behavior; it is better to quote the special character anyway, -regardless of where it appears.@refill +regardless of where it appears. + +@node Regexp Backslash +@section Backslash in Regular Expressions -For the most part, @samp{\} followed by any character matches only that -character. However, there are several exceptions: two-character -sequences starting with @samp{\} that have special meanings. The second -character in the sequence is always an ordinary character when used on -its own. Here is a table of @samp{\} constructs. + For the most part, @samp{\} followed by any character matches only +that character. However, there are several exceptions: two-character +sequences starting with @samp{\} that have special meanings. The +second character in the sequence is always an ordinary character when +used on its own. Here is a table of @samp{\} constructs. @table @kbd @item \| @@ -836,8 +844,11 @@ matches any character that does @emph{not} belong to category The constructs that pertain to words and syntax are controlled by the setting of the syntax table (@pxref{Syntax}). - Here is a complicated regexp. It is a simplified version of the -regexp that Emacs uses, by default, to recognize the end of a sentence +@node Regexp Example +@section Regular Expression Example + + Here is a complicated regexp---a simplified version of the regexp +that Emacs uses, by default, to recognize the end of a sentence together with any whitespace that follows. We show its Lisp syntax to distinguish the spaces from the tab characters. In Lisp syntax, the string constant begins and ends with a double-quote. @samp{\"} stands @@ -864,27 +875,6 @@ for Lisp syntax. In commands that use ordinary minibuffer input to read a regexp, you would quote the @kbd{C-j} by preceding it with a @kbd{C-q} to prevent @kbd{C-j} from exiting the minibuffer. -@ignore -@c I commented this out because it is missing vital information -@c and therefore useless. For instance, what do you do to *use* the -@c regular expression when it is finished? What jobs is this good for? -@c -- rms - -@findex re-builder -@cindex authoring regular expressions - For convenient interactive development of regular expressions, you -can use the @kbd{M-x re-builder} command. It provides a convenient -interface for creating regular expressions, by giving immediate visual -feedback. The buffer from which @code{re-builder} was invoked becomes -the target for the regexp editor, which pops in a separate window. At -all times, all the matches in the target buffer for the current -regular expression are highlighted. Each parenthesized sub-expression -of the regexp is shown in a distinct face, which makes it easier to -verify even very complex regexps. (On displays that don't support -colors, Emacs blinks the cursor around the matched text, as it does -for matching parens.) -@end ignore - @node Search Case @section Searching and Case @@ -927,7 +917,7 @@ searches also, including those performed by the replace commands Global search-and-replace operations are not needed often in Emacs, but they are available. In addition to the simple @kbd{M-x replace-string} command which replaces all occurrences, -there is a @kbd{M-x query-replace} command which finds each occurrence +there is @kbd{M-%} (@code{query-replace}), which presents each occurrence of the pattern and asks you whether to replace it. The replace commands normally operate on the text from point to the diff --git a/man/sending.texi b/man/sending.texi index e63e5bb9c4c..6fa5c1b0485 100644 --- a/man/sending.texi +++ b/man/sending.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985,86,87,93,94,95,97,2000,2001, 2003 -@c Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, 2002, +@c 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Sending Mail, Rmail, Picture, Top @chapter Sending Mail diff --git a/man/ses.texi b/man/ses.texi index 9667161f673..1cb2ef3cad1 100644 --- a/man/ses.texi +++ b/man/ses.texi @@ -8,7 +8,7 @@ @copying This file documents SES: the Simple Emacs Spreadsheet. -Copyright @copyright{} 2002, 2005 Free Software Foundation, Inc. +Copyright @copyright{} 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/sieve.texi b/man/sieve.texi index a41463c5316..21da1f22c1b 100644 --- a/man/sieve.texi +++ b/man/sieve.texi @@ -9,7 +9,7 @@ @copying This file documents the Emacs Sieve package. -Copyright (C) 2001 Free Software Foundation, Inc. +Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/smtpmail.texi b/man/smtpmail.texi index f75b48dddd4..847d7c7d74c 100644 --- a/man/smtpmail.texi +++ b/man/smtpmail.texi @@ -3,7 +3,7 @@ @settitle Emacs SMTP Library @syncodeindex vr fn @copying -Copyright @copyright{} 2003, 2004 Free Software Foundation, Inc. +Copyright @copyright{} 2003, 2004, 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/speedbar.texi b/man/speedbar.texi index 3fea2c33c3d..58dd4b435e1 100644 --- a/man/speedbar.texi +++ b/man/speedbar.texi @@ -5,7 +5,8 @@ @syncodeindex fn cp @copying -Copyright @copyright{} 1999, 2000, 2002, 2004 Free Software Foundation, Inc. +Copyright @copyright{} 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/texinfo.tex b/man/texinfo.tex index ef68971341a..eb7ea101e61 100644 --- a/man/texinfo.tex +++ b/man/texinfo.tex @@ -3,10 +3,11 @@ % Load plain if necessary, i.e., if running under initex. \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi % -\def\texinfoversion{2005-02-08.10} +\def\texinfoversion{2005-08-10.17} % -% Copyright (C) 1985, 86, 88, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, -% 2000, 01, 02 Free Software Foundation, Inc. +% Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, +% 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +% 2005 Free Software Foundation, Inc. % % This texinfo.tex file is free software; you can redistribute it and/or % modify it under the terms of the GNU General Public License as diff --git a/man/text.texi b/man/text.texi index 89fb79eece1..01cacc1a62e 100644 --- a/man/text.texi +++ b/man/text.texi @@ -1,6 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985,86,87,93,94,95,97,2000,2001, 2002, 2004 -@c Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Text, Programs, Indentation, Top @chapter Commands for Human Languages @@ -228,7 +228,7 @@ normally similar to the following regexp: @end example @noindent -This example is explained in the section on regexps. @xref{Regexps}. +This example is explained in the section on regexps. @xref{Regexp Example}. If you want to use just one space between sentences, you should set @code{sentence-end} to this value: diff --git a/man/tramp.texi b/man/tramp.texi index 756b467157c..b28292cff87 100644 --- a/man/tramp.texi +++ b/man/tramp.texi @@ -25,8 +25,8 @@ @end macro @copying -Copyright @copyright{} 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free -Software Foundation, Inc. +Copyright @copyright{} 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document @@ -218,10 +218,10 @@ How file names, directories and localnames are mangled and managed @chapter An overview of @value{tramp} @cindex overview -After the installation of @value{tramp} into your @value{emacsname}, you -will be able to access files on remote machines as though they were -local. Access to the remote file system for editing files, version -control, and @command{dired} are transparently enabled. +After the installation of @value{tramp} into your @value{emacsname}, +you will be able to access files on remote machines as though they +were local. Access to the remote file system for editing files, +version control, and @code{dired} are transparently enabled. Your access to the remote machine can be with the @command{rsh}, @command{rlogin}, @command{telnet} programs or with any similar @@ -289,9 +289,9 @@ Communication with this process happens through an goes into a buffer. @item -The remote host may prompt for a login name (for @command{telnet}). The -login name is given in the file name, so @value{tramp} sends the login name and -a newline. +The remote host may prompt for a login name (for @command{telnet}). +The login name is given in the file name, so @value{tramp} sends the +login name and a newline. @item The remote host may prompt for a password or pass phrase (for @@ -365,7 +365,6 @@ you are finished, you type @kbd{C-x C-s} to save the buffer. Again, @value{tramp} transfers the file contents to the remote host either inline or out-of-band. This is the reverse of what happens when reading the file. - @end itemize I hope this has provided you with a basic overview of what happens @@ -653,7 +652,6 @@ easy to implement, so I haven't got around to it, yet. @item @option{sshx} @cindex method sshx @cindex sshx method -@cindex Cygwin (with sshx method) As you would expect, this is similar to @option{ssh}, only a little different. Whereas @option{ssh} opens a normal interactive shell on @@ -674,9 +672,9 @@ in without such questions. This is also useful for Windows users where @command{ssh}, when invoked from an @value{emacsname} buffer, tells them that it is not allocating a pseudo tty. When this happens, the login shell is wont -to not print any shell prompt, which confuses @value{tramp} mightily. For -reasons unknown, some Windows ports for @command{ssh} (maybe the -Cygwin one) require the doubled @samp{-t} option. +to not print any shell prompt, which confuses @value{tramp} mightily. +For reasons unknown, some Windows ports for @command{ssh} require the +doubled @samp{-t} option. This supports the @samp{-p} kludge. @@ -817,7 +815,6 @@ This method supports the @samp{-p} hack. @cindex scpx method @cindex scp (with scpx method) @cindex ssh (with scpx method) -@cindex Cygwin (with scpx method) As you would expect, this is similar to @option{scp}, only a little different. Whereas @option{scp} opens a normal interactive shell on @@ -832,7 +829,6 @@ This is also useful for Windows users where @command{ssh}, when invoked from an @value{emacsname} buffer, tells them that it is not allocating a pseudo tty. When this happens, the login shell is wont to not print any shell prompt, which confuses @value{tramp} mightily. -Maybe this applies to the Cygwin port of SSH. This method supports the @samp{-p} hack. @@ -1025,7 +1021,7 @@ For example: '("sshf" tramp-multi-connect-rlogin "ssh %h -l %u -p 4400%n")) @end lisp -Now you can use an @code{sshf} hop which connects to port 4400 instead of +Now you can use an @option{sshf} hop which connects to port 4400 instead of the standard port. @@ -1074,16 +1070,16 @@ Another consideration with the selection of transfer methods is the environment you will use them in and, especially when used over the Internet, the security implications of your preferred method. -The @command{rsh} and @command{telnet} methods send your password as -plain text as you log in to the remote machine, as well as transferring -the files in such a way that the content can easily be read from other -machines. +The @option{rsh} and @option{telnet} methods send your password as +plain text as you log in to the remote machine, as well as +transferring the files in such a way that the content can easily be +read from other machines. If you need to connect to remote systems that are accessible from the -Internet, you should give serious thought to using @command{ssh} based +Internet, you should give serious thought to using @option{ssh} based methods to connect. These provide a much higher level of security, -making it a non-trivial exercise for someone to obtain your password or -read the content of the files you are editing. +making it a non-trivial exercise for someone to obtain your password +or read the content of the files you are editing. @subsection Which method is the right one for me? @@ -1101,28 +1097,29 @@ methods might be more efficient, but I guess that most people will want to edit mostly small files. I guess that these days, most people can access a remote machine by -using @code{ssh}. So I suggest that you use the @code{ssh} method. -So, type @kbd{C-x C-f +using @command{ssh}. So I suggest that you use the @option{ssh} +method. So, type @kbd{C-x C-f @value{prefix}ssh@value{postfixsinglehop}root@@otherhost@value{postfix}/etc/motd @key{RET}} to edit the @file{/etc/motd} file on the other host. -If you can't use @code{ssh} to log in to the remote host, then select a -method that uses a program that works. For instance, Windows users -might like the @code{plink} method which uses the PuTTY implementation -of @code{ssh}. Or you use Kerberos and thus like @code{krlogin}. +If you can't use @option{ssh} to log in to the remote host, then +select a method that uses a program that works. For instance, Windows +users might like the @option{plink} method which uses the PuTTY +implementation of @command{ssh}. Or you use Kerberos and thus like +@option{krlogin}. For the special case of editing files on the local host as another -user, see the @code{su} or @code{sudo} method. It offers shortened -syntax for the @samp{root} account, like +user, see the @option{su} or @option{sudo} methods. They offer +shortened syntax for the @samp{root} account, like @file{@value{prefix}su@value{postfixsinglehop}@value{postfix}/etc/motd}. -People who edit large files may want to consider @code{scp} instead of -@code{ssh}, or @code{pscp} instead of @code{plink}. These out-of-band -methods are faster than inline methods for large files. Note, however, -that out-of-band methods suffer from some limitations. Please try -first whether you really get a noticeable speed advantage from using an -out-of-band method! Maybe even for large files, inline methods are -fast enough. +People who edit large files may want to consider @option{scp} instead +of @option{ssh}, or @option{pscp} instead of @option{plink}. These +out-of-band methods are faster than inline methods for large files. +Note, however, that out-of-band methods suffer from some limitations. +Please try first whether you really get a noticeable speed advantage +from using an out-of-band method! Maybe even for large files, inline +methods are fast enough. @node Customizing Methods @@ -1365,16 +1362,16 @@ the remote host such that it behaves like @value{tramp} expects. This might be inconvenient because you have to invest a lot of effort into shell setup before you can begin to use @value{tramp}. -The package, therefore, pursues a combined approach. It tries to figure -out some of the more common setups, and only requires you to avoid -really exotic stuff. For example, it looks through a list of +The package, therefore, pursues a combined approach. It tries to +figure out some of the more common setups, and only requires you to +avoid really exotic stuff. For example, it looks through a list of directories to find some programs on the remote host. And also, it knows that it is not obvious how to check whether a file exists, and -therefore it tries different possibilities. (On some hosts and shells, -the command @code{test -e} does the trick, on some hosts the shell -builtin doesn't work but the program @code{/usr/bin/test -e} or -@code{/bin/test -e} works. And on still other hosts, @code{ls -d} is -the right way to do this.) +therefore it tries different possibilities. (On some hosts and +shells, the command @command{test -e} does the trick, on some hosts +the shell builtin doesn't work but the program @command{/usr/bin/test +-e} or @command{/bin/test -e} works. And on still other hosts, +@command{ls -d} is the right way to do this.) Below you find a discussion of a few things that @value{tramp} does not deal with, and that you therefore have to set up correctly. @@ -1409,11 +1406,11 @@ different user. The default value of @code{shell-prompt-pattern}, which is reported to work well in many circumstances. -@item @code{tset} and other questions +@item @command{tset} and other questions @cindex Unix command tset @cindex tset Unix command -Some people invoke the @code{tset} program from their shell startup +Some people invoke the @command{tset} program from their shell startup scripts which asks the user about the terminal type of the shell. Maybe some shells ask other questions when they are started. @value{tramp} does not know how to answer these questions. There are two approaches @@ -1443,20 +1440,21 @@ This weird effect was actually reported by a @value{tramp} user! @item Non-Bourne commands in @file{.profile} After logging in to the remote host, @value{tramp} issues the command -@code{exec /bin/sh}. (Actually, the command is slightly different.) -When @code{/bin/sh} is executed, it reads some init files, such as -@file{~/.shrc} or @file{~/.profile}. +@command{exec /bin/sh}. (Actually, the command is slightly +different.) When @command{/bin/sh} is executed, it reads some init +files, such as @file{~/.shrc} or @file{~/.profile}. Now, some people have a login shell which is not @code{/bin/sh} but a Bourne-ish shell such as bash or ksh. Some of these people might put -their shell setup into the files @code{~/.shrc} or @code{~/.profile}. +their shell setup into the files @file{~/.shrc} or @file{~/.profile}. This way, it is possible for non-Bourne constructs to end up in those -files. Then, @code{exec /bin/sh} might cause the Bourne shell to barf -on those constructs. +files. Then, @command{exec /bin/sh} might cause the Bourne shell to +barf on those constructs. -As an example, imagine somebody putting @code{export FOO=bar} into the -file @file{~/.profile}. The standard Bourne shell does not understand -this syntax and will emit a syntax error when it reaches this line. +As an example, imagine somebody putting @command{export FOO=bar} into +the file @file{~/.profile}. The standard Bourne shell does not +understand this syntax and will emit a syntax error when it reaches +this line. Another example is the tilde (@code{~}) character, say when adding @file{~/bin} to @code{$PATH}. Many Bourne shells will not expand this @@ -1467,8 +1465,8 @@ What can you do about this? Well, one possibility is to make sure that everything in @file{~/.shrc} and @file{~/.profile} on all remote hosts is Bourne-compatible. In the -above example, instead of @code{export FOO=bar}, you might use -@code{FOO=bar; export FOO} instead. +above example, instead of @command{export FOO=bar}, you might use +@command{FOO=bar; export FOO} instead. The other possibility is to put your non-Bourne shell setup into some other files. For example, bash reads the file @file{~/.bash_profile} @@ -1476,14 +1474,15 @@ instead of @file{~/.profile}, if the former exists. So bash aficionados just rename their @file{~/.profile} to @file{~/.bash_profile} on all remote hosts, and Bob's your uncle. -The @value{tramp} developers would like to circumvent this problem, so if you -have an idea about it, please tell us. However, we are afraid it is not -that simple: before saying @code{exec /bin/sh}, @value{tramp} does not know -which kind of shell it might be talking to. It could be a Bourne-ish -shell like ksh or bash, or it could be a csh derivative like tcsh, or -it could be zsh, or even rc. If the shell is Bourne-ish already, then -it might be prudent to omit the @code{exec /bin/sh} step. But how to -find out if the shell is Bourne-ish? +The @value{tramp} developers would like to circumvent this problem, so +if you have an idea about it, please tell us. However, we are afraid +it is not that simple: before saying @command{exec /bin/sh}, +@value{tramp} does not know which kind of shell it might be talking +to. It could be a Bourne-ish shell like ksh or bash, or it could be a +csh derivative like tcsh, or it could be zsh, or even rc. If the +shell is Bourne-ish already, then it might be prudent to omit the +@command{exec /bin/sh} step. But how to find out if the shell is +Bourne-ish? @end table @@ -1630,38 +1629,44 @@ This section needs a lot of work! Please help. @cindex method sshx with Cygwin @cindex sshx method with Cygwin -If you use the Cygwin installation of ssh (you have to explicitly select -it in the installer), then it should work out of the box to just select -@code{sshx} as the connection method. You can find information about -setting up Cygwin in their FAQ at @uref{http://cygwin.com/faq/}. +The recent Cygwin installation of @command{ssh} works only with a +Cygwinized @value{emacsname}. You can check it by typing @kbd{M-x +eshell}, and starting @kbd{ssh test.machine}. The problem is evident +if you see a message like this: + +@example +Pseudo-terminal will not be allocated because stdin is not a terminal. +@end example + +Older @command{ssh} versions of Cygwin are told to cooperate with +@value{tramp} selecting @option{sshx} as the connection method. You +can find information about setting up Cygwin in their FAQ at +@uref{http://cygwin.com/faq/}. @cindex method scpx with Cygwin @cindex scpx method with Cygwin -If you wish to use the @code{scpx} connection method, then you might -have the problem that @value{emacsname} calls @code{scp} with a +If you wish to use the @option{scpx} connection method, then you might +have the problem that @value{emacsname} calls @command{scp} with a Windows filename such as @code{c:/foo}. The Cygwin version of -@code{scp} does not know about Windows filenames and interprets this +@command{scp} does not know about Windows filenames and interprets this as a remote filename on the host @code{c}. -One possible workaround is to write a wrapper script for @code{scp} +One possible workaround is to write a wrapper script for @option{scp} which converts the Windows filename to a Cygwinized filename. -I guess that another workaround is to run @value{emacsname} under -Cygwin, or to run a Cygwinized @value{emacsname}. - @cindex Cygwin and ssh-agent @cindex SSH_AUTH_SOCK and @value{emacsname} on Windows -If you want to use either @code{ssh} based method on Windows, then you -might encounter problems with @code{ssh-agent}. Using this program, -you can avoid typing the pass-phrase every time you log in. However, -if you start @value{emacsname} from a desktop shortcut, then the -environment variable @code{SSH_AUTH_SOCK} is not set and so -@value{emacsname} and thus @value{tramp} and thus @code{ssh} and -@code{scp} started from @value{tramp} cannot communicate with -@code{ssh-agent}. It works better to start @value{emacsname} from +If you want to use either @option{ssh} based method on Windows, then +you might encounter problems with @command{ssh-agent}. Using this +program, you can avoid typing the pass-phrase every time you log in. +However, if you start @value{emacsname} from a desktop shortcut, then +the environment variable @code{SSH_AUTH_SOCK} is not set and so +@value{emacsname} and thus @value{tramp} and thus @command{ssh} and +@command{scp} started from @value{tramp} cannot communicate with +@command{ssh-agent}. It works better to start @value{emacsname} from the shell. -If anyone knows how to start @code{ssh-agent} under Windows in such a +If anyone knows how to start @command{ssh-agent} under Windows in such a way that desktop shortcuts can profit, please holler. I don't really know anything at all about Windows@dots{} @@ -2108,10 +2113,10 @@ remote host. There's this @file{~/.sh_history} file on the remote host which keeps growing and growing. What's that? -Sometimes, @value{tramp} starts @code{ksh} on the remote host for tilde -expansion. Maybe @code{ksh} saves the history by default. @value{tramp} -tries to turn off saving the history, but maybe you have to help. For -example, you could put this in your @file{.kshrc}: +Sometimes, @value{tramp} starts @command{ksh} on the remote host for +tilde expansion. Maybe @command{ksh} saves the history by default. +@value{tramp} tries to turn off saving the history, but maybe you have +to help. For example, you could put this in your @file{.kshrc}: @example if [ -f $HOME/.sh_history ] ; then @@ -2316,18 +2321,18 @@ effect while preserving the @value{tramp} file name information. @itemize @bullet @item The uuencode method does not always work. -Due to the design of @value{tramp}, the encoding and decoding programs need to -read from stdin and write to stdout. On some systems, @code{uudecode -o --} will read stdin and write the decoded file to stdout, on other -systems @code{uudecode -p} does the same thing. But some systems have -uudecode implementations which cannot do this at all---it is not -possible to call these uudecode implementations with suitable parameters -so that they write to stdout. +Due to the design of @value{tramp}, the encoding and decoding programs +need to read from stdin and write to stdout. On some systems, +@command{uudecode -o -} will read stdin and write the decoded file to +stdout, on other systems @command{uudecode -p} does the same thing. +But some systems have uudecode implementations which cannot do this at +all---it is not possible to call these uudecode implementations with +suitable parameters so that they write to stdout. Of course, this could be circumvented: the @code{begin foo 644} line could be rewritten to put in some temporary file name, then -@code{uudecode} could be called, then the temp file could be printed and -deleted. +@command{uudecode} could be called, then the temp file could be +printed and deleted. But I have decided that this is too fragile to reliably work, so on some systems you'll have to do without the uuencode methods. @@ -2368,13 +2373,12 @@ to the files @file{.../xemacs-packages/lisp/tramp/auto-autoloads.el*}. In case of unified filenames, all @value{emacsname} download sites are added to @code{tramp-default-method-alist} with default method -@code{ftp} @xref{Default Method}. These settings shouldn't be touched +@option{ftp} @xref{Default Method}. These settings shouldn't be touched for proper working of the @value{emacsname} package system. The syntax for unified filenames is described in the @value{tramp} manual for @value{emacsothername}. @end ifset - @end itemize @node Concept Index diff --git a/man/trampver.texi b/man/trampver.texi index 33a0aacbb9e..a77ae82d49b 100644 --- a/man/trampver.texi +++ b/man/trampver.texi @@ -4,7 +4,7 @@ @c In the Tramp CVS, the version number is auto-frobbed from @c configure.ac, so you should edit that file and run @c "autoconf && ./configure" to change the version number. -@set trampver 2.0.49 +@set trampver 2.0.50 @c Other flags from configuration @set prefix /usr/local diff --git a/man/trouble.texi b/man/trouble.texi index 1cd3aa4db12..f9d56d22194 100644 --- a/man/trouble.texi +++ b/man/trouble.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985,86,87,93,94,95,1997,2001,2004 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2001, 2002, +@c 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @iftex @chapter Dealing with Common Problems @@ -303,8 +304,7 @@ the following in your @file{.emacs} file: When flow control is enabled, you must type @kbd{C-\} to get the effect of a @kbd{C-s}, and type @kbd{C-^} to get the effect of a -@kbd{C-q}. (These aliases work by means of keyboard translations; see -@ref{Keyboard Translations}.) +@kbd{C-q}. @node Memory Full @subsection Running out of Memory diff --git a/man/url.texi b/man/url.texi index 47b4c4305a9..f60890afb26 100644 --- a/man/url.texi +++ b/man/url.texi @@ -21,7 +21,8 @@ @ifnottex This file documents the URL loading package. -Copyright (C) 1996, 1997, 1998, 1999, 2002, 2004 Free Software Foundation +Copyright (C) 1996, 1997, 1998, 1999, 2002, 2004, + 2005 Free Software Foundation, Inc. Copyright (C) 1993, 1994, 1995, 1996 William M. Perry Permission is granted to copy, distribute and/or modify this document @@ -50,7 +51,8 @@ License.'' @page @vskip 0pt plus 1filll Copyright @copyright{} 1993, 1994, 1995, 1996 William M. Perry@* -Copyright @copyright{} 1996, 1997, 1998, 1999, 2002 Free Software Foundation +Copyright @copyright{} 1996, 1997, 1998, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.1 or diff --git a/man/vip.texi b/man/vip.texi index cba1998f011..5bc1e23da3c 100644 --- a/man/vip.texi +++ b/man/vip.texi @@ -4,7 +4,8 @@ @settitle VIP @copying -Copyright @copyright{} 1987, 2001, 2002 Free Software Foundation, Inc. +Copyright @copyright{} 1987, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/viper.texi b/man/viper.texi index 0156c4c6387..4e71eaee296 100644 --- a/man/viper.texi +++ b/man/viper.texi @@ -7,8 +7,8 @@ @setfilename ../info/viper @copying -Copyright @copyright{} 1995, 1996, 1997, 2001, 2002 Free Software -Foundation, Inc. +Copyright @copyright{} 1995, 1996, 1997, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document @@ -507,9 +507,8 @@ modes designed for editing files, such as cc-mode or latex-mode, use key sequences that begin with @kbd{C-x} and @kbd{C-c}. There is also a key that lets you temporarily escape to Vi command state -from Emacs or Insert states: typing @kbd{C-c \} will let you execute a -single Vi command while staying in Viper's Emacs or Insert state. -In Insert state, the same can also be achieved by typing @kbd{C-z}. +from the Insert state: typing @kbd{C-z} will let you execute a +single Vi command while staying in Viper's Insert state. @node Vi State, Insert State, Emacs State, States in Viper diff --git a/man/windows.texi b/man/windows.texi index 092a678901b..023b96340ff 100644 --- a/man/windows.texi +++ b/man/windows.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1985,86,87,93,94,95,97,2000,2001,2004 Free Software Foundation, Inc. +@c Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 2000, 2001, +@c 2002, 2003, 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node Windows, Frames, Buffers, Top @chapter Multiple Windows @@ -94,7 +95,8 @@ numeric argument specifies how many lines to give to the top window. @kbd{C-x 3} (@code{split-window-horizontally}) breaks the selected window into two side-by-side windows. A numeric argument specifies how many columns to give the one on the left. If you are not using -scrollbars, a line of vertical bars separates the two windows. +scrollbars, a vertical line separates the two windows. +You can customize its color with the face @code{vertical-border}. Windows that are not the full width of the screen have mode lines, but they are truncated. On terminals where Emacs does not support highlighting, truncated mode lines sometimes do not appear in inverse diff --git a/man/woman.texi b/man/woman.texi index fdcc8901339..0d827ef34c3 100644 --- a/man/woman.texi +++ b/man/woman.texi @@ -17,7 +17,8 @@ This file documents WoMan: A program to browse Unix manual pages `W.O. (without) man'. -Copyright @copyright{} 2001, 2002, 2004 Free Software Foundation, Inc. +Copyright @copyright{} 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. @quotation Permission is granted to copy, distribute and/or modify this document diff --git a/man/xresources.texi b/man/xresources.texi index 7f7d9aaf82c..1e0783eac61 100644 --- a/man/xresources.texi +++ b/man/xresources.texi @@ -1,5 +1,6 @@ @c This is part of the Emacs manual. -@c Copyright (C) 1987,93,94,95,1997,2001,03 Free Software Foundation, Inc. +@c Copyright (C) 1987, 1993, 1994, 1995, 1997, 2001, 2002, 2003, +@c 2004, 2005 Free Software Foundation, Inc. @c See file emacs.texi for copying conditions. @node X Resources, Antinews, Emacs Invocation, Top @appendix X Options and Resources diff --git a/msdos/ChangeLog b/msdos/ChangeLog index 1fd237ded28..ee8dc3fe9d5 100644 --- a/msdos/ChangeLog +++ b/msdos/ChangeLog @@ -609,8 +609,8 @@ ;; coding: iso-2022-7bit-unix ;; End: - Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2001 - Free Software Foundation, Inc. + Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2001, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted provided the copyright notice and this notice are preserved. diff --git a/msdos/README b/msdos/README index a972c53814f..3827d2944d7 100644 --- a/msdos/README +++ b/msdos/README @@ -6,8 +6,7 @@ The files emacs.ico and emacs.pif are for using the DJGPP version on Windows 3.X. Since these are binary files, their copyright notice is reproduced here: -# Copyright (C) 1993 -# Free Software Foundation, Inc. +# Copyright (C) 1993, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/msdos/mainmake b/msdos/mainmake index 4f0193baabb..d09f11b4e40 100644 --- a/msdos/mainmake +++ b/msdos/mainmake @@ -1,4 +1,5 @@ -# Copyright (C) 1993,1994,1995,1996,2001 Free Software Foundation, Inc. +# Copyright (C) 1993, 1994, 1995, 1996, 2001, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # This file is part of GNU Emacs. diff --git a/msdos/mainmake.v2 b/msdos/mainmake.v2 index e7e615da73c..b31dcb8905c 100644 --- a/msdos/mainmake.v2 +++ b/msdos/mainmake.v2 @@ -1,7 +1,7 @@ # Top-level Makefile for Emacs under MS-DOS/DJGPP v2.0 or higher. -*-makefile-*- -# Copyright (C) 1996,1997,1998,1999,2000,2001,2002 -# Free Software Foundation, Inc. +# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # This file is part of GNU Emacs. diff --git a/msdos/sed1.inp b/msdos/sed1.inp index 67257d9c9fe..2efbde37a6f 100644 --- a/msdos/sed1.inp +++ b/msdos/sed1.inp @@ -2,8 +2,8 @@ # Configuration script for src/makefile # ---------------------------------------------------------------------- # -# Copyright (C) 1993, 1994, 1995, 1996, 1997, 2000 -# Free Software Foundation, Inc. +# Copyright (C) 1993, 1994, 1995, 1996, 1997, 2000, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/msdos/sed1v2.inp b/msdos/sed1v2.inp index 93b4f7d5d89..358faa24dc4 100644 --- a/msdos/sed1v2.inp +++ b/msdos/sed1v2.inp @@ -2,8 +2,8 @@ # Configuration script for src/Makefile under DJGPP v2.x # ---------------------------------------------------------------------- # -# Copyright (C) 1996, 1997, 1999, 2000, 2002 -# Free Software Foundation, Inc. +# Copyright (C) 1996, 1997, 1999, 2000, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/msdos/sed2.inp b/msdos/sed2.inp index 4580f0e623e..945b753d01d 100644 --- a/msdos/sed2.inp +++ b/msdos/sed2.inp @@ -2,8 +2,8 @@ # Configuration script for src/config.h # ---------------------------------------------------------------------- # -# Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2002 -# Free Software Foundation, Inc. +# Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2002, 2003, +# 2004, 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/msdos/sed2v2.inp b/msdos/sed2v2.inp index 31687bf0086..3beb48650e7 100644 --- a/msdos/sed2v2.inp +++ b/msdos/sed2v2.inp @@ -2,8 +2,8 @@ # Configuration script for src/config.h under DJGPP v2.x # ---------------------------------------------------------------------- # -# Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2002 -# Free Software Foundation, Inc. +# Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2002, 2003, +# 2004, 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/msdos/sed2x.inp b/msdos/sed2x.inp index a1af086077f..b1cbd696030 100644 --- a/msdos/sed2x.inp +++ b/msdos/sed2x.inp @@ -2,8 +2,7 @@ # Extra configuration script for src/config.h for DesqView/X # ---------------------------------------------------------------------- # -# Copyright (C) 1994 -# Free Software Foundation, Inc. +# Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/msdos/sed3.inp b/msdos/sed3.inp index 6ae9c54eeaf..efbe448d0d1 100644 --- a/msdos/sed3.inp +++ b/msdos/sed3.inp @@ -2,8 +2,8 @@ # Configuration script for lib-src/makefile # ---------------------------------------------------------------------- # -# Copyright (C) 1993, 1994, 1995 -# Free Software Foundation, Inc. +# Copyright (C) 1993, 1994, 1995, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/msdos/sed3v2.inp b/msdos/sed3v2.inp index 657c2d4e5ff..46d9f2fc894 100644 --- a/msdos/sed3v2.inp +++ b/msdos/sed3v2.inp @@ -2,8 +2,8 @@ # Configuration script for lib-src/makefile under DJGPP v2 # ---------------------------------------------------------------------- # -# Copyright (C) 1996, 1998, 2000 -# Free Software Foundation, Inc. +# Copyright (C) 1996, 1998, 2000, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/msdos/sed4.inp b/msdos/sed4.inp index 22588115382..23883bc8e2d 100644 --- a/msdos/sed4.inp +++ b/msdos/sed4.inp @@ -2,8 +2,7 @@ # Configuration script for src/paths.h # ---------------------------------------------------------------------- # -# Copyright (C) 1994 -# Free Software Foundation, Inc. +# Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/msdos/sed5x.inp b/msdos/sed5x.inp index 6f05df8a26a..c9a3ac998ce 100644 --- a/msdos/sed5x.inp +++ b/msdos/sed5x.inp @@ -2,8 +2,7 @@ # Configuration script for oldxmenu/makefile for DesqView/X # ---------------------------------------------------------------------- # -# Copyright (C) 1994 -# Free Software Foundation, Inc. +# Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/msdos/sed6.inp b/msdos/sed6.inp index 686d3aa92ae..2aae6aa441c 100644 --- a/msdos/sed6.inp +++ b/msdos/sed6.inp @@ -3,8 +3,8 @@ # lispintro/Makefile under DJGPP v2.x # --------------------------------------------------------------------------- # -# Copyright (C) 1997, 2000, 2001 -# Free Software Foundation, Inc. +# Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/msdos/sedleim.inp b/msdos/sedleim.inp index bb81e7ec113..287dfad7c44 100644 --- a/msdos/sedleim.inp +++ b/msdos/sedleim.inp @@ -2,8 +2,8 @@ # Configuration script for leim/Makefile under DJGPP v2.x # ---------------------------------------------------------------------- # -# Copyright (C) 1999, 2000 -# Free Software Foundation, Inc. +# Copyright (C) 1999, 2000, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/msdos/sedlisp.inp b/msdos/sedlisp.inp index 9cff732a445..bb7d8b8e620 100644 --- a/msdos/sedlisp.inp +++ b/msdos/sedlisp.inp @@ -2,8 +2,7 @@ # Configuration script for lisp/Makefile under DJGPP v2.x # ---------------------------------------------------------------------- # -# Copyright (C) 2000, 2002 -# Free Software Foundation, Inc. +# Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/nt/.gitignore b/nt/.gitignore index e371584228b..26f5de661a0 100644 --- a/nt/.gitignore +++ b/nt/.gitignore @@ -1,5 +1,7 @@ *-spd *.pdb .arch-inventory -makefile config.log +makefile +obj +oo diff --git a/nt/ChangeLog b/nt/ChangeLog index d960f224898..854410b4f58 100644 --- a/nt/ChangeLog +++ b/nt/ChangeLog @@ -1,3 +1,7 @@ +2005-08-10 Juanma Barranquero <lekktu@gmail.com> + + * .cvsignore: Add `obj' and `oo' for in-place installations. + 2005-07-30 Eli Zaretskii <eliz@gnu.org> * config.nt: (HAVE_GETOPT_H, HAVE_GETOPT_LONG_ONLY): Undefine. @@ -1175,8 +1179,8 @@ ;; coding: iso-2022-7bit ;; End: - Copyright (C) 1995, 1996, 1997, 1998, 1999, 2001 - Free Software Foundation, Inc. + Copyright (C) 1995, 1996, 1997, 1998, 1999, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted provided the copyright notice and this notice are preserved. diff --git a/nt/INSTALL b/nt/INSTALL index ecf42a29b12..ed960b06bdd 100644 --- a/nt/INSTALL +++ b/nt/INSTALL @@ -1,7 +1,7 @@ Building and Installing Emacs on Windows NT/2K/XP and Windows 95/98/ME - Copyright (c) 2001,2004,2005 Free Software Foundation, Inc. + Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. See the end of the file for copying permissions. If you used WinZip to unpack the distribution, we suggest to diff --git a/nt/README b/nt/README index dce733fb657..0bb1625fecd 100644 --- a/nt/README +++ b/nt/README @@ -1,6 +1,6 @@ Emacs for Windows NT/2000 and Windows 95/98/ME - Copyright (c) 2001 Free Software Foundation, Inc. + Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. See the end of the INSTALL file in this directory for copying permissions. This directory contains support for compiling and running GNU Emacs on diff --git a/nt/addpm.c b/nt/addpm.c index 398737839c9..0827d2453c0 100644 --- a/nt/addpm.c +++ b/nt/addpm.c @@ -1,5 +1,5 @@ /* Add entries to the GNU Emacs Program Manager folder. - Copyright (C) 1995 Free Software Foundation, Inc. + Copyright (C) 1995, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/nt/addsection.c b/nt/addsection.c index 20ab5cf5163..5a58f3e1c07 100644 --- a/nt/addsection.c +++ b/nt/addsection.c @@ -1,5 +1,5 @@ /* Add an uninitialized data section to an executable. - Copyright (C) 1999, 2005 Free Software Foundation, Inc. + Copyright (C) 1999, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/nt/cmdproxy.c b/nt/cmdproxy.c index 58be32984a9..be7c7531bf6 100644 --- a/nt/cmdproxy.c +++ b/nt/cmdproxy.c @@ -1,5 +1,5 @@ /* Proxy shell designed for use with Emacs on Windows 95 and NT. - Copyright (C) 1997 Free Software Foundation, Inc. + Copyright (C) 1997, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Accepts subset of Unix sh(1) command-line options, for compatability with elisp code written for Unix. When possible, executes external diff --git a/nt/config.nt b/nt/config.nt index 048f01daebe..4b8c38823af 100644 --- a/nt/config.nt +++ b/nt/config.nt @@ -1,5 +1,6 @@ /* GNU Emacs site configuration template file. -*- C -*- - Copyright (C) 1988, 1993, 1994 Free Software Foundation, Inc. + Copyright (C) 1988, 1993, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/nt/ddeclient.c b/nt/ddeclient.c index 6661e84f244..540cac24ebf 100644 --- a/nt/ddeclient.c +++ b/nt/ddeclient.c @@ -1,5 +1,5 @@ /* Simple client interface to DDE servers. - Copyright (C) 1998 Free Software Foundation, Inc. + Copyright (C) 1998, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/nt/emacs.rc b/nt/emacs.rc index 6220ab0ffa1..b233bcd845f 100644 --- a/nt/emacs.rc +++ b/nt/emacs.rc @@ -26,7 +26,7 @@ BEGIN VALUE "FileDescription", "GNU Emacs for Windows NT/95/98/2000/ME/XP\0" VALUE "FileVersion", "21, 3, 50, 0\0" VALUE "InternalName", "Emacs\0" - VALUE "LegalCopyright", "Copyright (C) 2002\0" + VALUE "LegalCopyright", "Copyright (C) 2002, 2003, 2004, 2005\0" VALUE "OriginalFilename", "emacs.exe" VALUE "ProductName", "Emacs: The extensible self-documenting text editor\0" VALUE "ProductVersion", "21, 3, 50, 0\0" diff --git a/nt/envadd.bat b/nt/envadd.bat index 3e9a49ef292..d48e6cc8bf1 100644 --- a/nt/envadd.bat +++ b/nt/envadd.bat @@ -1,7 +1,7 @@ rem Hack to change/add environment variables in the makefiles for the
rem Windows platform.
rem
-rem Copyright (c) 2003 Free Software Foundation, Inc.
+rem Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc.
rem
rem This file is part of GNU Emacs.
rem
diff --git a/nt/gmake.defs b/nt/gmake.defs index e077aef5024..c3f20fbeabe 100644 --- a/nt/gmake.defs +++ b/nt/gmake.defs @@ -1,5 +1,6 @@ # -*- Makefile -*- definition file for building GNU Emacs on Windows NT. -# Copyright (c) 2000-2001 Free Software Foundation, Inc. +# Copyright (c) 2000, 2001, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # # GNU Emacs is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by diff --git a/nt/inc/grp.h b/nt/inc/grp.h index b44cbe543fd..39f98d31cdc 100755 --- a/nt/inc/grp.h +++ b/nt/inc/grp.h @@ -1,5 +1,5 @@ /* Replacement grp.h file for building GNU Emacs on Windows. - Copyright (C) 2003 Free Software Foundation, Inc. + Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/nt/inc/sys/socket.h b/nt/inc/sys/socket.h index 228eefb2396..19b8a65adda 100644 --- a/nt/inc/sys/socket.h +++ b/nt/inc/sys/socket.h @@ -1,4 +1,4 @@ -/* Copyright (C) 1995 Free Software Foundation, Inc. +/* Copyright (C) 1995, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/nt/makefile.w32-in b/nt/makefile.w32-in index 5d793751f56..fb1ea246663 100644 --- a/nt/makefile.w32-in +++ b/nt/makefile.w32-in @@ -1,5 +1,6 @@ # -*- Makefile -*- for GNU Emacs on the Microsoft W32 API.
-# Copyright (c) 2000-2001, 2004 Free Software Foundation, Inc.
+# Copyright (C) 2000, 2001, 2002, 2003, 2004,
+# 2005 Free Software Foundation, Inc.
#
# Top level makefile for building GNU Emacs on Windows NT
#
diff --git a/nt/multi-install-info.bat b/nt/multi-install-info.bat index ea318af8405..f06f94c9ca4 100644 --- a/nt/multi-install-info.bat +++ b/nt/multi-install-info.bat @@ -3,7 +3,7 @@ rem Hack to run install-info with multiple info files on the command
rem line on the Windows platform.
rem
-rem Copyright (c) 2003 Free Software Foundation, Inc.
+rem Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc.
rem
rem This file is part of GNU Emacs.
rem
diff --git a/nt/nmake.defs b/nt/nmake.defs index 1876dffa59f..76a3462969e 100644 --- a/nt/nmake.defs +++ b/nt/nmake.defs @@ -1,5 +1,6 @@ # -*- Makefile -*- definition file for building GNU Emacs on Windows NT.
-# Copyright (c) 2000-2001 Free Software Foundation, Inc.
+# Copyright (C) 2000, 2001, 2002, 2003, 2004,
+# 2005 Free Software Foundation, Inc.
#
# GNU Emacs is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
diff --git a/nt/paths.h b/nt/paths.h index 5c1c4bfd332..0bb883067c3 100644 --- a/nt/paths.h +++ b/nt/paths.h @@ -1,5 +1,5 @@ -/* Copyright (C) 1993, 1995, 1997, 1999, 2001 - Free Software Foundation, Inc. +/* Copyright (C) 1993, 1995, 1997, 1999, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/nt/preprep.c b/nt/preprep.c index 21cc92e305b..e99fe38a484 100644 --- a/nt/preprep.c +++ b/nt/preprep.c @@ -1,5 +1,5 @@ /* Pro-process emacs.exe for profiling by MSVC. - Copyright (C) 1999 Free Software Foundation, Inc. + Copyright (C) 1999, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/nt/runemacs.c b/nt/runemacs.c index afa5340ef53..709389deb8f 100644 --- a/nt/runemacs.c +++ b/nt/runemacs.c @@ -1,3 +1,23 @@ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + +This file is part of GNU Emacs. + +GNU Emacs is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2, or (at your option) +any later version. + +GNU Emacs is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with GNU Emacs; see the file COPYING. If not, write to +the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +Boston, MA 02110-1301, USA. */ + + /* Simple program to start Emacs with its console window hidden. diff --git a/oldXMenu/Activate.c b/oldXMenu/Activate.c index 2f81299cbb6..d03534e144a 100644 --- a/oldXMenu/Activate.c +++ b/oldXMenu/Activate.c @@ -1,4 +1,5 @@ /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ #include "copyright.h" diff --git a/oldXMenu/AddPane.c b/oldXMenu/AddPane.c index b7b52c0f642..4bb16c8d573 100644 --- a/oldXMenu/AddPane.c +++ b/oldXMenu/AddPane.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/AddSel.c b/oldXMenu/AddSel.c index 40bbbde704c..a063b63f557 100644 --- a/oldXMenu/AddSel.c +++ b/oldXMenu/AddSel.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/ChangeLog b/oldXMenu/ChangeLog index 31a786cc23a..afe7607115a 100644 --- a/oldXMenu/ChangeLog +++ b/oldXMenu/ChangeLog @@ -443,8 +443,8 @@ ;; coding: iso-2022-7bit-unix ;; End: - Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001 - Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001, + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted provided the copyright notice and this notice are preserved. diff --git a/oldXMenu/ChgPane.c b/oldXMenu/ChgPane.c index 123f18dec5a..7c8ff91f88c 100644 --- a/oldXMenu/ChgPane.c +++ b/oldXMenu/ChgPane.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/ChgSel.c b/oldXMenu/ChgSel.c index 7dce694c410..e0fcb224f3e 100644 --- a/oldXMenu/ChgSel.c +++ b/oldXMenu/ChgSel.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/Create.c b/oldXMenu/Create.c index bac3f079f60..d4b32f2e937 100644 --- a/oldXMenu/Create.c +++ b/oldXMenu/Create.c @@ -1,4 +1,5 @@ /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ #include "copyright.h" diff --git a/oldXMenu/DelPane.c b/oldXMenu/DelPane.c index bdb084b36f3..6d042e757f8 100644 --- a/oldXMenu/DelPane.c +++ b/oldXMenu/DelPane.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/DelSel.c b/oldXMenu/DelSel.c index 78b73113162..7f14aa74fa6 100644 --- a/oldXMenu/DelSel.c +++ b/oldXMenu/DelSel.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/Destroy.c b/oldXMenu/Destroy.c index 8d904a53872..b0b9ed77569 100644 --- a/oldXMenu/Destroy.c +++ b/oldXMenu/Destroy.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/Error.c b/oldXMenu/Error.c index 1eb521b1642..0bd4fcc8782 100644 --- a/oldXMenu/Error.c +++ b/oldXMenu/Error.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/EvHand.c b/oldXMenu/EvHand.c index 073d0ab90b4..c9e8b36c873 100644 --- a/oldXMenu/EvHand.c +++ b/oldXMenu/EvHand.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/FindPane.c b/oldXMenu/FindPane.c index 945d4595cab..c886d6f7b7a 100644 --- a/oldXMenu/FindPane.c +++ b/oldXMenu/FindPane.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/FindSel.c b/oldXMenu/FindSel.c index 1fed1114732..5a91faf0f8f 100644 --- a/oldXMenu/FindSel.c +++ b/oldXMenu/FindSel.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/InsPane.c b/oldXMenu/InsPane.c index 682423a4a05..805a978bb74 100644 --- a/oldXMenu/InsPane.c +++ b/oldXMenu/InsPane.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/InsSel.c b/oldXMenu/InsSel.c index f3e2c4d7fb0..103081ac446 100644 --- a/oldXMenu/InsSel.c +++ b/oldXMenu/InsSel.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/Internal.c b/oldXMenu/Internal.c index f1367a07351..0fea995a899 100644 --- a/oldXMenu/Internal.c +++ b/oldXMenu/Internal.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/Locate.c b/oldXMenu/Locate.c index 47db7fa1103..90fad2c7b2a 100644 --- a/oldXMenu/Locate.c +++ b/oldXMenu/Locate.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/Post.c b/oldXMenu/Post.c index 3b39d796823..2be31aebe39 100644 --- a/oldXMenu/Post.c +++ b/oldXMenu/Post.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/Recomp.c b/oldXMenu/Recomp.c index b4bc4da3f72..a10c380427e 100644 --- a/oldXMenu/Recomp.c +++ b/oldXMenu/Recomp.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/SetAEQ.c b/oldXMenu/SetAEQ.c index daddc1aa946..9124561dcbe 100644 --- a/oldXMenu/SetAEQ.c +++ b/oldXMenu/SetAEQ.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/SetFrz.c b/oldXMenu/SetFrz.c index 243cc64e0ed..8e778a66760 100644 --- a/oldXMenu/SetFrz.c +++ b/oldXMenu/SetFrz.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/SetPane.c b/oldXMenu/SetPane.c index 39a87ac5ce3..907dba3b233 100644 --- a/oldXMenu/SetPane.c +++ b/oldXMenu/SetPane.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/SetSel.c b/oldXMenu/SetSel.c index 4fe0c82a131..06e2c76069f 100644 --- a/oldXMenu/SetSel.c +++ b/oldXMenu/SetSel.c @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/X10.h b/oldXMenu/X10.h index e1abcbbe6c5..63bf90f38d2 100644 --- a/oldXMenu/X10.h +++ b/oldXMenu/X10.h @@ -15,6 +15,7 @@ * */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * X10.h - Header definition and support file for the C subroutine diff --git a/oldXMenu/XCrAssoc.c b/oldXMenu/XCrAssoc.c index 67239a26d31..0c8203579e8 100644 --- a/oldXMenu/XCrAssoc.c +++ b/oldXMenu/XCrAssoc.c @@ -1,4 +1,5 @@ /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* Permission to use, copy, modify, distribute, and sell this software and its diff --git a/oldXMenu/XDelAssoc.c b/oldXMenu/XDelAssoc.c index 1c72447f931..286353f46cf 100644 --- a/oldXMenu/XDelAssoc.c +++ b/oldXMenu/XDelAssoc.c @@ -1,4 +1,5 @@ /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* Permission to use, copy, modify, distribute, and sell this software and its diff --git a/oldXMenu/XDestAssoc.c b/oldXMenu/XDestAssoc.c index 137c49f613d..eab0511bb66 100644 --- a/oldXMenu/XDestAssoc.c +++ b/oldXMenu/XDestAssoc.c @@ -1,4 +1,5 @@ /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* Permission to use, copy, modify, distribute, and sell this software and its diff --git a/oldXMenu/XLookAssoc.c b/oldXMenu/XLookAssoc.c index ea7303bad61..b1b53d9dd6a 100644 --- a/oldXMenu/XLookAssoc.c +++ b/oldXMenu/XLookAssoc.c @@ -1,4 +1,5 @@ /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* Permission to use, copy, modify, distribute, and sell this software and its diff --git a/oldXMenu/XMakeAssoc.c b/oldXMenu/XMakeAssoc.c index ffe19adc410..d749ec8d04c 100644 --- a/oldXMenu/XMakeAssoc.c +++ b/oldXMenu/XMakeAssoc.c @@ -1,4 +1,5 @@ /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* Permission to use, copy, modify, distribute, and sell this software and its diff --git a/oldXMenu/XMenu.h b/oldXMenu/XMenu.h index 46e390d3b0a..84bf72a5df9 100644 --- a/oldXMenu/XMenu.h +++ b/oldXMenu/XMenu.h @@ -1,6 +1,7 @@ #include "copyright.h" /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/XMenuInt.h b/oldXMenu/XMenuInt.h index e96dfb1e910..fd272300c60 100644 --- a/oldXMenu/XMenuInt.h +++ b/oldXMenu/XMenuInt.h @@ -1,5 +1,6 @@ /* Copyright Massachusetts Institute of Technology 1985 */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ /* * XMenu: MIT Project Athena, X Window system menu package diff --git a/oldXMenu/copyright.h b/oldXMenu/copyright.h index c5a4316043d..dffc63ac63e 100644 --- a/oldXMenu/copyright.h +++ b/oldXMenu/copyright.h @@ -16,5 +16,7 @@ without express or implied warranty. */ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ + /* arch-tag: c689b1bc-a3ba-41a1-baa0-a3622b5445b2 (do not change this comment) */ diff --git a/oldXMenu/insque.c b/oldXMenu/insque.c index 2b1f52bb02a..2395e4ea2d3 100644 --- a/oldXMenu/insque.c +++ b/oldXMenu/insque.c @@ -1,3 +1,5 @@ +/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. */ + /* This file implements the emacs_insque and emacs_remque functions, copies of the insque and remque functions of BSD. They and all their callers have been renamed to emacs_mumble to allow us to diff --git a/src/ChangeLog b/src/ChangeLog index fb8664b9fb6..80117561faa 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,152 @@ +2005-08-25 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> + + * keyboard.c (kbd_buffer_get_event) [MAC_OS]: Make events for + ICONIFY/DEICONIFY_EVENT. + + * macterm.c (mac_copy_area, mac_copy_area_with_mask): Restore + background color. + (mac_handle_visibility_change): New function. + (x_make_frame_invisible, x_iconify_frame) + (XTread_socket) [!USE_CARBON_EVENTS]: Use it. + [USE_CARBON_EVENTS] (mac_handle_window_event) + (install_window_handler): Handle visibilty change events. + (x_make_frame_visible): Don't reposition window if it is iconified + or asked for visible before. Select and uncollapse window when it + is made visible. + (x_make_frame_invisible): Don't reset x_highlight_frame. + (x_iconify_frame): Likewise. Make invisible frame visible before + it is iconified. + (read_socket_inev): Move variable outside #if USE_CARBON_EVENTS. + (do_window_update): Don't change visibility of invisible frame. + +2005-08-22 Juri Linkov <juri@jurta.org> + + * term.c (turn_on_face): Check for TS_set_foreground and + TS_set_background depending on standout_mode. Simplify. + +2005-08-21 Kim F. Storm <storm@cua.dk> + + * fringe.c (update_window_fringes): Only put TOP and BOTTOM + bitmaps on fully visible rows. + + * fringe.c (update_window_fringes): Replace FORCE_P arg with + KEEP_CURRENT_P arg; if non-zero, don't update current row fringes, + and return 0. + + * xdisp.c (redisplay_window): Call update_window_fringes with + KEEP_CURRENT_P non-0 if we are going to refresh fringes later. + +2005-08-20 Richard M. Stallman <rms@gnu.org> + + * xdisp.c (display_echo_area_1): Get display start pos from w->start. + (resize_mini_window): Set w->start, and PT, so as to display the tail + end of the buffer, if it doesn't all fit. + +2005-08-18 Kim F. Storm <storm@cua.dk> + + * xdisp.c (calc_pixel_width_or_height): Use actual display + resolution when available instead of Vdisplay_pixels_per_inch. + +2005-08-17 Kim F. Storm <storm@cua.dk> + + * xdisp.c (pos_visible_p): Adjust X value if window is hscrolled. + + * dispnew.c (buffer_posn_from_coords): Check that target row is + within matrix. + +2005-08-16 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> + + * xterm.c (x_wm_set_icon_pixmap): Move GTK specific code to + xg_set_frame_icon and call it. + + * gtkutil.c (xg_set_frame_icon): New function. + + * gtkutil.h (xg_set_frame_icon): Declare it. + +2005-08-16 Kim F. Storm <storm@cua.dk> + + * dispnew.c (increment_row_positions): Skip non-enabled rows. + + * window.c (SAVED_WINDOW_VECTOR_SIZE): Remove dangerous define. + (Fcurrent_window_configuration): Use VECSIZE macro instead. + +2005-08-15 Richard M. Stallman <rms@gnu.org> + + * xdisp.c (message3_nolog): Clear echo_message_buffer. + +2005-08-15 Kim F. Storm <storm@cua.dk> + + * lisp.h (QUIT) [!SYNC_INPUT]: Throw t to Vthrow_on_input. + + * process.c (deactivate_process, status_notify, read_process_output) + (update_status, status_convert, decode_status, allocate_pty) + (make_process, remove_process, list_processes_1) + (create_process_1, unwind_request_sigio, read_process_output) + (send_process, keyboard_bit_set): Declare static. + (Fdelete_process): Simplify. Pass process to status_notify, so we + don't try to read output from it. + (status_notify): New arg deleting_process--don't try to read + output from that process. + + * lisp.h (deactivate_process, status_notify, read_process_output): + Remove prototypes. + +2005-08-14 Richard M. Stallman <rms@gnu.org> + + * image.c (syms_of_image): Init Qxbm, Qpbm before calling define_image_type. + +2005-08-13 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> + + * gtkutil.c (xg_get_pixbuf_from_pix_and_mask): New function. + (xg_get_image_for_pixmap): Move some code to + xg_get_pixbuf_from_pix_and_mask, and call it. + + * gtkutil.h (xg_get_pixbuf_from_pix_and_mask): Declare. + + * xterm.c (x_wm_set_icon_pixmap): Call xg_get_pixbuf_from_pix_and_mask + to get an GTK icon and set it with GTK functions to avoid having GTK + override an icon set with just X functions. + +2005-08-11 Richard M. Stallman <rms@gnu.org> + + * image.c (syms_of_image): Init image_types here, and call define_image_type. + (init_image): Not here. + +2005-08-09 Richard M. Stallman <rms@gnu.org> + + * bytecode.c (BYTE_CODE_QUIT): Throw t to Vthrow_on_input. + + * lisp.h (QUIT): Throw t to Vthrow_on_input. + +2005-08-09 Thien-Thi Nguyen <ttn@gnu.org> + + * floatfns.c (Fexpt): Use floats for negative exponent. + +2005-08-08 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> + + * gtkutil.c (xg_modify_menubar_widgets): Remove semicolon that + should not be there, causing menu display errors with GTK 2.6.9. + +2005-08-07 Richard M. Stallman <rms@gnu.org> + + * floatfns.c (Fexpt): Undo previous change. + + * dispnew.c (Fframe_or_buffer_changed_p): Take an arg + so it can be used with various state vectors. + + * emacs.c (endif): Convert -script into -scriptload. + (standard_args): Add -scriptload. Allow -basic-display with one dash. + + * fns.c (syms_of_fns): Add `emacs' to features. + + * term.c (set_terminal_modes): If no TS_termcap_modes string, + output newlines to scroll the old screen contents off the screen. + +2005-08-06 Thien-Thi Nguyen <ttn@gnu.org> + + * floatfns.c (Fexpt): Use floats for negative exponent. + Reported by D Goel. + 2005-08-02 Richard M. Stallman <rms@gnu.org> * frame.c (Fframe_char_width): Doc fix. diff --git a/src/Makefile.in b/src/Makefile.in index ebbc16534f1..dc757182d4b 100644 --- a/src/Makefile.in +++ b/src/Makefile.in @@ -1,6 +1,6 @@ # Makefile for GNU Emacs. -# Copyright (C) 1985, 87, 88, 93, 94, 95, 99, 2000, 01, 03, 2004 -# Free Software Foundation, Inc. +# Copyright (C) 1985, 1987, 1988, 1993, 1994, 1995, 1999, 2000, 2001, 2002, +# 2003, 2004, 2005 Free Software Foundation, Inc. # This file is part of GNU Emacs. diff --git a/src/abbrev.c b/src/abbrev.c index 94e915827cf..a62a3a23037 100644 --- a/src/abbrev.c +++ b/src/abbrev.c @@ -1,6 +1,6 @@ /* Primitives for word-abbrev mode. - Copyright (C) 1985, 1986, 1993, 1996, 1998, 2001,02,03,04 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1993, 1996, 1998, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/atimer.c b/src/atimer.c index 9ac6d529b99..f8ed1b265ec 100644 --- a/src/atimer.c +++ b/src/atimer.c @@ -1,5 +1,5 @@ /* Asynchronous timers. - Copyright (C) 2000, 2004 Free Software Foundation, Inc. + Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/atimer.h b/src/atimer.h index 5057eb2be24..d5ad9c674d5 100644 --- a/src/atimer.h +++ b/src/atimer.h @@ -1,5 +1,5 @@ /* Asynchronous timers. - Copyright (C) 2000, 2003 Free Software Foundation, Inc. + Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/blockinput.h b/src/blockinput.h index 36559715533..0eaebbe34df 100644 --- a/src/blockinput.h +++ b/src/blockinput.h @@ -1,5 +1,6 @@ /* blockinput.h - interface to blocking complicated interrupt-driven input. - Copyright (C) 1989, 1993, 2004 Free Software Foundation, Inc. + Copyright (C) 1989, 1993, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/buffer.c b/src/buffer.c index 01be485fcc0..3450e88c72d 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -1,6 +1,7 @@ /* Buffer manipulation primitives for GNU Emacs. - Copyright (C) 1985, 86, 87, 88, 89, 93, 94, 95, 97, 98, 99, - 2000, 01, 02, 03, 04, 2005 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994, + 1995, 1997, 1998, 1999, 2000, 2001, 2002, + 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/buffer.h b/src/buffer.h index 12475ce26a8..3250967c5a8 100644 --- a/src/buffer.h +++ b/src/buffer.h @@ -1,6 +1,6 @@ /* Header file for the buffer manipulation primitives. Copyright (C) 1985, 1986, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, - 2003, 2004, 2005 Free Software Foundation, Inc. + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/bytecode.c b/src/bytecode.c index c9ab56b18d1..21e89d372c2 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -1,6 +1,6 @@ /* Execution of byte code produced by bytecomp.el. - Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003, 2004 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -389,7 +389,7 @@ unmark_byte_stack () Vquit_flag = Qnil; \ BEFORE_POTENTIAL_GC (); \ if (EQ (Vthrow_on_input, flag)) \ - Fthrow (Vthrow_on_input, Qnil); \ + Fthrow (Vthrow_on_input, Qt); \ Fsignal (Qquit, Qnil); \ AFTER_POTENTIAL_GC (); \ } \ diff --git a/src/callint.c b/src/callint.c index 10db39ddce4..5979e495ac3 100644 --- a/src/callint.c +++ b/src/callint.c @@ -1,6 +1,6 @@ /* Call a Lisp function interactively. - Copyright (C) 1985, 86, 93, 94, 95, 1997, 2000, 02, 03, 2004 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1993, 1994, 1995, 1997, 2000, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/callproc.c b/src/callproc.c index fe897ba3ea6..4e81bb62c3a 100644 --- a/src/callproc.c +++ b/src/callproc.c @@ -1,6 +1,6 @@ /* Synchronous subprocess invocation for GNU Emacs. Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1999, 2000, 2001, - 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/casefiddle.c b/src/casefiddle.c index 95ac6669b41..04ec1d32284 100644 --- a/src/casefiddle.c +++ b/src/casefiddle.c @@ -1,6 +1,6 @@ /* GNU Emacs case conversion functions. - Copyright (C) 1985,94,97,98,99, 2001, 2002, 2004, 2005 - Free Software Foundation, Inc. + Copyright (C) 1985, 1994, 1997, 1998, 1999, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/casetab.c b/src/casetab.c index 134f19fff06..d34ca473a93 100644 --- a/src/casetab.c +++ b/src/casetab.c @@ -1,5 +1,6 @@ /* GNU Emacs routines to deal with case tables. - Copyright (C) 1993, 1994 Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/ccl.c b/src/ccl.c index e827ed7f28d..a785707295c 100644 --- a/src/ccl.c +++ b/src/ccl.c @@ -1,7 +1,7 @@ /* CCL (Code Conversion Language) interpreter. Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN. Licensed to the Free Software Foundation. - Copyright (C) 2001, 2002 Free Software Foundation, Inc. + Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Copyright (C) 2003 National Institute of Advanced Industrial Science and Technology (AIST) Registration Number H13PRO009 diff --git a/src/charset.c b/src/charset.c index bf4dfc5bd48..d2d5686b899 100644 --- a/src/charset.c +++ b/src/charset.c @@ -1,7 +1,7 @@ /* Basic character set support. Copyright (C) 1995, 97, 98, 2000, 2001 Electrotechnical Laboratory, JAPAN. Licensed to the Free Software Foundation. - Copyright (C) 2001, 2004 Free Software Foundation, Inc. + Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Copyright (C) 2003, 2004 National Institute of Advanced Industrial Science and Technology (AIST) Registration Number H13PRO009 diff --git a/src/charset.h b/src/charset.h index 4f342a3fbbe..a06c3a1b094 100644 --- a/src/charset.h +++ b/src/charset.h @@ -1,7 +1,7 @@ /* Header for charset handler. Copyright (C) 1995, 1997, 1998 Electrotechnical Laboratory, JAPAN. Licensed to the Free Software Foundation. - Copyright (C) 2001 Free Software Foundation, Inc. + Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Copyright (C) 2003 National Institute of Advanced Industrial Science and Technology (AIST) Registration Number H13PRO009 @@ -1,5 +1,6 @@ /* Cursor motion subroutines for GNU Emacs. - Copyright (C) 1985, 1995 Free Software Foundation, Inc. + Copyright (C) 1985, 1995, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. based primarily on public domain code written by Chris Torek This file is part of GNU Emacs. @@ -1,5 +1,6 @@ /* Cursor motion calculation definitions for GNU Emacs - Copyright (C) 1985, 1989 Free Software Foundation, Inc. + Copyright (C) 1985, 1989, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/cmds.c b/src/cmds.c index 9e95d1443fb..0b1ea9857ca 100644 --- a/src/cmds.c +++ b/src/cmds.c @@ -1,6 +1,6 @@ /* Simple built-in editing commands. - Copyright (C) 1985, 93, 94, 95, 96, 97, 1998, 2001, 02, 03 - Free Software Foundation, Inc. + Copyright (C) 1985, 1993, 1994, 1995, 1996, 1997, 1998, 2001, 2002, + 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/coding.c b/src/coding.c index d55817c9c79..93051d2f8a3 100644 --- a/src/coding.c +++ b/src/coding.c @@ -1,7 +1,7 @@ /* Coding system handler (conversion, detection, etc). Copyright (C) 1995, 1997, 1998 Electrotechnical Laboratory, JAPAN. Licensed to the Free Software Foundation. - Copyright (C) 2001, 2002 Free Software Foundation, Inc. + Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Copyright (C) 2003 National Institute of Advanced Industrial Science and Technology (AIST) Registration Number H13PRO009 diff --git a/src/coding.h b/src/coding.h index f96b86b2413..c182f182e67 100644 --- a/src/coding.h +++ b/src/coding.h @@ -1,10 +1,10 @@ /* Header for coding system handler. - Copyright (C) 2004, 2005 Free Software Foundation, Inc. Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN. Licensed to the Free Software Foundation. Copyright (C) 2003 National Institute of Advanced Industrial Science and Technology (AIST) Registration Number H13PRO009 + Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/commands.h b/src/commands.h index 9486467e2fe..7ad593577ad 100644 --- a/src/commands.h +++ b/src/commands.h @@ -1,5 +1,6 @@ /* Definitions needed by most editing commands. - Copyright (C) 1985, 1994 Free Software Foundation, Inc. + Copyright (C) 1985, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/composite.c b/src/composite.c index 1eb0b0212fd..3d50886dc3c 100644 --- a/src/composite.c +++ b/src/composite.c @@ -1,7 +1,7 @@ /* Composite sequence support. Copyright (C) 1999 Electrotechnical Laboratory, JAPAN. Licensed to the Free Software Foundation. - Copyright (C) 2001 Free Software Foundation, Inc. + Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Copyright (C) 2003 National Institute of Advanced Industrial Science and Technology (AIST) Registration Number H13PRO009 diff --git a/src/composite.h b/src/composite.h index 550115edd44..fe931a579ae 100644 --- a/src/composite.h +++ b/src/composite.h @@ -1,10 +1,10 @@ /* Header for composite sequence handler. Copyright (C) 1999 Electrotechnical Laboratory, JAPAN. Licensed to the Free Software Foundation. - Copyright (C) 2001 Free Software Foundation, Inc. Copyright (C) 2003 National Institute of Advanced Industrial Science and Technology (AIST) Registration Number H13PRO009 + Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/cxux-crt0.s b/src/cxux-crt0.s index 615837eaeb4..71076eb8b5f 100644 --- a/src/cxux-crt0.s +++ b/src/cxux-crt0.s @@ -1,6 +1,6 @@ /* * External symbol setup file for GNU Emacs on CX/UX - * Copyright (C) 1990 Free Software Foundation, Inc. + * Copyright (C) 1990, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. * * This file is part of GNU Emacs. * diff --git a/src/data.c b/src/data.c index 8f98e6fbd6b..c1545d0169f 100644 --- a/src/data.c +++ b/src/data.c @@ -1,6 +1,6 @@ /* Primitive operations on Lisp data types for GNU Emacs Lisp interpreter. - Copyright (C) 1985,86,88,93,94,95,97,98,99, 2000, 2001, 03, 2004 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1988, 1993, 1994, 1995, 1997, 1998, 1999, 2000, + 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/dired.c b/src/dired.c index 4594d96e359..206b21402a3 100644 --- a/src/dired.c +++ b/src/dired.c @@ -1,6 +1,6 @@ /* Lisp functions for making directory listings. - Copyright (C) 1985, 1986, 1993, 1994, 1999, 2000, 2001, 2004, 2005 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1993, 1994, 1999, 2000, 2001, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/dispextern.h b/src/dispextern.h index 433a348438a..e6e61ac45fb 100644 --- a/src/dispextern.h +++ b/src/dispextern.h @@ -1,6 +1,6 @@ /* Interface definitions for display code. - Copyright (C) 1985,93,94,97,98,99, 2000,01,02,03, 2004, 2005 - Free Software Foundation, Inc. + Copyright (C) 1985, 1993, 1994, 1997, 1998, 1999, 2000, 2001, 2002, + 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/dispnew.c b/src/dispnew.c index 345c3aa7640..1f9d2dc4189 100644 --- a/src/dispnew.c +++ b/src/dispnew.c @@ -1,6 +1,7 @@ /* Updating of data structures for redisplay. - Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1997, 1998, 1999, - 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, + 1997, 1998, 1999, 2000, 2001, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -1184,6 +1185,9 @@ increment_row_positions (row, delta, delta_bytes) MATRIX_ROW_END_CHARPOS (row) += delta; MATRIX_ROW_END_BYTEPOS (row) += delta_bytes; + if (!row->enabled_p) + return; + /* Increment positions in glyphs. */ for (area = 0; area < LAST_AREA; ++area) for (i = 0; i < row->used[area]; ++i) @@ -5783,8 +5787,9 @@ buffer_posn_from_coords (w, x, y, pos, object, dx, dy, width, height) } #endif - row = MATRIX_ROW (w->current_matrix, it.vpos); - if (row->enabled_p) + if (it.vpos < w->current_matrix->nrows + && (row = MATRIX_ROW (w->current_matrix, it.vpos), + row->enabled_p)) { if (it.hpos < row->used[TEXT_AREA]) { @@ -6448,68 +6453,106 @@ usage: (sit-for SECONDS &optional NODISP OLD-NODISP) */) /* A vector of size >= 2 * NFRAMES + 3 * NBUFFERS + 1, containing the session's frames, frame names, buffers, buffer-read-only flags, and - buffer-modified-flags, and a trailing sentinel (so we don't need to - add length checks). */ + buffer-modified-flags. */ static Lisp_Object frame_and_buffer_state; DEFUN ("frame-or-buffer-changed-p", Fframe_or_buffer_changed_p, - Sframe_or_buffer_changed_p, 0, 0, 0, + Sframe_or_buffer_changed_p, 0, 1, 0, doc: /* Return non-nil if the frame and buffer state appears to have changed. -The state variable is an internal vector containing all frames and buffers, +VARIABLE is a variable name whose value is either nil or a state vector +that will be updated to contain all frames and buffers, aside from buffers whose names start with space, -along with the buffers' read-only and modified flags, which allows a fast -check to see whether the menu bars might need to be recomputed. +along with the buffers' read-only and modified flags. This allows a fast +check to see whether buffer menus might need to be recomputed. If this function returns non-nil, it updates the internal vector to reflect -the current state. */) - () +the current state. + +If VARIABLE is nil, an internal variable is used. Users should not +pass nil for VARIABLE. */) + (variable) + Lisp_Object variable; { - Lisp_Object tail, frame, buf; - Lisp_Object *vecp; + Lisp_Object state, tail, frame, buf; + Lisp_Object *vecp, *end; int n; - vecp = XVECTOR (frame_and_buffer_state)->contents; + if (! NILP (variable)) + { + CHECK_SYMBOL (variable); + state = Fsymbol_value (variable); + if (! VECTORP (state)) + goto changed; + } + else + state = frame_and_buffer_state; + + vecp = XVECTOR (state)->contents; + end = vecp + XVECTOR (state)->size; + FOR_EACH_FRAME (tail, frame) { + if (vecp == end) + goto changed; if (!EQ (*vecp++, frame)) goto changed; + if (vecp == end) + goto changed; if (!EQ (*vecp++, XFRAME (frame)->name)) goto changed; } - /* Check that the buffer info matches. - No need to test for the end of the vector - because the last element of the vector is lambda - and that will always cause a mismatch. */ + /* Check that the buffer info matches. */ for (tail = Vbuffer_alist; CONSP (tail); tail = XCDR (tail)) { buf = XCDR (XCAR (tail)); /* Ignore buffers that aren't included in buffer lists. */ if (SREF (XBUFFER (buf)->name, 0) == ' ') continue; + if (vecp == end) + goto changed; if (!EQ (*vecp++, buf)) goto changed; + if (vecp == end) + goto changed; if (!EQ (*vecp++, XBUFFER (buf)->read_only)) goto changed; + if (vecp == end) + goto changed; if (!EQ (*vecp++, Fbuffer_modified_p (buf))) goto changed; } + if (vecp == end) + goto changed; /* Detect deletion of a buffer at the end of the list. */ if (EQ (*vecp, Qlambda)) return Qnil; + + /* Come here if we decide the data has changed. */ changed: - /* Start with 1 so there is room for at least one lambda at the end. */ + /* Count the size we will need. + Start with 1 so there is room for at least one lambda at the end. */ n = 1; FOR_EACH_FRAME (tail, frame) n += 2; for (tail = Vbuffer_alist; CONSP (tail); tail = XCDR (tail)) n += 3; - /* Reallocate the vector if it's grown, or if it's shrunk a lot. */ - if (n > XVECTOR (frame_and_buffer_state)->size - || n + 20 < XVECTOR (frame_and_buffer_state)->size / 2) + /* Reallocate the vector if data has grown to need it, + or if it has shrunk a lot. */ + if (! VECTORP (state) + || n > XVECTOR (state)->size + || n + 20 < XVECTOR (state)->size / 2) /* Add 20 extra so we grow it less often. */ - frame_and_buffer_state = Fmake_vector (make_number (n + 20), Qlambda); - vecp = XVECTOR (frame_and_buffer_state)->contents; + { + state = Fmake_vector (make_number (n + 20), Qlambda); + if (! NILP (variable)) + Fset (variable, state); + else + frame_and_buffer_state = state; + } + + /* Record the new data in the (possibly reallocated) vector. */ + vecp = XVECTOR (state)->contents; FOR_EACH_FRAME (tail, frame) { *vecp++ = frame; @@ -6527,12 +6570,12 @@ the current state. */) } /* Fill up the vector with lambdas (always at least one). */ *vecp++ = Qlambda; - while (vecp - XVECTOR (frame_and_buffer_state)->contents - < XVECTOR (frame_and_buffer_state)->size) + while (vecp - XVECTOR (state)->contents + < XVECTOR (state)->size) *vecp++ = Qlambda; /* Make sure we didn't overflow the vector. */ - if (vecp - XVECTOR (frame_and_buffer_state)->contents - > XVECTOR (frame_and_buffer_state)->size) + if (vecp - XVECTOR (state)->contents + > XVECTOR (state)->size) abort (); return Qt; } diff --git a/src/disptab.h b/src/disptab.h index 0ab8a5afa36..ed7ec8597a9 100644 --- a/src/disptab.h +++ b/src/disptab.h @@ -1,5 +1,5 @@ /* Things for GLYPHS and glyph tables. - Copyright (C) 1993 Free Software Foundation, Inc. + Copyright (C) 1993, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/doc.c b/src/doc.c index f07ff405c3d..0a455fed37a 100644 --- a/src/doc.c +++ b/src/doc.c @@ -1,6 +1,6 @@ /* Record indices of function doc strings stored in a file. - Copyright (C) 1985, 86,93,94,95,97,98,99,2000,04 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/doprnt.c b/src/doprnt.c index 1d103f755b2..c67d20f1950 100644 --- a/src/doprnt.c +++ b/src/doprnt.c @@ -1,7 +1,7 @@ /* Output like sprintf to a buffer of specified size. Also takes args differently: pass one pointer to an array of strings in addition to the format string which is separate. - Copyright (C) 1985 Free Software Foundation, Inc. + Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/dosfns.c b/src/dosfns.c index 849ec232cfa..c4b5747ab7d 100644 --- a/src/dosfns.c +++ b/src/dosfns.c @@ -1,7 +1,7 @@ /* MS-DOS specific Lisp utilities. Coded by Manabu Higashida, 1991. Major changes May-July 1993 Morten Welinder (only 10% original code left) - Copyright (C) 1991, 1993, 1996, 1997, 1998, 2001 - Free Software Foundation, Inc. + Copyright (C) 1991, 1993, 1996, 1997, 1998, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/dosfns.h b/src/dosfns.h index 594c3d980c6..40aaf524e23 100644 --- a/src/dosfns.h +++ b/src/dosfns.h @@ -2,8 +2,8 @@ Coded by Manabu Higashida, 1991. Modified by Morten Welinder, 1993-1994. - Copyright (C) 1991, 1994, 1995, 1997, 1999 - Free Software Foundation, Inc. + Copyright (C) 1991, 1994, 1995, 1997, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/ecrt0.c b/src/ecrt0.c index 95b69b11c01..5ee24dfae8c 100644 --- a/src/ecrt0.c +++ b/src/ecrt0.c @@ -1,5 +1,6 @@ /* C code startup routine. - Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1992, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/editfns.c b/src/editfns.c index 7333a5b8dc7..dea951c32fa 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -1,6 +1,7 @@ /* Lisp functions pertaining to editing. - Copyright (C) 1985, 1986, 1987, 1989, 1993, 1994, 1995, 1996, 1997, 1998, - 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1989, 1993, 1994, 1995, 1996, + 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/emacs.c b/src/emacs.c index 398837a98e6..35dd1d47919 100644 --- a/src/emacs.c +++ b/src/emacs.c @@ -1,6 +1,6 @@ /* Fully extensible Emacs, running on Unix, intended for GNU. - Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1998, 1999, 2001, - 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1998, 1999, + 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -1153,9 +1153,9 @@ main (argc, argv if (argmatch (argv, argc, "-script", "--script", 3, &junk, &skip_args)) { noninteractive = 1; /* Set batch mode. */ - /* Convert --script to -l, un-skip it, and sort again so that -l will be - handled in proper sequence. */ - argv[skip_args - 1] = "-l"; + /* Convert --script to --scriptload, un-skip it, and sort again + so that it will be handled in proper sequence. */ + argv[skip_args - 1] = "-scriptload"; skip_args -= 2; sort_args (argc, argv); } @@ -1842,7 +1842,7 @@ struct standard_args standard_args[] = { "-itype", 0, 15, 0 }, { "-iconic", "--iconic", 15, 0 }, { "-D", "--basic-display", 12, 0}, - { "--basic-display", 0, 12, 0}, + { "-basic-display", 0, 12, 0}, { "-bg", "--background-color", 10, 1 }, { "-background", 0, 10, 1 }, { "-fg", "--foreground-color", 10, 1 }, @@ -1876,6 +1876,7 @@ struct standard_args standard_args[] = { "-directory", 0, 0, 1 }, { "-l", "--load", 0, 1 }, { "-load", 0, 0, 1 }, + { "-scriptload", "--scriptload", 0, 1 }, { "-f", "--funcall", 0, 1 }, { "-funcall", 0, 0, 1 }, { "-eval", "--eval", 0, 1 }, diff --git a/src/epaths.in b/src/epaths.in index be91cb485ae..ee965cb7615 100644 --- a/src/epaths.in +++ b/src/epaths.in @@ -1,6 +1,6 @@ /* Hey Emacs, this is -*- C -*- code! */ -/* Copyright (C) 1993, 1995, 1997, 1999, 2001 - Free Software Foundation, Inc. +/* Copyright (C) 1993, 1995, 1997, 1999, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/eval.c b/src/eval.c index 56fe670f1b1..a867d00150e 100644 --- a/src/eval.c +++ b/src/eval.c @@ -1,6 +1,6 @@ /* Evaluator for GNU Emacs Lisp interpreter. Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1999, 2000, 2001, - 2002, 2004, 2005 Free Software Foundation, Inc. + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/fileio.c b/src/fileio.c index 7d84e243207..ff600a03a31 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -1,6 +1,7 @@ /* File IO for GNU Emacs. - Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1996, 1997, 1998, - 1999, 2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1996, + 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/filelock.c b/src/filelock.c index cddce66a1d4..33e3bcd5732 100644 --- a/src/filelock.c +++ b/src/filelock.c @@ -1,6 +1,6 @@ /* Lock files for editing. - Copyright (C) 1985, 86, 87, 93, 94, 96, 98, 1999, 2000, 2001 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1993, 1994, 1996, 1998, 1999, 2000, 2001, + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/filemode.c b/src/filemode.c index 130cbace773..6257c6a7664 100644 --- a/src/filemode.c +++ b/src/filemode.c @@ -1,5 +1,6 @@ /* filemode.c -- make a string describing file modes - Copyright (C) 1985, 1990, 1993 Free Software Foundation, Inc. + Copyright (C) 1985, 1990, 1993, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by diff --git a/src/firstfile.c b/src/firstfile.c index cf6dbf3e888..b16f3a3dc44 100644 --- a/src/firstfile.c +++ b/src/firstfile.c @@ -1,5 +1,5 @@ /* Mark beginning of data space to dump as pure, for GNU Emacs. - Copyright (C) 1997 Free Software Foundation, Inc. + Copyright (C) 1997, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/floatfns.c b/src/floatfns.c index 529e7b76e39..79574e0a69b 100644 --- a/src/floatfns.c +++ b/src/floatfns.c @@ -1,5 +1,6 @@ /* Primitive operations on floating point for GNU Emacs Lisp interpreter. - Copyright (C) 1988, 1993, 1994, 1999, 2003, 2005 Free Software Foundation, Inc. + Copyright (C) 1988, 1993, 1994, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -460,7 +461,8 @@ DEFUN ("expt", Fexpt, Sexpt, 2, 2, 0, CHECK_NUMBER_OR_FLOAT (arg1); CHECK_NUMBER_OR_FLOAT (arg2); if (INTEGERP (arg1) /* common lisp spec */ - && INTEGERP (arg2)) /* don't promote, if both are ints */ + && INTEGERP (arg2) /* don't promote, if both are ints, and */ + && 0 <= XINT (arg2)) /* we are sure the result is not fractional */ { /* this can be improved by pre-calculating */ EMACS_INT acc, x, y; /* some binary powers of x then accumulating */ Lisp_Object val; diff --git a/src/fns.c b/src/fns.c index efca68318e4..7a4498ce211 100644 --- a/src/fns.c +++ b/src/fns.c @@ -1,6 +1,7 @@ /* Random utility Lisp functions. - Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1998, 1999, 2000, - 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, + 1998, 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -5190,7 +5191,7 @@ syms_of_fns () DEFVAR_LISP ("features", &Vfeatures, doc: /* A list of symbols which are the features of the executing emacs. Used by `featurep' and `require', and altered by `provide'. */); - Vfeatures = Qnil; + Vfeatures = Fcons (intern ("emacs"), Qnil); Qsubfeatures = intern ("subfeatures"); staticpro (&Qsubfeatures); diff --git a/src/fontset.c b/src/fontset.c index 5ccc0dceb60..c63bec61a15 100644 --- a/src/fontset.c +++ b/src/fontset.c @@ -1,10 +1,10 @@ /* Fontset handler. - Copyright (C) 2004 Free Software Foundation, Inc. Copyright (C) 1995, 1997, 2000 Electrotechnical Laboratory, JAPAN. Licensed to the Free Software Foundation. Copyright (C) 2003 National Institute of Advanced Industrial Science and Technology (AIST) Registration Number H13PRO009 + Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/fontset.h b/src/fontset.h index ad7ee334e74..33bbeda4f52 100644 --- a/src/fontset.h +++ b/src/fontset.h @@ -4,6 +4,7 @@ Copyright (C) 2003 National Institute of Advanced Industrial Science and Technology (AIST) Registration Number H13PRO009 + Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/frame.c b/src/frame.c index 436bc45cd3d..9c6345a0b40 100644 --- a/src/frame.c +++ b/src/frame.c @@ -1,6 +1,6 @@ /* Generic frame functions. - Copyright (C) 1993, 1994, 1995, 1997, 1999, 2000, 2001, 2003, 2004, 2005 - Free Software Foundation. + Copyright (C) 1993, 1994, 1995, 1997, 1999, 2000, 2001, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/frame.h b/src/frame.h index 290aed3266e..2928b36f2f2 100644 --- a/src/frame.h +++ b/src/frame.h @@ -1,5 +1,6 @@ /* Define frame-object for GNU Emacs. - Copyright (C) 1993, 1994, 1999, 2000, 2001 Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/fringe.c b/src/fringe.c index 1a130f428f3..62de5e5cdb6 100644 --- a/src/fringe.c +++ b/src/fringe.c @@ -1,6 +1,7 @@ /* Fringe handling (split from xdisp.c). - Copyright (C) 1985,86,87,88,93,94,95,97,98,99,2000,01,02,03,04 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1997, + 1998, 1999, 2000, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -776,13 +777,14 @@ draw_window_fringes (w, no_fringe) /* Recalculate the bitmaps to show in the fringes of window W. - If FORCE_P is 0, only mark rows with modified bitmaps for update in - redraw_fringe_bitmaps_p; else mark all rows for update. */ + Only mark rows with modified bitmaps for update in redraw_fringe_bitmaps_p. + + If KEEP_CURRENT_P is 0, update current_matrix too. */ int -update_window_fringes (w, force_p) +update_window_fringes (w, keep_current_p) struct window *w; - int force_p; + int keep_current_p; { struct glyph_row *row, *cur = 0; int yb = window_text_bottom_y (w); @@ -848,7 +850,8 @@ update_window_fringes (w, force_p) { if (!done_top) { - if (MATRIX_ROW_START_CHARPOS (row) <= BUF_BEGV (XBUFFER (w->buffer))) + if (MATRIX_ROW_START_CHARPOS (row) <= BUF_BEGV (XBUFFER (w->buffer)) + && !MATRIX_ROW_PARTIALLY_VISIBLE_AT_TOP_P (w, row)) row->indicate_bob_p = !NILP (boundary_top); else row->indicate_top_line_p = !NILP (arrow_top); @@ -857,7 +860,8 @@ update_window_fringes (w, force_p) if (!done_bot) { - if (MATRIX_ROW_END_CHARPOS (row) >= BUF_ZV (XBUFFER (w->buffer))) + if (MATRIX_ROW_END_CHARPOS (row) >= BUF_ZV (XBUFFER (w->buffer)) + && !MATRIX_ROW_PARTIALLY_VISIBLE_AT_BOTTOM_P (w, row)) row->indicate_eob_p = !NILP (boundary_bot), done_bot = 1; else if (y + row->height >= yb) row->indicate_bottom_line_p = !NILP (arrow_bot), done_bot = 1; @@ -942,8 +946,7 @@ update_window_fringes (w, force_p) else right = NO_FRINGE_BITMAP; - if (force_p - || row->y != cur->y + if (row->y != cur->y || row->visible_height != cur->visible_height || row->ends_at_zv_p != cur->ends_at_zv_p || left != cur->left_fringe_bitmap @@ -952,11 +955,15 @@ update_window_fringes (w, force_p) || right_face_id != cur->right_fringe_face_id || cur->redraw_fringe_bitmaps_p) { - redraw_p = row->redraw_fringe_bitmaps_p = cur->redraw_fringe_bitmaps_p = 1; - cur->left_fringe_bitmap = left; - cur->right_fringe_bitmap = right; - cur->left_fringe_face_id = left_face_id; - cur->right_fringe_face_id = right_face_id; + redraw_p = row->redraw_fringe_bitmaps_p = 1; + if (!keep_current_p) + { + cur->redraw_fringe_bitmaps_p = 1; + cur->left_fringe_bitmap = left; + cur->right_fringe_bitmap = right; + cur->left_fringe_face_id = left_face_id; + cur->right_fringe_face_id = right_face_id; + } } if (row->overlay_arrow_bitmap != cur->overlay_arrow_bitmap) @@ -974,7 +981,7 @@ update_window_fringes (w, force_p) row[-1].redraw_fringe_bitmaps_p = cur[-1].redraw_fringe_bitmaps_p = 1; } - return redraw_p; + return redraw_p && !keep_current_p; } diff --git a/src/getloadavg.c b/src/getloadavg.c index 191f7d4244f..a2ae9bc310b 100644 --- a/src/getloadavg.c +++ b/src/getloadavg.c @@ -1,6 +1,6 @@ /* Get the system load averages. - Copyright (C) 1985, 86, 87, 88, 89, 91, 92, 93, 1994, 1995, 1997, 2003 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1988, 1989, 1991, 1992, 1993, 1994, 1995, + 1997, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. NOTE: The canonical source of this file is maintained with gnulib. Bugs can be reported to bug-gnulib@gnu.org. diff --git a/src/getpagesize.h b/src/getpagesize.h index 20f19279cd0..ed47f80b0e0 100644 --- a/src/getpagesize.h +++ b/src/getpagesize.h @@ -1,5 +1,6 @@ /* Emulate getpagesize on systems that lack it. - Copyright (C) 1986, 1992, 1995, 2001 Free Software Foundation, Inc. + Copyright (C) 1986, 1992, 1995, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/gmalloc.c b/src/gmalloc.c index 08de77df0e0..55aedb7801b 100644 --- a/src/gmalloc.c +++ b/src/gmalloc.c @@ -5,7 +5,8 @@ /* The malloc headers and source files from the C library follow here. */ /* Declarations for `malloc' and friends. - Copyright 1990, 91, 92, 93, 95, 96, 99 Free Software Foundation, Inc. + Copyright (C) 1990, 1991, 1992, 1993, 1995, 1996, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Written May 1989 by Mike Haertel. This library is free software; you can redistribute it and/or diff --git a/src/gtkutil.c b/src/gtkutil.c index 1cb1004f576..3b590e0faed 100644 --- a/src/gtkutil.c +++ b/src/gtkutil.c @@ -1,6 +1,5 @@ /* Functions for creating and updating GTK widgets. - Copyright (C) 2003 - Free Software Foundation, Inc. + Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -240,6 +239,64 @@ xg_create_default_cursor (dpy) return gdk_cursor_new_for_display (gdpy, GDK_LEFT_PTR); } +/* Apply GMASK to GPIX and return a GdkPixbuf with an alpha channel. */ + +static GdkPixbuf * +xg_get_pixbuf_from_pix_and_mask (gpix, gmask, cmap) + GdkPixmap *gpix; + GdkPixmap *gmask; + GdkColormap *cmap; +{ + int x, y, width, height, rowstride, mask_rowstride; + GdkPixbuf *icon_buf, *tmp_buf; + guchar *pixels; + guchar *mask_pixels; + + gdk_drawable_get_size (gpix, &width, &height); + tmp_buf = gdk_pixbuf_get_from_drawable (NULL, gpix, cmap, + 0, 0, 0, 0, width, height); + icon_buf = gdk_pixbuf_add_alpha (tmp_buf, FALSE, 0, 0, 0); + g_object_unref (G_OBJECT (tmp_buf)); + + if (gmask) + { + GdkPixbuf *mask_buf = gdk_pixbuf_get_from_drawable (NULL, + gmask, + NULL, + 0, 0, 0, 0, + width, height); + guchar *pixels = gdk_pixbuf_get_pixels (icon_buf); + guchar *mask_pixels = gdk_pixbuf_get_pixels (mask_buf); + int rowstride = gdk_pixbuf_get_rowstride (icon_buf); + int mask_rowstride = gdk_pixbuf_get_rowstride (mask_buf); + int y; + + for (y = 0; y < height; ++y) + { + guchar *iconptr, *maskptr; + int x; + + iconptr = pixels + y * rowstride; + maskptr = mask_pixels + y * mask_rowstride; + + for (x = 0; x < width; ++x) + { + /* In a bitmap, RGB is either 255/255/255 or 0/0/0. Checking + just R is sufficient. */ + if (maskptr[0] == 0) + iconptr[3] = 0; /* 0, 1, 2 is R, G, B. 3 is alpha. */ + + iconptr += rowstride/width; + maskptr += mask_rowstride/width; + } + } + + g_object_unref (G_OBJECT (mask_buf)); + } + + return icon_buf; +} + /* For the image defined in IMG, make and return a GtkImage. For displays with 8 planes or less we must make a GdkPixbuf and apply the mask manually. Otherwise the highlightning and dimming the tool bar code in GTK does @@ -312,60 +369,15 @@ xg_get_image_for_pixmap (f, img, widget, old_widget) } else { + /* This is a workaround to make icons look good on pseudo color displays. Apparently GTK expects the images to have an alpha channel. If they don't, insensitive and activated icons will look bad. This workaround does not work on monochrome displays, and is not needed on true color/static color displays (i.e. 16 bits and higher). */ - int x, y, width, height, rowstride, mask_rowstride; - GdkPixbuf *icon_buf, *tmp_buf; - guchar *pixels; - guchar *mask_pixels; - - gdk_drawable_get_size (gpix, &width, &height); - tmp_buf = gdk_pixbuf_get_from_drawable (NULL, - gpix, - gtk_widget_get_colormap (widget), - 0, 0, 0, 0, width, height); - icon_buf = gdk_pixbuf_add_alpha (tmp_buf, FALSE, 0, 0, 0); - g_object_unref (G_OBJECT (tmp_buf)); - - if (gmask) - { - GdkPixbuf *mask_buf = gdk_pixbuf_get_from_drawable (NULL, - gmask, - NULL, - 0, 0, 0, 0, - width, height); - guchar *pixels = gdk_pixbuf_get_pixels (icon_buf); - guchar *mask_pixels = gdk_pixbuf_get_pixels (mask_buf); - int rowstride = gdk_pixbuf_get_rowstride (icon_buf); - int mask_rowstride = gdk_pixbuf_get_rowstride (mask_buf); - int y; - - for (y = 0; y < height; ++y) - { - guchar *iconptr, *maskptr; - int x; - - iconptr = pixels + y * rowstride; - maskptr = mask_pixels + y * mask_rowstride; - - for (x = 0; x < width; ++x) - { - /* In a bitmap, RGB is either 255/255/255 or 0/0/0. Checking - just R is sufficient. */ - if (maskptr[0] == 0) - iconptr[3] = 0; /* 0, 1, 2 is R, G, B. 3 is alpha. */ - - iconptr += rowstride/width; - maskptr += mask_rowstride/width; - } - } - - g_object_unref (G_OBJECT (mask_buf)); - } + GdkColormap *cmap = gtk_widget_get_colormap (widget); + GdkPixbuf *icon_buf = xg_get_pixbuf_from_pix_and_mask (gpix, gmask, cmap); if (! old_widget) old_widget = GTK_IMAGE (gtk_image_new_from_pixbuf (icon_buf)); @@ -940,6 +952,24 @@ xg_set_background_color (f, bg) } +/* Set the frame icon to ICON_PIXMAP/MASK. This must be done with GTK + functions so GTK does not overwrite the icon. */ + +void +xg_set_frame_icon (f, icon_pixmap, icon_mask) + FRAME_PTR f; + Pixmap icon_pixmap; + Pixmap icon_mask; +{ + GdkDisplay *gdpy = gdk_x11_lookup_xdisplay (FRAME_X_DISPLAY (f)); + GdkPixmap *gpix = gdk_pixmap_foreign_new_for_display (gdpy, icon_pixmap); + GdkPixmap *gmask = gdk_pixmap_foreign_new_for_display (gdpy, icon_mask); + GdkPixbuf *gp = xg_get_pixbuf_from_pix_and_mask (gpix, gmask, NULL); + + gtk_window_set_icon (GTK_WINDOW (FRAME_GTK_OUTER_WIDGET (f)), gp); +} + + /*********************************************************************** Dialog functions @@ -2607,7 +2637,7 @@ xg_modify_menubar_widgets (menubar, f, val, deep_p, xg_update_menubar (menubar, f, &list, list, 0, val->contents, select_cb, highlight_cb, cl_data); - if (deep_p); + if (deep_p) { widget_value *cur; diff --git a/src/gtkutil.h b/src/gtkutil.h index 08ba9ee1314..aea4ee9e7cf 100644 --- a/src/gtkutil.h +++ b/src/gtkutil.h @@ -1,6 +1,5 @@ /* Definitions and headers for GTK widgets. - Copyright (C) 2003 - Free Software Foundation, Inc. + Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -200,6 +199,10 @@ extern void x_wm_set_size_hint P_ ((FRAME_PTR f, int user_position)); extern void xg_set_background_color P_ ((FRAME_PTR f, unsigned long bg)); +extern void xg_set_frame_icon P_ ((FRAME_PTR f, + Pixmap icon_pixmap, + Pixmap icon_mask)); + /* Mark all callback data that are Lisp_object:s during GC. */ extern void xg_mark_data P_ ((void)); diff --git a/src/image.c b/src/image.c index 928ec0437aa..3e8a62801b0 100644 --- a/src/image.c +++ b/src/image.c @@ -1,6 +1,6 @@ /* Functions for image support on window system. - Copyright (C) 1989, 92, 93, 94, 95, 96, 97, 98, 99, 2000,01,02,03,04 - Free Software Foundation. + Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, + 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -8025,6 +8025,11 @@ syms_of_image () { extern Lisp_Object Qrisky_local_variable; /* Syms_of_xdisp has already run. */ + /* Initialize this only once, since that's what we do with Vimage_types + and they are supposed to be in sync. Initializing here gives correct + operation on GNU/Linux of calling dump-emacs after loading some images. */ + image_types = NULL; + /* Must be defined now becase we're going to update it below, while defining the supported image types. */ DEFVAR_LISP ("image-types", &Vimage_types, @@ -8050,6 +8055,17 @@ listed; they're always supported. */); Vimage_type_cache = Qnil; staticpro (&Vimage_type_cache); + Qpbm = intern ("pbm"); + staticpro (&Qpbm); + ADD_IMAGE_TYPE(Qpbm); + + Qxbm = intern ("xbm"); + staticpro (&Qxbm); + ADD_IMAGE_TYPE(Qxbm); + + define_image_type (&xbm_type, 1); + define_image_type (&pbm_type, 1); + QCascent = intern (":ascent"); staticpro (&QCascent); QCmargin = intern (":margin"); @@ -8094,14 +8110,6 @@ listed; they're always supported. */); staticpro (&QCpt_height); #endif /* HAVE_GHOSTSCRIPT */ - Qpbm = intern ("pbm"); - staticpro (&Qpbm); - ADD_IMAGE_TYPE(Qpbm); - - Qxbm = intern ("xbm"); - staticpro (&Qxbm); - ADD_IMAGE_TYPE(Qxbm); - #if defined (HAVE_XPM) || defined (MAC_OS) Qxpm = intern ("xpm"); staticpro (&Qxpm); @@ -8163,11 +8171,6 @@ meaning don't clear the cache. */); void init_image () { - image_types = NULL; - - define_image_type (&xbm_type, 1); - define_image_type (&pbm_type, 1); - #ifdef MAC_OS /* Animated gifs use QuickTime Movie Toolbox. So initialize it here. */ EnterMovies (); diff --git a/src/indent.c b/src/indent.c index 7ad56e02ff3..8921361afd8 100644 --- a/src/indent.c +++ b/src/indent.c @@ -1,6 +1,6 @@ /* Indentation functions. Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1998, 2000, 2001, - 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/indent.h b/src/indent.h index 39db7b8cf5f..6026be827e8 100644 --- a/src/indent.h +++ b/src/indent.h @@ -1,5 +1,6 @@ /* Definitions for interface to indent.c - Copyright (C) 1985, 1986 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/insdel.c b/src/insdel.c index 981c45c2dbd..2a11f5abe7f 100644 --- a/src/insdel.c +++ b/src/insdel.c @@ -1,6 +1,6 @@ /* Buffer insertion/deletion and gap motion for GNU Emacs. - Copyright (C) 1985, 86,93,94,95,97,98, 1999, 2000, 01, 2003, 2005 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/intervals.c b/src/intervals.c index 5878ce5e4f1..792dd5e2116 100644 --- a/src/intervals.c +++ b/src/intervals.c @@ -1,5 +1,6 @@ /* Code for doing intervals. - Copyright (C) 1993, 1994, 1995, 1997, 1998, 2002, 2003 Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 1995, 1997, 1998, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/intervals.h b/src/intervals.h index 82943a9daae..5d7ee470751 100644 --- a/src/intervals.h +++ b/src/intervals.h @@ -1,5 +1,6 @@ /* Definitions and global variables for intervals. - Copyright (C) 1993, 1994, 2000, 2002, 2003 Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/keyboard.c b/src/keyboard.c index 87a4ce3c997..64b6b86244c 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -1,6 +1,7 @@ /* Keyboard and mouse input; editor command loop. - Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994, 1995, 1996, 1997, - 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994, 1995, + 1996, 1997, 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -4000,7 +4001,7 @@ kbd_buffer_get_event (kbp, used_mouse_menu) kbd_fetch_ptr = event + 1; } #endif -#if defined (HAVE_X11) || defined (HAVE_NTGUI) +#if defined (HAVE_X11) || defined (HAVE_NTGUI) || defined (MAC_OS) else if (event->kind == ICONIFY_EVENT) { /* Make an event (iconify-frame (FRAME)). */ diff --git a/src/keyboard.h b/src/keyboard.h index f5be3f28cf4..afda1c00a92 100644 --- a/src/keyboard.h +++ b/src/keyboard.h @@ -1,5 +1,6 @@ /* Declarations useful when processing input. - Copyright (C) 1985, 1986, 1987, 1993 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1993, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/keymap.c b/src/keymap.c index dd206b8f065..813030fe728 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -1,6 +1,7 @@ /* Manipulation of keymaps - Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1998, 1999, 2000, - 2001, 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, + 1998, 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/keymap.h b/src/keymap.h index 4fcbffbed5a..bcf14abcd89 100644 --- a/src/keymap.h +++ b/src/keymap.h @@ -1,5 +1,5 @@ /* Functions to manipulate keymaps. - Copyright (C) 2001, 2005 Free Software Foundation, Inc. + Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/lastfile.c b/src/lastfile.c index d03dc2c8346..a229d94fd6a 100644 --- a/src/lastfile.c +++ b/src/lastfile.c @@ -1,5 +1,5 @@ /* Mark end of data space to dump as pure, for GNU Emacs. - Copyright (C) 1985 Free Software Foundation, Inc. + Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/lisp.h b/src/lisp.h index 086cce3ce9f..0346c8fd0d3 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -1,6 +1,6 @@ /* Fundamental definitions for GNU Emacs Lisp interpreter. Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1998, 1999, 2000, - 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -1807,7 +1807,7 @@ extern int interrupt_input_pending; Lisp_Object flag = Vquit_flag; \ Vquit_flag = Qnil; \ if (EQ (Vthrow_on_input, flag)) \ - Fthrow (Vthrow_on_input, Qnil); \ + Fthrow (Vthrow_on_input, Qt); \ Fsignal (Qquit, Qnil); \ } \ else if (interrupt_input_pending) \ @@ -1823,7 +1823,7 @@ extern int interrupt_input_pending; Lisp_Object flag = Vquit_flag; \ Vquit_flag = Qnil; \ if (EQ (Vthrow_on_input, flag)) \ - Fthrow (Vthrow_on_input, Qnil); \ + Fthrow (Vthrow_on_input, Qt); \ Fsignal (Qquit, Qnil); \ } \ } while (0) @@ -3062,12 +3062,9 @@ extern int wait_reading_process_output P_ ((int, int, int, int, Lisp_Object, struct Lisp_Process *, int)); -extern void deactivate_process P_ ((Lisp_Object)); extern void add_keyboard_wait_descriptor P_ ((int)); extern void delete_keyboard_wait_descriptor P_ ((int)); extern void close_process_descs P_ ((void)); -extern void status_notify P_ ((void)); -extern int read_process_output P_ ((Lisp_Object, int)); extern void init_process P_ ((void)); extern void syms_of_process P_ ((void)); extern void setup_process_coding_systems P_ ((Lisp_Object)); diff --git a/src/lread.c b/src/lread.c index 0cac2515b4f..7b91260cda9 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1,6 +1,7 @@ /* Lisp parsing and input streams. - Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994, 1995, 1997, 1998, - 1999, 2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994, 1995, + 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/7300.h b/src/m/7300.h index fa95b3d9c4e..bb261c9188a 100644 --- a/src/m/7300.h +++ b/src/m/7300.h @@ -1,5 +1,5 @@ /* machine description file for AT&T UNIX PC model 7300 - Copyright (C) 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Modified for this machine by mtxinu!rtech!gonzo!daveb This file is part of GNU Emacs. diff --git a/src/m/acorn.h b/src/m/acorn.h index 66978329d75..399fb7c9249 100644 --- a/src/m/acorn.h +++ b/src/m/acorn.h @@ -1,5 +1,5 @@ /* Machine description file for Acorn RISCiX machines. - Copyright (C) 1994, 2002 Free Software Foundation, Inc. + Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/alliant-2800.h b/src/m/alliant-2800.h index cf0afd90bb5..b59322e3d0c 100644 --- a/src/m/alliant-2800.h +++ b/src/m/alliant-2800.h @@ -1,5 +1,5 @@ /* alliant-2800.h - Alliant FX/2800 machine running Concentrix 2800. - Copyright (C) 1990, 2002 Free Software Foundation, Inc. + Copyright (C) 1990, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/alliant.h b/src/m/alliant.h index a32e514271d..cbc5734ab31 100644 --- a/src/m/alliant.h +++ b/src/m/alliant.h @@ -1,5 +1,6 @@ /* alliant.h Alliant machine running system version 2 or 3. - Copyright (C) 1985, 1986, 1987, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Note that for version 1 of the Alliant system you should use alliant1.h instead of this file. Use alliant4.h for version 4. diff --git a/src/m/alpha.h b/src/m/alpha.h index aff6182270f..41fefaf20fd 100644 --- a/src/m/alpha.h +++ b/src/m/alpha.h @@ -1,5 +1,6 @@ /* machine description file For the alpha chip. - Copyright (C) 1994, 1997, 1999, 2002 Free Software Foundation, Inc. + Copyright (C) 1994, 1997, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/altos.h b/src/m/altos.h index e3cf0898773..743752d99ec 100644 --- a/src/m/altos.h +++ b/src/m/altos.h @@ -1,5 +1,6 @@ /* altos machine description file Altos 3068 Unix System V Release 2 - Copyright (C) 1985, 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/amdahl.h b/src/m/amdahl.h index 8b32a2e64d1..89d4b6cb6f7 100644 --- a/src/m/amdahl.h +++ b/src/m/amdahl.h @@ -1,5 +1,6 @@ /* amdahl machine description file - Copyright (C) 1987, 1999, 2002 Free Software Foundation, Inc. + Copyright (C) 1987, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/amdx86-64.h b/src/m/amdx86-64.h index 61b18dcc319..2d7d86ce7c3 100644 --- a/src/m/amdx86-64.h +++ b/src/m/amdx86-64.h @@ -1,5 +1,5 @@ /* machine description file for AMD x86-64. - Copyright (C) 2002, 2003 Free Software Foundation, Inc. + Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/apollo.h b/src/m/apollo.h index 8fa91c004c5..4aa62b0b209 100644 --- a/src/m/apollo.h +++ b/src/m/apollo.h @@ -1,5 +1,6 @@ /* machine description file for Apollo machine. - Copyright (C) 1985, 1986, 1994, 2002, Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/arm.h b/src/m/arm.h index 1ebcf3be4a4..358445e0649 100644 --- a/src/m/arm.h +++ b/src/m/arm.h @@ -1,5 +1,5 @@ /* Machine description file for ARM-based non-RISCiX machines. - Copyright (C) 1994, 2002 Free Software Foundation, Inc. + Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/att3b.h b/src/m/att3b.h index 949e6b1d01b..757b47d3f37 100644 --- a/src/m/att3b.h +++ b/src/m/att3b.h @@ -1,5 +1,5 @@ /* Machine-dependent configuration for GNU Emacs for AT&T 3b machines. - Copyright (C) 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Modified by David Robinson (daver@csvax.caltech.edu) 6/6/86 diff --git a/src/m/aviion.h b/src/m/aviion.h index 13a262423b0..b9a2932ef07 100644 --- a/src/m/aviion.h +++ b/src/m/aviion.h @@ -1,5 +1,6 @@ /* machine description file for Data General AViiON. - Copyright (C) 1985, 1986, 1991, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1991, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/celerity.h b/src/m/celerity.h index 0b0bb020122..639d680afdb 100644 --- a/src/m/celerity.h +++ b/src/m/celerity.h @@ -1,5 +1,6 @@ /* machine description file for Celerity. - Copyright (C) 1985, 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/clipper.h b/src/m/clipper.h index 5da09e02fb8..af9f67d8a37 100644 --- a/src/m/clipper.h +++ b/src/m/clipper.h @@ -1,5 +1,6 @@ /* machine description file for clipper - Copyright (C) 1985, 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/cnvrgnt.h b/src/m/cnvrgnt.h index cb344f98f7f..48727bedbe3 100644 --- a/src/m/cnvrgnt.h +++ b/src/m/cnvrgnt.h @@ -1,5 +1,5 @@ /* machine description file for convergent S series. - Copyright (C) 1989, 2002 Free Software Foundation, Inc. + Copyright (C) 1989, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/convex.h b/src/m/convex.h index 97b291743dc..b7fcc71b1c3 100644 --- a/src/m/convex.h +++ b/src/m/convex.h @@ -1,5 +1,6 @@ /* machine description file for Convex (all models). - Copyright (C) 1987, 1994, 2002 Free Software Foundation, Inc. + Copyright (C) 1987, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/cydra5.h b/src/m/cydra5.h index e2813dc2a4b..9806fc30a47 100644 --- a/src/m/cydra5.h +++ b/src/m/cydra5.h @@ -1,5 +1,6 @@ /* machine description file for Cydrome's CYDRA 5 mini super computer - Copyright (C) 1988, 1999, 2002 Free Software Foundation, Inc. + Copyright (C) 1988, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/delta88k.h b/src/m/delta88k.h index ab0a48a4e31..517a0f1744b 100644 --- a/src/m/delta88k.h +++ b/src/m/delta88k.h @@ -1,5 +1,6 @@ /* Machine description file for Motorola System V/88 machines - Copyright (C) 1985, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/dpx2.h b/src/m/dpx2.h index 7a24c3940d3..8d1ceb3db06 100644 --- a/src/m/dpx2.h +++ b/src/m/dpx2.h @@ -1,5 +1,6 @@ /* machine description for Bull DPX/2 range - Copyright (C) 1985, 1986, 1999, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/dual.h b/src/m/dual.h index 253c12bec52..134a5e7720e 100644 --- a/src/m/dual.h +++ b/src/m/dual.h @@ -1,5 +1,6 @@ /* machine description file for Dual machines using unisoft port. - Copyright (C) 1985 Free Software Foundation, Inc. + Copyright (C) 1985, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/elxsi.h b/src/m/elxsi.h index f8de3609690..f702dcf0de2 100644 --- a/src/m/elxsi.h +++ b/src/m/elxsi.h @@ -1,5 +1,6 @@ /* machine description file for Elxsi machine (running enix). - Copyright (C) 1986, 1992, 2002 Free Software Foundation, Inc. + Copyright (C) 1986, 1992, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Adapted by John Salmon This file is part of GNU Emacs. diff --git a/src/m/ews4800.h b/src/m/ews4800.h index dcb46bf83d8..b377bdeddaa 100644 --- a/src/m/ews4800.h +++ b/src/m/ews4800.h @@ -1,5 +1,6 @@ /* m- file for NEC EWS4800 RISC series. - Copyright (C) 1998, 2000, 2001 Free Software Foundation, Inc. + Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/gould-np1.h b/src/m/gould-np1.h index 4a267865085..1c784f28f4e 100644 --- a/src/m/gould-np1.h +++ b/src/m/gould-np1.h @@ -1,5 +1,5 @@ /* machine description file for Gould NP1 with UTX/32 3.0 (first release for NP1) - Copyright (C) 1986 Free Software Foundation, Inc. + Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/hp800.h b/src/m/hp800.h index 64243f4be31..2f661989a15 100644 --- a/src/m/hp800.h +++ b/src/m/hp800.h @@ -1,5 +1,5 @@ /* machine description file for hp9000 series 800 machines. - Copyright (C) 1987, 2002, 2003 Free Software Foundation, Inc. + Copyright (C) 1987, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/hp9000s300.h b/src/m/hp9000s300.h index 8886aec204c..e0b3a5ce5c3 100644 --- a/src/m/hp9000s300.h +++ b/src/m/hp9000s300.h @@ -1,5 +1,5 @@ /* machine description file for hp9000 series 200 or 300 on either HPUX or BSD. - Copyright (C) 1985, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/i860.h b/src/m/i860.h index 66ca2b8fa66..0ecf9e62087 100644 --- a/src/m/i860.h +++ b/src/m/i860.h @@ -1,5 +1,6 @@ /* machine description file for i860. - Copyright (C) 1985, 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/ia64.h b/src/m/ia64.h index 33d843c773f..af790946afa 100644 --- a/src/m/ia64.h +++ b/src/m/ia64.h @@ -1,5 +1,5 @@ /* machine description file for the IA-64 architecture. - Copyright (C) 2000, 2002, 2003 Free Software Foundation, Inc. + Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Contributed by David Mosberger <davidm@hpl.hp.com> This file is part of GNU Emacs. diff --git a/src/m/ibm370aix.h b/src/m/ibm370aix.h index b958656c3e4..3d954ae9d19 100644 --- a/src/m/ibm370aix.h +++ b/src/m/ibm370aix.h @@ -1,5 +1,6 @@ /* m/ file for IBM 370 running AIX. - Copyright (C) 1993, 1994, 2001 Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/ibmps2-aix.h b/src/m/ibmps2-aix.h index d2202d65472..539de924d17 100644 --- a/src/m/ibmps2-aix.h +++ b/src/m/ibmps2-aix.h @@ -1,5 +1,5 @@ /* machine description file for ibm ps/2 aix386. - Copyright (C) 1989, 2002 Free Software Foundation, Inc. + Copyright (C) 1989, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/ibmrs6000.h b/src/m/ibmrs6000.h index b76d03bc0b7..9559f1ae62a 100644 --- a/src/m/ibmrs6000.h +++ b/src/m/ibmrs6000.h @@ -1,5 +1,5 @@ /* R2 AIX machine/system dependent defines - Copyright (C) 1988, 2002 Free Software Foundation, Inc. + Copyright (C) 1988, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/ibmrt-aix.h b/src/m/ibmrt-aix.h index b9ea0e6208f..44bfd77c1d0 100644 --- a/src/m/ibmrt-aix.h +++ b/src/m/ibmrt-aix.h @@ -1,5 +1,6 @@ /* RTPC AIX machine/system dependent defines - Copyright (C) 1988, 1999, 2002 Free Software Foundation, Inc. + Copyright (C) 1988, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/ibmrt.h b/src/m/ibmrt.h index 1388a46b001..f6c23d9d919 100644 --- a/src/m/ibmrt.h +++ b/src/m/ibmrt.h @@ -1,5 +1,5 @@ /* RTPC machine dependent defines - Copyright (C) 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/ibms390.h b/src/m/ibms390.h index af7fbb8dfbf..323ef33f633 100644 --- a/src/m/ibms390.h +++ b/src/m/ibms390.h @@ -1,5 +1,6 @@ /* machine description file template. - Copyright (C) 1985, 1986, 2001, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/intel386.h b/src/m/intel386.h index c63dae7af0b..238015fd345 100644 --- a/src/m/intel386.h +++ b/src/m/intel386.h @@ -1,5 +1,5 @@ /* Machine description file for intel 386. - Copyright (C) 1987, 2002 Free Software Foundation, Inc. + Copyright (C) 1987, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/iris4d.h b/src/m/iris4d.h index a13a6f8c2ff..93fe2062674 100644 --- a/src/m/iris4d.h +++ b/src/m/iris4d.h @@ -1,5 +1,5 @@ /* machine description file for Iris-4D machines. Use with s/irix*.h. - Copyright (C) 1987, 2002, 2003 Free Software Foundation, Inc. + Copyright (C) 1987, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/irist.h b/src/m/irist.h index 71726977b23..b40ffb5dff9 100644 --- a/src/m/irist.h +++ b/src/m/irist.h @@ -1,6 +1,7 @@ /* machine description file for Silicon Graphics Iris 2500 Turbos; also possibly for non-turbo Irises with system release 2.5. - Copyright (C) 1985, 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/isi-ov.h b/src/m/isi-ov.h index 9b35f03ea70..416335d1bff 100644 --- a/src/m/isi-ov.h +++ b/src/m/isi-ov.h @@ -1,5 +1,6 @@ /* machine description file for ISI 68000's - Copyright (C) 1985, 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/m68k.h b/src/m/m68k.h index 9fdcf1511b8..7b2ffa81351 100644 --- a/src/m/m68k.h +++ b/src/m/m68k.h @@ -1,5 +1,6 @@ /* Machine description file for generic Motorola 68k. - Copyright (C) 1985, 1995, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1995, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/macppc.h b/src/m/macppc.h index 36022af3e52..9e4297df3b7 100644 --- a/src/m/macppc.h +++ b/src/m/macppc.h @@ -1,5 +1,6 @@ /* machine description file For the powerpc Macintosh. - Copyright (C) 1994, 2001, 2002 Free Software Foundation, Inc. + Copyright (C) 1994, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/masscomp.h b/src/m/masscomp.h index 4582e29b6bd..01fddc751f1 100644 --- a/src/m/masscomp.h +++ b/src/m/masscomp.h @@ -1,5 +1,5 @@ /* machine description file for Masscomp 5000 series running RTU, ucb universe. - Copyright (C) 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/mega68.h b/src/m/mega68.h index ba7ee6b48d4..ef1623ca460 100644 --- a/src/m/mega68.h +++ b/src/m/mega68.h @@ -1,5 +1,5 @@ /* machine description file for Megatest 68000's. - Copyright (C) 1985 Free Software Foundation, Inc. + Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/mg1.h b/src/m/mg1.h index 47d34f43768..4e4b3525d6e 100644 --- a/src/m/mg1.h +++ b/src/m/mg1.h @@ -1,5 +1,5 @@ /* machine description file for Whitechapel Computer Works MG1 (ns16000 based). - Copyright (C) 1985, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. MG-1 version by L.M.McLoughlin This file is part of GNU Emacs. diff --git a/src/m/mips-siemens.h b/src/m/mips-siemens.h index f00790210c9..fc1a8a2e0d6 100644 --- a/src/m/mips-siemens.h +++ b/src/m/mips-siemens.h @@ -1,5 +1,6 @@ /* m- file for Mips machines. - Copyright (C) 1987,1992,1993,95,2002,03 Free Software Foundation, Inc. + Copyright (C) 1987, 1992, 1993, 1995, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file contains some changes for our SVR4 based SINIX-Mips 5.4. I hope this is helpful to port the emacs to our RM?00 series and diff --git a/src/m/mips.h b/src/m/mips.h index e868423642c..28a35e02677 100644 --- a/src/m/mips.h +++ b/src/m/mips.h @@ -1,5 +1,6 @@ /* m- file for Mips machines. - Copyright (C) 1987, 1992, 1999, 2002, 2003 Free Software Foundation, Inc. + Copyright (C) 1987, 1992, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/news.h b/src/m/news.h index 1d2585c09a0..dec413c3f9e 100644 --- a/src/m/news.h +++ b/src/m/news.h @@ -1,5 +1,6 @@ /* machine description file for Sony's NEWS workstations, NEWS-OS 3.0. - Copyright (C) 1985, 1986, 1989, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1989, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/next.h b/src/m/next.h index 2f2952e10f4..dfb3cd11cbf 100644 --- a/src/m/next.h +++ b/src/m/next.h @@ -1,5 +1,5 @@ /* Configuration file for the NeXT machine. - Copyright (C) 1990, 2002 Free Software Foundation, Inc. + Copyright (C) 1990, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/nh3000.h b/src/m/nh3000.h index 7be5c5dc7db..42255473020 100644 --- a/src/m/nh3000.h +++ b/src/m/nh3000.h @@ -1,7 +1,7 @@ /* machine description for Harris Night Hawk Series 1200 and Series 3000 MC68030-based systems (FPP on these is custom). These systems are also known as "ecx" and "gcx". - Copyright (C) 1994, 2002 Free Software Foundation, Inc. + Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/nh4000.h b/src/m/nh4000.h index 3d8794b2802..04068f0c065 100644 --- a/src/m/nh4000.h +++ b/src/m/nh4000.h @@ -1,6 +1,6 @@ /* machine description for Harris NightHawk 88k based machines (includes nh4000 and nh5000 machines). - Copyright (C) 1994, 2002 Free Software Foundation, Inc. + Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/ns16000.h b/src/m/ns16000.h index 07fff86502b..49f514ced06 100644 --- a/src/m/ns16000.h +++ b/src/m/ns16000.h @@ -1,5 +1,5 @@ /* machine description file for ns16000. - Copyright (C) 1985 Free Software Foundation, Inc. + Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/ns32000.h b/src/m/ns32000.h index 9a135fe2d9f..858630b74ab 100644 --- a/src/m/ns32000.h +++ b/src/m/ns32000.h @@ -1,5 +1,6 @@ /* machine description file for National Semiconductor 32000, running Genix. - Copyright (C) 1985, 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/nu.h b/src/m/nu.h index 8ca03155314..1e5518e451f 100644 --- a/src/m/nu.h +++ b/src/m/nu.h @@ -1,5 +1,5 @@ /* machine description file for TI Nu machines using system V. - Copyright (C) 1986 Free Software Foundation, Inc. + Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/orion.h b/src/m/orion.h index e4fa8529664..a73b357d50f 100644 --- a/src/m/orion.h +++ b/src/m/orion.h @@ -1,5 +1,5 @@ /* machine description file for HLH Orion. - Copyright (C) 1985, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/orion105.h b/src/m/orion105.h index d0adaba70ec..e75a8e67a84 100644 --- a/src/m/orion105.h +++ b/src/m/orion105.h @@ -1,5 +1,5 @@ /* machine description file for HLH Orion 1/05 (Clipper). - Copyright (C) 1985 Free Software Foundation, Inc. + Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. Lee McLoughlin <lmjm%doc.imperial.ac.uk@nss.cs.ucl.ac.uk> This file is part of GNU Emacs. diff --git a/src/m/pfa50.h b/src/m/pfa50.h index be430d25fdc..50e79b623ca 100644 --- a/src/m/pfa50.h +++ b/src/m/pfa50.h @@ -1,5 +1,6 @@ /* Machine description file for PFU A-series. - Copyright (C) 1988, 1999, 2002 Free Software Foundation, Inc. + Copyright (C) 1988, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/plexus.h b/src/m/plexus.h index a2f6cc545a0..10826a70bc2 100644 --- a/src/m/plexus.h +++ b/src/m/plexus.h @@ -1,5 +1,5 @@ /* machine description file for the Plexus running System V.2. - Copyright (C) 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/powermac.h b/src/m/powermac.h index c41003ae61c..14b2e110734 100644 --- a/src/m/powermac.h +++ b/src/m/powermac.h @@ -1,5 +1,5 @@ /* Machine description file for Apple Power Macintosh - Copyright (C) 2001 Free Software Foundation, Inc. + Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/powerpcle.h b/src/m/powerpcle.h index 34096a37d18..1dfd2df25b4 100644 --- a/src/m/powerpcle.h +++ b/src/m/powerpcle.h @@ -1,5 +1,5 @@ /* machine description file for PowerPC. - Copyright (C) 1987, 2002 Free Software Foundation, Inc. + Copyright (C) 1987, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/pyramid.h b/src/m/pyramid.h index 7e0db61ec59..12010087a58 100644 --- a/src/m/pyramid.h +++ b/src/m/pyramid.h @@ -1,5 +1,6 @@ /* machine description file for pyramid. - Copyright (C) 1985, 1986 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/sequent-ptx.h b/src/m/sequent-ptx.h index 57d255a861e..3c22639e3b2 100644 --- a/src/m/sequent-ptx.h +++ b/src/m/sequent-ptx.h @@ -1,5 +1,6 @@ /* machine description file for SEQUENT machines running DYNIX/ptx - Copyright (C) 1985, 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/sequent.h b/src/m/sequent.h index 7c572f54f68..f082880b4fc 100644 --- a/src/m/sequent.h +++ b/src/m/sequent.h @@ -1,5 +1,6 @@ /* machine description file for SEQUENT BALANCE machines - Copyright (C) 1985, 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/sparc.h b/src/m/sparc.h index 6926aced07b..20ec53c1344 100644 --- a/src/m/sparc.h +++ b/src/m/sparc.h @@ -1,5 +1,5 @@ /* machine description file for Sun 4 SPARC. - Copyright (C) 1987, 2002 Free Software Foundation, Inc. + Copyright (C) 1987, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/sps7.h b/src/m/sps7.h index 3bd0c94bccd..422d2470aaa 100644 --- a/src/m/sps7.h +++ b/src/m/sps7.h @@ -1,5 +1,6 @@ /* machine description file for Bull SPS-7. - Copyright (C) 1986, 1999 Free Software Foundation, Inc. + Copyright (C) 1986, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/sr2k.h b/src/m/sr2k.h index 83dbf4941ff..875f428dc1f 100644 --- a/src/m/sr2k.h +++ b/src/m/sr2k.h @@ -1,5 +1,5 @@ /* machine description file for Hitachi SR2001/SR2201 machines. - Copyright (C) 1996, 2002, 2003 Free Software Foundation, Inc. + Copyright (C) 1996, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/stride.h b/src/m/stride.h index f176a7642a7..ff900d49b38 100644 --- a/src/m/stride.h +++ b/src/m/stride.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on Stride Micro System-V.2.2 - Copyright (C) 1985, 1986, 1999 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/sun1.h b/src/m/sun1.h index 7ab81218705..810bad7fd58 100644 --- a/src/m/sun1.h +++ b/src/m/sun1.h @@ -1,5 +1,6 @@ /* machine description file for Sun 68000's - Copyright (C) 1985, 1986 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/sun2.h b/src/m/sun2.h index 452fdfc7c01..9df032049e3 100644 --- a/src/m/sun2.h +++ b/src/m/sun2.h @@ -1,7 +1,8 @@ /* machine description file for Sun 68000's OPERATING SYSTEM version 2. Note that "sun2.h" refers to the operating system version, not the CPU model number. See the MACHINES file for details. - Copyright (C) 1985, 1986 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/sun386.h b/src/m/sun386.h index 782e10925ef..5970f90b98b 100644 --- a/src/m/sun386.h +++ b/src/m/sun386.h @@ -2,7 +2,7 @@ "sun2.h", but since that file is heavily cpu-specific, it was easier not to include it. - Copyright (C) 1988 Free Software Foundation, Inc. + Copyright (C) 1988, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/symmetry.h b/src/m/symmetry.h index 262d6474757..4954f596442 100644 --- a/src/m/symmetry.h +++ b/src/m/symmetry.h @@ -1,5 +1,6 @@ /* machine description file for SEQUENT SYMMETRY machines - Copyright (C) 1985, 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/tad68k.h b/src/m/tad68k.h index 4c904aaf569..b8b3859f407 100644 --- a/src/m/tad68k.h +++ b/src/m/tad68k.h @@ -1,5 +1,5 @@ /* Machine-dependent configuration for GNU Emacs for Tadpole 68k machines - Copyright (C) 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/tahoe.h b/src/m/tahoe.h index 988624839b4..47db3f93deb 100644 --- a/src/m/tahoe.h +++ b/src/m/tahoe.h @@ -1,5 +1,5 @@ /* machine description file for tahoe. - Copyright (C) 1985, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/targon31.h b/src/m/targon31.h index 08ecb681bd9..5ac18648387 100644 --- a/src/m/targon31.h +++ b/src/m/targon31.h @@ -1,5 +1,6 @@ /* targon31 machine description file - Copyright (C) 1985, 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/tek4300.h b/src/m/tek4300.h index 164df72210a..a84135291cb 100644 --- a/src/m/tek4300.h +++ b/src/m/tek4300.h @@ -1,5 +1,5 @@ /* machine description file for tek4300. - Copyright (C) 1988, 2002 Free Software Foundation, Inc. + Copyright (C) 1988, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/tekxd88.h b/src/m/tekxd88.h index 7af3dab6a07..4db981a8096 100644 --- a/src/m/tekxd88.h +++ b/src/m/tekxd88.h @@ -1,7 +1,7 @@ /* Configuration file for the Tektronix XD88 running UTekV 3.2e, contributed by Kaveh Ghazi (ghazi@caip.rutgers.edu) 1/15/93. You probably need to use gnu make (version 3.63 or higher.) - Copyright (C) 1993, 2002 Free Software Foundation, Inc. + Copyright (C) 1993, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/template.h b/src/m/template.h index c088efff81a..c7ce2c2cb1f 100644 --- a/src/m/template.h +++ b/src/m/template.h @@ -1,5 +1,6 @@ /* machine description file template. - Copyright (C) 1985, 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/tower32.h b/src/m/tower32.h index c5f34d065ea..cd4ab96de11 100644 --- a/src/m/tower32.h +++ b/src/m/tower32.h @@ -1,5 +1,5 @@ /* machine description file for the NCR Tower 32 running System V.2. - Copyright (C) 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/tower32v3.h b/src/m/tower32v3.h index 927dfca93d9..2c1e55c0023 100644 --- a/src/m/tower32v3.h +++ b/src/m/tower32v3.h @@ -1,5 +1,5 @@ /* machine description file for the NCR Tower 32 running System V.3. - Copyright (C) 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/ustation.h b/src/m/ustation.h index e7068f3cd86..c62d37d6429 100644 --- a/src/m/ustation.h +++ b/src/m/ustation.h @@ -1,5 +1,6 @@ /* machine description file for U-station (Nihon Unisys, SS5E; Sumitomo Denkoh, U-Station E30). - Copyright (C) 1986, 1999, 2002 Free Software Foundation, Inc. + Copyright (C) 1986, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/vax.h b/src/m/vax.h index 22fda95abc5..d414d6b57e7 100644 --- a/src/m/vax.h +++ b/src/m/vax.h @@ -1,5 +1,6 @@ /* machine description file for vax. - Copyright (C) 1985, 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/wicat.h b/src/m/wicat.h index bd8fcefe99c..78842f32a43 100644 --- a/src/m/wicat.h +++ b/src/m/wicat.h @@ -1,5 +1,5 @@ /* machine description file for WICAT machines. - Copyright (C) 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/windowsnt.h b/src/m/windowsnt.h index 39c7baa9de6..cf48ca8aa88 100644 --- a/src/m/windowsnt.h +++ b/src/m/windowsnt.h @@ -1,6 +1,7 @@ /* Machine description file for Windows NT. - Copyright (C) 1993, 1994, 2002 Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/m/xps100.h b/src/m/xps100.h index c6e54710bd6..3a851aa9ebd 100644 --- a/src/m/xps100.h +++ b/src/m/xps100.h @@ -1,7 +1,8 @@ /* xps100.h for the Honeywell XPS100 running UNIX System V.2 Mark J. Hewitt (mjh@uk.co.kernel) - Copyright (C) 1985, 1986, 2002 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/mac.c b/src/mac.c index 5558cbb797e..0d8c99ffb1e 100644 --- a/src/mac.c +++ b/src/mac.c @@ -1,5 +1,6 @@ /* Unix emulation routines for GNU Emacs on the Mac OS. - Copyright (C) 2000, 2001, 2005 Free Software Foundation, Inc. + Copyright (C) 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/macfns.c b/src/macfns.c index 615c312f3ac..13cb563c156 100644 --- a/src/macfns.c +++ b/src/macfns.c @@ -1,5 +1,5 @@ /* Graphical user interface functions for Mac OS. - Copyright (C) 2000, 2001, 2004 Free Software Foundation, Inc. + Copyright (C) 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/macgui.h b/src/macgui.h index ca55bad7a8c..9591b7a8e3d 100644 --- a/src/macgui.h +++ b/src/macgui.h @@ -1,5 +1,6 @@ /* Definitions and headers for communication on the Mac OS. - Copyright (C) 2000, 2001 Free Software Foundation, Inc. + Copyright (C) 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/macmenu.c b/src/macmenu.c index c7ee0dfaf21..a68ff04e405 100644 --- a/src/macmenu.c +++ b/src/macmenu.c @@ -1,5 +1,6 @@ /* Menu support for GNU Emacs on the for Mac OS. - Copyright (C) 2000, 2001, 2002, 2003 Free Software Foundation, Inc. + Copyright (C) 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/macros.c b/src/macros.c index 6f854018d6a..8167e274dab 100644 --- a/src/macros.c +++ b/src/macros.c @@ -1,5 +1,6 @@ /* Keyboard macros. - Copyright (C) 1985, 1986, 1993, 2000, 2001 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1993, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/macros.h b/src/macros.h index d9b99b9984e..7acd46dc2ed 100644 --- a/src/macros.h +++ b/src/macros.h @@ -1,5 +1,5 @@ /* Definitions for keyboard macro interpretation in GNU Emacs. - Copyright (C) 1985 Free Software Foundation, Inc. + Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/macterm.c b/src/macterm.c index 5b7d3ee2262..099b69bfb09 100644 --- a/src/macterm.c +++ b/src/macterm.c @@ -1,5 +1,6 @@ /* Implementation of GUI terminal on the Mac OS. - Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -797,6 +798,8 @@ mac_copy_area (display, src, dest, gc, src_x, src_y, width, height, dest_x, &src_r, &dest_r, srcCopy, 0); #endif /* not TARGET_API_MAC_CARBON */ UnlockPixels (GetGWorldPixMap (src)); + + RGBBackColor (GC_BACK_COLOR (MAC_WINDOW_NORMAL_GC (dest))); } @@ -835,6 +838,8 @@ mac_copy_area_with_mask (display, src, mask, dest, gc, src_x, src_y, #endif /* not TARGET_API_MAC_CARBON */ UnlockPixels (GetGWorldPixMap (mask)); UnlockPixels (GetGWorldPixMap (src)); + + RGBBackColor (GC_BACK_COLOR (MAC_WINDOW_NORMAL_GC (dest))); } @@ -5661,6 +5666,53 @@ XTframe_raise_lower (f, raise_flag) /* Change of visibility. */ +static void +mac_handle_visibility_change (f) + struct frame *f; +{ + WindowPtr wp = FRAME_MAC_WINDOW (f); + int visible = 0, iconified = 0; + struct input_event buf; + + if (IsWindowVisible (wp)) + if (IsWindowCollapsed (wp)) + iconified = 1; + else + visible = 1; + + if (!f->async_visible && visible) + { + if (f->iconified) + { + /* wait_reading_process_output will notice this and update + the frame's display structures. If we were made + invisible, we should not set garbaged, because that stops + redrawing on Update events. */ + SET_FRAME_GARBAGED (f); + + EVENT_INIT (buf); + buf.kind = DEICONIFY_EVENT; + XSETFRAME (buf.frame_or_window, f); + kbd_buffer_store_event (&buf); + } + else if (! NILP (Vframe_list) && ! NILP (XCDR (Vframe_list))) + /* Force a redisplay sooner or later to update the + frame titles in case this is the second frame. */ + record_asynch_buffer_change (); + } + else if (f->async_visible && !visible) + if (iconified) + { + EVENT_INIT (buf); + buf.kind = ICONIFY_EVENT; + XSETFRAME (buf.frame_or_window, f); + kbd_buffer_store_event (&buf); + } + + f->async_visible = visible; + f->async_iconified = iconified; +} + /* This tries to wait until the frame is really visible. However, if the window manager asks the user where to position the frame, this will return before the user finishes doing that. @@ -5685,29 +5737,32 @@ x_make_frame_visible (f) before the window gets really visible. */ if (! FRAME_ICONIFIED_P (f) && ! f->output_data.mac->asked_for_visible) - x_set_offset (f, f->left_pos, f->top_pos, 0); - - f->output_data.mac->asked_for_visible = 1; - #if TARGET_API_MAC_CARBON - if (!(FRAME_SIZE_HINTS (f)->flags & (USPosition | PPosition))) - { - struct frame *sf = SELECTED_FRAME (); - if (!FRAME_MAC_P (sf)) - RepositionWindow (FRAME_MAC_WINDOW (f), NULL, - kWindowCenterOnMainScreen); - else - RepositionWindow (FRAME_MAC_WINDOW (f), - FRAME_MAC_WINDOW (sf), + if (!(FRAME_SIZE_HINTS (f)->flags & (USPosition | PPosition))) + { + struct frame *sf = SELECTED_FRAME (); + if (!FRAME_MAC_P (sf)) + RepositionWindow (FRAME_MAC_WINDOW (f), NULL, + kWindowCenterOnMainScreen); + else + RepositionWindow (FRAME_MAC_WINDOW (f), + FRAME_MAC_WINDOW (sf), #if MAC_OS_X_VERSION_MAX_ALLOWED >= 1020 - kWindowCascadeStartAtParentWindowScreen + kWindowCascadeStartAtParentWindowScreen #else - kWindowCascadeOnParentWindowScreen + kWindowCascadeOnParentWindowScreen #endif - ); - x_real_positions (f, &f->left_pos, &f->top_pos); - } + ); + x_real_positions (f, &f->left_pos, &f->top_pos); + } + else #endif + x_set_offset (f, f->left_pos, f->top_pos, 0); + + f->output_data.mac->asked_for_visible = 1; + + SelectWindow (FRAME_MAC_WINDOW (f)); + CollapseWindow (FRAME_MAC_WINDOW (f), false); ShowWindow (FRAME_MAC_WINDOW (f)); } @@ -5766,9 +5821,14 @@ void x_make_frame_invisible (f) struct frame *f; { + /* A deactivate event does not occur when the last visible frame is + made invisible. So if we clear the highlight here, it will not + be rehighlighted when it is made visible. */ +#if 0 /* Don't keep the highlight on an invisible frame. */ if (FRAME_MAC_DISPLAY_INFO (f)->x_highlight_frame == f) FRAME_MAC_DISPLAY_INFO (f)->x_highlight_frame = 0; +#endif BLOCK_INPUT; @@ -5781,17 +5841,11 @@ x_make_frame_invisible (f) HideWindow (FRAME_MAC_WINDOW (f)); - /* We can't distinguish this from iconification - just by the event that we get from the server. - So we can't win using the usual strategy of letting - FRAME_SAMPLE_VISIBILITY set this. So do it by hand, - and synchronize with the server to make sure we agree. */ - f->visible = 0; - FRAME_ICONIFIED_P (f) = 0; - f->async_visible = 0; - f->async_iconified = 0; - UNBLOCK_INPUT; + +#if !USE_CARBON_EVENTS + mac_handle_visibility_change (f); +#endif } /* Change window state from mapped to iconified. */ @@ -5800,21 +5854,37 @@ void x_iconify_frame (f) struct frame *f; { + OSErr err; + + /* A deactivate event does not occur when the last visible frame is + iconified. So if we clear the highlight here, it will not be + rehighlighted when it is deiconified. */ +#if 0 /* Don't keep the highlight on an invisible frame. */ if (FRAME_MAC_DISPLAY_INFO (f)->x_highlight_frame == f) FRAME_MAC_DISPLAY_INFO (f)->x_highlight_frame = 0; +#endif -#if 0 - /* Review: Since window is still visible in dock, still allow updates? */ if (f->async_iconified) return; -#endif BLOCK_INPUT; - CollapseWindow (FRAME_MAC_WINDOW (f), true); + FRAME_SAMPLE_VISIBILITY (f); + + if (! FRAME_VISIBLE_P (f)) + ShowWindow (FRAME_MAC_WINDOW (f)); + + err = CollapseWindow (FRAME_MAC_WINDOW (f), true); UNBLOCK_INPUT; + + if (err != noErr) + error ("Can't notify window manager of iconification"); + +#if !USE_CARBON_EVENTS + mac_handle_visibility_change (f); +#endif } @@ -7212,7 +7282,7 @@ x_load_font (f, fontname, size) /* Set global flag fonts_changed_p to non-zero if the font loaded has a character with a smaller width than any other character - before, or if the font loaded has a smalle>r height than any + before, or if the font loaded has a smaller height than any other font loaded before. If this happens, it will make a glyph matrix reallocation necessary. */ fonts_changed_p |= x_compute_min_glyph_bounds (f); @@ -7343,12 +7413,12 @@ Lisp_Object Vmac_pass_command_to_system; /* If Non-nil, the Mac "Control" key is passed on to the Mac Toolbox for processing before Emacs sees it. */ Lisp_Object Vmac_pass_control_to_system; +#endif /* Points to the variable `inev' in the function XTread_socket. It is used for passing an input event to the function back from Carbon/Apple event handlers. */ static struct input_event *read_socket_inev = NULL; -#endif /* Set in term/mac-win.el to indicate that event loop can now generate drag and drop events. */ @@ -7633,37 +7703,30 @@ do_window_update (WindowPtr win) { if (f->async_visible == 0) { + /* Update events may occur when a frame gets iconified. */ +#if 0 f->async_visible = 1; f->async_iconified = 0; SET_FRAME_GARBAGED (f); - - /* An update event is equivalent to MapNotify on X, so report - visibility changes properly. */ - if (! NILP(Vframe_list) && ! NILP (XCDR (Vframe_list))) - /* Force a redisplay sooner or later to update the - frame titles in case this is the second frame. */ - record_asynch_buffer_change (); +#endif } else - { + { Rect r; - #if TARGET_API_MAC_CARBON - { - RgnHandle region = NewRgn (); + RgnHandle region = NewRgn (); - GetPortVisibleRegion (GetWindowPort (win), region); - GetRegionBounds (region, &r); - expose_frame (f, r.left, r.top, r.right - r.left, r.bottom - r.top); - UpdateControls (win, region); - DisposeRgn (region); - } + GetPortVisibleRegion (GetWindowPort (win), region); + GetRegionBounds (region, &r); + expose_frame (f, r.left, r.top, r.right - r.left, r.bottom - r.top); + UpdateControls (win, region); + DisposeRgn (region); #else r = (*win->visRgn)->rgnBBox; expose_frame (f, r.left, r.top, r.right - r.left, r.bottom - r.top); UpdateControls (win, win->visRgn); #endif - } + } } EndUpdate (win); @@ -8195,6 +8258,17 @@ mac_handle_window_event (next_handler, event, data) return noErr; } break; + + case kEventWindowShown: + case kEventWindowHidden: + case kEventWindowExpanded: + case kEventWindowCollapsed: + result = CallNextEventHandler (next_handler, event); + + mac_handle_visibility_change (mac_window_to_frame (wp)); + return noErr; + + break; } return eventNotHandledErr; @@ -8270,7 +8344,11 @@ install_window_handler (window) #if USE_CARBON_EVENTS EventTypeSpec specs_window[] = {{kEventClassWindow, kEventWindowUpdate}, - {kEventClassWindow, kEventWindowBoundsChanging}}; + {kEventClassWindow, kEventWindowBoundsChanging}, + {kEventClassWindow, kEventWindowShown}, + {kEventClassWindow, kEventWindowHidden}, + {kEventClassWindow, kEventWindowExpanded}, + {kEventClassWindow, kEventWindowCollapsed}}; EventTypeSpec specs_mouse[] = {{kEventClassMouse, kEventMouseWheelMoved}}; static EventHandlerUPP handle_window_eventUPP = NULL; static EventHandlerUPP handle_mouse_eventUPP = NULL; @@ -9479,6 +9557,29 @@ XTread_socket (sd, expected, hold_quit) pending_autoraise_frame = 0; } +#if !USE_CARBON_EVENTS + /* Check which frames are still visible. We do this here because + there doesn't seem to be any direct notification from the Window + Manager that the visibility of a window has changed (at least, + not in all cases). */ + { + Lisp_Object tail, frame; + + FOR_EACH_FRAME (tail, frame) + { + struct frame *f = XFRAME (frame); + + /* The tooltip has been drawn already. Avoid the + SET_FRAME_GARBAGED in mac_handle_visibility_change. */ + if (EQ (frame, tip_frame)) + continue; + + if (FRAME_MAC_P (f)) + mac_handle_visibility_change (f); + } + } +#endif + UNBLOCK_INPUT; return count; } diff --git a/src/macterm.h b/src/macterm.h index 71cd4db82c0..a4af9381867 100644 --- a/src/macterm.h +++ b/src/macterm.h @@ -1,5 +1,6 @@ /* Display module for Mac OS. - Copyright (C) 2000, 2001 Free Software Foundation, Inc. + Copyright (C) 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/makefile.w32-in b/src/makefile.w32-in index 1418dd64cfd..40c50f8e567 100644 --- a/src/makefile.w32-in +++ b/src/makefile.w32-in @@ -1,5 +1,6 @@ # -*- Makefile -*- for GNU Emacs on the Microsoft W32 API. -# Copyright (c) 2000-2001, 2004 Free Software Foundation, Inc. +# Copyright (C) 2000, 2001, 2002, 2003, 2004, +# 2005 Free Software Foundation, Inc. # # This file is part of GNU Emacs. # diff --git a/src/marker.c b/src/marker.c index 4184e9af2b3..9b85930f357 100644 --- a/src/marker.c +++ b/src/marker.c @@ -1,5 +1,6 @@ /* Markers: examining, setting and deleting. - Copyright (C) 1985, 1997, 1998, 2003 Free Software Foundation, Inc. + Copyright (C) 1985, 1997, 1998, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/md5.c b/src/md5.c index 039213fd76b..4f055447eac 100644 --- a/src/md5.c +++ b/src/md5.c @@ -1,6 +1,7 @@ /* Functions to compute MD5 message digest of files or memory blocks. according to the definition of MD5 in RFC 1321 from April 1992. - Copyright (C) 1995, 1996, 1997, 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1995, 1996, 1997, 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of the GNU Emacs. The GNU C Library is free software; you can redistribute it and/or diff --git a/src/md5.h b/src/md5.h index 229da8daa8d..adcc6bf48f6 100644 --- a/src/md5.h +++ b/src/md5.h @@ -1,6 +1,7 @@ /* Declaration of functions and data types used for MD5 sum computing library functions. - Copyright (C) 1995, 1996, 1997, 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1995, 1996, 1997, 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. The GNU C Library is free software; you can redistribute it and/or diff --git a/src/mem-limits.h b/src/mem-limits.h index aac8a396172..d7ac6a3e366 100644 --- a/src/mem-limits.h +++ b/src/mem-limits.h @@ -1,5 +1,6 @@ /* Includes for memory limit warnings. - Copyright (C) 1990, 93, 94, 95, 1996, 2004 Free Software Foundation, Inc. + Copyright (C) 1990, 1993, 1994, 1995, 1996, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/minibuf.c b/src/minibuf.c index 2a54fae8b01..c0624bd29b4 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -1,6 +1,6 @@ /* Minibuffer input and completion. - Copyright (C) 1985,86,93,94,95,96,97,98,99,2000,01,03,04,05 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, + 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/mktime.c b/src/mktime.c index c61f1463564..025f54d95c2 100644 --- a/src/mktime.c +++ b/src/mktime.c @@ -1,5 +1,6 @@ /* Convert a `struct tm' to a time_t value. - Copyright (C) 1993, 94, 95, 96, 97, 98, 99 Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Contributed by Paul Eggert (eggert@twinsun.com). NOTE: The canonical source of this file is maintained with the GNU C Library. diff --git a/src/msdos.c b/src/msdos.c index 3105410af09..ee899d1bee4 100644 --- a/src/msdos.c +++ b/src/msdos.c @@ -1,6 +1,6 @@ /* MS-DOS specific C utilities. -*- coding: raw-text -*- - Copyright (C) 1993, 94, 95, 96, 97, 1999, 2000, 01, 2003 - Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, + 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/msdos.h b/src/msdos.h index 7f2f013fd13..b6c6aca1493 100644 --- a/src/msdos.h +++ b/src/msdos.h @@ -1,5 +1,6 @@ /* MS-DOS specific C utilities, interface. - Copyright (C) 1993, 2001 Free Software Foundation, Inc. + Copyright (C) 1993, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/prefix-args.c b/src/prefix-args.c index 5cfe6e4a095..ee1ee7e7c7f 100644 --- a/src/prefix-args.c +++ b/src/prefix-args.c @@ -1,5 +1,5 @@ /* prefix-args.c - echo each argument, prefixed by a string. - Copyright (C) 1992 Free Software Foundation, Inc. + Copyright (C) 1992, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/print.c b/src/print.c index 0869340c400..b18bf19002f 100644 --- a/src/print.c +++ b/src/print.c @@ -1,6 +1,7 @@ /* Lisp object printing and output streams. - Copyright (C) 1985, 1986, 1988, 1993, 1994, 1995, 1997, 1998, 1999, - 2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1988, 1993, 1994, 1995, 1997, + 1998, 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/process.c b/src/process.c index 1890a2a0893..a7ef9c36589 100644 --- a/src/process.c +++ b/src/process.c @@ -1,6 +1,7 @@ /* Asynchronous subprocess control for GNU Emacs. - Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1996, 1998, 1999, - 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, + 1996, 1998, 1999, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -293,7 +294,10 @@ static Lisp_Object Vprocess_adaptive_read_buffering; #include "sysselect.h" -extern int keyboard_bit_set P_ ((SELECT_TYPE *)); +static int keyboard_bit_set P_ ((SELECT_TYPE *)); +static void deactivate_process P_ ((Lisp_Object)); +static void status_notify P_ ((struct Lisp_Process *)); +static int read_process_output P_ ((Lisp_Object, int)); /* If we support a window system, turn on the code to poll periodically to detect C-g. It isn't actually used when doing interrupt input. */ @@ -390,9 +394,9 @@ static char pty_name[24]; /* Compute the Lisp form of the process status, p->status, from the numeric status that was returned by `wait'. */ -Lisp_Object status_convert (); +static Lisp_Object status_convert (); -void +static void update_status (p) struct Lisp_Process *p; { @@ -406,7 +410,7 @@ update_status (p) /* Convert a process status word in Unix format to the list that we use internally. */ -Lisp_Object +static Lisp_Object status_convert (w) WAITTYPE w; { @@ -425,7 +429,7 @@ status_convert (w) /* Given a status-list, extract the three pieces of information and store them individually through the three pointers. */ -void +static void decode_status (l, symbol, code, coredump) Lisp_Object l; Lisp_Object *symbol; @@ -504,7 +508,7 @@ status_message (p) The file name of the terminal corresponding to the pty is left in the variable pty_name. */ -int +static int allocate_pty () { register int c, i; @@ -589,7 +593,7 @@ allocate_pty () } #endif /* HAVE_PTYS */ -Lisp_Object +static Lisp_Object make_process (name) Lisp_Object name; { @@ -633,7 +637,7 @@ make_process (name) return val; } -void +static void remove_process (proc) register Lisp_Object proc; { @@ -768,23 +772,27 @@ nil, indicating the current buffer's process. */) (process) register Lisp_Object process; { + register struct Lisp_Process *p; + process = get_process (process); - XPROCESS (process)->raw_status_low = Qnil; - XPROCESS (process)->raw_status_high = Qnil; - if (NETCONN_P (process)) + p = XPROCESS (process); + + p->raw_status_low = Qnil; + p->raw_status_high = Qnil; + if (NETCONN1_P (p)) { - XPROCESS (process)->status = Fcons (Qexit, Fcons (make_number (0), Qnil)); - XSETINT (XPROCESS (process)->tick, ++process_tick); - status_notify (); + p->status = Fcons (Qexit, Fcons (make_number (0), Qnil)); + XSETINT (p->tick, ++process_tick); + status_notify (p); } - else if (XINT (XPROCESS (process)->infd) >= 0) + else if (XINT (p->infd) >= 0) { Fkill_process (process, Qnil); /* Do this now, since remove_process will make sigchld_handler do nothing. */ - XPROCESS (process)->status + p->status = Fcons (Qsignal, Fcons (make_number (SIGKILL), Qnil)); - XSETINT (XPROCESS (process)->tick, ++process_tick); - status_notify (); + XSETINT (p->tick, ++process_tick); + status_notify (p); } remove_process (process); return Qnil; @@ -1238,7 +1246,7 @@ IP address. Returns nil if format of ADDRESS is invalid. */) } #endif -Lisp_Object +static Lisp_Object list_processes_1 (query_only) Lisp_Object query_only; { @@ -1708,7 +1716,7 @@ start_process_unwind (proc) return Qnil; } -void +static void create_process_1 (timer) struct atimer *timer; { @@ -2531,7 +2539,7 @@ OPTION is not a supported option, return nil instead; otherwise return t. */) /* A version of request_sigio suitable for a record_unwind_protect. */ -Lisp_Object +static Lisp_Object unwind_request_sigio (dummy) Lisp_Object dummy; { @@ -4222,7 +4230,7 @@ wait_reading_process_output (time_limit, microsecs, read_kbd, do_display, /* It's okay for us to do this and then continue with the loop, since timeout has already been zeroed out. */ clear_waiting_for_input (); - status_notify (); + status_notify (NULL); } } @@ -4740,7 +4748,7 @@ read_process_output_error_handler (error) The characters read are decoded according to PROC's coding-system for decoding. */ -int +static int read_process_output (proc, channel) Lisp_Object proc; register int channel; @@ -5135,7 +5143,7 @@ send_process_trap () This function can evaluate Lisp code and can garbage collect. */ -void +static void send_process (proc, buf, len, object) volatile Lisp_Object proc; unsigned char *volatile buf; @@ -5722,7 +5730,7 @@ process_send_signal (process, signo, current_group, nomsg) p->status = Qrun; XSETINT (p->tick, ++process_tick); if (!nomsg) - status_notify (); + status_notify (NULL); break; #endif /* ! defined (SIGCONT) */ case SIGINT: @@ -6390,8 +6398,9 @@ exec_sentinel (proc, reason) This is usually done while Emacs is waiting for keyboard input but can be done at other times. */ -void -status_notify () +static void +status_notify (deleting_process) + struct Lisp_Process *deleting_process; { register Lisp_Object proc, buffer; Lisp_Object tail, msg; @@ -6427,6 +6436,7 @@ status_notify () && ! EQ (p->status, Qlisten) && ! EQ (p->command, Qt) /* Network process not stopped. */ && XINT (p->infd) >= 0 + && p != deleting_process && read_process_output (proc, XINT (p->infd)) > 0); buffer = p->buffer; @@ -6630,7 +6640,7 @@ delete_keyboard_wait_descriptor (desc) /* Return nonzero if *MASK has a bit set that corresponds to one of the keyboard input descriptors. */ -int +static int keyboard_bit_set (mask) SELECT_TYPE *mask; { diff --git a/src/process.h b/src/process.h index a58b08a197e..cadc9b7031c 100644 --- a/src/process.h +++ b/src/process.h @@ -1,5 +1,6 @@ /* Definitions for asynchronous process control in GNU Emacs. - Copyright (C) 1985, 1994 Free Software Foundation, Inc. + Copyright (C) 1985, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/puresize.h b/src/puresize.h index 5e51ae3b1ba..767c88bb807 100644 --- a/src/puresize.h +++ b/src/puresize.h @@ -1,5 +1,5 @@ /* How much read-only Lisp storage a dumped Emacs needs. - Copyright (C) 1993, 2002 Free Software Foundation, Inc. + Copyright (C) 1993, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/ralloc.c b/src/ralloc.c index 824fb536fc1..35a8cb9c58a 100644 --- a/src/ralloc.c +++ b/src/ralloc.c @@ -1,5 +1,6 @@ /* Block-relocating memory allocator. - Copyright (C) 1993, 1995, 2000 Free Software Foundation, Inc. + Copyright (C) 1993, 1995, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/regex.c b/src/regex.c index afd5cf1322c..bc1ade0bb6e 100644 --- a/src/regex.c +++ b/src/regex.c @@ -2,7 +2,8 @@ 0.12. (Implements POSIX draft P1003.2/D11.2, except for some of the internationalization features.) - Copyright (C) 1993,94,95,96,97,98,99,2000,04 Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by diff --git a/src/regex.h b/src/regex.h index c8b0adaf73c..68db62d34e0 100644 --- a/src/regex.h +++ b/src/regex.h @@ -1,7 +1,8 @@ /* Definitions for data structures and routines for the regular expression library, version 0.12. - Copyright (C) 1985,89,90,91,92,93,95,2000 Free Software Foundation, Inc. + Copyright (C) 1985, 1989, 1990, 1991, 1992, 1993, 1995, 2000, 2002, + 2003, 2004, 2005 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by diff --git a/src/region-cache.c b/src/region-cache.c index 22eac35ca86..d49278eb886 100644 --- a/src/region-cache.c +++ b/src/region-cache.c @@ -1,6 +1,6 @@ /* Caching facts about regions of the buffer, for optimization. - Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1995 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1995, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/region-cache.h b/src/region-cache.h index 5c27d00740f..51d2ceb1e62 100644 --- a/src/region-cache.h +++ b/src/region-cache.h @@ -1,5 +1,6 @@ /* Header file: Caching facts about regions of the buffer, for optimization. - Copyright (C) 1985, 1986, 1993, 1995 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1993, 1995, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/aix3-1.h b/src/s/aix3-1.h index 8fe7bd8fa24..eedfe3d15be 100644 --- a/src/s/aix3-1.h +++ b/src/s/aix3-1.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on IBM AIX version 3.1 - Copyright (C) 1985, 1986, 1990, 1999 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1990, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/bsd4-1.h b/src/s/bsd4-1.h index 7316841e212..f36bc016ca8 100644 --- a/src/s/bsd4-1.h +++ b/src/s/bsd4-1.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on bsd 4.1. - Copyright (C) 1985, 1986, 1999 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/bsd4-2.h b/src/s/bsd4-2.h index 386ab1bbbe5..f4e60b0fdbd 100644 --- a/src/s/bsd4-2.h +++ b/src/s/bsd4-2.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on bsd 4.2 - Copyright (C) 1985, 1986, 1994 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/bsd4-3.h b/src/s/bsd4-3.h index bbb2715bdf7..37d6a63e984 100644 --- a/src/s/bsd4-3.h +++ b/src/s/bsd4-3.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on bsd 4.3 - Copyright (C) 1985, 1986 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/cxux.h b/src/s/cxux.h index 2af6d006095..118d93d579c 100644 --- a/src/s/cxux.h +++ b/src/s/cxux.h @@ -1,5 +1,5 @@ /* Header file for Harris CXUX. - Copyright (C) 1994 Free Software Foundation, Inc. + Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/cygwin.h b/src/s/cygwin.h index ac977b8cb52..921cff35bc7 100644 --- a/src/s/cygwin.h +++ b/src/s/cygwin.h @@ -1,7 +1,8 @@ /* Template for system description header files. This file describes the parameters that system description files should define or not. - Copyright (C) 1985, 1986, 1992, 1999, 2005 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1992, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/darwin.h b/src/s/darwin.h index fea5b4c282d..fad445d7557 100644 --- a/src/s/darwin.h +++ b/src/s/darwin.h @@ -1,5 +1,5 @@ /* System description header file for Darwin (Mac OS X). - Copyright (C) 2001, 02, 2004 Free Software Foundation, Inc. + Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/dgux.h b/src/s/dgux.h index fb01b539f27..82956a900d9 100644 --- a/src/s/dgux.h +++ b/src/s/dgux.h @@ -1,6 +1,7 @@ /* Definitions file for GNU Emacs running on Data General's DG/UX version 4.32 upto and including 5.4.1. - Copyright (C) 1994, 1999 Free Software Foundation, Inc. + Copyright (C) 1994, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/dgux4.h b/src/s/dgux4.h index d866d63e6ce..35834ad4da2 100644 --- a/src/s/dgux4.h +++ b/src/s/dgux4.h @@ -1,6 +1,6 @@ /* Definitions file for GNU Emacs running on Data General's DG/UX Release 4.10 and above. - Copyright (C) 1996 Free Software Foundation, Inc. + Copyright (C) 1996, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/dgux5-4-3.h b/src/s/dgux5-4-3.h index a95420595a1..7ec88a435eb 100644 --- a/src/s/dgux5-4-3.h +++ b/src/s/dgux5-4-3.h @@ -1,6 +1,6 @@ /* Definitions file for GNU Emacs running on Data General's DG/UX version 5.4 Release 3.00 and above. - Copyright (C) 1994 Free Software Foundation, Inc. + Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/dgux5-4r2.h b/src/s/dgux5-4r2.h index c2c7461a204..3f059c32c24 100644 --- a/src/s/dgux5-4r2.h +++ b/src/s/dgux5-4r2.h @@ -1,6 +1,6 @@ /* Definitions file for GNU Emacs running on Data General's DG/UX 5.4 Release 2.xx systems. - Copyright (C) 1994 Free Software Foundation, Inc. + Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/freebsd.h b/src/s/freebsd.h index dc26eb9f399..83949fd2819 100644 --- a/src/s/freebsd.h +++ b/src/s/freebsd.h @@ -1,8 +1,8 @@ /* System description header for FreeBSD systems. This file describes the parameters that system description files should define or not. - Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 - Free Software Foundation, Inc. + Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, + 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/gnu-linux.h b/src/s/gnu-linux.h index 2563496af5c..f87dcaded1b 100644 --- a/src/s/gnu-linux.h +++ b/src/s/gnu-linux.h @@ -1,5 +1,6 @@ /* This file is the configuration file for Linux-based GNU systems - Copyright (C) 1985, 86, 92, 94, 96, 1999, 2002, 2004 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1992, 1994, 1996, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/gnu.h b/src/s/gnu.h index 79e5a88a7b9..0da816c32d3 100644 --- a/src/s/gnu.h +++ b/src/s/gnu.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on the GNU Hurd. - Copyright (C) 1994, 1995, 1996 Free Software Foundation, Inc. + Copyright (C) 1994, 1995, 1996, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/hpux.h b/src/s/hpux.h index 665b1f3063d..30ade71bf20 100644 --- a/src/s/hpux.h +++ b/src/s/hpux.h @@ -1,6 +1,7 @@ /* Definitions file for GNU Emacs running on HPUX release 7.0. Based on AT&T System V.2. - Copyright (C) 1985, 1986, 1999 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/iris3-5.h b/src/s/iris3-5.h index 8815bb56f39..a3b6c8ad0ad 100644 --- a/src/s/iris3-5.h +++ b/src/s/iris3-5.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on Silicon Graphics 3.5 - Copyright (C) 1987, 1999 Free Software Foundation, Inc. + Copyright (C) 1987, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/iris3-6.h b/src/s/iris3-6.h index 64187428c29..1d8b96cc23f 100644 --- a/src/s/iris3-6.h +++ b/src/s/iris3-6.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on Silicon Graphics system 3.6. - Copyright (C) 1987, 1999 Free Software Foundation, Inc. + Copyright (C) 1987, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/irix3-3.h b/src/s/irix3-3.h index 60dd6d49c79..a613779913a 100644 --- a/src/s/irix3-3.h +++ b/src/s/irix3-3.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on Silicon Graphics Irix system 3.3. - Copyright (C) 1987, 1990, 1999 Free Software Foundation, Inc. + Copyright (C) 1987, 1990, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/lynxos.h b/src/s/lynxos.h index 55de8cba6f9..614735d290d 100644 --- a/src/s/lynxos.h +++ b/src/s/lynxos.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on LynxOS-3.0.1 - Copyright (C) 2000, 2001 Free Software Foundation, Inc. + Copyright (C) 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/ms-w32.h b/src/s/ms-w32.h index c4697db34db..b1989318fba 100644 --- a/src/s/ms-w32.h +++ b/src/s/ms-w32.h @@ -1,5 +1,6 @@ /* System description file for Windows NT. - Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 1995, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/msdos.h b/src/s/msdos.h index 5a0cbba5959..9469b33227f 100644 --- a/src/s/msdos.h +++ b/src/s/msdos.h @@ -1,6 +1,7 @@ /* System description file for MS-DOS - Copyright (C) 1993, 1996, 1997, 2001 Free Software Foundation, Inc. + Copyright (C) 1993, 1996, 1997, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/newsos5.h b/src/s/newsos5.h index c674bfc559d..d2bed2189be 100644 --- a/src/s/newsos5.h +++ b/src/s/newsos5.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on Sony's NEWS-OS 5.0.2 - Copyright (C) 1992, 1994 Free Software Foundation, Inc. + Copyright (C) 1992, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/nextstep.h b/src/s/nextstep.h index 9253e6acffc..0c0b01c10bd 100644 --- a/src/s/nextstep.h +++ b/src/s/nextstep.h @@ -1,5 +1,6 @@ /* Configuration file for the NeXTstep system. - Copyright (C) 1990, 1995 Free Software Foundation, Inc. + Copyright (C) 1990, 1995, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/ptx.h b/src/s/ptx.h index e490ba659a2..1411dee70d8 100644 --- a/src/s/ptx.h +++ b/src/s/ptx.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on Sequent DYNIX/ptx 1.x/2.x - Copyright (C) 1987, 1990, 1999 Free Software Foundation, Inc. + Copyright (C) 1987, 1990, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/riscix1-1.h b/src/s/riscix1-1.h index ccfa5704b85..aee5d6ddc58 100644 --- a/src/s/riscix1-1.h +++ b/src/s/riscix1-1.h @@ -1,5 +1,5 @@ /* Definitions file for GNU Emacs running on RISCiX 1.1 (bsd 4.3) - Copyright (C) 1994 Free Software Foundation, Inc. + Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/riscix12.h b/src/s/riscix12.h index b0e00e780cc..625b667d7b5 100644 --- a/src/s/riscix12.h +++ b/src/s/riscix12.h @@ -1,5 +1,5 @@ /* Definitions file for GNU Emacs running on RISCiX 1.2 (bsd 4.3) - Copyright (C) 1994 Free Software Foundation, Inc. + Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/rtu.h b/src/s/rtu.h index 92afbaf6328..b2d0c16e59a 100644 --- a/src/s/rtu.h +++ b/src/s/rtu.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on RTU 3.0, ucb universe. - Copyright (C) 1986, 1999 Free Software Foundation, Inc. + Copyright (C) 1986, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/sco4.h b/src/s/sco4.h index 757eb0b57b0..627007e9a52 100644 --- a/src/s/sco4.h +++ b/src/s/sco4.h @@ -1,5 +1,6 @@ /* System description file for SCO 3.2v4. - Copyright (C) 1993, 1994 Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/sco5.h b/src/s/sco5.h index e490a91b608..9fbbf072a12 100644 --- a/src/s/sco5.h +++ b/src/s/sco5.h @@ -1,5 +1,5 @@ /* System description file for SCO 3.2v5. - Copyright (C) 1996, 2002 Free Software Foundation, Inc. + Copyright (C) 1996, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/template.h b/src/s/template.h index 5ef1049164d..0610e16473a 100644 --- a/src/s/template.h +++ b/src/s/template.h @@ -1,7 +1,8 @@ /* Template for system description header files. This file describes the parameters that system description files should define or not. - Copyright (C) 1985, 1986, 1992, 1999 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1992, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/umax.h b/src/s/umax.h index 1741b1d04e3..f4923f33053 100644 --- a/src/s/umax.h +++ b/src/s/umax.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on UMAX 4.2 - Copyright (C) 1985, 1986 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/unipl5-2.h b/src/s/unipl5-2.h index 05d162239a8..cca703adb82 100644 --- a/src/s/unipl5-2.h +++ b/src/s/unipl5-2.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on UniSoft's UniPlus 5.2 - Copyright (C) 1985, 1986, 1999 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/usg5-0.h b/src/s/usg5-0.h index 21b469dcd55..5f9943f8477 100644 --- a/src/s/usg5-0.h +++ b/src/s/usg5-0.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on AT&T's System V.0 - Copyright (C) 1985, 1986, 1999 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/usg5-2-2.h b/src/s/usg5-2-2.h index dff90efb225..b090f3c32b6 100644 --- a/src/s/usg5-2-2.h +++ b/src/s/usg5-2-2.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on AT&T's System V Release 2.2 - Copyright (C) 1985, 1986, 1999 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/usg5-2.h b/src/s/usg5-2.h index 0da477276fd..e63bddfc060 100644 --- a/src/s/usg5-2.h +++ b/src/s/usg5-2.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on AT&T's System V Release 2.0 - Copyright (C) 1985, 1986, 1999 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/usg5-3.h b/src/s/usg5-3.h index 285bae670df..12259936928 100644 --- a/src/s/usg5-3.h +++ b/src/s/usg5-3.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on AT&T's System V Release 3 - Copyright (C) 1987, 1999 Free Software Foundation, Inc. + Copyright (C) 1987, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/usg5-4.h b/src/s/usg5-4.h index 4edda95b39c..b8c2f8d9fa2 100644 --- a/src/s/usg5-4.h +++ b/src/s/usg5-4.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running on AT&T's System V Release 4 - Copyright (C) 1987, 1990, 1999, 2000 Free Software Foundation, Inc. + Copyright (C) 1987, 1990, 1999, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/vms.h b/src/s/vms.h index 9afd69b8539..e3c9dc725c0 100644 --- a/src/s/vms.h +++ b/src/s/vms.h @@ -1,5 +1,5 @@ /* system description header for VMS - Copyright (C) 1986 Free Software Foundation, Inc. + Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/s/xenix.h b/src/s/xenix.h index 763a10956ff..e67b897faff 100644 --- a/src/s/xenix.h +++ b/src/s/xenix.h @@ -1,5 +1,6 @@ /* Definitions file for GNU Emacs running SCO Xenix 386 Release 2.2 - Copyright (C) 1988, 1999 Free Software Foundation, Inc. + Copyright (C) 1988, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/scroll.c b/src/scroll.c index 48a50e59983..6e633d4e60b 100644 --- a/src/scroll.c +++ b/src/scroll.c @@ -1,5 +1,6 @@ /* Calculate what line insertion or deletion to do, and do it, - Copyright (C) 1985, 1986, 1990, 1993, 1994 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1990, 1993, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/search.c b/src/search.c index 3b212e007e8..29e24d75e71 100644 --- a/src/search.c +++ b/src/search.c @@ -1,6 +1,6 @@ /* String search routines for GNU Emacs. - Copyright (C) 1985, 86,87,93,94,97,98, 1999, 2004 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1993, 1994, 1997, 1998, 1999, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/sheap.c b/src/sheap.c index b7f01d448a8..635c3dc0144 100644 --- a/src/sheap.c +++ b/src/sheap.c @@ -1,8 +1,7 @@ /* simulate sbrk() with an array in .bss, for unexec() support for Cygwin; complete rewrite of xemacs Cygwin unexec() code - Copyright (C) 2004 - Free Software Foundation, Inc. + Copyright (C) 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/sound.c b/src/sound.c index 93e456cbc48..1e6a17d0275 100644 --- a/src/sound.c +++ b/src/sound.c @@ -1,5 +1,6 @@ /* sound.c -- sound support. - Copyright (C) 1998, 1999, 2001 Free Software Foundation. + Copyright (C) 1998, 1999, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/strftime.c b/src/strftime.c index 41566ec868e..88a54b7bee4 100644 --- a/src/strftime.c +++ b/src/strftime.c @@ -1,5 +1,5 @@ -/* Copyright (C) 1991,92,93,94,95,96,97,98,99,2000,2003 - Free Software Foundation, Inc. +/* Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. NOTE: The canonical source of this file is maintained with gnulib. Bugs can be reported to bug-gnulib@gnu.org. diff --git a/src/sunfns.c b/src/sunfns.c index 6a16e6cc08f..8de639b7480 100644 --- a/src/sunfns.c +++ b/src/sunfns.c @@ -1,5 +1,6 @@ /* Functions for Sun Windows menus and selection buffer. - Copyright (C) 1987, 1999, 2001 Free Software Foundation, Inc. + Copyright (C) 1987, 1999, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is probably totally obsolete. In any case, the FSF is unwilling to support it. We agreed to include it in our distribution diff --git a/src/syntax.c b/src/syntax.c index a859250b15a..b30678243bf 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -1,5 +1,6 @@ /* GNU Emacs routines to deal with syntax tables; also word and list parsing. - Copyright (C) 1985, 87, 93, 94, 95, 97, 1998, 1999, 2004 Free Software Foundation, Inc. + Copyright (C) 1985, 1987, 1993, 1994, 1995, 1997, 1998, 1999, 2002, + 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/syntax.h b/src/syntax.h index 34727af4740..ac449dc89e4 100644 --- a/src/syntax.h +++ b/src/syntax.h @@ -1,5 +1,6 @@ /* Declarations having to do with GNU Emacs syntax tables. - Copyright (C) 1985, 93, 94, 97, 1998 Free Software Foundation, Inc. + Copyright (C) 1985, 1993, 1994, 1997, 1998, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/sysdep.c b/src/sysdep.c index 8e8d02b844e..e63ee904f14 100644 --- a/src/sysdep.c +++ b/src/sysdep.c @@ -1,6 +1,6 @@ /* Interfaces to system-dependent kernel and library entries. Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1999, 2000, 2001, - 2003, 2004, 2005 Free Software Foundation, Inc. + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/sysselect.h b/src/sysselect.h index 0030e737bc2..d57527f9ed1 100644 --- a/src/sysselect.h +++ b/src/sysselect.h @@ -1,5 +1,5 @@ /* sysselect.h - System-dependent definitions for the select function. - Copyright (C) 1995 Free Software Foundation, Inc. + Copyright (C) 1995, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/syssignal.h b/src/syssignal.h index dd13e3764aa..6a5cd39bde9 100644 --- a/src/syssignal.h +++ b/src/syssignal.h @@ -1,5 +1,6 @@ /* syssignal.h - System-dependent definitions for signals. - Copyright (C) 1993, 1999 Free Software Foundation, Inc. + Copyright (C) 1993, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/systime.h b/src/systime.h index cf2bc0b084b..12d8d406d8e 100644 --- a/src/systime.h +++ b/src/systime.h @@ -1,5 +1,6 @@ /* systime.h - System-dependent definitions for time manipulations. - Copyright (C) 1993, 1994 Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/systty.h b/src/systty.h index b322ca60087..af9f5e3aa88 100644 --- a/src/systty.h +++ b/src/systty.h @@ -1,5 +1,6 @@ /* systty.h - System-dependent definitions for terminals. - Copyright (C) 1993, 1994 Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/syswait.h b/src/syswait.h index 78057e3fed4..37d59d68ac5 100644 --- a/src/syswait.h +++ b/src/syswait.h @@ -1,5 +1,6 @@ /* Define wait system call interface for Emacs. - Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 1995, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/term.c b/src/term.c index c8c34ffee39..eb575c1792e 100644 --- a/src/term.c +++ b/src/term.c @@ -1,6 +1,6 @@ /* Terminal control module for terminals described by TERMCAP - Copyright (C) 1985, 86, 87, 93, 94, 95, 98, 2000, 2001, 2002, 2005 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1998, 2000, 2001, + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -451,7 +451,17 @@ set_terminal_modes () { if (FRAME_TERMCAP_P (XFRAME (selected_frame))) { - OUTPUT_IF (TS_termcap_modes); + if (TS_termcap_modes) + OUTPUT (TS_termcap_modes); + else + { + /* Output enough newlines to scroll all the old screen contents + off the screen, so it won't be overwritten and lost. */ + int i; + for (i = 0; i < FRAME_LINES (XFRAME (selected_frame)); i++) + putchar ('\n'); + } + OUTPUT_IF (TS_cursor_visible); OUTPUT_IF (TS_keypad_mode); losecursor (); @@ -2019,24 +2029,20 @@ turn_on_face (f, face_id) if (TN_max_colors > 0) { - char *p; + char *ts, *p; - if (fg >= 0 && TS_set_foreground) + ts = standout_mode ? TS_set_background : TS_set_foreground; + if (fg >= 0 && ts) { - if (standout_mode) - p = tparam (TS_set_background, NULL, 0, (int) fg); - else - p = tparam (TS_set_foreground, NULL, 0, (int) fg); + p = tparam (ts, NULL, 0, (int) fg); OUTPUT (p); xfree (p); } - if (bg >= 0 && TS_set_background) + ts = standout_mode ? TS_set_foreground : TS_set_background; + if (bg >= 0 && ts) { - if (standout_mode) - p = tparam (TS_set_foreground, NULL, 0, (int) bg); - else - p = tparam (TS_set_background, NULL, 0, (int) bg); + p = tparam (ts, NULL, 0, (int) bg); OUTPUT (p); xfree (p); } diff --git a/src/termcap.c b/src/termcap.c index 5f2fa55556a..2f6f324eada 100644 --- a/src/termcap.c +++ b/src/termcap.c @@ -1,6 +1,6 @@ /* Work-alike for termcap, plus extra features. - Copyright (C) 1985, 86, 93, 94, 95, 2000, 2001 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1993, 1994, 1995, 2000, 2001, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by diff --git a/src/termchar.h b/src/termchar.h index 3a3c9978dd6..04583b9309c 100644 --- a/src/termchar.h +++ b/src/termchar.h @@ -1,5 +1,6 @@ /* Flags and parameters describing terminal's characteristics. - Copyright (C) 1985, 1986 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/termhooks.h b/src/termhooks.h index 395e179ff49..641d21bdc06 100644 --- a/src/termhooks.h +++ b/src/termhooks.h @@ -1,6 +1,7 @@ /* Hooks by which low level terminal operations can be made to call other routines. - Copyright (C) 1985,86,93,94,2003 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1993, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/terminfo.c b/src/terminfo.c index 8f040d10c68..5c0aa1ccf05 100644 --- a/src/terminfo.c +++ b/src/terminfo.c @@ -1,5 +1,6 @@ /* Interface from Emacs to terminfo. - Copyright (C) 1985, 1986 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/termopts.h b/src/termopts.h index 9d241f64678..eaac0557cdb 100644 --- a/src/termopts.h +++ b/src/termopts.h @@ -1,5 +1,6 @@ /* Flags and parameters describing user options for handling the terminal. - Copyright (C) 1985, 1986, 1990 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1990, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/textprop.c b/src/textprop.c index ec75c6907ae..fa9b0e498c5 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -1,6 +1,6 @@ /* Interface code for dealing with text properties. - Copyright (C) 1993, 1994, 1995, 1997, 1999, 2000, 2001, 2002, 2003, 2004 - Free Software Foundation, Inc. + Copyright (C) 1993, 1994, 1995, 1997, 1999, 2000, 2001, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/tparam.c b/src/tparam.c index e05f01f4911..e593589d5cb 100644 --- a/src/tparam.c +++ b/src/tparam.c @@ -1,5 +1,6 @@ /* Merge parameters into a termcap entry string. - Copyright (C) 1985, 87, 93, 95, 2000 Free Software Foundation, Inc. + Copyright (C) 1985, 1987, 1993, 1995, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by diff --git a/src/uaf.h b/src/uaf.h index 71ae7267147..7863c41227e 100644 --- a/src/uaf.h +++ b/src/uaf.h @@ -1,5 +1,5 @@ /* GNU Emacs VMS UAF definition file. - Copyright (C) 1986 Free Software Foundation, Inc. + Copyright (C) 1986, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/undo.c b/src/undo.c index 13ee40130a9..9839906ca7e 100644 --- a/src/undo.c +++ b/src/undo.c @@ -1,6 +1,6 @@ /* undo handling for GNU Emacs. - Copyright (C) 1990, 1993, 1994, 2000, 2002, 2004, 2005 - Free Software Foundation, Inc. + Copyright (C) 1990, 1993, 1994, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/unexaix.c b/src/unexaix.c index 4c9f2727e88..071f09898ed 100644 --- a/src/unexaix.c +++ b/src/unexaix.c @@ -1,5 +1,6 @@ /* Dump an executable image. - Copyright (C) 1985, 1986, 1987, 1988, 1999 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1988, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/unexalpha.c b/src/unexalpha.c index aa32f411fcb..069c39b398b 100644 --- a/src/unexalpha.c +++ b/src/unexalpha.c @@ -1,6 +1,7 @@ /* Unexec for DEC alpha. schoepf@sc.ZIB-Berlin.DE (Rainer Schoepf). - Copyright (C) 1994, 2000 Free Software Foundation, Inc. + Copyright (C) 1994, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/unexapollo.c b/src/unexapollo.c index d9bff963695..f1481d684a3 100644 --- a/src/unexapollo.c +++ b/src/unexapollo.c @@ -1,5 +1,6 @@ /* unexapollo.c -- COFF File UNEXEC for GNU Emacs on Apollo SR10.x - Copyright (C) 1988, 1994 Free Software Foundation, Inc. + Copyright (C) 1988, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/unexconvex.c b/src/unexconvex.c index cbd1dd29fda..6f05e4ae938 100644 --- a/src/unexconvex.c +++ b/src/unexconvex.c @@ -7,7 +7,8 @@ think about it, or about whether other Emacs maintenance might break it. - Copyright (C) 1985, 1986, 1988 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1988, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/unexcw.c b/src/unexcw.c index 77d5866136b..cfd87781a16 100644 --- a/src/unexcw.c +++ b/src/unexcw.c @@ -1,8 +1,7 @@ /* unexec() support for Cygwin; complete rewrite of xemacs Cygwin unexec() code - Copyright (C) 2004 - Free Software Foundation, Inc. + Copyright (C) 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/unexec.c b/src/unexec.c index bf231b00626..ebf813306da 100644 --- a/src/unexec.c +++ b/src/unexec.c @@ -1,4 +1,5 @@ -/* Copyright (C) 1985,86,87,88,92,93,94 Free Software Foundation, Inc. +/* Copyright (C) 1985, 1986, 1987, 1988, 1992, 1993, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/unexelf.c b/src/unexelf.c index 9e8b827a754..ee563b36a97 100644 --- a/src/unexelf.c +++ b/src/unexelf.c @@ -1,5 +1,5 @@ -/* Copyright (C) 1985,86,87,88,90,92,1999,2000,01,2003 - Free Software Foundation, Inc. +/* Copyright (C) 1985, 1986, 1987, 1988, 1990, 1992, 1999, 2000, 2001, + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/unexenix.c b/src/unexenix.c index 94ac3eb821d..159c0b2f6d8 100644 --- a/src/unexenix.c +++ b/src/unexenix.c @@ -6,7 +6,8 @@ we don't plan to think about it, or about whether other Emacs maintenance might break it. - Copyright (C) 1988, 1994 Free Software Foundation, Inc. + Copyright (C) 1988, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/unexmacosx.c b/src/unexmacosx.c index a191c0721e5..9db9622f6f5 100644 --- a/src/unexmacosx.c +++ b/src/unexmacosx.c @@ -1,5 +1,5 @@ /* Dump Emacs in Mach-O format for use on Mac OS X. - Copyright (C) 2001, 2002, 2005 Free Software Foundation, Inc. + Copyright (C) 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/unexmips.c b/src/unexmips.c index 53b40f62742..212f7ed5926 100644 --- a/src/unexmips.c +++ b/src/unexmips.c @@ -6,7 +6,8 @@ we don't plan to think about it, or about whether other Emacs maintenance might break it. - Copyright (C) 1988, 1994 Free Software Foundation, Inc. + Copyright (C) 1988, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/unexnext.c b/src/unexnext.c index 2a0b66bc868..b374dd8e9b8 100644 --- a/src/unexnext.c +++ b/src/unexnext.c @@ -1,5 +1,6 @@ /* Dump Emacs in macho format. - Copyright (C) 1990, 1993 Free Software Foundation, Inc. + Copyright (C) 1990, 1993, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. Written by Bradley Taylor (btaylor@next.com). This file is part of GNU Emacs. diff --git a/src/unexsni.c b/src/unexsni.c index 0c67af899d5..d6b3ae68969 100644 --- a/src/unexsni.c +++ b/src/unexsni.c @@ -1,6 +1,6 @@ /* Unexec for Siemens machines running Sinix (modified SVR4). - Copyright (C) 1985, 1986, 1987, 1988, 1990, 1992, 1993, 1994, 1995 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1988, 1990, 1992, 1993, 1994, 1995, 2002, + 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/unexsunos4.c b/src/unexsunos4.c index 9ad06b6adaf..5e221050f36 100644 --- a/src/unexsunos4.c +++ b/src/unexsunos4.c @@ -1,5 +1,6 @@ /* Unexec for Sunos 4 using shared libraries. - Copyright (C) 1990, 1994, 1999 Free Software Foundation, Inc. + Copyright (C) 1990, 1994, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/unexw32.c b/src/unexw32.c index 5380ca5c8f7..bc462c18a10 100644 --- a/src/unexw32.c +++ b/src/unexw32.c @@ -1,5 +1,5 @@ /* unexec for GNU Emacs on Windows NT. - Copyright (C) 1994, 2005 Free Software Foundation, Inc. + Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/vm-limit.c b/src/vm-limit.c index 1840eb61c0c..0c12dec9b04 100644 --- a/src/vm-limit.c +++ b/src/vm-limit.c @@ -1,5 +1,6 @@ /* Functions for memory limit warnings. - Copyright (C) 1990, 1992 Free Software Foundation, Inc. + Copyright (C) 1990, 1992, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w16select.c b/src/w16select.c index 1cbbebb1340..c2c08666da9 100644 --- a/src/w16select.c +++ b/src/w16select.c @@ -1,5 +1,6 @@ /* 16-bit Windows Selection processing for emacs on MS-Windows - Copyright (C) 1996, 1997, 2001 Free Software Foundation. + Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32.c b/src/w32.c index 25283c3b4c6..c7f6e3172f9 100644 --- a/src/w32.c +++ b/src/w32.c @@ -1,5 +1,6 @@ /* Utility and Unix shadow routines for GNU Emacs on the Microsoft W32 API. - Copyright (C) 1994, 1995, 2000, 2001 Free Software Foundation, Inc. + Copyright (C) 1994, 1995, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32.h b/src/w32.h index 622a2256f0f..2981e5bb979 100644 --- a/src/w32.h +++ b/src/w32.h @@ -2,7 +2,7 @@ #define EMACS_W32_H /* Support routines for the NT version of Emacs. - Copyright (C) 1994 Free Software Foundation, Inc. + Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32bdf.c b/src/w32bdf.c index 37fb6d85cdd..37b892216d1 100644 --- a/src/w32bdf.c +++ b/src/w32bdf.c @@ -1,5 +1,5 @@ /* Implementation of BDF font handling on the Microsoft W32 API. - Copyright (C) 1999 Free Software Foundation, Inc. + Copyright (C) 1999, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32bdf.h b/src/w32bdf.h index ca8a5f368cb..9d3d306d56f 100644 --- a/src/w32bdf.h +++ b/src/w32bdf.h @@ -1,5 +1,5 @@ /* Definitions and header for handling BDF fonts on the Microsoft W32 API. - Copyright (C) 1999 Free Software Foundation, Inc. + Copyright (C) 1999, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32console.c b/src/w32console.c index b8ba169ae49..4009397a060 100644 --- a/src/w32console.c +++ b/src/w32console.c @@ -1,5 +1,6 @@ /* Terminal hooks for GNU Emacs on the Microsoft W32 API. - Copyright (C) 1992, 1999 Free Software Foundation, Inc. + Copyright (C) 1992, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32fns.c b/src/w32fns.c index 063b71cf293..0fc27ac7d89 100644 --- a/src/w32fns.c +++ b/src/w32fns.c @@ -1,6 +1,6 @@ /* Graphical user interface functions for the Microsoft W32 API. - Copyright (C) 1989, 1992, 93, 94, 95, 96, 97, 98, 99, 2000, 01, 04 - Free Software Foundation, Inc. + Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, + 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32gui.h b/src/w32gui.h index 1fd145cd026..644adcea924 100644 --- a/src/w32gui.h +++ b/src/w32gui.h @@ -1,5 +1,5 @@ /* Definitions and headers for communication on the Microsoft W32 API. - Copyright (C) 1995 Free Software Foundation, Inc. + Copyright (C) 1995, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32heap.c b/src/w32heap.c index 7de08bb2b4e..a0c50da5506 100644 --- a/src/w32heap.c +++ b/src/w32heap.c @@ -1,5 +1,5 @@ /* Heap management routines for GNU Emacs on the Microsoft W32 API. - Copyright (C) 1994 Free Software Foundation, Inc. + Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32heap.h b/src/w32heap.h index 259d0bf9ede..1b3b815b115 100644 --- a/src/w32heap.h +++ b/src/w32heap.h @@ -1,5 +1,5 @@ /* Heap management routines (including unexec) for GNU Emacs on Windows NT. - Copyright (C) 1994 Free Software Foundation, Inc. + Copyright (C) 1994, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32inevt.c b/src/w32inevt.c index cc7c5e1e612..ffa2cd0989a 100644 --- a/src/w32inevt.c +++ b/src/w32inevt.c @@ -1,5 +1,6 @@ /* Input event support for Emacs on the Microsoft W32 API. - Copyright (C) 1992, 1993, 1995 Free Software Foundation, Inc. + Copyright (C) 1992, 1993, 1995, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32inevt.h b/src/w32inevt.h index f811c96c313..e0a9428720f 100644 --- a/src/w32inevt.h +++ b/src/w32inevt.h @@ -1,5 +1,5 @@ /* Input routines for GNU Emacs on the Microsoft W32 API. - Copyright (C) 1995 Free Software Foundation, Inc. + Copyright (C) 1995, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32menu.c b/src/w32menu.c index 0e4902b6ce4..75c55ef4f85 100644 --- a/src/w32menu.c +++ b/src/w32menu.c @@ -1,5 +1,6 @@ /* Menu support for GNU Emacs on the Microsoft W32 API. - Copyright (C) 1986,88,93,94,96,98,1999,2003 Free Software Foundation, Inc. + Copyright (C) 1986, 1988, 1993, 1994, 1996, 1998, 1999, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32proc.c b/src/w32proc.c index 7e344985f4e..628a763c675 100644 --- a/src/w32proc.c +++ b/src/w32proc.c @@ -1,5 +1,6 @@ /* Process support for GNU Emacs on the Microsoft W32 API. - Copyright (C) 1992, 95, 99, 2000, 01, 04 Free Software Foundation, Inc. + Copyright (C) 1992, 1995, 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32reg.c b/src/w32reg.c index a70835ac303..40d84df3d14 100644 --- a/src/w32reg.c +++ b/src/w32reg.c @@ -1,5 +1,6 @@ /* Emulate the X Resource Manager through the registry. - Copyright (C) 1990, 1993, 1994 Free Software Foundation. + Copyright (C) 1990, 1993, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32select.c b/src/w32select.c index 03bddb51dfc..9ad9f96a4b6 100644 --- a/src/w32select.c +++ b/src/w32select.c @@ -1,5 +1,6 @@ /* Selection processing for Emacs on the Microsoft W32 API. - Copyright (C) 1993, 1994, 2004 Free Software Foundation. + Copyright (C) 1993, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32term.c b/src/w32term.c index fa9f05ef57c..5d14d758f74 100644 --- a/src/w32term.c +++ b/src/w32term.c @@ -1,6 +1,6 @@ /* Implementation of GUI terminal on the Microsoft W32 API. - Copyright (C) 1989, 93, 94, 95, 96, 1997, 1998, 1999, 2000, 2001, 2005 - Free Software Foundation, Inc. + Copyright (C) 1989, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32term.h b/src/w32term.h index 8703f017c5a..721e427beec 100644 --- a/src/w32term.h +++ b/src/w32term.h @@ -1,5 +1,6 @@ /* Definitions and headers for communication on the Microsoft W32 API. - Copyright (C) 1995, 2001 Free Software Foundation, Inc. + Copyright (C) 1995, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/w32xfns.c b/src/w32xfns.c index ba705d9498d..46a71b942c7 100644 --- a/src/w32xfns.c +++ b/src/w32xfns.c @@ -1,5 +1,6 @@ /* Functions taken directly from X sources for use with the Microsoft W32 API. - Copyright (C) 1989, 1992, 1993, 1994, 1995, 1999 Free Software Foundation. + Copyright (C) 1989, 1992, 1993, 1994, 1995, 1999, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/widget.c b/src/widget.c index fdd927cb175..0386890d93b 100644 --- a/src/widget.c +++ b/src/widget.c @@ -1,5 +1,6 @@ /* The emacs frame widget. - Copyright (C) 1992, 1993, 2000 Free Software Foundation, Inc. + Copyright (C) 1992, 1993, 2000, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/widget.h b/src/widget.h index 174a6a720de..00d743234c0 100644 --- a/src/widget.h +++ b/src/widget.h @@ -1,5 +1,5 @@ /* The emacs frame widget public header file. - Copyright (C) 1993 Free Software Foundation, Inc. + Copyright (C) 1993, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/widgetprv.h b/src/widgetprv.h index ce087e825cb..2027b4f602d 100644 --- a/src/widgetprv.h +++ b/src/widgetprv.h @@ -1,5 +1,5 @@ /* The emacs frame widget private header file. - Copyright (C) 1993 Free Software Foundation, Inc. + Copyright (C) 1993, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/window.c b/src/window.c index d926cedc96a..4089217825f 100644 --- a/src/window.c +++ b/src/window.c @@ -1,7 +1,7 @@ /* Window creation, deletion and examination for GNU Emacs. Does not include redisplay. Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 2000, - 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -5624,8 +5624,6 @@ struct saved_window Lisp_Object scroll_bar_width, vertical_scroll_bar_type; }; -#define SAVED_WINDOW_VECTOR_SIZE 24 /* Arg to Fmake_vector */ - #define SAVED_WINDOW_N(swv,n) \ ((struct saved_window *) (XVECTOR ((swv)->contents[(n)]))) @@ -6205,7 +6203,7 @@ redirection (see `redirect-frame-focus'). */) data->saved_windows = tem; for (i = 0; i < n_windows; i++) XVECTOR (tem)->contents[i] - = Fmake_vector (make_number (SAVED_WINDOW_VECTOR_SIZE), Qnil); + = Fmake_vector (make_number (VECSIZE (struct saved_window)), Qnil); save_window_save (FRAME_ROOT_WINDOW (f), XVECTOR (tem), 0); XSETWINDOW_CONFIGURATION (tem, data); return (tem); diff --git a/src/window.h b/src/window.h index 99274e04ad1..df359f37db2 100644 --- a/src/window.h +++ b/src/window.h @@ -1,6 +1,6 @@ /* Window definitions for GNU Emacs. - Copyright (C) 1985,86,93,95,97,98,99, 2000,01,03,04 - Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1993, 1995, 1997, 1998, 1999, 2000, 2001, + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/xdisp.c b/src/xdisp.c index 5ba2b847600..cd00255e775 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -1,6 +1,7 @@ /* Display generation from window structure and buffer text. - Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, 1997, 1998, 1999, - 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995, + 1997, 1998, 1999, 2000, 2001, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -1349,6 +1350,9 @@ pos_visible_p (w, charpos, x, y, rtop, rbot, exact_mode_line_heights_p) current_header_line_height = current_mode_line_height = -1; + if (visible_p && w->hscroll > 0) + *x -= w->hscroll; + return visible_p; } @@ -7201,6 +7205,9 @@ message3_nolog (m, nbytes, multibyte) set_message (NULL, m, nbytes, multibyte); if (minibuffer_auto_raise) Fraise_frame (frame); + /* Assume we are not echoing. + (If we are, echo_now will override this.) */ + echo_message_buffer = Qnil; } else clear_message (1, 1); @@ -7729,13 +7736,16 @@ display_echo_area_1 (a1, a2, a3, a4) int window_height_changed_p = 0; /* Do this before displaying, so that we have a large enough glyph - matrix for the display. */ + matrix for the display. If we can't get enough space for the + whole text, display the last N lines. That works by setting w->start. */ window_height_changed_p = resize_mini_window (w, 0); + /* Use the starting position chosen by resize_mini_window. */ + SET_TEXT_POS_FROM_MARKER (start, w->start); + /* Display. */ clear_glyph_matrix (w->desired_matrix); XSETWINDOW (window, w); - SET_TEXT_POS (start, BEG, BEG_BYTE); try_window (window, start, 0); return window_height_changed_p; @@ -7791,8 +7801,14 @@ resize_mini_window_1 (a1, exactly, a3, a4) /* Resize mini-window W to fit the size of its contents. EXACT:P means size the window exactly to the size needed. Otherwise, it's - only enlarged until W's buffer is empty. Value is non-zero if - the window height has been changed. */ + only enlarged until W's buffer is empty. + + Set W->start to the right place to begin display. If the whole + contents fit, start at the beginning. Otherwise, start so as + to make the end of the contents appear. This is particularly + important for y-or-n-p, but seems desirable generally. + + Value is non-zero if the window height has been changed. */ int resize_mini_window (w, exact_p) @@ -7804,6 +7820,11 @@ resize_mini_window (w, exact_p) xassert (MINI_WINDOW_P (w)); + /* By default, start display at the beginning. */ + set_marker_both (w->start, w->buffer, + BUF_BEGV (XBUFFER (w->buffer)), + BUF_BEGV_BYTE (XBUFFER (w->buffer))); + /* Don't resize windows while redisplaying a window; it would confuse redisplay functions when the size of the window they are displaying changes from under them. Such a resizing can happen, @@ -7867,9 +7888,10 @@ resize_mini_window (w, exact_p) if (height > max_height) { height = max_height; - init_iterator (&it, w, PT, PT_BYTE, NULL, DEFAULT_FACE_ID); + init_iterator (&it, w, ZV, ZV_BYTE, NULL, DEFAULT_FACE_ID); move_it_vertically_backward (&it, (height - 1) * unit); start = it.current.pos; + SET_PT_BOTH (CHARPOS (start), BYTEPOS (start)); } else SET_TEXT_POS (start, BEGV, BEGV_BYTE); @@ -12803,10 +12825,9 @@ redisplay_window (window, just_this_one_p) #ifdef HAVE_WINDOW_SYSTEM if (FRAME_WINDOW_P (f) - && update_window_fringes (w, 0) - && !just_this_one_p - && (used_current_matrix_p || overlay_arrow_seen) - && !w->pseudo_window_p) + && update_window_fringes (w, (just_this_one_p + || (!used_current_matrix_p && !overlay_arrow_seen) + || w->pseudo_window_p))) { update_begin (f); BLOCK_INPUT; @@ -17713,6 +17734,15 @@ calc_pixel_width_or_height (res, it, prop, font, width_p, align_to) if (pixels > 0) { double ppi; +#ifdef HAVE_WINDOW_SYSTEM + if (FRAME_WINDOW_P (it->f) + && (ppi = (width_p + ? FRAME_X_DISPLAY_INFO (it->f)->resx + : FRAME_X_DISPLAY_INFO (it->f)->resy), + ppi > 0)) + return OK_PIXELS (ppi / pixels); +#endif + if ((ppi = NUMVAL (Vdisplay_pixels_per_inch), ppi > 0) || (CONSP (Vdisplay_pixels_per_inch) && (ppi = (width_p @@ -23190,7 +23220,7 @@ of the top or bottom of the window. */); scroll_margin = 0; DEFVAR_LISP ("display-pixels-per-inch", &Vdisplay_pixels_per_inch, - doc: /* Pixels per inch on current display. + doc: /* Pixels per inch value for non-window system displays. Value is a number or a cons (WIDTH-DPI . HEIGHT-DPI). */); Vdisplay_pixels_per_inch = make_float (72.0); diff --git a/src/xfaces.c b/src/xfaces.c index 45379c7dd8c..6d805feacae 100644 --- a/src/xfaces.c +++ b/src/xfaces.c @@ -1,6 +1,6 @@ /* xfaces.c -- "Face" primitives. - Copyright (C) 1993, 1994, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 - Free Software Foundation. + Copyright (C) 1993, 1994, 1998, 1999, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/xfns.c b/src/xfns.c index 8826da7650b..9655951d8c1 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -1,6 +1,6 @@ /* Functions for the X window system. Copyright (C) 1989, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, - 2001, 2002, 2003, 2004, 2005 Free Software Foundation. + 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/xmenu.c b/src/xmenu.c index 180edf871b5..2de8c0917d4 100644 --- a/src/xmenu.c +++ b/src/xmenu.c @@ -1,6 +1,6 @@ /* X Communication module for terminals which understand the X protocol. - Copyright (C) 1986, 1988, 1993, 1994, 1996, 1999, 2000, 2001, 2003, 2004, - 2005 Free Software Foundation, Inc. + Copyright (C) 1986, 1988, 1993, 1994, 1996, 1999, 2000, 2001, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/xrdb.c b/src/xrdb.c index 248e5eba64d..822fb6e2624 100644 --- a/src/xrdb.c +++ b/src/xrdb.c @@ -1,5 +1,6 @@ /* Deal with the X Resource Manager. - Copyright (C) 1990, 1993, 1994, 2000, 2001 Free Software Foundation. + Copyright (C) 1990, 1993, 1994, 2000, 2001, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/xselect.c b/src/xselect.c index a424259416b..4db86c1cc5a 100644 --- a/src/xselect.c +++ b/src/xselect.c @@ -1,6 +1,6 @@ /* X Selection processing for Emacs. - Copyright (C) 1993, 1994, 1995, 1996, 1997, 2000, 2001, 2003, 2004 - Free Software Foundation. + Copyright (C) 1993, 1994, 1995, 1996, 1997, 2000, 2001, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/xsmfns.c b/src/xsmfns.c index 9a94adbb997..4285dd76718 100644 --- a/src/xsmfns.c +++ b/src/xsmfns.c @@ -1,6 +1,6 @@ /* Session management module for systems which understand the X Session management protocol. - Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. + Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. diff --git a/src/xterm.c b/src/xterm.c index 308456965c1..8eead3d566c 100644 --- a/src/xterm.c +++ b/src/xterm.c @@ -1,6 +1,6 @@ /* X Communication module for terminals which understand the X protocol. Copyright (C) 1989, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, - 2002, 2003, 2004, 2005 Free Software Foundation, Inc. + 2002, 2003, 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -9274,7 +9274,14 @@ x_wm_set_icon_pixmap (f, pixmap_id) #endif } -#ifdef USE_X_TOOLKIT /* same as in x_wm_set_window_state. */ + +#ifdef USE_GTK + { + xg_set_frame_icon (f, icon_pixmap, icon_mask); + return; + } + +#elif defined (USE_X_TOOLKIT) /* same as in x_wm_set_window_state. */ { Arg al[1]; @@ -9284,12 +9291,12 @@ x_wm_set_icon_pixmap (f, pixmap_id) XtSetValues (f->output_data.x->widget, al, 1); } -#else /* not USE_X_TOOLKIT */ +#else /* not USE_X_TOOLKIT && not USE_GTK */ f->output_data.x->wm_hints.flags |= (IconPixmapHint | IconMaskHint); XSetWMHints (FRAME_X_DISPLAY (f), window, &f->output_data.x->wm_hints); -#endif /* not USE_X_TOOLKIT */ +#endif /* not USE_X_TOOLKIT && not USE_GTK */ } void diff --git a/src/xterm.h b/src/xterm.h index 337e51a673d..6a2a9a99200 100644 --- a/src/xterm.h +++ b/src/xterm.h @@ -1,6 +1,6 @@ /* Definitions and headers for communication with X protocol. - Copyright (C) 1989, 1993, 1994, 1998, 1999, 2000,01,02,03,04 - Free Software Foundation, Inc. + Copyright (C) 1989, 1993, 1994, 1998, 1999, 2000, 2001, 2002, 2003, + 2004, 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. |