Mercurial > emacs

comparison lisp/dired-aux.el @ 53866:eccc0649ce27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-do-query-replace-regexp): Add missing format string argument.
author Andreas Schwab <schwab@suse.de>
date Sun, 08 Feb 2004 22:38:51 +0000
parents 79093b308520
children 21bd0a1f7d1a
comparison
equal deleted inserted replaced
53865:6a6dc234f296 53866:eccc0649ce27
1 ;;; dired-aux.el --- less commonly used parts of dired -*-byte-compile-dynamic: t;-*- 1 ;;; dired-aux.el --- less commonly used parts of dired -*-byte-compile-dynamic: t;-*-
2 2
3 ;; Copyright (C) 1985, 1986, 1992, 1994, 1998, 2000, 2001 3 ;; Copyright (C) 1985, 1986, 1992, 1994, 1998, 2000, 2001, 2004
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>. 6 ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de>.
7 ;; Maintainer: FSF 7 ;; Maintainer: FSF
8 ;; Keywords: files 8 ;; Keywords: files
2112 "sQuery replace in marked files (regexp): \nsQuery replace %s by: \nP") 2112 "sQuery replace in marked files (regexp): \nsQuery replace %s by: \nP")
2113 (dolist (file (dired-get-marked-files nil nil 'dired-nondirectory-p)) 2113 (dolist (file (dired-get-marked-files nil nil 'dired-nondirectory-p))
2114 (let ((buffer (get-file-buffer file))) 2114 (let ((buffer (get-file-buffer file)))
2115 (if (and buffer (with-current-buffer buffer 2115 (if (and buffer (with-current-buffer buffer
2116 buffer-read-only)) 2116 buffer-read-only))
2117 (error "File `%s' is visited read-only")))) 2117 (error "File `%s' is visited read-only" file))))
2118 (tags-query-replace from to delimited 2118 (tags-query-replace from to delimited
2119 '(dired-get-marked-files nil nil 'dired-nondirectory-p))) 2119 '(dired-get-marked-files nil nil 'dired-nondirectory-p)))
2120 2120
2121 (defun dired-nondirectory-p (file) 2121 (defun dired-nondirectory-p (file)
2122 (not (file-directory-p file))) 2122 (not (file-directory-p file)))