diff options
| author | Karl Heuer <[email protected]> | 1995-04-25 22:30:38 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1995-04-25 22:30:38 +0000 |
| commit | 74def44fd90a0a45cbe8067d5c8a72ab257362e9 (patch) | |
| tree | 2604c30109c246126262cbcc0643652661913819 | |
| parent | a716ac738ac08158d8e3403d126065cbe47482fe (diff) | |
(find-dired-sentinel): Use force-mode-line-update.
| -rw-r--r-- | lisp/find-dired.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/find-dired.el b/lisp/find-dired.el index 427f82a9d6..1401603607 100644 --- a/lisp/find-dired.el +++ b/lisp/find-dired.el @@ -6,8 +6,8 @@ ;; Sebastian Kremer <[email protected]> ;; Keywords: unix -(defconst find-dired-version (substring "$Revision: 1.19 $" 11 -2) - "$Id: find-dired.el,v 1.19 1995/03/06 19:55:47 roland Exp rms $") +(defconst find-dired-version (substring "$Revision: 1.20 $" 11 -2) + "$Id: find-dired.el,v 1.20 1995/03/16 04:27:11 rms Exp kwzh $") ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by @@ -188,8 +188,7 @@ Thus ARG can also contain additional grep options." ;; process is dead, we can delete it now. Otherwise it ;; will stay around until M-x list-processes. (delete-process proc) - ;; Force mode line redisplay soon. - (set-buffer-modified-p (buffer-modified-p)))) + (force-mode-line-update))) (message "find-dired %s finished." (current-buffer)))))) (provide 'find-dired) |