;;; gresreg.el --- query-replace in all buffer ;; -*- Mode: Emacs-Lisp -*- ;; $Id: gresreg.el,v 2.2 2009-10-20 12:13:33 akihisa Exp $ ;; Copyright (C) 2004 Matsushita Akihisa ;; Authors: Matsushita Akihisa ;; Keywords: isearch ;; 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 the Free Software Foundation; either version 3, or (at ;; your option) any later version. ;; This program is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, ;; Boston, MA 02110-1301, USA. ;;; Commentary: ;; The latest version of this program can be downloaded from ;; http://www.bookshelf.jp/elc/gresreg.el ;;; Install: ;; Put this file into load-path'ed directory, and byte compile it if ;; desired. And put the following expression into your ~/.emacs. ;; ;; (require 'gresreg) (defvar gresreg-map (make-sparse-keymap)) (define-key gresreg-map " " 'act) (define-key gresreg-map "\d" 'skip) (define-key gresreg-map [delete] 'skip) (define-key gresreg-map [backspace] 'skip) (define-key gresreg-map "y" 'act) (define-key gresreg-map "n" 'skip) (define-key gresreg-map "Y" 'act) (define-key gresreg-map "N" 'skip) (define-key gresreg-map "q" 'exit) (define-key gresreg-map "\r" 'exit) (define-key gresreg-map [return] 'exit) (define-key gresreg-map "!" 'automatic) (define-key gresreg-map "\C-h" 'help) (define-key gresreg-map [f1] 'help) (define-key gresreg-map [help] 'help) (define-key gresreg-map "?" 'help) (define-key gresreg-map "\C-g" 'exit) (define-key gresreg-map "\C-]" 'exit) (defun gresreg (from-string to-string delimited &optional buffers) (interactive (query-replace-read-args "Query replace" nil)) (let ((bufs (if buffers buffers (buffer-list))) key def (auto nil) (cbuf (current-buffer)) (cp (point))) (while bufs (when (and (buffer-live-p (car bufs)) (buffer-file-name (car bufs))) (switch-to-buffer (car bufs)) (goto-char (point-min)) (message "Replace in %s ? (? for help)" (buffer-name (car bufs))) (setq key (vector (read-event))) (setq def (lookup-key gresreg-map key)) (cond ((eq def 'help) (with-output-to-temp-buffer "*Help*" (princ (concat "Query replacing " from-string " with " to-string ".\n\n" "$B%9%Z!<%9$+(B `y' $B$rF~NO$9$k$H8=:_%P%C%U%!$G$N$_CV49$r