From 74def44fd90a0a45cbe8067d5c8a72ab257362e9 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 25 Apr 1995 22:30:38 +0000 Subject: (find-dired-sentinel): Use force-mode-line-update. --- lisp/find-dired.el | 7 +++---- 1 file 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 ;; 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) -- cgit v1.2.3