Mercurial > emacs
changeset 49597:e88404e8f2cf
Trailing whitespace deleted.
line wrap: on
line diff
--- a/lisp/ChangeLog.6 Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/ChangeLog.6 Tue Feb 04 12:29:42 2003 +0000 @@ -1194,7 +1194,7 @@ * winnt.el (using-unix-filesystems): Update doc string. -1996-05-11 Andrew Innes <andrewi@harlequin.co.uk> +1996-05-11 Andrew Innes <andrewi@harlequin.co.uk> * scroll-bar.el (scroll-bar-drag-position): New function. (scroll-bar-maybe-set-window-start): New function. @@ -1313,7 +1313,7 @@ * apropos.el (apropos-print): If command has no key bindings, say how to run it with M-x. -1996-05-03 Andrew Innes <andrewi@harlequin.co.uk> +1996-05-03 Andrew Innes <andrewi@harlequin.co.uk> * winnt.el (original-make-auto-save-file-name): New symbol bound to old value of make-auto-save-file-name. @@ -1364,7 +1364,7 @@ * solar.el (diary-sabbath-candles): Don't correct for DST a second time. -1996-04-26 Andrew Innes <andrewi@harlequin.co.uk> +1996-04-26 Andrew Innes <andrewi@harlequin.co.uk> * compile.el (compilation-error-regexp-alist): Add regexp for Microsoft VC++ error messages containing drive letters. @@ -1466,7 +1466,7 @@ * metamail.el: Optional argument which value is passed to the environment variable EMACS_VIEW_MODE is added to the function metamail-buffer and metamail-region. - + * files.el (after-find-file): Mention file name in "auto save is newer" message. @@ -1495,7 +1495,7 @@ (vc-clear-context): Initialise vc-comment-ring using make-ring. (vc-finish-logentry): Don't initialise vc-comment-ring here. -1996-04-15 Eric Ding <ericding@mit.edu> +1996-04-15 Eric Ding <ericding@mit.edu> * goto-addr.el (goto-address-send-using-mh-e): Renamed from goto-address-send-using-mhe. Require `mh-comp'. @@ -2862,7 +2862,7 @@ (timer-inc-time): Use timer-relative-time. (timer-set-time, timer-set-time-with-usecs): Allow floating DELTA. -1996-01-31 Caleb Deupree <cdeupree@cincom.com> +1996-01-31 Caleb Deupree <cdeupree@cincom.com> * winnt.el (mode-line-format): Include column-number-mode. @@ -3393,7 +3393,7 @@ * files.el (auto-mode-alist): Use "\\`" instead of "^". -1996-01-17 Michael Staats <michael@thp.Uni-Duisburg.DE> +1996-01-17 Michael Staats <michael@thp.Uni-Duisburg.DE> * pc-select.el: Add some keybindings. (next-line-mark, next-line-nomark): Set this-command. @@ -4257,7 +4257,7 @@ Look for an end-delimiter in case where the start-of-bounce delimiter looks like -- plus some more text. -1995-12-13 Kevin Rodgers <kevinr@ihs.com> +1995-12-13 Kevin Rodgers <kevinr@ihs.com> * ange-ftp.el (ange-ftp-load): Added missing form to `cdr' down tryfiles in `while' loop. @@ -4275,7 +4275,7 @@ * rmail.el (rmail-search): Doc fix. -1995-12-11 Ake Stenhoff <etxaksf@aom.ericsson.se> +1995-12-11 Ake Stenhoff <etxaksf@aom.ericsson.se> * cc-mode.el (cc-imenu-c++-generic-expression): New variable. (cc-imenu-c-generic-expression): New variable. @@ -4349,12 +4349,12 @@ (isearch-repeat): If isearch-just-started, don't test for empty match. (isearch-unread): Use store-kbd-macro-event. -1995-12-01 Francesco Potorti` <pot@cnuce.cnr.it> +1995-12-01 Francesco Potorti` <pot@cnuce.cnr.it> * gud.el (gud-sdb-marker-filter): Modify the regexp for sysVR3 to take care of the asterisk prompt. Correctly set gud-marker-acc. -1995-12-01 Francesco Potorti` <pot@cnuce.cnr.it> +1995-12-01 Francesco Potorti` <pot@cnuce.cnr.it> * make-mode.el: Add faces to menu only if window-system. (makefile-mode): Do not check if makefile-define-space-face is @@ -4696,7 +4696,7 @@ * disp-table.el (display-table-slot,set-display-table-slot): Document the slot names. -1995-12-01 Francesco Potorti` <pot@cnuce.cnr.it> +1995-12-01 Francesco Potorti` <pot@cnuce.cnr.it> * gud.el (gud-sdb-marker-filter): start may be nil, so check it with numberp before using it. @@ -5102,7 +5102,7 @@ * view.el (View-scroll-lines-forward): Don't recenter at end. -1995-11-10 Kevin Rodgers <kevinr@ihs.com> +1995-11-10 Kevin Rodgers <kevinr@ihs.com> * files.el (find-file-noselect): Respect the value of find-file-visit-truename when FILENAME is a directory and @@ -5277,7 +5277,7 @@ * view.el (view-mode-map): Use ordinary Help command. -1995-11-02 Daniel Pfeiffer <Daniel.Pfeiffer@Informatik.START.dbp.de> +1995-11-02 Daniel Pfeiffer <Daniel.Pfeiffer@Informatik.START.dbp.de> * sh-script.el (sh-shells): Eliminated variable redundant with `interpreter-mode-alist'. @@ -5308,7 +5308,7 @@ Renamed from shrink-window-horizontally, enlarge-window-horizontally to avoid redefining the standard functions. -1995-11-02 Stephen Gildea <gildea@stop.mail-abuse.org> +1995-11-02 Stephen Gildea <gildea@stop.mail-abuse.org> * mh-e.el (mh-make-folder-mode-line): support mh-msg-count. (mh-delete-scan-msgs): use fast new mh-goto-msg. @@ -5700,13 +5700,13 @@ * hippie-exp.el (he-transfer-case): Fix typo in prev change. -1995-10-13 Michael Kifer <Michael Kifer <kifer@cs.sunysb.edu>> +1995-10-13 Michael Kifer <Michael Kifer <kifer@cs.sunysb.edu>> * ediff.el (ediff-version): is now autoloaded. * ediff-init.el: Moved defsubsts up. * ediff-hook.el: Now defines [window] in menu-bar-ediff-menu. -1995-10-13 Michael Kifer <Michael Kifer <kifer@cs.sunysb.edu>> +1995-10-13 Michael Kifer <Michael Kifer <kifer@cs.sunysb.edu>> * viper.el (vip-set-hooks): Use view-mode-hook in emacs and view hook in xemacs. @@ -6050,7 +6050,7 @@ * edt.el (edt-setup-default-bindings): Revert function is revert-buffer, not revert-file. -1995-09-22 Torbjorn Einarsson <T.Einarsson@clab.ericsson.se> +1995-09-22 Torbjorn Einarsson <T.Einarsson@clab.ericsson.se> * f90.el: Major revision. Much improved and quicker highlighting using font-lock. @@ -6683,7 +6683,7 @@ * jka-compr.el (jka-compr-byte-compiler-base-file-name): New function. Use it to handle byte-compiler-base-file-name operation. -1995-08-20 Michael Kifer <Michael Kifer <kifer@cs.sunysb.edu>> +1995-08-20 Michael Kifer <kifer@cs.sunysb.edu> * viper.el (vip-set-hooks): Use view-mode-hook in emacs and view hook in xemacs. @@ -6857,7 +6857,7 @@ * sh-script.el (sh-mode-map): Use new name skeleton-pair-insert-maybe. (sh-mode): Use new names skeleton-pair-alist, skeleton-pair-filter. -1995-08-15 Daniel Pfeiffer <Daniel.Pfeiffer@Informatik.START.dbp.de> +1995-08-15 Daniel Pfeiffer <Daniel.Pfeiffer@Informatik.START.dbp.de> * skeleton.el (skeleton-pair-insert-maybe): Plain insert in Ovwrt mode (skeleton-insert): If skeleton doesn't fit in window, put beginning @@ -7784,7 +7784,7 @@ * term/x-win.el (x-colors): Doc fix. -1995-06-30 Kevin Rodgers <kevinr@ihs.com> +1995-06-30 Kevin Rodgers <kevinr@ihs.com> * mailabbrev.el (mail-resolve-all-aliases-1): Downcase address before recursive call.
--- a/lisp/ChangeLog.7 Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/ChangeLog.7 Tue Feb 04 12:29:42 2003 +0000 @@ -735,7 +735,7 @@ * files.el (auto-mode-alist): Fix regular expression error for sh-mode. -1998-07-26 Ken'ichi HANDA <handa@etl.go.jp> +1998-07-26 Ken'ichi HANDA <handa@etl.go.jp> * arc-mode.el (archive-summarize): Set buffer unibyte before calling archive-XXX-summarize. @@ -1297,7 +1297,7 @@ * language/misc-lang.el ("IPA"): Add coding-priority and coding-system. -1998-07-07 Kevin Rodgers <kevinr@ihs.com> +1998-07-07 Kevin Rodgers <kevinr@ihs.com> * vc.el (vc-finish-logentry): Only delete windows in the selected frame displaying the *VC-log* buffer, in case another @@ -1905,7 +1905,7 @@ (japanese-hankaku-region): Likewise. (japanese-zenkaku-region): Likewise. -1998-06-22 WJCarpenter <bill@carpenter.ORG> +1998-06-22 WJCarpenter <bill@carpenter.ORG> * mail/feedmail.el: New file. @@ -2475,7 +2475,7 @@ * rsz-mini.el (resize-minibuffer-mode): * iswitchb.el (iswitchb-read-buffer): Add autoload cookie. -1998-06-03 Kevin Rodgers <kevinr@ihs.com> +1998-06-03 Kevin Rodgers <kevinr@ihs.com> * replace.el (esc-map): Bind C-M-% to query-replace-regexp. @@ -2604,7 +2604,7 @@ * international/mule.el (coding-system-mnemonic): Don't crash if arg is nil. -1998-05-31 Alan Shutko <shutkoa@ugsolutions.com> +1998-05-31 Alan Shutko <shutkoa@ugsolutions.com> * emacs-lisp/easy-mmode.el (easy-mmode-define-minor-mode): Add missing format arg. @@ -2613,7 +2613,7 @@ * finder.el (finder-known-keywords): Fix `convenience' entry. -1998-05-30 Richard Stallman <rms@gnu.org> +1998-05-30 Richard Stallman <rms@gnu.org> * textmodes/tex-mode.el: Undo May 15 change. @@ -2752,7 +2752,7 @@ * autoinsert.el: * abbrev.el: Likewise. -1998-05-26 Emilio Lopes <Emilio.Lopes@Physik.TU-Muenchen.DE> +1998-05-26 Emilio Lopes <Emilio.Lopes@Physik.TU-Muenchen.DE> and Karl Fogel <kfogel@red-bean.com> * bookmark.el: Changes so bookmark list mode works with Info: @@ -4121,7 +4121,7 @@ * ffap.el (dired-at-point): Add autoload cookie. -1998-04-23 Jens Petersen <petersen@kurims.kyoto-u.ac.jp> +1998-04-23 Jens Petersen <petersen@kurims.kyoto-u.ac.jp> * ffap.el (dired-at-point-require-prefix): New option. (dired-at-point): New command. @@ -5871,7 +5871,7 @@ * battery.el: Fixed spelling of `autoload' magic cookies. -1998-03-05 Sam Steingold <sds@usa.net> +1998-03-05 Sam Steingold <sds@usa.net> * lisp/simple.el (backward-delete-char-untabify-method): New user option. @@ -5898,7 +5898,7 @@ * subr.el (sref): Increase CHAR in the while loop. -1998-03-03 Sam Steingold <sds@usa.net> +1998-03-03 Sam Steingold <sds@usa.net> * dired.el (dired-quit): Function deleted. (dired-mode-map): Use quit-window for q. @@ -7508,7 +7508,7 @@ * avoid.el (mouse-avoidance-mode): Variable customized to automatically load the package. -1997-12-22 Kevin Rodgers <kevinr@ihs.com> +1997-12-22 Kevin Rodgers <kevinr@ihs.com> * simple.el (previous-matching-history-element): Bind case-fold-search to nil if REGEXP contains an uppercase letter. @@ -9275,7 +9275,7 @@ * gnus.el: Gnus v5.4.56 is released. -1997-10-21 Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp> +1997-10-21 Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp> * message.el (message-make-in-reply-to): Make valid In-Reply-To. @@ -9284,7 +9284,7 @@ * gnus-art.el (gnus-header-button-alist): Check for URLs in the Subject. -1997-10-21 Hrvoje Niksic <hniksic@srce.hr> +1997-10-21 Hrvoje Niksic <hniksic@srce.hr> * gnus-xmas.el: Cleanup. @@ -9292,12 +9292,12 @@ * gnus-art.el (gnus-output-to-file): Return t. -1997-10-21 Guy Geens <Guy.Geens@elis.rug.ac.be> +1997-10-21 Guy Geens <Guy.Geens@elis.rug.ac.be> * gnus-score.el (gnus-decay-score): Make decay work on negative scores. -1997-10-21 Kurt Swanson <kurt@dna.lth.se> +1997-10-21 Kurt Swanson <kurt@dna.lth.se> * nnmail.el (nnmail-article-group): Handle junk properly. @@ -11224,7 +11224,7 @@ * mail/sendmail.el (mail-send): Complain about invalid header line. -1997-08-30 Jerry James <jerry@cs.ucsb.edu> +1997-08-30 Jerry James <jerry@cs.ucsb.edu> * format.el (format-subtract-regions): New function. (format-property-increment-region): New function. @@ -14875,7 +14875,7 @@ custom-nest-groups controls this. <l, i, e>: Indent differently if custom-nest-groups. -1997-06-20 Ryszard Kubiak <rysiek@ipipan.gda.pl> +1997-06-20 Ryszard Kubiak <rysiek@ipipan.gda.pl> * ogonek.el: Doc fixes. (ogonek-jak, ogonek-how): Examples of customization fixed. @@ -15021,7 +15021,7 @@ (reftex-plug-into-AUCTeX) New variable and function. (reftex-make-master-buffer) Fixed bug with relative path names. -1997-06-18 Ryszard Kubiak <rysiek@ipipan.gda.pl> +1997-06-18 Ryszard Kubiak <rysiek@ipipan.gda.pl> * ogonek.el: Doc Fix. (prefix-code): Change the name to `ogonek-prefix-code'. @@ -18634,7 +18634,7 @@ * skeleton.el (skeleton-read): Doc fix. -1997-04-24 Per Abrahamsen <abraham@dina.kvl.dk> +1997-04-24 Per Abrahamsen <abraham@dina.kvl.dk> * widget.el (define-widget): Return name. @@ -19673,7 +19673,7 @@ * mh-utils.el (mh-find-progs): When looking for mh-lib, construct likely paths based on mh-progs rather than using a static list. -1997-03-24 Kevin Rodgers <kevinr@ihs.com> +1997-03-24 Kevin Rodgers <kevinr@ihs.com> * compile.el (grep-program): New variable. (grep-command): Use it, and test whether it supports the -e @@ -19949,7 +19949,7 @@ c-Java-defun-prompt-regexp. (c-guess-basic-syntax): CASE 2: relpos for c and c++ is now boi. -1997-03-11 Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at> +1997-03-11 Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at> * octave-mod.el (octave-abbrev-table): Add abbrevs for switch, case, otherwise, and endswitch. @@ -19988,7 +19988,7 @@ (makefile-dependency-regex, makefile-macroassign-regex): Disallow spaces in symbol name. -1997-03-11 Dan Nicolaescu <done@ece.arizona.edu> +1997-03-11 Dan Nicolaescu <done@ece.arizona.edu> * subr.el (add-to-invisibility-spec, remove-from-invisibility-spec): New functions.
--- a/lisp/ChangeLog.8 Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/ChangeLog.8 Tue Feb 04 12:29:42 2003 +0000 @@ -5352,7 +5352,7 @@ * international/mule-diag.el (describe-coding-system): Fix English message. -1999-05-03 Jason Rumney <jasonr@altavista.net> +1999-05-03 Jason Rumney <jasonr@altavista.net> * term/w32-win.el: Change the x-charset-registry property for the Japanese charsets that are supported by Japanese Windows fonts. @@ -5363,7 +5363,7 @@ diary-block diary entries for which the reminders and the diary entries can overlap. -1999-05-02 Jason Rumney <jasonr@altavista.net> +1999-05-02 Jason Rumney <jasonr@altavista.net> * term/w32-win.el (mouse-set-font): Ensure constructed fontset matches the font selected in the dialog. @@ -5573,7 +5573,7 @@ * jka-compr.el (jka-compr-insert-file-contents): Use raw-text-unix when we want no conversion. -1999-04-06 Thierry Emery <Thierry.Emery@nmu.alcatel.fr> +1999-04-06 Thierry Emery <Thierry.Emery@nmu.alcatel.fr> * timezone.el (timezone-parse-date): Corrected regexp for style (5) date format so that tenths of seconds are optional. @@ -5738,7 +5738,7 @@ * font-lock.el (c-font-lock-keywords-2): Added "complex" type. (java-font-lock-keywords-2): Added "strictfp" keyword. -1999-03-17 Jason Rumney <jasonr@altavista.net> +1999-03-17 Jason Rumney <jasonr@altavista.net> * w32-fns.el (set-w32-system-coding-system) New function. (w32-system-coding-system) Initialize to 'iso-latin-1. @@ -5772,7 +5772,7 @@ * font-lock.el (c-font-lock-keywords-2): Added "restrict" keyword. -1999-03-14 Milan Zamazal <pdm@pvt.net> +1999-03-14 Milan Zamazal <pdm@pvt.net> * abbrev.el (inverse-add-abbrev): Inherit the current input method. @@ -5868,7 +5868,7 @@ * mail/smtpmail.el (smtpmail-do-bcc): Fix regexp. -1999-03-08 Jason Rumney <jasonr@altavista.net> +1999-03-08 Jason Rumney <jasonr@altavista.net> * international/codepage.el (cp1250-decode-table) (cp1251-decode-table, cp1253-decode-table) @@ -6594,7 +6594,7 @@ * font-lock.el (font-lock-default-unfontify-region): If not font-lock-syntactic-keywords, don't remove syntax-table prop. -1999-01-27 Jason Rumney <jasonr@altavista.net> +1999-01-27 Jason Rumney <jasonr@altavista.net> * term/w32-win.el (w32-standard-fontset-spec): Remove wildcard from FAMILY field. @@ -6769,7 +6769,7 @@ * midnight.el (clean-buffer-list): Do not kill a buffer if it has a process associated with it. -1999-01-22 Jason Rumney <jasonr@altavista.net> +1999-01-22 Jason Rumney <jasonr@altavista.net> * term/w32-win.el (w32-standard-fontset-spec): Simplified. @@ -6803,7 +6803,7 @@ * wid-edit.el (widget-alist-convert-option): Delete spurious comma. (widget-plist-convert-option): Delete spurious comma. -1999-01-19 Jason Rumney <jasonr@altavista.net> +1999-01-19 Jason Rumney <jasonr@altavista.net> * term/w32-win.el (w32-standard-fontspec-spec): Change iso8859-5 to koi8-r. Add iso8859-9. @@ -7324,7 +7324,7 @@ argument requires specific EOL conversion type, make the default coding systems use that. -1998-12-30 Drew Csillag <drew_csillag@geocities.com> +1998-12-30 Drew Csillag <drew_csillag@geocities.com> * progmodes/m4-mode.el (m4-m4-region, m4-m4-buffer): Use shell-command-on-region. @@ -8493,7 +8493,7 @@ set-minibuffer-window to set minibuffer window of the current frame correctly. -1998-11-03 Theodore Jump <tjump@tertius.com> +1998-11-03 Theodore Jump <tjump@tertius.com> * term/w32-win.el: Require fontset. @@ -8687,7 +8687,7 @@ (ps-mule-initialize, ps-mule-begin, ps-face-bold-p, ps-do-despool): Programming style normalization. -1998-10-26 Kenichi Handa <handa@etl.go.jp> +1998-10-26 Kenichi Handa <handa@etl.go.jp> * ps-print.el: To make it work also on Emacs 20.2 and the earlier version, check the value of mule-version. @@ -9870,7 +9870,7 @@ * gnus/gnus-start.el (gnus-save-newsrc-file): Bind coding-system-for-write before saving. -1998-08-26 Kevin Rodgers <kevinr@ihs.com> +1998-08-26 Kevin Rodgers <kevinr@ihs.com> * isearch.el (isearch-forward): Doc fix.
--- a/lisp/ChangeLog.9 Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/ChangeLog.9 Tue Feb 04 12:29:42 2003 +0000 @@ -294,7 +294,7 @@ that &rest VAR is the last element, and that variables aren't doubled. (byte-compile-lambda): Use it. -2001-10-12 Eli Barzilay <eli@barzilay.org> +2001-10-12 Eli Barzilay <eli@barzilay.org> * calculator.el (calculator-eng-display): Don't call concat with an integer argument. @@ -1242,7 +1242,7 @@ (quail-activate): Mention the hooks these functions run in their doc strings. -2001-09-05 Edward M. Reingold <reingold@iit.edu> +2001-09-05 Edward M. Reingold <reingold@iit.edu> * cal-menu.el (calendar-mouse-view-other-diary-entries): Fix name of file in header of menu. @@ -1629,7 +1629,7 @@ window-scroll-functions are run with a window start that's temporarily outside of the restriction. -2001-08-16 Robert J. Chassell <bug-texinfo@gnu.org> +2001-08-16 Robert J. Chassell <bug-texinfo@gnu.org> * textmodes/texnfo-upd.el: Update copyright notice, fix minor typos. (texinfo-find-lower-level-node, texinfo-find-higher-level-node) @@ -3835,7 +3835,7 @@ final computational form, which was unnecessary; corrected a parsing problem when timeclock-relative was nil. -2001-04-23 Kahlil Hodgson <kahlil@discus.anu.edu.au> +2001-04-23 Kahlil Hodgson <kahlil@discus.anu.edu.au> * calendar/timeclock.el (timeclock-modeline-display): Check if `list-entry' is null. @@ -4060,7 +4060,7 @@ (ps-fonts, ps-font-number, ps-rgb-color, ps-end-page, ps-next-page) (ps-skip-newline): Replace defun by defsubst. -2001-04-10 Colin Walters <walters@cis.ohio-state.edu> +2001-04-10 Colin Walters <walters@cis.ohio-state.edu> * eshell/eshell.el (eshell-command): Needed a "%s" format specifier, in case the buffer contains percent characters. @@ -5538,7 +5538,7 @@ * international/mule-cmds.el (set-input-method): Another doc fix. -2001-02-13 David M. Koppelman <koppel@ee.lsu.edu> +2001-02-13 David M. Koppelman <koppel@ee.lsu.edu> * hi-lock.el (hi-lock-find-patterns): Don't activate font-lock-mode. @@ -5702,7 +5702,7 @@ * makefile.w32-in (EMACS): Use $(THISDIR) to make emacs.exe path absolute. -2001-02-06 David M. Koppelman <koppel@ee.lsu.edu> +2001-02-06 David M. Koppelman <koppel@ee.lsu.edu> * hi-lock.el (hi-lock-mode): Toggling hi-lock-mode now affects all buffers. When hi-lock turned on rather than only checking current @@ -6253,7 +6253,7 @@ * ediff-vers.el: Fix for 8+3 DOS file systems. -2001-01-19 Colin Walters <walters@cis.ohio-state.edu> +2001-01-19 Colin Walters <walters@cis.ohio-state.edu> * ediff-util.el (ediff-compare-custom-diffs-maybe): Put diff in diff mode, if available. @@ -8108,7 +8108,7 @@ * select.el (x-get-selection): Docstring fix. -2000-11-27 Dave Pearson <davep@hagbard.demon.co.uk> +2000-11-27 Dave Pearson <davep@hagbard.demon.co.uk> * play/5x5.el (5x5-play-solution): Bind hinhibit-quit to t. @@ -8251,7 +8251,7 @@ (iswitchb-entryfn-p): If minibuffer-depth returns the same value as recorded in iswitchb-minibuf-depth, return non-nil. -2000-11-23 Eli Zaretskii <eliz@is.elta.co.il> +2000-11-23 Eli Zaretskii <eliz@is.elta.co.il> * hscroll.el (turn-on-hscroll, hscroll-mode, hscroll-global-mode) (hscroll-window-maybe): Docstring fix. @@ -8513,7 +8513,7 @@ * Makefile.in (DONTCOMPILE): Omit bindings.el. -2000-11-20 Eli Barzilay <eli@www.barzilay.org> +2000-11-20 Eli Barzilay <eli@www.barzilay.org> * calculator.el (calculator-paste): Use `if' instead of `and' and `or'. @@ -8554,7 +8554,7 @@ (mode-line-toggle-modified, mode-line-widen) (mode-line-abbrev-mode, mode-line-auto-fill-mode): Fix typos. -2000-11-17 Vinicius Jose Latorre <vinicius@cpqd.com.br> +2000-11-17 Vinicius Jose Latorre <vinicius@cpqd.com.br> * ps-print.el (toplevel): Test for find-coding-system being fboundp before calling ps-x-find-coding-system. @@ -14379,7 +14379,7 @@ * progmodes/icon.el (icon-indent-line) (icon-is-continuation-line): Handle comments specially. -2000-08-17 Ken Stevens <k.stevens@ieee.org> +2000-08-17 Ken Stevens <k.stevens@ieee.org> * ispell.el: Set to standard author/maintainer/keyword fields. Fine tuning to menu map appearance and operation, and added help. @@ -15769,7 +15769,7 @@ * gnus/parse-time.el: Correct author's mail address. -2000-07-19 Colin Walters <walters@cis.ohio-state.edu> +2000-07-19 Colin Walters <walters@cis.ohio-state.edu> * comint.el (comint-highlight-input, comint-highlight-face): New user options. @@ -16628,7 +16628,7 @@ * info.el: Doc fixes. (Info-build-node-completions): Match Ref tags. -2000-06-13 Eli Zaretskii <eliz@is.elta.co.il> +2000-06-13 Eli Zaretskii <eliz@is.elta.co.il> * frame.el (display-multi-frame-p, display-multi-font-p): New defaliases for display-graphic-p. @@ -17175,7 +17175,7 @@ * simple.el (newline): Don't bind before-change-function, after-change-function. -2000-05-31 Rajesh Vaidheeswarran <rv@gnu.org> +2000-05-31 Rajesh Vaidheeswarran <rv@gnu.org> * whitespace.el (whitespace-rescan-timer-time): Update interval set to 600 seconds (10 minutes) instead of 60 seconds since @@ -18218,7 +18218,7 @@ * gud.el (gud-gdb-find-file): Call find-file-noselect with NOWARN argument. -2000-04-27 Sen Nagata <sen@eccosys.com> +2000-04-27 Sen Nagata <sen@eccosys.com> * emacs-lisp/crm.el (crm-completion-table): New variable. (crm-collection-fn, crm-test-completion) @@ -19191,7 +19191,7 @@ * emacs-lisp/re-builder.el: Remove RCS Id, remove history comment. -2000-03-12 Detlev Zundel <detlev.zundel@stud.uni-karlsruhe.de> +2000-03-12 Detlev Zundel <detlev.zundel@stud.uni-karlsruhe.de> * emacs-lisp/re-builder.el (reb-re-syntax): Fix typo in `:type'. Fix comment.
--- a/lisp/Makefile.in Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/Makefile.in Tue Feb 04 12:29:42 2003 +0000 @@ -248,7 +248,7 @@ fi \ done -compile-calc: +compile-calc: for el in `find $(lisp)/calc -name '*.el'`; do \ echo Compiling $$el; \ $(emacs) -f batch-byte-compile $$el || exit 1; \
--- a/lisp/indent.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/indent.el Tue Feb 04 12:29:42 2003 +0000 @@ -303,16 +303,16 @@ With optional argument, move forward N-1 lines first. From the beginning of the line, moves past the left-margin indentation, the fill-prefix, and any indentation used for centering or right-justifying the -line, but does not move past any whitespace that was explicitly inserted +line, but does not move past any whitespace that was explicitly inserted \(such as a tab used to indent the first line of a paragraph)." (interactive "p") (beginning-of-line n) (skip-chars-forward " \t") ;; Skip over fill-prefix. - (if (and fill-prefix + (if (and fill-prefix (not (string-equal fill-prefix ""))) (if (equal fill-prefix - (buffer-substring + (buffer-substring (point) (min (point-max) (+ (length fill-prefix) (point))))) (forward-char (length fill-prefix))) (if (and adaptive-fill-mode adaptive-fill-regexp
--- a/lisp/informat.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/informat.el Tue Feb 04 12:29:42 2003 +0000 @@ -57,7 +57,7 @@ (let (tag-list refillp (case-fold-search t) - (regexp + (regexp (concat "\\(" @@ -116,7 +116,7 @@ (delete-region (match-beginning 0) (match-end 0)))) ;; else this is a Node (setq tag-list - (cons (list + (cons (list (concat "Node: " (match-string-no-properties 13)) (1+ (match-beginning 10))) tag-list)))) @@ -453,7 +453,7 @@ (cond ((not (file-exists-p file)) (message ">> %s does not exist!" file) (setq error 1 - command-line-args-left (cdr command-line-args-left))) + command-line-args-left (cdr command-line-args-left))) ((file-directory-p file) (setq command-line-args-left (nconc (directory-files file) (cdr command-line-args-left))))
--- a/lisp/iswitchb.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/iswitchb.el Tue Feb 04 12:29:42 2003 +0000 @@ -183,7 +183,7 @@ ;; Using iswitchb for other completion tasks. ;; Kin Cho (kin@neoscale.com) sent the following suggestion to use -;; iswitchb for other completion tasks. +;; iswitchb for other completion tasks. ;; ;; (defun my-icompleting-read (prompt choices) ;; "Use iswitch as a completing-read replacement to choose from @@ -209,8 +209,8 @@ ;; (delete-minibuffer-contents)) ;; ;; (add-hook 'iswitchb-define-mode-map-hook -;; '(lambda () (define-key -;; iswitchb-mode-map "\C-o" +;; '(lambda () (define-key +;; iswitchb-mode-map "\C-o" ;; 'iswitchb-exclude-nonmatching))) ;; Other lisp packages extend iswitchb behaviour to other tasks. See @@ -518,7 +518,7 @@ (define-key map "\C-m" 'iswitchb-exit-minibuffer) (setq iswitchb-mode-map map) (run-hooks 'iswitchb-define-mode-map-hook))) - + ;;; MAIN FUNCTION (defun iswitchb () "Switch to buffer matching a substring. @@ -547,7 +547,7 @@ \\[iswitchb-kill-buffer] Kill buffer at head of buffer list." ;;\\[iswitchb-toggle-ignore] Toggle ignoring certain buffers (see \ ;;`iswitchb-buffer-ignore') - + (let* ((prompt "iswitch ") (buf (iswitchb-read-buffer prompt))) @@ -626,7 +626,7 @@ (setq buf-sel iswitchb-final-text) ;; else take head of list (setq buf-sel (car iswitchb-matches))) - + ;; Or possibly choose the default buffer (if (equal iswitchb-final-text "") (setq buf-sel @@ -661,11 +661,11 @@ (let (res) (cond ((not iswitchb-matches) (run-hooks 'iswitchb-cannot-complete-hook)) - + ((= 1 (length iswitchb-matches)) ;; only one choice, so select it. (exit-minibuffer)) - + (t ;; else there could be some completions (setq res iswitchb-common-match-string) @@ -847,16 +847,16 @@ ret) (mapcar (lambda (x) - + (if do-string (setq name x) ;We already have the name (setq name (buffer-name x))) - + (cond ((and (or (and string-format (string-match regexp name)) (and (null string-format) (string-match (regexp-quote regexp) name))) - + (not (iswitchb-ignore-buffername-p name))) (setq ret (cons name ret)) ))) @@ -954,10 +954,10 @@ (set-window-start win (point-min)) (scroll-other-window)) (set-buffer buf)) - + (with-output-to-temp-buffer temp-buf (if iswitchb-xemacs - + ;; XEmacs extents are put on by default, doesn't seem to be ;; any way of switching them off. (display-completion-list (if iswitchb-matches @@ -1043,7 +1043,7 @@ (if (and iswitchb-newbuffer (or (not iswitchb-prompt-newbuffer) - + (and iswitchb-prompt-newbuffer (y-or-n-p (format @@ -1187,7 +1187,7 @@ (iswitchb-set-common-completion) ;; Insert the match-status information: - (insert (iswitchb-completions + (insert (iswitchb-completions contents minibuffer-completion-table minibuffer-completion-predicate @@ -1196,7 +1196,7 @@ (defun iswitchb-completions (name candidates predicate require-match) "Return the string that is displayed after the user's text. Modified from `icomplete-completions'." - + (let ((comps iswitchb-matches) ; "-determined" - only one candidate (open-bracket-determined (if require-match "(" "[")) @@ -1273,7 +1273,7 @@ (concat open-bracket-determined (substring most (length name)) close-bracket-determined)) - + ;; list all alternatives open-bracket-prospects (if most-is-exact @@ -1304,13 +1304,13 @@ (if (and (boundp 'iswitchb-eoinput) iswitchb-eoinput) - + (if (> iswitchb-eoinput (point-max)) ;; Oops, got rug pulled out from under us - reinit: (setq iswitchb-eoinput (point-max)) (let ((buffer-undo-list buffer-undo-list )) ; prevent entry (delete-region iswitchb-eoinput (point-max)))) - + ;; Reestablish the local variable 'cause minibuffer-setup is weird: (make-local-variable 'iswitchb-eoinput) (setq iswitchb-eoinput 1)))
--- a/lisp/jit-lock.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/jit-lock.el Tue Feb 04 12:29:42 2003 +0000 @@ -38,7 +38,7 @@ (progn ,@body) (unless ,modified (restore-buffer-modified-p nil)))))) - + (defmacro with-buffer-prepared-for-jit-lock (&rest body) "Execute BODY in current buffer, overriding several variables. Preserves the `buffer-modified-p' state of the current buffer." @@ -52,7 +52,7 @@ buffer-file-truename) ,@body)))) - + ;;; Customization. @@ -82,9 +82,9 @@ taking longer to fontify, you could increase the value of this variable. See also `jit-lock-stealth-load'." :type '(choice (const :tag "never" nil) - (number :tag "seconds")) + (number :tag "seconds")) :group 'jit-lock) - + (defcustom jit-lock-stealth-load (if (condition-case nil (load-average) (error)) 200) @@ -325,7 +325,7 @@ ;; stop at the start of the line following NEXT. (goto-char next) (setq next (line-beginning-position 2)) (goto-char start) (setq start (line-beginning-position)) - + ;; Fontify the chunk, and mark it as fontified. ;; We mark it first, to make sure that we don't indefinitely ;; re-execute this fontification if an error occurs. @@ -378,7 +378,7 @@ ((< (- around start) (- next around)) start) (t next)))) result)))) - + (defun jit-lock-stealth-fontify () "Fontify buffers stealthily. @@ -393,7 +393,7 @@ (while (and buffers (not (input-pending-p))) (let ((buffer (car buffers))) (setq buffers (cdr buffers)) - + (with-current-buffer buffer (when jit-lock-mode ;; This is funny. Calling sit-for with 3rd arg non-nil @@ -447,14 +447,14 @@ (while (and (setq start (jit-lock-stealth-chunk-start point)) (sit-for nice)) - + ;; fontify a block. (jit-lock-fontify-now start (+ start jit-lock-chunk-size)) ;; If stealth jit-locking is done backwards, this leads to ;; excessive O(n^2) refontification. -stef ;; (when (>= jit-lock-first-unfontify-pos start) ;; (setq jit-lock-first-unfontify-pos end)) - + ;; Wait a little if load is too high. (when (and jit-lock-stealth-load (> (car (load-average)) jit-lock-stealth-load)) @@ -489,7 +489,7 @@ (sit-for 0) ;; (message "Jit-Defer Done") ))) - + (defun jit-lock-after-change (start end old-len) "Mark the rest of the buffer as not fontified after a change. @@ -508,7 +508,7 @@ ;; be inconsistent with the buffer's content. (goto-char start) (setq start (line-beginning-position)) - + ;; If we're in text that matches a multi-line font-lock pattern, ;; make sure the whole text will be redisplayed. ;; I'm not sure this is ever necessary and/or sufficient. -stef @@ -516,7 +516,7 @@ (setq start (or (previous-single-property-change start 'font-lock-multiline) (point-min)))) - + ;; Make sure we change at least one char (in case of deletions). (setq end (min (max end (1+ start)) (point-max))) ;; Request refontification. @@ -525,7 +525,7 @@ (when jit-lock-first-unfontify-pos (setq jit-lock-first-unfontify-pos (min jit-lock-first-unfontify-pos start)))))) - + (provide 'jit-lock) ;;; jit-lock.el ends here
--- a/lisp/jka-compr.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/jka-compr.el Tue Feb 04 12:29:42 2003 +0000 @@ -77,9 +77,9 @@ ;; ACKNOWLEDGMENTS -;; +;; ;; jka-compr is a V19 adaptation of jka-compr for V18 of Emacs. Many people -;; have made helpful suggestions, reported bugs, and even fixed bugs in +;; have made helpful suggestions, reported bugs, and even fixed bugs in ;; jka-compr. I recall the following people as being particularly helpful. ;; ;; Jean-loup Gailly @@ -117,7 +117,7 @@ :type 'string :group 'jka-compr) -(defvar jka-compr-use-shell +(defvar jka-compr-use-shell (not (memq system-type '(ms-dos windows-nt)))) ;;; I have this defined so that .Z files are assumed to be in unix @@ -270,8 +270,8 @@ (signal 'compression-error (list "Opening input file" (format "error %s" message) infile))) - - + + (defcustom jka-compr-dd-program "/bin/dd" "How to invoke `dd'." :type 'string @@ -447,7 +447,7 @@ (setq temp-file (jka-compr-make-temp-name))) - (and + (and compress-message (message "%s %s..." compress-message base-name)) @@ -502,7 +502,7 @@ (setq last-coding-system-used coding-system-used) nil) - + (jka-compr-run-real-handler 'write-region (list start end filename append visit))))) @@ -538,7 +538,7 @@ (unwind-protect ; to make sure local-copy gets deleted (progn - + (and uncompress-message (message "%s %s..." uncompress-message base-name)) @@ -583,7 +583,7 @@ (eq (nth 3 error-code) local-file)) (if visit (setq notfound error-code) - (signal 'file-error + (signal 'file-error (cons "Opening input file" (nthcdr 2 error-code)))) (signal (car error-code) (cdr error-code)))))) @@ -594,7 +594,7 @@ (delete-file local-copy))) (decode-coding-inserted-region - (point) (+ (point) size) + (point) (+ (point) size) (jka-compr-byte-compiler-base-file-name file) visit beg end replace) @@ -605,7 +605,7 @@ (setq buffer-file-name filename) (setq jka-compr-really-do-compress t) (set-visited-file-modtime))) - + (and uncompress-message (message "%s %s...done" uncompress-message base-name)) @@ -661,11 +661,11 @@ (unwind-protect (with-current-buffer temp-buffer - + (and uncompress-message (message "%s %s..." uncompress-message base-name)) - + ;; Here we must read the output of uncompress program ;; and write it to TEMP-FILE without any code ;; conversion. An appropriate code conversion (if @@ -697,7 +697,7 @@ (kill-buffer temp-buffer)) temp-file) - + (jka-compr-run-real-handler 'file-local-copy (list filename))))) @@ -865,7 +865,7 @@ (eq (nth 2 entry) 'jka-compr))) (setcdr last (cdr (cdr last))) (setq last (cdr last)))) - + (setq auto-mode-alist (cdr ama))) (let* ((ama (cons nil file-coding-system-alist)) @@ -877,7 +877,7 @@ (if (member entry jka-compr-added-to-file-coding-system-alist) (setcdr last (cdr (cdr last))) (setq last (cdr last)))) - + (setq file-coding-system-alist (cdr ama))) ;; Remove the suffixes that were added by jka-compr. @@ -888,7 +888,7 @@ (push suffix suffixes))) (setq load-suffixes (nreverse suffixes)))) - + (defun jka-compr-installed-p () "Return non-nil if jka-compr is installed. The return value is the entry in `file-name-handler-alist' for jka-compr."
--- a/lisp/kermit.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/kermit.el Tue Feb 04 12:29:42 2003 +0000 @@ -54,7 +54,7 @@ ;; ^C^Q^C to send an interrupt, and ^C^Q^Z for a stop signal, etc. (since ^C^C ;; just generates a local stop signal, which kermit ignores). ;; To connect to a VMS system, I use a shell script to invoke kermit thru the -;; tr filter, do "M-X kermit-send-cr", and then tell VMS that I'm on a +;; tr filter, do "M-X kermit-send-cr", and then tell VMS that I'm on a ;; half-duplex terminal. ;; Some caveats: @@ -84,14 +84,14 @@ (defun kermit-esc () "For sending escape sequences to a kermit running in shell mode." (interactive) - (process-send-string + (process-send-string (get-buffer-process (current-buffer)) (concat kermit-esc-char (char-to-string (read-char))))) (defun kermit-send-char () "Send an arbitrary character to a program in shell mode." (interactive) - (process-send-string + (process-send-string (get-buffer-process (current-buffer)) (char-to-string (read-char))))
--- a/lisp/kmacro.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/kmacro.el Tue Feb 04 12:29:42 2003 +0000 @@ -94,7 +94,7 @@ ;; and you can set the macro counter format with C-x C-k C-f. ;; The following key bindings are performed: -;; +;; ;; Normal While defining macro ;; --------------------------- ------------------------------ ;; f3 Define macro Insert current counter value @@ -102,13 +102,13 @@ ;; counter value (default 0) (default increment: 1) ;; ;; C-u f3 APPENDs to last macro -;; -;; f4 Call last macro End macro +;; +;; f4 Call last macro End macro ;; Prefix arg specifies number ;; of times to execute macro. ;; ;; C-u f4 Swap last and head of macro ring. -;; +;; ;; S-mouse-3 Set point at click and End macro and execute macro at ;; execute last macro. click. @@ -339,7 +339,7 @@ Non-nil arg RAW means just return raw first element." (unless (kmacro-ring-empty-p) (kmacro-pop-ring1 raw))) - + (defun kmacro-ring-length () "Return length of macro ring, including pseudo head." @@ -368,7 +368,7 @@ (m (format-kbd-macro macro)) (l (length m)) (z (and nil trunc (> l x)))) - (message (format "%s: %s%s" (or descr "Macro") + (message (format "%s: %s%s" (or descr "Macro") (if z (substring m 0 (1- x)) m) (if z "..." "")))) (message (or empty "No keyboard macros defined")))) @@ -439,7 +439,7 @@ (kmacro-display (car (car kmacro-ring)) "2nd macro"))) - + (defun kmacro-cycle-ring-next (&optional arg) "Move to next keyboard macro in keyboard macro ring. Displays the selected macro in the echo area." @@ -500,7 +500,7 @@ ;;; Traditional bindings: - + ;;;###autoload (defun kmacro-start-macro (arg) "Record subsequent keyboard input, defining a keyboard macro. @@ -527,7 +527,7 @@ (unless append (if last-kbd-macro (let ((len (length kmacro-ring))) - (setq kmacro-ring + (setq kmacro-ring (cons (list last-kbd-macro kmacro-counter kmacro-counter-format-start) kmacro-ring)) @@ -538,7 +538,7 @@ kmacro-last-counter kmacro-counter kmacro-counter-format-start kmacro-counter-format)) - (start-kbd-macro append + (start-kbd-macro append (and append (if kmacro-execute-before-append (> (car arg) 4) @@ -592,7 +592,7 @@ kmacro-call-repeat-key))) (setq repeat-key-str (format-kbd-macro (vector repeat-key) nil)) (while repeat-key - (message "(Type %s to repeat macro%s)" + (message "(Type %s to repeat macro%s)" repeat-key-str (if (and kmacro-call-repeat-with-arg arg (> arg 1)) @@ -640,7 +640,7 @@ With numeric prefix ARG, repeat macro that many times. With \\[universal-argument], call second macro in macro ring." (interactive "P") - (cond + (cond (defining-kbd-macro (if kmacro-call-repeat-key (kmacro-call-macro arg no-repeat t) @@ -796,7 +796,7 @@ (format "Macro: %s%s%s%s%s\n" (format-kbd-macro kmacro-step-edit-new-macro 1) (if (and kmacro-step-edit-new-macro (> (length kmacro-step-edit-new-macro) 0)) " " "") - (propertize (if keys (format-kbd-macro keys) + (propertize (if keys (format-kbd-macro keys) (if kmacro-step-edit-appending "<APPEND>" "<INSERT>")) 'face 'region) (if future " " "") (if future (format-kbd-macro future) "")) @@ -813,7 +813,7 @@ curmsg)) (t "")) (if keys - (format "%s\n%s%s %S [yn iIaArR C-k kq!] " + (format "%s\n%s%s %S [yn iIaArR C-k kq!] " (propertize "\ --------------Step Edit Keyboard Macro [?: help]---------------" 'face 'mode-line) (if kmacro-step-edit-help "\ @@ -826,7 +826,7 @@ " "") (propertize "Next command:" 'face 'bold) this-command) - (propertize + (propertize (format "Type key sequence%s to insert and execute%s: " (if (numberp kmacro-step-edit-inserting) "" "s") (if (numberp kmacro-step-edit-inserting) "" " (end with C-j)")) @@ -864,7 +864,7 @@ (clear-this-command-keys) ;; recent-keys actually (let (unread-command-events) (quoted-insert (prefix-numeric-value current-prefix-arg)) - (setq kmacro-step-edit-new-macro + (setq kmacro-step-edit-new-macro (vconcat kmacro-step-edit-new-macro (recent-keys))) (when unread-command-events (setq kmacro-step-edit-new-macro @@ -957,7 +957,7 @@ (if (> executing-macro-index (or kmacro-step-edit-prefix-index kmacro-step-edit-key-index)) (setq kmacro-step-edit-new-macro (vconcat kmacro-step-edit-new-macro - (substring executing-kbd-macro + (substring executing-kbd-macro (or kmacro-step-edit-prefix-index kmacro-step-edit-key-index) (if (eq act t) nil executing-macro-index))) kmacro-step-edit-prefix-index nil)) @@ -1068,7 +1068,7 @@ (add-hook 'pre-command-hook 'kmacro-step-edit-pre-command nil nil) (if kmacro-step-edit-key-index (setq executing-macro-index kmacro-step-edit-key-index) - (setq kmacro-step-edit-key-index executing-macro-index)))) + (setq kmacro-step-edit-key-index executing-macro-index)))) (defun kmacro-step-edit-macro ()
--- a/lisp/lazy-lock.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/lazy-lock.el Tue Feb 04 12:29:42 2003 +0000 @@ -38,7 +38,7 @@ ;; See also the fast-lock package. (But don't use them at the same time!) ;; Installation: -;; +;; ;; Put in your ~/.emacs: ;; ;; (setq font-lock-support-mode 'lazy-lock-mode) @@ -449,7 +449,7 @@ taking longer to fontify, you could increase the value of this variable. See also `lazy-lock-stealth-load'." :type '(choice (const :tag "never" nil) - (number :tag "seconds")) + (number :tag "seconds")) :group 'lazy-lock) (defcustom lazy-lock-stealth-verbose
--- a/lisp/locate.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/locate.el Tue Feb 04 12:29:42 2003 +0000 @@ -200,7 +200,7 @@ (+ 2 (length (car locate-cmd)))) nil nil 'locate-history-list)) (let* ((default (locate-word-at-point)) - (input + (input (read-from-minibuffer (if (> (length default) 0) (format "Locate (default `%s'): " default)
--- a/lisp/log-edit.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/log-edit.el Tue Feb 04 12:29:42 2003 +0000 @@ -4,7 +4,7 @@ ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs cvs commit log -;; Revision: $Id: log-edit.el,v 1.16 2001/05/11 20:42:58 monnier Exp $ +;; Revision: $Id: log-edit.el,v 1.17 2001/10/30 04:32:58 monnier Exp $ ;; This file is part of GNU Emacs. @@ -38,9 +38,9 @@ (require 'ring) (require 'vc) -;;;; +;;;; ;;;; Global Variables -;;;; +;;;; (defgroup log-edit nil "Major mode for editing RCS and CVS commit messages." @@ -328,7 +328,7 @@ (interactive) (when (file-readable-p "CVS/Template") (insert-file-contents "CVS/Template"))) - + (defun log-edit-add-to-changelog () "Insert this log message into the appropriate ChangeLog file." @@ -341,10 +341,10 @@ (save-excursion (vc-comment-to-change-log))))) -;;;; +;;;; ;;;; functions for getting commit message from ChangeLog a file... ;;;; Courtesy Jim Blandy -;;;; +;;;; (defun log-edit-narrow-changelog () "Narrow to the top page of the current buffer, a ChangeLog file. @@ -446,7 +446,7 @@ (save-restriction (log-edit-narrow-changelog) (goto-char (point-min)) - + ;; Search for the name of FILE relative to the ChangeLog. If that ;; doesn't occur anywhere, they're not using full relative ;; filenames in the ChangeLog, so just look for FILE; we'll accept
--- a/lisp/log-view.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/log-view.el Tue Feb 04 12:29:42 2003 +0000 @@ -4,7 +4,7 @@ ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: rcs sccs cvs log version-control -;; Revision: $Id: log-view.el,v 1.13 2001/12/31 20:25:41 rms Exp $ +;; Revision: $Id: log-view.el,v 1.14 2003/01/14 21:46:13 monnier Exp $ ;; This file is part of GNU Emacs. @@ -181,7 +181,7 @@ (interactive "d") (save-excursion (goto-char pos) - (switch-to-buffer (vc-find-version (log-view-current-file) + (switch-to-buffer (vc-find-version (log-view-current-file) (log-view-current-tag))))) ;;
--- a/lisp/lpr.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/lpr.el Tue Feb 04 12:29:42 2003 +0000 @@ -164,7 +164,7 @@ Otherwise, the switches in `lpr-headers-switches' are used in the print command itself; we expect them to request pagination. - + See the variables `lpr-switches' and `lpr-command' for further customization of the printer command." (interactive) @@ -189,7 +189,7 @@ Otherwise, the switches in `lpr-headers-switches' are used in the print command itself; we expect them to request pagination. - + See the variables `lpr-switches' and `lpr-command' for further customization of the printer command." (interactive "r")
--- a/lisp/macros.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/macros.el Tue Feb 04 12:29:42 2003 +0000 @@ -258,7 +258,7 @@ Suppose you wanted to build a keyword table in C where each entry looked like this: - { \"foo\", foo_data, foo_function }, + { \"foo\", foo_data, foo_function }, { \"bar\", bar_data, bar_function }, { \"baz\", baz_data, baz_function },
--- a/lisp/makefile.nt Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/makefile.nt Tue Feb 04 12:29:42 2003 +0000 @@ -3,17 +3,17 @@ # Copyright (c) 1994 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., 59 Temple Place - Suite 330, @@ -265,7 +265,7 @@ # # Maintenance -# +# clean: - $(DEL) *~ term\*~ - $(DEL) *.orig *.rej *.crlf
--- a/lisp/man.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/man.el Tue Feb 04 12:29:42 2003 +0000 @@ -618,7 +618,7 @@ (start-process manual-program buffer "sh" "-c" (format (Man-build-man-command) man-args)) 'Man-bgproc-sentinel) - (let ((process-environment + (let ((process-environment (cons "GROFF_NO_SGR=1" process-environment))) (let ((exit-status
--- a/lisp/master.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/master.el Tue Feb 04 12:29:42 2003 +0000 @@ -51,14 +51,14 @@ ;; Rob Riepel <networking.stanford.edu> ;;; History: -;; +;; ;;; Code: (require 'easy-mmode) ;; Variables that don't need initialization. - + (defvar master-of nil "Slave buffer of the current buffer. See `master-mode'. You can set this variable using `master-set-slave'.")
--- a/lisp/menu-bar.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/menu-bar.el Tue Feb 04 12:29:42 2003 +0000 @@ -1299,7 +1299,7 @@ (defun help-with-tutorial-spec-language () "Use the Emacs tutorial, specifying which language you want." - (interactive) + (interactive) (help-with-tutorial t)) (define-key menu-bar-help-menu [emacs-tutorial-language-specific]
--- a/lisp/minibuf-eldef.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/minibuf-eldef.el Tue Feb 04 12:29:42 2003 +0000 @@ -51,7 +51,7 @@ ;; A list of minibuffers to which we've added a post-command-hook. (defvar minibuf-eldef-frobbed-minibufs nil) - + ;;; The following are all local variables in the minibuffer ;; Input pre-inserted into the minibuffer before the user can edit it.
--- a/lisp/mouse-copy.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/mouse-copy.el Tue Feb 04 12:29:42 2003 +0000 @@ -151,7 +151,7 @@ (set-buffer end-buffer) (x-set-selection 'SECONDARY (buffer-substring beg end))))) - + (defun mouse-drag-secondary-pasting (start-event) "Drag out a secondary selection, then paste it at the current point. @@ -182,7 +182,7 @@ (insert (x-get-selection 'SECONDARY)) (setq mouse-copy-last-paste-end (point))) (setq mouse-copy-last-paste-start nil))) - + (defun mouse-kill-preserving-secondary () "Kill the text in the secondary selection, but leave the selection set.
--- a/lisp/msb.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/msb.el Tue Feb 04 12:29:42 2003 +0000 @@ -41,11 +41,11 @@ ;; There are some constants for you to try here: ;; msb--few-menus ;; msb--very-many-menus (default) -;; +;; ;; Look at the variable `msb-item-handling-function' for customization ;; of the appearance of every menu item. Try for instance setting ;; it to `msb-alon-item-handler'. -;; +;; ;; Look at the variable `msb-item-sort-function' for customization ;; of sorting the menus. Set it to t for instance, which means no ;; sorting - you will get latest used buffer first. @@ -320,7 +320,7 @@ :type 'string :set 'msb-custom-set :group 'msb) - + (defvar msb-horizontal-shift-function '(lambda () 0) "*Function that specifies how many pixels to shift the top menu leftwards.") @@ -362,7 +362,7 @@ (const :tag "Oldest first" nil)) :set 'msb-custom-set :group 'msb) - + (defcustom msb-files-by-directory nil "*Non-nil means that files should be sorted by directory. This is instead of the groups in `msb-menu-cond'." @@ -729,7 +729,7 @@ max-buffer-name-length) buffer) (eval list-symbol))))) - + (defsubst msb--choose-menu (buffer function-info-vector max-buffer-name-length) "Select the appropriate menu for BUFFER." ;; This is all side-effects, folks!
--- a/lisp/mwheel.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/mwheel.el Tue Feb 04 12:29:42 2003 +0000 @@ -204,7 +204,7 @@ (if mwheel-inhibit-click-event-timer (cancel-timer mwheel-inhibit-click-event-timer) (add-hook 'pre-command-hook 'mwheel-filter-click-events)) - (setq mwheel-inhibit-click-event-timer + (setq mwheel-inhibit-click-event-timer (run-with-timer mouse-wheel-inhibit-click-time nil 'mwheel-inhibit-click-timeout))))
--- a/lisp/newcomment.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/newcomment.el Tue Feb 04 12:29:42 2003 +0000 @@ -262,7 +262,7 @@ (if (and comment-quote-nested (<= (length ce) 1)) "" "+") (regexp-quote (substring ce 1)) "\\)")))))) - + (defun comment-quote-re (str unp) (concat (regexp-quote (substring str 0 1)) "\\\\" (if unp "+" "*") @@ -789,7 +789,7 @@ (unless block (setq cce nil)) ;; Continuation defaults to the same as CS and CE. (unless ccs (setq ccs cs cce ce)) - + (save-excursion (goto-char end) ;; If the end is not at the end of a line and the comment-end @@ -811,7 +811,7 @@ (end-of-line) (setq max-indent (max max-indent (current-column))) (not (or (eobp) (progn (forward-line) nil))))) - + ;; Inserting ccs can change max-indent by (1- tab-width). (setq max-indent (+ max-indent (max (length cs) (length ccs)) tab-width -1)) @@ -824,7 +824,7 @@ cs ce ccs cce min-indent max-indent block))) (setq cs (car csce)) (setq ce (cdr csce)))) - + (goto-char (point-min)) ;; Loop over all lines from BEG to END. (while
--- a/lisp/options.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/options.el Tue Feb 04 12:29:42 2003 +0000 @@ -52,7 +52,7 @@ (princ ":\n\t") (prin1 (symbol-value sym)) (terpri) - (princ (substitute-command-keys + (princ (substitute-command-keys (documentation-property sym 'variable-documentation))) (princ "\n;;\n")) (setq vars (cdr vars))))
--- a/lisp/paren.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/paren.el Tue Feb 04 12:29:42 2003 +0000 @@ -64,13 +64,13 @@ :type 'integer :group 'paren-showing :version "21.1") - + (defcustom show-paren-ring-bell-on-mismatch nil "*If non-nil, beep if mismatched paren is detected." :type 'boolean :group 'paren-showing :version "20.3") - + (defface show-paren-match-face '((((class color) (background light)) :background "turquoise") ; looks OK on tty (becomes cyan)
--- a/lisp/paths.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/paths.el Tue Feb 04 12:29:42 2003 +0000 @@ -139,7 +139,7 @@ (defconst rmail-spool-directory (cond ((string-match "^[^-]+-[^-]+-sco3.2v4" system-configuration) "/usr/spool/mail/") - ;; On The Bull DPX/2 /usr/spool/mail is used although + ;; On The Bull DPX/2 /usr/spool/mail is used although ;; it is usg-unix-v. ((string-match "^m68k-bull-sysv3" system-configuration) "/usr/spool/mail/") @@ -193,7 +193,7 @@ You may set this variable to nil in your `.emacs' file if you do not wish the terminal-initialization file to be loaded.") -(defconst abbrev-file-name +(defconst abbrev-file-name (if (eq system-type 'vax-vms) "~/abbrev.def" (convert-standard-filename "~/.abbrev_defs"))
--- a/lisp/pcvs-info.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/pcvs-info.el Tue Feb 04 12:29:42 2003 +0000 @@ -4,7 +4,7 @@ ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs -;; Revision: $Id: pcvs-info.el,v 1.13 2002/09/11 01:56:47 rms Exp $ +;; Revision: $Id: pcvs-info.el,v 1.14 2003/01/14 21:53:39 monnier Exp $ ;; This file is part of GNU Emacs. @@ -170,7 +170,7 @@ ;; untouched version resides. ;; The meaning of the type field: - + ;; Value ---Used by--- Explanation ;; update status ;; NEED-UPDATE x file needs update @@ -269,9 +269,9 @@ (error "Invalid :%s in cvs-fileinfo %s" check fi)))) -;;;; +;;;; ;;;; State table to indicate what you can do when. -;;;; +;;;; (defconst cvs-states `((NEED-UPDATE update diff)
--- a/lisp/pcvs-parse.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/pcvs-parse.el Tue Feb 04 12:29:42 2003 +0000 @@ -5,7 +5,7 @@ ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs -;; Revision: $Id: pcvs-parse.el,v 1.12 2002/06/24 22:49:06 monnier Exp $ +;; Revision: $Id: pcvs-parse.el,v 1.13 2002/09/03 01:23:15 monnier Exp $ ;; This file is part of GNU Emacs. @@ -202,7 +202,7 @@ "Table of message objects for `cvs-parse-process'." (let (c file dir path type base-rev subtype) (cvs-or - + (cvs-parse-status) (cvs-parse-merge) (cvs-parse-commit) @@ -211,7 +211,7 @@ ;; such duplicate info and luckily the second info is the one we want. ;; (and (cvs-match "M \\(.*\\)$" (path 1)) ;; (cvs-parse-merge path)) - + ;; Normal file state indicator. (and (cvs-match "\\([MARCUPNJ?]\\) \\(.*\\)$" (c 1) (path 2)) @@ -311,7 +311,7 @@ 'MISSING '(UP-TO-DATE . UPDATED)) path)) - + ;; Mode conflicts (rather than contents) (and (cvs-match "conflict: ") @@ -333,7 +333,7 @@ (cvs-match "sticky tag .* for file `\\(.*\\)' is not a branch$" (file 1))) (cvs-parsed-fileinfo 'MESSAGE file)) - + ;; File unknown. (and (cvs-match "use `.+ add' to create an entry for \\(.*\\)$" (path 1)) (cvs-parsed-fileinfo 'UNKNOWN path)) @@ -351,7 +351,7 @@ 'MESSAGE "" " " "*** Add (setq cvs-execute-single-dir t) to your .emacs *** See the FAQ file or the variable's documentation for more info.")) - + ;; Cvs waits for a lock. Ignored: already handled by the process filter (cvs-match "\\[..:..:..\\] \\(waiting for\\|obtained\\) .*lock in .*$") ;; File you removed still exists. Ignore (will be noted as removed). @@ -368,7 +368,7 @@ (cvs-match "Rebuilding administrative file database$") ;; ??? (cvs-match "--> Using per-directory sticky tag `.*'") - + ;; CVS is running a *info program. (and (cvs-match "Executing.*$") @@ -380,7 +380,7 @@ (and (cvs-match "cvs[.ex]* \\[[a-z]+ aborted\\]:.*$") (cvs-parsed-fileinfo 'MESSAGE "")) - + ;; sadly you can't do much with these since the path is in the repository (cvs-match "Directory .* added to the repository$") ))) @@ -502,7 +502,7 @@ ;; a `current-dir' set to something different from "" (cvs-parsed-fileinfo (cons 'UP-TO-DATE subtype) path 'trust :base-rev base-rev))) - + ;; useless message added before the actual addition: ignored (cvs-match "RCS file: .*\ndone$"))))
--- a/lisp/pcvs-util.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/pcvs-util.el Tue Feb 04 12:29:42 2003 +0000 @@ -5,7 +5,7 @@ ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs -;; Revision: $Id: pcvs-util.el,v 1.16 2001/12/02 07:41:47 monnier Exp $ +;; Revision: $Id: pcvs-util.el,v 1.17 2001/12/20 18:43:07 pj Exp $ ;; This file is part of GNU Emacs. @@ -50,7 +50,7 @@ (let ((zs ys)) (dolist (x xs zs) (unless (member x ys) (push x zs))))) - + (defun cvs-map (-cvs-map-f &rest -cvs-map-ls) (unless (cvs-every 'null -cvs-map-ls) @@ -135,7 +135,7 @@ (let ((mainwin (or (get-buffer-window mainbuf) (get-buffer-window mainbuf 'visible)))) (when mainwin (select-window mainwin)))))) - + (defun cvs-get-buffer-create (name &optional noreuse) "Create a buffer NAME unless such a buffer already exists. If the NAME looks like an absolute file name, the buffer will be created @@ -231,9 +231,9 @@ (cvs-string->strings (substring string (cdr rfs)) sep))))))) -;;;; +;;;; ;;;; file names -;;;; +;;;; (defsubst cvs-expand-dir-name (d) (file-name-as-directory (expand-file-name d))) @@ -273,9 +273,9 @@ initval hist-sym)) (t initval))))) -;;;; +;;;; ;;;; Flags handling -;;;; +;;;; (defstruct (cvs-flags (:constructor nil) @@ -335,9 +335,9 @@ "Set SYM's INDEX'th setting to VALUE." (setf (nth index (cvs-flags-defaults (symbol-value sym))) value)) -;;;; +;;;; ;;;; Prefix keys -;;;; +;;;; (defconst cvs-prefix-number 10)
--- a/lisp/pcvs.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/pcvs.el Tue Feb 04 12:29:42 2003 +0000 @@ -14,7 +14,7 @@ ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu ;; Keywords: CVS, version control, release management -;; Revision: $Id: pcvs.el,v 1.45 2002/11/18 20:53:24 rost Exp $ +;; Revision: $Id: pcvs.el,v 1.46 2002/12/05 15:23:37 monnier Exp $ ;; This file is part of GNU Emacs. @@ -60,7 +60,7 @@ ;;; Todo: ;; ******** FIX THE DOCUMENTATION ********* -;; +;; ;; - rework the displaying of error messages. ;; - allow to flush messages only ;; - allow to protect files like ChangeLog from flushing @@ -72,7 +72,7 @@ ;; - allow cvs-confirm-removals to force always confirmation. ;; - cvs-checkout should ask for a revision (with completion). ;; - removal confirmation should allow specifying another file name. -;; +;; ;; - hide fileinfos without getting rid of them (will require ewok work). ;; - add toolbar entries ;; - marking
--- a/lisp/ps-bdf.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/ps-bdf.el Tue Feb 04 12:29:42 2003 +0000 @@ -224,7 +224,7 @@ (relative-compose 'false) (baseline-offset 0) size - font-bounding-box + font-bounding-box default-char code-range offset-vector)
--- a/lisp/rect.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/rect.el Tue Feb 04 12:29:42 2003 +0000 @@ -187,7 +187,7 @@ (setq val (concat " " val) n (- n 8))) (concat val (aref spaces-strings n))))) - + ;;;###autoload (defun delete-rectangle (start end &optional fill) "Delete (don't save) text in the region-rectangle.
--- a/lisp/register.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/register.el Tue Feb 04 12:29:42 2003 +0000 @@ -233,7 +233,7 @@ (progn (princ "the text:\n") (princ val)) - (cond + (cond ;; Extract first N characters starting with first non-whitespace. ((string-match (format "[^ \t\n].\\{,%d\\}" ;; Deduct 6 for the spaces inserted below.
--- a/lisp/repeat.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/repeat.el Tue Feb 04 12:29:42 2003 +0000 @@ -126,7 +126,7 @@ member of that sequence. If this variable is nil, no re-execution occurs." :group 'convenience :type 'boolean) - + ;;;;; ****************** HACKS TO THE REST OF EMACS ******************* ;;;;; ;; The basic strategy is to use last-command, a variable built in to Emacs. @@ -262,7 +262,7 @@ (setq repeat-last-self-insert (buffer-substring (car range) (cdr range))) - (error (error "%s %s %s" ;Danger, Will Robinson! + (error (error "%s %s %s" ;Danger, Will Robinson! "repeat can't intuit what you" "inserted before auto-fill" "clobbered it, sorry")))))))
--- a/lisp/replace.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/replace.el Tue Feb 04 12:29:42 2003 +0000 @@ -678,7 +678,7 @@ (buf nil) (ido-ignore-item-temp-list bufs)) (while (not (string-equal - (setq buf (read-buffer + (setq buf (read-buffer (if (eq read-buffer-function 'ido-read-buffer) "Next buffer to search (C-j to end): " "Next buffer to search (RET to end): ")
--- a/lisp/resume.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/resume.el Tue Feb 04 12:29:42 2003 +0000 @@ -84,7 +84,7 @@ ;; arguments are now in reverse order (setq args (nreverse args)) ;; make sure they're not read again - (erase-buffer)) + (erase-buffer)) (resume-write-buffer-to-file (current-buffer) resume-emacs-args-file) ;; if nothing was in buffer, args will be null (or (null args)
--- a/lisp/rot13.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/rot13.el Tue Feb 04 12:29:42 2003 +0000 @@ -25,7 +25,7 @@ ;;; Commentary: ;; The entry point, `rot13-other-window', performs a Caesar cipher -;; encrypt/decrypt on the current buffer and displays the result in another +;; encrypt/decrypt on the current buffer and displays the result in another ;; window. Rot13 encryption is sometimes used on USENET as a read-at-your- ;; own-risk wrapper for material some might consider offensive, such as ;; ethnic humor.
--- a/lisp/ruler-mode.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/ruler-mode.el Tue Feb 04 12:29:42 2003 +0000 @@ -179,7 +179,7 @@ (integer :tag "Integer char value" :validate ruler-mode-character-validate))) -(defcustom ruler-mode-margins-char ?\ +(defcustom ruler-mode-margins-char ?\ "*Character used in margin areas." :group 'ruler-mode :type '(choice
--- a/lisp/s-region.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/s-region.el Tue Feb 04 12:29:42 2003 +0000 @@ -32,7 +32,7 @@ ;; Currently, s-region-move may be bound only to events that are vectors ;; of length one and whose last element is a symbol. Also, the functions -;; that are given this kind of overlay should be (interactive "p") +;; that are given this kind of overlay should be (interactive "p") ;; functions. ;; If the following keys are not already bound then...
--- a/lisp/saveplace.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/saveplace.el Tue Feb 04 12:29:42 2003 +0000 @@ -172,7 +172,7 @@ (delete-region (point-min) (point-max)) (insert-file-contents file) (goto-char (point-min)) - (setq save-place-alist + (setq save-place-alist (car (read-from-string (buffer-substring (point-min) (point-max))))) @@ -192,7 +192,7 @@ (setcdr s nil) (setq count (1+ count))) (setq s (cdr s)))))) - + (kill-buffer (current-buffer)) (message "Loading places from %s...done" file))) nil))))
--- a/lisp/scroll-all.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/scroll-all.el Tue Feb 04 12:29:42 2003 +0000 @@ -99,7 +99,7 @@ (call-interactively 'scroll-all-beginning-of-buffer-all)) ((eq this-command 'end-of-buffer) (call-interactively 'scroll-all-end-of-buffer-all)))) - + ;;;###autoload (define-minor-mode scroll-all-mode
--- a/lisp/shadowfile.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/shadowfile.el Tue Feb 04 12:29:42 2003 +0000 @@ -406,7 +406,7 @@ (if regexp (string-match (nth 2 pattern-sup) (nth 2 file-sup)) (string-equal (nth 2 pattern-sup) (nth 2 file-sup)))))) - + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; User-level Commands ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -497,7 +497,7 @@ (cons (shadow-make-group regexp sites usernames) shadow-regexp-groups)) (shadow-write-info-file))) - + (defun shadow-shadows () ;; Mostly for debugging. "Interactive function to display shadows of a buffer."
--- a/lisp/simple.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/simple.el Tue Feb 04 12:29:42 2003 +0000 @@ -955,7 +955,7 @@ (let ((modified (buffer-modified-p)) (recent-save (recent-auto-save-p))) (or (eq (selected-window) (minibuffer-window)) - (message (if (and transient-mark-mode mark-active) + (message (if (and transient-mark-mode mark-active) "Undo in region!" "Undo!"))) (unless (eq last-command 'undo) @@ -1004,8 +1004,8 @@ Call `undo-start' to get ready to undo recent changes, then call `undo-more' one or more times to undo them." (or pending-undo-list - (error (format "No further undo information%s" - (if (and transient-mark-mode mark-active) + (error (format "No further undo information%s" + (if (and transient-mark-mode mark-active) " for region" "")))) (let ((undo-in-progress t)) (setq pending-undo-list (primitive-undo count pending-undo-list)))) @@ -1528,7 +1528,7 @@ nil shell-command-switch command))) ;; Report the output. (with-current-buffer buffer - (setq mode-line-process + (setq mode-line-process (cond ((null exit-status) " - Error") ((stringp exit-status) @@ -1765,7 +1765,7 @@ the front of the kill ring, rather than being added to the list. Optional third arguments YANK-HANDLER controls how the STRING is later -inserted into a buffer; see `insert-for-yank' for details. +inserted into a buffer; see `insert-for-yank' for details. When a yank handler is specified, STRING must be non-empty (the yank handler is stored as a `yank-handler'text property on STRING). @@ -1774,11 +1774,11 @@ may access and use elements from the kill-ring directly, the STRING argument should still be a \"useful\" string for such uses." (if (> (length string) 0) - (if yank-handler + (if yank-handler (put-text-property 0 1 'yank-handler yank-handler string) (remove-list-of-text-properties 0 1 '(yank-handler) string)) (if yank-handler - (signal 'args-out-of-range + (signal 'args-out-of-range (list string "yank-handler specified for empty string")))) (if (fboundp 'menu-bar-update-yank-menu) (menu-bar-update-yank-menu string (and replace (car kill-ring)))) @@ -1798,7 +1798,7 @@ property to be set on the combined kill ring string. If the specified yank-handler arg differs from the yank-handler property of the latest kill string, STRING is added as a new kill ring element instead of -being appending to the last kill. +being appending to the last kill. If `interprogram-cut-function' is set, pass the resulting kill to it." (let* ((cur (car kill-ring))) (kill-new (if before-p (concat string cur) (concat cur string)) @@ -1868,7 +1868,7 @@ to make one entry in the kill ring. In Lisp code, optional third arg YANK-HANDLER specifies the yank-handler -text property to be set on the killed text. See `insert-for-yank'." +text property to be set on the killed text. See `insert-for-yank'." (interactive "r") (condition-case nil (let ((string (delete-and-extract-region beg end))) @@ -2537,7 +2537,7 @@ With prefix arg, `transient-mark-mode' is enabled temporarily." (interactive "P") (if arg - (if mark-active + (if mark-active (if (null transient-mark-mode) (setq transient-mark-mode 'lambda)) (setq arg nil))) @@ -3152,7 +3152,7 @@ (not (and fill-indent-according-to-mode (string-match "\\`[ \t]*\\'" prefix))) (setq fill-prefix prefix)))) - + (while (and (not give-up) (> (current-column) fc)) ;; Determine where to split the line. (let* (after-prefix @@ -3740,7 +3740,7 @@ (if make-local (make-local-variable var)) - + (set var val) ;; Force a thorough redisplay for the case that the variable @@ -3908,7 +3908,7 @@ (not (equal buffer (window-buffer (active-minibuffer-window)))))) (error "Minibuffer is not active for completion") - (unless (run-hook-with-args-until-success + (unless (run-hook-with-args-until-success 'choose-completion-string-functions choice buffer mini-p base-size) ;; Insert the completion into the buffer where it was requested. @@ -4405,10 +4405,10 @@ ; (message "You cannot modify the prompt"))) ; ; -;(setq minibuffer-prompt-properties +;(setq minibuffer-prompt-properties ; (list 'modification-hooks '(minibuffer-prompt-modification) ; 'insert-in-front-hooks '(minibuffer-prompt-insertion))) -; +; (provide 'simple) ;;; simple.el ends here
--- a/lisp/smerge-mode.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/smerge-mode.el Tue Feb 04 12:29:42 2003 +0000 @@ -4,7 +4,7 @@ ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: merge diff3 cvs conflict -;; Revision: $Id: smerge-mode.el,v 1.19 2002/10/10 13:01:14 monnier Exp $ +;; Revision: $Id: smerge-mode.el,v 1.20 2002/10/10 17:30:20 monnier Exp $ ;; This file is part of GNU Emacs. @@ -203,7 +203,7 @@ (save-excursion (goto-char (point-min)) (not (re-search-forward smerge-begin-re nil t)))) (smerge-mode -1))) - + (defun smerge-keep-all () "Keep all three versions. @@ -337,7 +337,7 @@ (_ (re-search-forward smerge-end-re)) (_ (assert (< orig-point (match-end 0)))) - + (other-end (match-beginning 0)) (end (match-end 0)) @@ -370,7 +370,7 @@ (setq base-end mine-end) (setq mine-start other-start) (setq mine-end other-end))) - + (store-match-data (list start end mine-start mine-end base-start base-end @@ -469,7 +469,7 @@ (buffer-enable-undo) (set-buffer-modified-p nil) (funcall mode)) - + (when base (setq base (generate-new-buffer (or name-base (concat "*" filename " BASE*")))) @@ -482,7 +482,7 @@ (buffer-enable-undo) (set-buffer-modified-p nil) (funcall mode))) - + ;; the rest of the code is inspired from vc.el ;; Fire up ediff. (set-buffer @@ -491,7 +491,7 @@ ;; nil 'ediff-merge-revisions-with-ancestor buffer-file-name) (ediff-merge-buffers mine other))) ;; nil 'ediff-merge-revisions buffer-file-name))) - + ;; Ediff is now set up, and we are in the control buffer. ;; Do a few further adjustments and take precautions for exit. (set (make-local-variable 'smerge-ediff-windows) config)
--- a/lisp/sort.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/sort.el Tue Feb 04 12:29:42 2003 +0000 @@ -97,7 +97,7 @@ ((consp (car (car sort-lists))) (function (lambda (a b) - (> 0 (compare-buffer-substrings + (> 0 (compare-buffer-substrings nil (car a) (cdr a) nil (car b) (cdr b)))))) (t @@ -108,7 +108,7 @@ ((consp (car (car sort-lists))) (function (lambda (a b) - (> 0 (compare-buffer-substrings + (> 0 (compare-buffer-substrings nil (car (car a)) (cdr (car a)) nil (car (car b)) (cdr (car b))))))) (t @@ -205,7 +205,7 @@ (delete-region min (1+ min)))))) ;;;###autoload -(defun sort-lines (reverse beg end) +(defun sort-lines (reverse beg end) "Sort lines in region alphabetically; argument means descending order. Called from a program, there are three arguments: REVERSE (non-nil means reverse order), BEG and END (region to sort). @@ -429,7 +429,7 @@ ;; using negative prefix arg to mean "reverse" is now inconsistent with ;; other sort-.*fields functions but then again this was before, since it ;; didn't use the magnitude of the arg to specify anything. - (interactive "P\nsRegexp specifying records to sort: + (interactive "P\nsRegexp specifying records to sort: sRegexp specifying key within record: \nr") (cond ((or (equal key-regexp "") (equal key-regexp "\\&")) (setq key-regexp 0))
--- a/lisp/soundex.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/soundex.el Tue Feb 04 12:29:42 2003 +0000 @@ -3,7 +3,7 @@ ;; Copyright (C) 1993 Free Software Foundation, Inc. ;; Author: Christian Plaunt <chris@bliss.berkeley.edu> -;; Maintainer: FSF +;; Maintainer: FSF ;; Keywords: matching ;; Created: Sat May 15 14:48:18 1993
--- a/lisp/speedbar.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/speedbar.el Tue Feb 04 12:29:42 2003 +0000 @@ -932,7 +932,7 @@ (looking-at "[0-9]+: *\\[[+-]\\] [^ \n]+ \\*?[!#]$"))] ) "Additional menu items while in file-mode.") - + (defvar speedbar-easymenu-definition-trailer (append (if (and (featurep 'custom) (fboundp 'custom-declare-variable)) @@ -981,7 +981,7 @@ (if (fboundp 'frame-parameter) (defalias 'speedbar-frame-parameter 'frame-parameter) - + (defun speedbar-frame-parameter (frame parameter) "Return FRAME's PARAMETER value." (cdr (assoc parameter (frame-parameters frame))))) @@ -2325,7 +2325,7 @@ (if tag-button-function 'speedbar-highlight-face nil) tag-button-function tag-button-data)) )) - + (defun speedbar-change-expand-button-char (char) "Change the expansion button character to CHAR for the current line." (save-excursion @@ -2639,7 +2639,7 @@ (speedbar-insert-generic-list indent lst 'speedbar-tag-expand 'speedbar-tag-find)) - + (defun speedbar-insert-etags-list (indent lst) "At level INDENT, insert the etags generated LST." (speedbar-insert-generic-list indent lst @@ -3343,7 +3343,7 @@ `speedbar-mode-functions-list' as `speedbar-line-path'." (let ((rf (speedbar-fetch-replacement-function 'speedbar-line-path))) (if rf (funcall rf depth) default-directory))) - + (defun speedbar-files-line-path (&optional depth) "Retrieve the pathname associated with the current line. This may require traversing backwards from DEPTH and combining the default @@ -3427,12 +3427,12 @@ (forward-char -2) (speedbar-do-function-pointer)) (error (speedbar-position-cursor-on-line))))) - + (defun speedbar-flush-expand-line () "Expand the line under the cursor and flush any cached information." (interactive) (speedbar-expand-line 1)) - + (defun speedbar-contract-line () "Contract the line under the cursor." (interactive) @@ -4194,7 +4194,7 @@ (defalias 'defimage-speedbar 'defimage) (if (not (fboundp 'make-glyph)) - + (defmacro defimage-speedbar (variable imagespec docstring) "Don't bother loading up an image... Argument VARIABLE is the variable to define.
--- a/lisp/startup.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/startup.el Tue Feb 04 12:29:42 2003 +0000 @@ -366,7 +366,7 @@ More precisely, this uses only the subdirectories whose names start with letters or digits; it excludes any subdirectory named `RCS' or `CVS', and any subdirectory that contains a file named `.nosearch'." - (let (dirs + (let (dirs attrs (pending (list default-directory))) ;; This loop does a breadth-first tree walk on DIR's subtree, @@ -485,7 +485,7 @@ (make-directory (file-name-directory auto-save-list-file-prefix) t) - (concat + (concat (make-temp-name (expand-file-name auto-save-list-file-prefix)) @@ -880,7 +880,7 @@ ;; Run the site-start library if it exists. The point of this file is ;; that it is run before .emacs. There is no point in doing this after ;; .emacs; that is useless. - (if site-run-file + (if site-run-file (load site-run-file t t)) ;; Sites should not disable this. Only individuals should disable @@ -907,7 +907,7 @@ (if (directory-files "~" nil "^\\.emacs\\(\\.elc?\\)?$") "~/.emacs" "~/_emacs")) - ((eq system-type 'vax-vms) + ((eq system-type 'vax-vms) "sys$login:.emacs") (t (concat "~" init-file-user "/.emacs"))))) @@ -915,7 +915,7 @@ ;; into user-init-file. (setq user-init-file t) (load user-init-file-1 t t) - + (when (eq user-init-file t) ;; If we did not find ~/.emacs, try ;; ~/.emacs.d/.emacs. @@ -933,7 +933,7 @@ ;; Don't let it be set from default.el. (when (eq user-init-file t) (setq user-init-file user-init-file-1)))) - + ;; If we loaded a compiled file, set ;; `user-init-file' to the source version if that ;; exists. @@ -951,13 +951,13 @@ source user-init-file) (sit-for 1)) (setq user-init-file source)))) - + (when (and (stringp custom-file) (not (assoc custom-file load-history))) ;; If the .emacs file has set `custom-file' but hasn't ;; loaded the file yet, let's load it. (load custom-file t t)) - + (or inhibit-default-init (let ((inhibit-startup-message nil)) ;; Users are supposed to be told their rights. @@ -1025,7 +1025,7 @@ ;; originally done before unibyte was set and is sensitive to ;; unibyte (display table, terminal coding system &c). (set-language-environment current-language-environment))) - + ;; Do this here in case the init file sets mail-host-address. (if (equal user-mail-address "") (setq user-mail-address (concat (user-login-name) "@" @@ -1039,7 +1039,7 @@ (eq font-list-limit old-font-list-limit) (eq face-ignored-fonts old-face-ignored-fonts)) (clear-face-cache))) - + (run-hooks 'after-init-hook) ;; If *scratch* exists and init file didn't change its mode, initialize it. @@ -1047,7 +1047,7 @@ (with-current-buffer "*scratch*" (if (eq major-mode 'fundamental-mode) (funcall initial-major-mode)))) - + ;; Load library for our terminal type. ;; User init file can set term-file-prefix to nil to prevent this. (and term-file-prefix (not noninteractive) (not window-system) @@ -1310,7 +1310,7 @@ display-hourglass nil minor-mode-map-alist nil buffer-undo-list t - mode-line-format (propertize "---- %b %-" + mode-line-format (propertize "---- %b %-" 'face '(:weight bold)) fancy-splash-stop-time (+ (float-time) (max 60 fancy-splash-max-time)) @@ -1357,7 +1357,7 @@ (unwind-protect (with-current-buffer (get-buffer-create "GNU Emacs") (let ((tab-width 8) - (mode-line-format (propertize "---- %b %-" + (mode-line-format (propertize "---- %b %-" 'face '(:weight bold)))) ;; The convention for this piece of code is that @@ -1448,7 +1448,7 @@ (if (and (eq (key-binding "\C-h\C-c") 'describe-copying) (eq (key-binding "\C-h\C-d") 'describe-distribution) (eq (key-binding "\C-h\C-w") 'describe-no-warranty)) - (insert + (insert "\n GNU Emacs comes with ABSOLUTELY NO WARRANTY; type C-h C-w for full details. Emacs is Free Software--Free as in Freedom--so you can redistribute copies
--- a/lisp/strokes.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/strokes.el Tue Feb 04 12:29:42 2003 +0000 @@ -1498,11 +1498,11 @@ (defsubst strokes-xpm-encode-length-as-string (length) "Given some LENGTH in [0,62) do a fast lookup of its encoding." (aref strokes-base64-chars length)) - + (defsubst strokes-xpm-decode-char (character) "Given a CHARACTER, do a fast lookup to find its corresponding integer value." (aref strokes-char-table character)) - + (defun strokes-xpm-to-compressed-string (&optional xpm-buffer) "Convert XPM in XPM-BUFFER to compressed string representing the stroke. XPM-BUFFER defaults to ` *strokes-xpm*'."
--- a/lisp/subr.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/subr.el Tue Feb 04 12:29:42 2003 +0000 @@ -1058,7 +1058,7 @@ (defun process-put (process propname value) "Change PROCESS' PROPNAME property to VALUE. It can be retrieved with `(process-get PROCESS PROPNAME)'." - (set-process-plist process + (set-process-plist process (plist-put (process-plist process) propname value))) @@ -1480,7 +1480,7 @@ if FUNCTION adjusts point before or after inserting the object. If UNDO is present and non-nil, it is a function that will be called by `yank-pop' to undo the insertion of the current object. It is - called with two arguments, the start and end of the current region. + called with two arguments, the start and end of the current region. FUNCTION may set `yank-undo-function' to override the UNDO value." (let* ((handler (and (stringp string) (get-text-property 0 'yank-handler string))) @@ -1496,7 +1496,7 @@ (setq yank-undo-function (nth 3 handler))) ;; UNDO (if (nth 4 handler) ;; COMMAND (setq this-command (nth 4 handler))))) - + (defun insert-buffer-substring-no-properties (buf &optional start end) "Insert before point a substring of buffer BUFFER, without text properties. BUFFER may be a buffer or a buffer name.
--- a/lisp/tar-mode.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/tar-mode.el Tue Feb 04 12:29:42 2003 +0000 @@ -41,7 +41,7 @@ ;; This code now understands the extra fields that GNU tar adds to tar files. ;; This interacts correctly with "uncompress.el" in the Emacs library, -;; which you get with +;; which you get with ;; ;; (autoload 'uncompress-while-visiting "uncompress") ;; (setq auto-mode-alist (cons '("\\.Z$" . uncompress-while-visiting) @@ -49,11 +49,11 @@ ;; ;; Do not attempt to use tar-mode.el with crypt.el, you will lose. -;; *************** TO DO *************** +;; *************** TO DO *************** ;; ;; o chmod should understand "a+x,og-w". ;; -;; o It's not possible to add a NEW file to a tar archive; not that +;; o It's not possible to add a NEW file to a tar archive; not that ;; important, but still... ;; ;; o The code is less efficient that it could be - in a lot of places, I @@ -64,7 +64,7 @@ ;; of an archive, where <esc> would leave you in a subfile-edit buffer. ;; (Like the Meta-R command of the Zmacs mail reader.) ;; -;; o Sometimes (but not always) reverting the tar-file buffer does not +;; o Sometimes (but not always) reverting the tar-file buffer does not ;; re-grind the listing, and you are staring at the binary tar data. ;; Typing 'g' again immediately after that will always revert and re-grind ;; it, though. I have no idea why this happens. @@ -76,7 +76,7 @@ ;; might be a problem if the tar write-file-hook does not come *first* on ;; the list. ;; -;; o Block files, sparse files, continuation files, and the various header +;; o Block files, sparse files, continuation files, and the various header ;; types aren't editable. Actually I don't know that they work at all. ;; Rationale: @@ -103,7 +103,7 @@ (defcustom tar-anal-blocksize 20 "*The blocksize of tar files written by Emacs, or nil, meaning don't care. The blocksize of a tar file is not really the size of the blocks; rather, it is -the number of blocks written with one system call. When tarring to a tape, +the number of blocks written with one system call. When tarring to a tape, this is the size of the *tape* blocks, but when writing to a file, it doesn't matter much. The only noticeable difference is that if a tar file does not have a blocksize of 20, tar will tell you that; all this really controls is @@ -117,7 +117,7 @@ tar file will update its datestamp. If false, the datestamp is unchanged. You may or may not want this - it is good in that you can tell when a file in a tar archive has been changed, but it is bad for the same reason that -editing a file in the tar archive at all is bad - the changed version of +editing a file in the tar archive at all is bad - the changed version of the file never exists on disk." :type 'boolean :group 'tar) @@ -201,7 +201,7 @@ (defun tar-header-block-tokenize (string) "Return a `tar-header' structure. -This is a list of name, mode, uid, gid, size, +This is a list of name, mode, uid, gid, size, write-date, checksum, link-type, and link-name." (cond ((< (length string) 512) nil) (;(some 'plusp string) ; <-- oops, massive cycle hog! @@ -555,15 +555,15 @@ ;;;###autoload (define-derived-mode tar-mode nil "Tar" "Major mode for viewing a tar file as a dired-like listing of its contents. -You can move around using the usual cursor motion commands. +You can move around using the usual cursor motion commands. Letters no longer insert themselves. Type `e' to pull a file out of the tar file and into its own buffer; or click mouse-2 on the file's line in the Tar mode buffer. Type `c' to copy an entry from the tar file into another file on disk. -If you edit a sub-file of this archive (as with the `e' command) and -save it with Control-x Control-s, the contents of that buffer will be -saved back into the tar-file buffer; in this way you can edit a file +If you edit a sub-file of this archive (as with the `e' command) and +save it with Control-x Control-s, the contents of that buffer will be +saved back into the tar-file buffer; in this way you can edit a file inside of a tar archive without extracting it and re-archiving it. See also: variables `tar-update-datestamp' and `tar-anal-blocksize'. @@ -764,7 +764,7 @@ (decode-coding-region (point-min) (point-max) coding) (set-buffer-file-coding-system coding)) ;; Set the default-directory to the dir of the - ;; superior buffer. + ;; superior buffer. (setq default-directory (save-excursion (set-buffer tar-buffer) @@ -775,7 +775,7 @@ (make-local-variable 'tar-superior-descriptor) (setq tar-superior-buffer tar-buffer) (setq tar-superior-descriptor descriptor) - (setq buffer-read-only read-only-p) + (setq buffer-read-only read-only-p) (set-buffer-modified-p nil) (tar-subfile-mode 1)) (set-buffer tar-buffer)) @@ -1064,7 +1064,7 @@ (delete-region p (point)) (insert (tar-header-block-summarize tokens) "\n") (setq tar-header-offset (position-bytes (point-max)))) - + (widen) (set-buffer-multibyte nil) (let* ((start (+ (tar-desc-data-start descriptor) tar-header-offset -513)))
--- a/lisp/tempo.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/tempo.el Tue Feb 04 12:29:42 2003 +0000 @@ -279,7 +279,7 @@ (command-name template-name)) (set template-name elements) (fset command-name (list 'lambda (list '&optional 'arg) - (or documentation + (or documentation (concat "Insert a " name ".")) (list 'interactive "*P") (list 'tempo-insert-template (list 'quote @@ -540,7 +540,7 @@ (setq lp (cdr lp))) (if (not (= mark (car lp))) (setcdr lp (cons mark (cdr lp)))))))) - + ;;; ;;; tempo-forward-mark @@ -577,7 +577,7 @@ last)))) (if prev-mark (goto-char prev-mark)))) - + ;;; ;;; tempo-add-tag
--- a/lisp/term.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/term.el Tue Feb 04 12:29:42 2003 +0000 @@ -2688,7 +2688,7 @@ (term-move-columns columns) (delete-region pos (point)))) (setq term-current-column nil) - + (put-text-property old-point (point) 'face term-current-face) ;; If the last char was written in last column, @@ -3739,7 +3739,7 @@ (t (car term-completion-addsuffix)))) (filesuffix (cond ((not term-completion-addsuffix) "") ((not (consp term-completion-addsuffix)) " ") - (t (cdr term-completion-addsuffix)))) + (t (cdr term-completion-addsuffix)))) (filename (or (term-match-partial-filename) "")) (pathdir (file-name-directory filename)) (pathnondir (file-name-nondirectory filename))
--- a/lisp/thingatpt.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/thingatpt.el Tue Feb 04 12:29:42 2003 +0000 @@ -32,11 +32,11 @@ ;; forward-"thing" operator (eg. forward-word, forward-line). ;; ;; Special cases are allowed for using properties associated with the named -;; "thing": +;; "thing": ;; ;; forward-op Function to call to skip forward over a "thing" (or ;; with a negative argument, backward). -;; +;; ;; beginning-op Function to call to skip to the beginning of a "thing". ;; end-op Function to call to skip to the end of a "thing". ;; @@ -80,14 +80,14 @@ (condition-case nil (save-excursion ;; Try moving forward, then back. - (let ((end (progn - (funcall - (or (get thing 'end-op) + (let ((end (progn + (funcall + (or (get thing 'end-op) (function (lambda () (forward-thing thing 1))))) (point))) - (beg (progn - (funcall - (or (get thing 'beginning-op) + (beg (progn + (funcall + (or (get thing 'beginning-op) (function (lambda () (forward-thing thing -1))))) (point)))) (if (not (and beg (> beg orig))) @@ -95,9 +95,9 @@ ;; it worked. But END may not be the real end. ;; So find the real end that corresponds to BEG. (let ((real-end - (progn - (funcall - (or (get thing 'end-op) + (progn + (funcall + (or (get thing 'end-op) (function (lambda () (forward-thing thing 1))))) (point)))) (if (and beg real-end (<= beg orig) (<= orig real-end)) @@ -105,20 +105,20 @@ (goto-char orig) ;; Try a second time, moving backward first and then forward, ;; so that we can find a thing that ends at ORIG. - (let ((beg (progn - (funcall - (or (get thing 'beginning-op) + (let ((beg (progn + (funcall + (or (get thing 'beginning-op) (function (lambda () (forward-thing thing -1))))) (point))) - (end (progn - (funcall - (or (get thing 'end-op) + (end (progn + (funcall + (or (get thing 'end-op) (function (lambda () (forward-thing thing 1))))) (point))) (real-beg - (progn - (funcall - (or (get thing 'beginning-op) + (progn + (funcall + (or (get thing 'beginning-op) (function (lambda () (forward-thing thing -1))))) (point)))) (if (and real-beg end (<= real-beg orig) (<= orig end)) @@ -137,7 +137,7 @@ (if (get thing 'thing-at-point) (funcall (get thing 'thing-at-point)) (let ((bounds (bounds-of-thing-at-point thing))) - (if bounds + (if bounds (buffer-substring (car bounds) (cdr bounds)))))) ;; Go to beginning/end @@ -152,9 +152,9 @@ (or bounds (error "No %s here" thing)) (goto-char (cdr bounds)))) -;; Special cases +;; Special cases -;; Lines +;; Lines ;; bolp will be false when you click on the last line in the buffer ;; and it has no final newline. @@ -162,7 +162,7 @@ (put 'line 'beginning-op (function (lambda () (if (bolp) (forward-line -1) (beginning-of-line))))) -;; Sexps +;; Sexps (defun in-string-p () (let ((orig (point))) @@ -188,7 +188,7 @@ (put 'sexp 'beginning-op 'beginning-of-sexp) -;; Lists +;; Lists (put 'list 'end-op (function (lambda () (up-list 1)))) (put 'list 'beginning-op 'backward-sexp) @@ -198,7 +198,7 @@ (defvar thing-at-point-file-name-chars "-~/[:alnum:]_.${}#%,:" "Characters allowable in filenames.") -(put 'filename 'end-op +(put 'filename 'end-op (lambda () (re-search-forward (concat "\\=[" thing-at-point-file-name-chars "]*") nil t))) @@ -339,11 +339,11 @@ (goto-char (car bounds)) (error "No URL here")))))) -;; Whitespace +;; Whitespace (defun forward-whitespace (arg) (interactive "p") - (if (natnump arg) + (if (natnump arg) (re-search-forward "[ \t]+\\|\n" nil 'move arg) (while (< arg 0) (if (re-search-backward "[ \t]+\\|\n" nil 'move) @@ -351,35 +351,35 @@ (skip-chars-backward " \t"))) (setq arg (1+ arg))))) -;; Buffer +;; Buffer (put 'buffer 'end-op (lambda () (goto-char (point-max)))) (put 'buffer 'beginning-op (lambda () (goto-char (point-min)))) -;; Symbols +;; Symbols (defun forward-symbol (arg) (interactive "p") - (if (natnump arg) + (if (natnump arg) (re-search-forward "\\(\\sw\\|\\s_\\)+" nil 'move arg) (while (< arg 0) (if (re-search-backward "\\(\\sw\\|\\s_\\)+" nil 'move) (skip-syntax-backward "w_")) (setq arg (1+ arg))))) -;; Syntax blocks +;; Syntax blocks (defun forward-same-syntax (&optional arg) (interactive "p") (while (< arg 0) - (skip-syntax-backward + (skip-syntax-backward (char-to-string (char-syntax (char-after (1- (point)))))) (setq arg (1+ arg))) (while (> arg 0) (skip-syntax-forward (char-to-string (char-syntax (char-after (point))))) (setq arg (1- arg)))) -;; Aliases +;; Aliases (defun word-at-point () (thing-at-point 'word)) (defun sentence-at-point () (thing-at-point 'sentence)) @@ -388,7 +388,7 @@ "Read a lisp expression from STR. Signal an error if the entire string was not used." (let* ((read-data (read-from-string str)) - (more-left + (more-left (condition-case nil ;; The call to `ignore' suppresses a compiler warning. (progn (ignore (read-from-string (substring str (cdr read-data)))) @@ -398,8 +398,8 @@ (error "Can't read whole string") (car read-data)))) -(defun form-at-point (&optional thing pred) - (let ((sexp (condition-case nil +(defun form-at-point (&optional thing pred) + (let ((sexp (condition-case nil (read-from-whole-string (thing-at-point (or thing 'sexp))) (error nil)))) (if (or (not pred) (funcall pred sexp)) sexp)))
--- a/lisp/timer.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/timer.el Tue Feb 04 12:29:42 2003 +0000 @@ -261,7 +261,7 @@ (let ((high (- (car time) (aref timer 1))) (low (- (nth 1 time) (aref timer 2)))) (+ low (* high 65536)))) - + (defun timer-event-handler (timer) "Call the handler for the timer TIMER. This function is called, by name, directly by the C code."
--- a/lisp/tooltip.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/tooltip.el Tue Feb 04 12:29:42 2003 +0000 @@ -286,7 +286,7 @@ (defun tooltip-set-param (alist key value) "Change the value of KEY in alist ALIST to VALUE. -If there's no association for KEY in ALIST, add one, otherwise +If there's no association for KEY in ALIST, add one, otherwise change the existing association. Value is the resulting alist." (let ((param (assq key alist))) (if (consp param) @@ -321,7 +321,7 @@ tooltip-hide-delay tooltip-x-offset tooltip-y-offset)) - (error + (error (message "Error while displaying tooltip: %s" error) (sit-for 1) (message "%s" text))))) @@ -411,7 +411,7 @@ (message "Dereferencing is now %s." (if tooltip-gud-dereference "on" "off")))) -; This will only display data that comes in one chunk. +; This will only display data that comes in one chunk. ; Larger arrays (say 400 elements) are displayed in ; the tootip incompletely and spill over into the gud buffer. ; Switching the process-filter creates timing problems and @@ -455,16 +455,16 @@ (let ((cmd (tooltip-gud-print-command expr))) (unless (null cmd) ; CMD can be nil if unknown debugger (case gud-minor-mode - (gdba (gdb-enqueue-input + (gdba (gdb-enqueue-input (list (concat cmd "\n") 'gdb-tooltip-print))) - (t + (t (setq tooltip-gud-original-filter (process-filter process)) (set-process-filter process 'tooltip-gud-process-output) (gud-basic-call cmd))) expr))))))) (defun gdb-tooltip-print () - (tooltip-show + (tooltip-show (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer) (buffer-string)))) @@ -488,7 +488,7 @@ ;; Keep what we have. ) (t - ;; A different help. Remove a previous tooltip, and + ;; A different help. Remove a previous tooltip, and ;; display a new one, with some delay. (tooltip-hide) (tooltip-start-delayed-tip)))))
--- a/lisp/vc-rcs.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/vc-rcs.el Tue Feb 04 12:29:42 2003 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> -;; $Id: vc-rcs.el,v 1.34 2003/01/03 15:27:35 spiegel Exp $ +;; $Id: vc-rcs.el,v 1.35 2003/01/07 08:28:15 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -143,9 +143,9 @@ (cond ((string-match ".rw..-..-." (nth 8 (file-attributes file))) (vc-file-setprop file 'vc-checkout-model 'implicit) - (setq state - (if (vc-rcs-workfile-is-newer file) - 'edited + (setq state + (if (vc-rcs-workfile-is-newer file) + 'edited 'up-to-date))) ((string-match ".r-..-..-." (nth 8 (file-attributes file))) (vc-file-setprop file 'vc-checkout-model 'locking)))) @@ -162,7 +162,7 @@ (if (file-ownership-preserved-p file) 'edited (vc-user-login-name owner-uid)) - (if (vc-rcs-workfile-is-newer file) + (if (vc-rcs-workfile-is-newer file) 'edited 'up-to-date))) (t @@ -243,7 +243,7 @@ (if (stringp vc-rcs-register-switches) (list vc-rcs-register-switches) vc-rcs-register-switches)))) - + (and (not (file-exists-p subdir)) (not (directory-files (file-name-directory file) nil ".*,v$" t)) @@ -305,7 +305,7 @@ (and (string= (file-name-nondirectory (directory-file-name dir)) "RCS") ;; check whether RCS dir is empty, i.e. it does not ;; contain any files except "." and ".." - (not (directory-files dir nil + (not (directory-files dir nil "^\\([^.]\\|\\.[^.]\\|\\.\\.[^.]\\).*")) (yes-or-no-p (format "Directory %s is empty; remove it? " dir)) (delete-directory dir)))) @@ -317,7 +317,7 @@ vc-checkin-switches))) (let ((old-version (vc-workfile-version file)) new-version (default-branch (vc-file-getprop file 'vc-rcs-default-branch))) - ;; Force branch creation if an appropriate + ;; Force branch creation if an appropriate ;; default branch has been set. (and (not rev) default-branch @@ -351,7 +351,7 @@ ((and old-version new-version (not (string= (vc-branch-part old-version) (vc-branch-part new-version)))) - (vc-rcs-set-default-branch file + (vc-rcs-set-default-branch file (if (vc-trunk-p new-version) nil (vc-branch-part new-version))) ;; If this is an old RCS release, we might have @@ -407,7 +407,7 @@ (concat "-r" rev) (let ((workrev (vc-workfile-version file))) (if workrev - (concat "-r" + (concat "-r" (if (not rev) ;; no revision specified: ;; use current workfile version @@ -428,7 +428,7 @@ (vc-file-setprop file 'vc-workfile-version new-version) ;; if necessary, adjust the default branch (and rev (not (string= rev "")) - (vc-rcs-set-default-branch + (vc-rcs-set-default-branch file (if (vc-rcs-latest-on-branch-p file new-version) (if (vc-trunk-p new-version) nil @@ -439,7 +439,7 @@ (defun vc-rcs-revert (file &optional contents-done) "Revert FILE to the version it was based on." (vc-do-command nil 0 "co" (vc-name file) "-f" - (concat (if (eq (vc-state file) 'edited) "-u" "-r") + (concat (if (eq (vc-state file) 'edited) "-u" "-r") (vc-workfile-version file)))) (defun vc-rcs-cancel-version (file editable) @@ -483,7 +483,7 @@ "Steal the lock on the current workfile for FILE and revision REV. Needs RCS 5.6.2 or later for -M." (vc-do-command nil 0 "rcs" (vc-name file) "-M" (concat "-u" rev)) - ;; Do a real checkout after stealing the lock, so that we see + ;; Do a real checkout after stealing the lock, so that we see ;; expanded headers. (vc-do-command nil 0 "co" (vc-name file) "-f" (concat "-l" rev)))
--- a/lisp/vc-sccs.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/vc-sccs.el Tue Feb 04 12:29:42 2003 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> -;; $Id: vc-sccs.el,v 1.19 2002/11/13 12:37:58 spiegel Exp $ +;; $Id: vc-sccs.el,v 1.20 2002/12/26 14:07:15 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -28,10 +28,10 @@ ;;; Code: -(eval-when-compile +(eval-when-compile (require 'vc)) -;;; +;;; ;;; Customization options ;;; @@ -242,7 +242,7 @@ ;; the file in the right place. (setq default-directory (file-name-directory file)) - (and rev (or (string= rev "") + (and rev (or (string= rev "") (not (stringp rev))) (setq rev nil)) (apply 'vc-do-command nil 0 "get" (vc-name file) @@ -294,7 +294,7 @@ "Get a difference report using SCCS between two versions of FILE." (setq oldvers (vc-sccs-lookup-triple file oldvers)) (setq newvers (vc-sccs-lookup-triple file newvers)) - (apply 'vc-do-command "*vc-diff*" 1 "vcdiff" (vc-name file) + (apply 'vc-do-command "*vc-diff*" 1 "vcdiff" (vc-name file) (append (list "-q" (and oldvers (concat "-r" oldvers)) (and newvers (concat "-r" newvers)))
--- a/lisp/vc.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/vc.el Tue Feb 04 12:29:42 2003 +0000 @@ -6,7 +6,7 @@ ;; Maintainer: Andre Spiegel <spiegel@gnu.org> ;; Keywords: tools -;; $Id: vc.el,v 1.346 2002/11/03 15:08:29 spiegel Exp $ +;; $Id: vc.el,v 1.347 2002/12/26 14:04:21 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -148,7 +148,7 @@ ;; contents with those of the master version. If the backend does not ;; have such a brief-comparison feature, the default implementation of ;; this function can be used, which delegates to a full -;; vc-BACKEND-diff. (Note that vc-BACKEND-diff must not run +;; vc-BACKEND-diff. (Note that vc-BACKEND-diff must not run ;; asynchronously in this case.) ;; ;; - mode-line-string (file) @@ -722,7 +722,7 @@ (defun vc-default-previous-version (backend file rev) "Guess the version number immediately preceding REV for FILE. This default implementation works for <major>.<minor>-style version numbers -as used by RCS and CVS." +as used by RCS and CVS." (let ((branch (vc-branch-part rev)) (minor-num (string-to-number (vc-minor-part rev)))) (when branch @@ -782,7 +782,7 @@ (error (format "File not under version control: `%s'" file))) (unless (vc-editable-p ,filevar) (let ((state (vc-state ,filevar))) - (if (stringp state) + (if (stringp state) (error (format "`%s' is locking `%s'" state ,filevar)) (vc-checkout ,filevar t)))) (save-excursion @@ -1787,7 +1787,7 @@ (setq rel1-default (vc-workfile-version file))) ;; if the file is not locked, use last and previous version as default (t - (setq rel1-default (vc-call previous-version file + (setq rel1-default (vc-call previous-version file (vc-workfile-version file))) (if (string= rel1-default "") (setq rel1-default nil)) (setq rel2-default (vc-workfile-version file)))) @@ -2187,7 +2187,7 @@ Replace various columns with version control information, VC-INFO. This code, like dired, assumes UNIX -l format." (beginning-of-line) - (when (re-search-forward + (when (re-search-forward ;; Match link count, owner, group, size. Group may be missing, ;; and only the size is present in OS/2 -l format. "^..[drwxlts-]+ \\( *[0-9]+\\( [^ ]+ +\\([^ ]+ +\\)?[0-9]+\\)?\\) " @@ -2514,7 +2514,7 @@ "Update the current buffer's file to the latest version on its branch. If the file contains no changes, and is not locked, then this simply replaces the working file with the latest version on its branch. If the file contains -changes, and the backend supports merging news, then any recent changes from +changes, and the backend supports merging news, then any recent changes from the current branch are merged into the working file." (interactive) (vc-ensure-vc-buffer) @@ -2524,15 +2524,15 @@ (vc-checkout file nil "") (if (eq (vc-checkout-model file) 'locking) (if (eq (vc-state file) 'edited) - (error - (substitute-command-keys + (error + (substitute-command-keys "File is locked--type \\[vc-revert-buffer] to discard changes")) - (error + (error (substitute-command-keys - "Unexpected file state (%s)--type \\[vc-next-action] to correct") + "Unexpected file state (%s)--type \\[vc-next-action] to correct") (vc-state file))) (if (not (vc-find-backend-function (vc-backend file) 'merge-news)) - (error "Sorry, merging news is not implemented for %s" + (error "Sorry, merging news is not implemented for %s" (vc-backend file)) (vc-call merge-news file) (vc-resynch-window file t t))))))
--- a/lisp/version.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/version.el Tue Feb 04 12:29:42 2003 +0000 @@ -53,13 +53,13 @@ Don't use this function in programs to choose actions according to the system configuration; look at `system-configuration' instead." (interactive "P") - (let ((version-string + (let ((version-string (format (if (not (interactive-p)) "GNU Emacs %s (%s%s%s)\n of %s on %s" "GNU Emacs %s (%s%s%s) of %s on %s") emacs-version system-configuration - (cond ((featurep 'motif) + (cond ((featurep 'motif) (concat ", " (substring motif-version-string 4))) ((featurep 'x-toolkit) ", X toolkit") (t "")) @@ -70,7 +70,7 @@ "") (format-time-string "%Y-%m-%d" emacs-build-time) emacs-build-system))) - (if here + (if here (insert version-string) (if (interactive-p) (message "%s" version-string)
--- a/lisp/view.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/view.el Tue Feb 04 12:29:42 2003 +0000 @@ -700,7 +700,7 @@ ; (goto-char (point-max)) ; (beginning-of-line)) ; (view-recenter)) - + (defun View-goto-line (&optional line) "Move to first (or prefix LINE) line in View mode. Display is centered at LINE. @@ -792,7 +792,7 @@ See also `View-scroll-page-forward'." (interactive "P") (view-scroll-lines lines t view-page-size nil)) - + (defun View-scroll-page-forward-set-page-size (&optional lines) "Scroll forward LINES lines in View mode, setting the \"page size\". This is the number of lines which \\[View-scroll-page-forward] and @@ -866,7 +866,7 @@ (goto-char (or (mark t) (point-min))) (pop-mark) (view-recenter)) - + (defun View-search-regexp-forward (n regexp) "Search forward for first (or prefix Nth) occurrence of REGEXP in View mode.
--- a/lisp/vms-patch.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/vms-patch.el Tue Feb 04 12:29:42 2003 +0000 @@ -147,7 +147,7 @@ (< 32 (setq this-char (aref args end))) (> 127 this-char)) (setq end (1+ end))) - (setq command-line-args (append + (setq command-line-args (append command-line-args (list (substring args beg end)))) (setq beg (1+ end)))
--- a/lisp/which-func.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/which-func.el Tue Feb 04 12:29:42 2003 +0000 @@ -65,7 +65,7 @@ ;; Variables for customization ;; --------------------------- -;; +;; (defvar which-func-unknown "???" "String to display in the mode line when current function is unknown.")
--- a/lisp/wid-browse.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/wid-browse.el Tue Feb 04 12:29:42 2003 +0000 @@ -41,18 +41,18 @@ (defvar widget-browse-mode-map nil "Keymap for `widget-browse-mode'.") - + (unless widget-browse-mode-map (setq widget-browse-mode-map (make-sparse-keymap)) (set-keymap-parent widget-browse-mode-map widget-keymap) (define-key widget-browse-mode-map "q" 'bury-buffer)) -(easy-menu-define widget-browse-mode-customize-menu +(easy-menu-define widget-browse-mode-customize-menu widget-browse-mode-map "Menu used in widget browser buffers." (customize-menu-create 'widgets)) -(easy-menu-define widget-browse-mode-menu +(easy-menu-define widget-browse-mode-menu widget-browse-mode-map "Menu used in widget browser buffers." '("Widget" @@ -109,7 +109,7 @@ ;;;###autoload (defun widget-browse (widget) "Create a widget browser for WIDGET." - (interactive (list (completing-read "Widget: " + (interactive (list (completing-read "Widget: " obarray (lambda (symbol) (get symbol 'widget-type)) @@ -129,7 +129,7 @@ (kill-buffer (get-buffer-create "*Browse Widget*")) (switch-to-buffer (get-buffer-create "*Browse Widget*"))) (widget-browse-mode) - + ;; Quick way to get out. ;; (widget-create 'push-button ;; :action (lambda (widget &optional event) @@ -192,7 +192,7 @@ :action 'widget-browse-action) (defun widget-browse-action (widget &optional event) - ;; Create widget browser for WIDGET's :value. + ;; Create widget browser for WIDGET's :value. (widget-browse (widget-get widget :value))) (defun widget-browse-value-create (widget) @@ -290,7 +290,7 @@ (add-to-list 'minor-mode-alist '(widget-minor-mode " Widget")) -(add-to-list 'minor-mode-map-alist +(add-to-list 'minor-mode-map-alist (cons 'widget-minor-mode widget-minor-mode-map)) ;;; The End:
--- a/lisp/widget.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/widget.el Tue Feb 04 12:29:42 2003 +0000 @@ -25,7 +25,7 @@ ;; Boston, MA 02111-1307, USA. ;;; Commentary: -;; +;; ;; The widget library is partially documented in the `widget' Info ;; file. ;; @@ -50,15 +50,15 @@ ;;;(define-widget-keywords :documentation-indent ;;; :complete-function :complete :button-overlay -;;; :field-overlay -;;; :documentation-shown :button-prefix -;;; :button-suffix :mouse-down-action :glyph-up :glyph-down :glyph-inactive +;;; :field-overlay +;;; :documentation-shown :button-prefix +;;; :button-suffix :mouse-down-action :glyph-up :glyph-down :glyph-inactive ;;; :prompt-internal :prompt-history :prompt-match -;;; :prompt-value :deactivate :active +;;; :prompt-value :deactivate :active ;;; :inactive :activate :sibling-args :delete-button-args -;;; :insert-button-args :append-button-args :button-args +;;; :insert-button-args :append-button-args :button-args ;;; :tag-glyph :off-glyph :on-glyph :valid-regexp -;;; :secret :sample-face :sample-face-get :case-fold +;;; :secret :sample-face :sample-face-get :case-fold ;;; :create :convert-widget :format :value-create :offset :extra-offset ;;; :tag :doc :from :to :args :value :action ;;; :value-set :value-delete :match :parent :delete :menu-tag-get @@ -68,7 +68,7 @@ ;;; :indent :size :value-to-external :validate :error :directory ;;; :must-match :type-error :value-inline :inline :match-inline :greedy ;;; :button-face-get :button-face :value-face :keymap :entry-from -;;; :entry-to :help-echo :documentation-property :tab-order) +;;; :entry-to :help-echo :documentation-property :tab-order) (defun define-widget (name class doc &rest args) "Define a new widget type named NAME from CLASS.
--- a/lisp/window.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/window.el Tue Feb 04 12:29:42 2003 +0000 @@ -525,7 +525,7 @@ (not (eq frame (window-frame mini-window))) (< (nth 3 edges) (nth 1 (window-edges mini-window))) - (> (nth 1 edges) + (> (nth 1 edges) (frame-parameter frame 'menu-bar-lines)))))) (fit-window-to-buffer window (window-height window)))))
--- a/lisp/winner.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/winner.el Tue Feb 04 12:29:42 2003 +0000 @@ -128,11 +128,11 @@ while (= a b) finally return (< a b))))) -(defun winner-win-data () +(defun winner-win-data () ;; Essential properties of the windows in the selected frame. (loop for win in (winner-sorted-window-list) collect (cons (winner-edges win) (window-buffer win)))) - + ;; This variable is updated with the current window configuration ;; every time it changes. (defvar winner-currents nil) @@ -262,7 +262,7 @@ ((window-live-p chosen) (select-window chosen)) ((window-minibuffer-p (selected-window)) (other-window 1))) - (when (/= minisize (window-height miniwin)) + (when (/= minisize (window-height miniwin)) (letf (((selected-window) miniwin) ) (setf (window-height) minisize))))) @@ -279,7 +279,7 @@ (letf (((current-buffer))) (loop with alist for win in (winner-window-list) - for entry = + for entry = (or (assq (window-buffer win) alist) (car (push (list (set-buffer (window-buffer win)) (cons (mark t) (winner-active-region))) @@ -335,7 +335,7 @@ ;; Restore marks (letf (((current-buffer))) - (loop for buf in buffers + (loop for buf in buffers for entry = (cadr (assq buf winner-point-alist)) do (progn (set-buffer buf) (set-mark (car entry)) @@ -384,7 +384,7 @@ (not winner-mode)))) (cond ;; Turn mode on - (on-p + (on-p (setq winner-mode t) (cond ((winner-hook-installed-p) @@ -435,16 +435,16 @@ (message "Winner undo (%d / %d)" winner-undo-counter (1- (ring-length winner-pending-undo-ring))))))) - - - + + + (defun winner-undo-this () ; The heart of winner undo. - (loop + (loop (cond ((>= winner-undo-counter (ring-length winner-pending-undo-ring)) (message "No further window configuration undo information") (return nil)) - + ((and ; If possible configuration (winner-set (ring-ref winner-pending-undo-ring winner-undo-counter)) @@ -455,7 +455,7 @@ (return t)) ; .. then everything is fine. (t ;; Otherwise, discharge it (and try the next one). (ring-remove winner-pending-undo-ring winner-undo-counter))))) - + (defun winner-redo () ; If you change your mind. "Restore a more recent window configuration saved by Winner mode."
--- a/lisp/xscheme.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/xscheme.el Tue Feb 04 12:29:42 2003 +0000 @@ -215,7 +215,7 @@ (kill-local-variable 'xscheme-buffer-name) (kill-local-variable 'xscheme-process-name) (kill-local-variable 'xscheme-runlight)) - + (defun verify-xscheme-buffer (buffer-name localp) (if (and localp (xscheme-process-buffer-current-p)) (error "Cannot change the interaction buffer of an interaction buffer"))
--- a/lisp/xt-mouse.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/xt-mouse.el Tue Feb 04 12:29:42 2003 +0000 @@ -65,7 +65,7 @@ (vector down-where down-command) (vector down-command)))) (is-click (string-match "^mouse" (symbol-name (car down))))) - + (unless is-click (unless (and (eq (read-char) ?\e) (eq (read-char) ?\[) @@ -140,7 +140,7 @@ (max 0 (1- (window-hscroll))))) (point)) where)) - (mouse (intern + (mouse (intern ;; For buttons > 3, the release-event looks ;; differently (see xc/programs/xterm/button.c, ;; function EditorButton), and there seems to come in