From d9c1ce9ddcd2492142cc3f9ace70a09505163938 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 13 Dec 2004 19:46:36 +0000 Subject: [PATCH] (file-cache-add-directory-using-find): Only set up file-cache-find-command-posix-flag if we will use it. --- etc/NEWS | 11 +++++++++-- etc/TODO | 3 +++ lisp/ChangeLog | 33 +++++++++++++++++++++++++++++++++ lisp/filecache.el | 7 ++++--- src/ChangeLog | 11 +++++++++++ 5 files changed, 60 insertions(+), 5 deletions(-) diff --git a/etc/NEWS b/etc/NEWS index 589ebc0ff2f..437bc1be908 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -2371,6 +2371,11 @@ configuration files. * Lisp Changes in Emacs 21.4 +** (while-no-input BODY...) runs BODY, but only so lomg as no input +arrives. If the user types or clicks anything, BODY stops as if a +quit had occurred. while-no-input returns the value of BODY, if BODY +finishes. It returns nil if BODY was aborted. + --- ** To manipulate the File menu using easy-menu, you must specify the proper name "file". In previous Emacs versions, you had to specify @@ -2620,8 +2625,10 @@ strings by giving that character a non-nil `cursor' text property. around potentially blocking or long-running code in timers and post-command-hooks. -** An unconditional face specification in defface (one where the DISPLAY part -is just t) applies to all cases and does not override subsequent entries. +** The first face specification element in a defface can specify +`default' instead of frame classification. Then its attributes act as +defaults that apply to all the subsequent cases (and may be overridden +by them). +++ ** New face attribute `min-colors' can be used to tailor the face color diff --git a/etc/TODO b/etc/TODO index 5c674c5c06e..12d942e9402 100644 --- a/etc/TODO +++ b/etc/TODO @@ -15,6 +15,9 @@ to the FSF. ought to be possible to omit text which is invisible (due to a text-property, overlay, or selective display) from the kill-ring. +** Redefine define-generic-mode as a macro, so the compiler + sees the definitions it generates. + * Important features: ** Provide user-friendly ways to list all available font families, diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b5cc31b9363..003efcc400e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,36 @@ +2004-12-13 Richard M. Stallman + + * filecache.el (file-cache-add-directory-using-find): + Only set up file-cache-find-command-posix-flag if we will use it. + + * bindings.el (mode-line-buffer-identification-keymap): + Don't cancel the mode-line's usual down-mouse-1 binding. + + * cus-edit.el (custom-face-selected): Handle `default' specs. + (custom-face-edit): Increase extra-offset. + (custom-display): Handle `default' specs. + + * xml.el (xml-name-re, xml-entity-value-re): Add defvars. + + * emacs-lisp/elint.el (elint-standard-variables) + (elint-unknown-builtin-args): Move definitions up. + + * net/browse-url.el (browse-url-url-at-point): Add autoload. + + * info.el (info-xref-visited): Use `default' instead of t. + (Info-try-follow-nearest-node): Don't explicitly load browse-url. + + * faces.el (header-line, mode-line-inactive, tool-bar): + Use `default' instead of t for setting the defaults. + (face-spec-choose): Separate `t' from `default'. + + * subr.el (while-no-input): New macro. + +2004-12-13 Frederik Fouvry (tiny change) + + * filecache.el (file-cache-add-directory-using-find): + Only test file-cache-find-command-posix-flag on some systems. + 2004-12-13 Stefan Monnier * vc-svn.el (vc-svn-repository-hostname): Adjust to new format. diff --git a/lisp/filecache.el b/lisp/filecache.el index df1f1b548d0..90287ba5eef 100644 --- a/lisp/filecache.el +++ b/lisp/filecache.el @@ -337,9 +337,10 @@ in each directory, not to the directory list itself." Find is run in DIRECTORY." (interactive "DAdd files under directory: ") (let ((dir (expand-file-name directory))) - (if (eq file-cache-find-command-posix-flag 'not-defined) - (setq file-cache-find-command-posix-flag - (executable-command-find-posix-p file-cache-find-command))) + (when (memq system-type '(windows-nt cygwin)) + (if (eq file-cache-find-command-posix-flag 'not-defined) + (setq file-cache-find-command-posix-flag + (executable-command-find-posix-p file-cache-find-command)))) (set-buffer (get-buffer-create file-cache-buffer)) (erase-buffer) (call-process file-cache-find-command nil diff --git a/src/ChangeLog b/src/ChangeLog index 92f24f2af70..7e21c345192 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,14 @@ +2004-12-13 Richard M. Stallman + + * eval.c (syms_of_eval) : Doc fix. + + * keyboard.c (Vthrow_on_input): New variable. + (syms_of_keyboard): Defvar and initialize it. + (kbd_buffer_store_event_hold): Handle Vthrow_on_input. + + * lisp.h (QUIT): Check for Vthrow_on_input. + (Vthrow_on_input): Declare it. + 2004-12-13 Kim F. Storm * xdisp.c (set_iterator_to_next): Reset stop_charpos after display -- 2.39.2