comparison lisp/dired.el @ 23188:c8b236bbecad

(dired-mark-files-containing-regexp): Don't use find-file; instead, insert the file in a temp buffer.

23187:205f3fab9564

  (let ((dired-marker-char (or marker-char dired-marker-char)))
    (dired-mark-if
     (and (not (looking-at dired-re-dot))
	  (not (eolp))			; empty line
	  (let ((fn (dired-get-filename nil t)))
	    (and fn (save-excursion
		      ;; For now we do it inside emacs
		      ;; Grep might be better if there are a lot of files
		      (message "Checking %s" fn)
		      (let* ((prebuf (get-file-buffer fn)))
			(find-file fn)
			(goto-char (point-min))
			(prog1 
			    (re-search-forward regexp nil t)
			  (if (not prebuf) (kill-buffer nil))))
		      ))))
     "matching file")))

(defun dired-flag-files-regexp (regexp)
  "In dired, flag all files containing the specified REGEXP for deletion.
The match is against the non-directory part of the filename.  Use `^'

23188:c8b236bbecad

  (let ((dired-marker-char (or marker-char dired-marker-char)))
    (dired-mark-if
     (and (not (looking-at dired-re-dot))
	  (not (eolp))			; empty line
	  (let ((fn (dired-get-filename nil t)))
	    (and fn (let ((prebuf (get-file-buffer fn)))
		      (message "Checking %s" fn)
		      ;; For now we do it inside emacs
		      ;; Grep might be better if there are a lot of files
		      (if prebuf
			  (with-current-buffer prebuf
			    (save-excursion
			      (goto-char (point-min))
			      (re-search-forward regexp nil t)))
			(with-temp-buffer
			  (insert-buffer-contents fn)
			  (goto-char (point-min))
			  (re-search-forward regexp nil t))))
		      )))
     "matching file")))

(defun dired-flag-files-regexp (regexp)
  "In dired, flag all files containing the specified REGEXP for deletion.
The match is against the non-directory part of the filename.  Use `^'