--- /dev/null
+;;; re-builder.el --- Building Regexps with visual feedback
+
+;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
+
+;; Author: Detlev Zundel <dzu@gnu.org>
+;; Keywords: matching, lisp, tools
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs 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 2, or (at your option)
+;; any later version.
+
+;; GNU Emacs 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., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; $Id: re-builder.el,v 1.3 2000/01/25 23:42:24 dzu Exp $
+
+;; When I have to come up with regular expressions that are more
+;; complex than simple string matchers, especially if they contain sub
+;; expressions, I find myself spending quite some time in the
+;; `development cycle'. `re-builder' aims to shorten this time span
+;; so I can get on with the more interesting bits.
+
+;; With it you can have immediate visual feedback about how well the
+;; regexp behaves to your expectations on the intended data.
+
+;; When called up `re-builder' attaches itself to the current buffer
+;; which becomes its target buffer, where all the matching is done.
+;; The active window is split so you have a view on the data while
+;; authoring the RE. If the edited expression is valid the matches in
+;; the target buffer are marked automatically with colored overlays
+;; (for non-color displays see below) giving you feedback over the
+;; extents of the matched (sub) expressions. The (non-)validity is
+;; shown only in the modeline without throwing the errors at you. If
+;; you want to know the reason why RE Builder considers it as invalid
+;; call `reb-force-update' ("\C-c\C-u") which should reveal the error.
+
+;; The `re-builder' keeps the focus while updating the matches in the
+;; target buffer so corrections are easy to incorporate. If you are
+;; satisfied with the result you can paste the RE to the kill-ring
+;; with `reb-copy' ("\C-c\C-w"), quit the `re-builder' ("\C-c\C-q")
+;; and use it wherever you need it.
+
+;; As the automatic updates can take some time on large buffers, they
+;; can be limited by `reb-auto-match-limit' so that they should not
+;; have a negative impact on the editing. Setting it to nil makes
+;; even the auto updates go all the way. Forcing an update overrides
+;; this limit allowing an easy way to see all matches.
+
+;; Currently `re-builder' understands four different forms of input,
+;; namely `read', `string', `sregex' and `lisp-re' syntax. Read
+;; syntax and string syntax are both delimited by `"'s and behave
+;; according to their name. With the `string' syntax there's no need
+;; to escape the backslashes and double quotes simplifying the editing
+;; somewhat. The other two allow editing of symbolic regular
+;; expressions supported by the packages of the same name. (`lisp-re'
+;; is a package by me and its support may go away as it is nearly the
+;; same as the `sregex' package in Emacs)
+
+;; Editing symbolic expressions is done through a major mode derived
+;; from `emacs-lisp-mode' so you'll get all the good stuff like
+;; automatic indentation and font-locking etc.
+
+;; When editing a symbolic regular expression, only the first
+;; expression in the RE Builder buffer is considered, which helps
+;; limiting the extent of the expression like the `"'s do for the text
+;; modes. For the `sregex' syntax the function `sregex' is applied to
+;; the evaluated expression read. So you can use quoted arguments
+;; with something like '("findme") or you can construct arguments to
+;; your hearts delight with a valid ELisp expression. (The compiled
+;; string form will be copied by `reb-copy') If you want to take
+;; a glance at the corresponding string you can temporarily change the
+;; input syntax.
+
+;; Changing the input syntax is transparent (for the obvious exception
+;; non-symbolic -> symbolic) so you can change your mind as often as
+;; you like.
+
+;; There is also a shortcut function for toggling the
+;; `case-fold-search' variable in the target buffer with an immediate
+;; update.
+
+
+;; Q: But what if my display cannot show colored overlays?
+;; A: Then the cursor will flash around the matched text making it stand
+;; out.
+
+;; Q: But how can I then make out the sub-expressions?
+;; A: Thats where the `sub-expression mode' comes in. In it only the
+;; digit keys are assigned to perform an update that will flash the
+;; corresponding subexp only.
+
+
+;;; History:
+;;
+;; Changes from Version 1.2:
+;; - Fixed a bug preventing normal startup after killing the (previous)
+;; target-buffer
+;; - Fixed XEmacs support
+;;
+;; Changes from Version 1.1:
+;; - The editing is now done through two major-modes rather than
+;; having one minor-mode that behaves exactly like a major-mode
+;; - Automatic updates for valid re's simplify the user interface
+;; - Easy interface for changing the input syntax and case
+;; sensitivity of the target buffer
+;; - As nobody reported the bugs that were fixed you probably don't
+;; want to know about them...
+
+;;; Code:
+
+;; On XEmacs, load the overlay compatibility library
+(if (not (fboundp 'make-overlay))
+ (require 'overlay))
+
+;; User costomizable variables
+(defgroup re-builder nil
+ "Options for the RE Builder."
+ :group 'lisp
+ :prefix "reb-")
+
+(defcustom reb-blink-delay 0.5
+ "*Seconds to blink cursor for next/previous match in RE Builder."
+ :group 're-builder
+ :type 'number)
+
+(defcustom reb-mode-hook nil
+ "*Hooks to run on entering RE Builder mode."
+ :group 're-builder
+ :type 'hook)
+
+(defcustom reb-re-syntax 'read
+ "*Syntax for the REs in the RE Builder.
+Can either be `read', `string' or `lisp-re'."
+ :group 're-builder
+ :type '(choice (const :tag "Read syntax" read)
+ (const :tag "String syntax" string)
+ (const :tag "`sregex' syntax" sregex)
+ (const :tag "`lisp-re' syntax" lisp-re)
+ (value: sring)))
+
+(defcustom reb-auto-match-limit 200
+ "*Positive integer limiting the matches for RE Builder auto updates.
+Set it to nil if you don't want limits here."
+ :group 're-builder
+ :type '(restricted-sexp :match-alternatives
+ (integerp 'nil)))
+
+
+(defface reb-match-0
+ '((((class color))
+ (:background "lightblue"))
+ (t (:inverse-video t)))
+ "Used for displaying the whole match."
+ :group 're-builder)
+
+(defface reb-match-1
+ '((((class color))
+ (:background "aquamarine"))
+ (t (:inverse-video t)))
+ "Used for displaying the first matching subexpression."
+ :group 're-builder)
+
+(defface reb-match-2
+ '((((class color))
+ (:background "springgreen"))
+ (t (:inverse-video t)))
+ "Used for displaying the second matching subexpression."
+ :group 're-builder)
+
+(defface reb-match-3
+ '((((class color))
+ (:background "yellow"))
+ (t (:inverse-video t)))
+ "Used for displaying the third matching subexpression."
+ :group 're-builder)
+
+;; Internal variables below
+(defvar reb-mode nil
+ "Enables the RE Builder minor mode.")
+
+(defvar reb-target-buffer nil
+ "Buffer to which the RE is applied to.")
+
+(defvar reb-target-window nil
+ "Window to which the RE is applied to.")
+
+(defvar reb-regexp nil
+ "Last regexp used by RE Builder.")
+
+(defvar reb-regexp-src nil
+ "Last regexp used by RE Builder before processing it.
+Except for Lisp syntax this is the same as `reb-regexp'.")
+
+(defvar reb-overlays nil
+ "List of overlays of the RE Builder.")
+
+(defvar reb-window-config nil
+ "Old window configuration.")
+
+(defvar reb-subexp-mode nil
+ "Indicates whether sub-exp mode is active.")
+
+(defvar reb-subexp-displayed nil
+ "Indicates which sub-exp is active.")
+
+(defvar reb-mode-string ""
+ "String in mode line for additional info.")
+
+(defvar reb-valid-string ""
+ "String in mode line showing validity of RE.")
+
+(make-variable-buffer-local 'reb-overlays)
+(make-variable-buffer-local 'reb-regexp)
+(make-variable-buffer-local 'reb-regexp-src)
+
+(defconst reb-buffer "*RE-Builder*"
+ "Buffer to use for the RE Builder.")
+
+;; Define the local "\C-c" keymap
+(defvar reb-mode-map nil
+ "Keymap used by the RE Builder.")
+
+(if (not reb-mode-map)
+ (progn
+ (setq reb-mode-map (make-sparse-keymap))
+ (define-key reb-mode-map "\C-c\C-c" 'reb-toggle-case)
+ (define-key reb-mode-map "\C-c\C-q" 'reb-quit)
+ (define-key reb-mode-map "\C-c\C-w" 'reb-copy)
+ (define-key reb-mode-map "\C-c\C-s" 'reb-next-match)
+ (define-key reb-mode-map "\C-c\C-r" 'reb-prev-match)
+ (define-key reb-mode-map "\C-c\C-i" 'reb-change-syntax)
+ (define-key reb-mode-map "\C-c\C-e" 'reb-enter-subexp-mode)
+ (define-key reb-mode-map "\C-c\C-u" 'reb-force-update)))
+
+(defun reb-mode ()
+ "Major mode for interactively building Regular Expressions.
+\\{reb-mode-map}"
+ (interactive)
+
+ (setq major-mode 'reb-mode
+ mode-name "RE Builder")
+ (use-local-map reb-mode-map)
+ (reb-mode-common)
+ (run-hooks reb-mode-hook))
+
+(define-derived-mode reb-lisp-mode
+ emacs-lisp-mode "RE Builder Lisp"
+ "Major mode for interactively building symbolic Regular Expressions.
+\\{reb-lisp-mode-map}"
+ (cond ((eq reb-re-syntax 'lisp-re) ; Pull in packages
+ (require 'lisp-re)) ; as needed
+ ((eq reb-re-syntax 'sregex) ; sregex is not autoloaded
+ (require 'sregex))) ; right now..
+ (reb-mode-common))
+
+;; Use the same "\C-c" keymap as `reb-mode' and use font-locking from
+;; `emacs-lisp-mode'
+(define-key reb-lisp-mode-map "\C-c"
+ (lookup-key reb-mode-map "\C-c"))
+
+(if (boundp 'font-lock-defaults-alist)
+ (setq font-lock-defaults-alist
+ (cons (cons 'reb-lisp-mode
+ (cdr (assoc 'emacs-lisp-mode
+ font-lock-defaults-alist)))
+ font-lock-defaults-alist)))
+
+(defvar reb-subexp-mode-map nil
+ "Keymap used by the RE Builder for the subexpression mode.")
+
+(if (not reb-subexp-mode-map)
+ (progn
+ (setq reb-subexp-mode-map (make-sparse-keymap))
+ (suppress-keymap reb-subexp-mode-map)
+ ;; Again share the "\C-c" keymap for the commands
+ (define-key reb-subexp-mode-map "\C-c"
+ (lookup-key reb-mode-map "\C-c"))
+ (define-key reb-subexp-mode-map "q" 'reb-quit-subexp-mode)
+ (mapcar (lambda (digit)
+ (define-key reb-subexp-mode-map (int-to-string digit)
+ 'reb-display-subexp))
+ '(0 1 2 3 4 5 6 7 8 9))))
+
+(defun reb-mode-common ()
+ "Setup functions common to functions `reb-mode' and `reb-mode-lisp'."
+
+ (setq reb-mode-string ""
+ reb-valid-string ""
+ mode-line-buffer-identification
+ '(25 . ("%b" reb-mode-string reb-valid-string)))
+ (reb-update-modestring)
+ (make-local-variable 'after-change-functions)
+ (add-hook 'after-change-functions
+ 'reb-auto-update)
+ ;; At least make the overlays go away if the buffer is killed
+ (make-local-variable 'reb-kill-buffer)
+ (add-hook 'kill-buffer-hook 'reb-kill-buffer)
+ (reb-auto-update nil nil nil))
+
+
+;; Handy macro for doing things in other windows
+(defmacro reb-with-current-window (window &rest body)
+ "With WINDOW selected evaluate BODY forms and reselect previous window."
+
+ (let ((oldwindow (make-symbol "*oldwindow*")))
+ `(let ((,oldwindow (selected-window)))
+ (select-window ,window)
+ (unwind-protect
+ (progn
+ ,@body)
+ (select-window ,oldwindow)))))
+(put 'reb-with-current-window 'lisp-indent-function 0)
+
+(defun reb-color-display-p ()
+ "Return t if display is capable of displaying colors."
+ (eq 'color
+ ;; emacs/xemacs compatibility
+ (if (fboundp 'frame-parameter)
+ (frame-parameter (selected-frame) 'display-type)
+ (frame-property (selected-frame) 'display-type))))
+
+(defsubst reb-lisp-syntax-p ()
+ "Return non-nil if RE Builder uses a Lisp syntax."
+ (memq reb-re-syntax '(lisp-re sregex)))
+
+(defmacro reb-target-binding (symbol)
+ "Return binding for SYMBOL in the RE Builder target buffer."
+ `(with-current-buffer reb-target-buffer ,symbol))
+
+
+;;;###autoload
+(defun re-builder ()
+ "Call up the RE Builder for the current window."
+ (interactive)
+
+ (if reb-target-buffer
+ (reb-delete-overlays))
+ (setq reb-target-buffer (current-buffer)
+ reb-target-window (selected-window)
+ reb-window-config (current-window-configuration))
+ (select-window (split-window (selected-window) (- (window-height) 4)))
+ (switch-to-buffer (get-buffer-create reb-buffer))
+ (erase-buffer)
+ (reb-insert-regexp)
+ (goto-char (+ 2 (point-min)))
+ (cond
+ ((reb-lisp-syntax-p)
+ (reb-lisp-mode))
+ (t (reb-mode))))
+
+
+(defun reb-force-update ()
+ "Forces an update in the RE Builder target window without a match limit."
+ (interactive)
+
+ (let ((reb-auto-match-limit nil))
+ (reb-update-overlays
+ (if reb-subexp-mode reb-subexp-displayed nil))))
+
+(defun reb-quit ()
+ "Quit the RE Builder mode."
+ (interactive)
+
+ (setq reb-subexp-mode nil
+ reb-subexp-displayed nil)
+ (reb-delete-overlays)
+ (bury-buffer)
+ (set-window-configuration reb-window-config))
+
+(defun reb-next-match ()
+ "Go to next match in the RE Builder target window."
+ (interactive)
+
+ (reb-assert-buffer-in-window)
+ (reb-with-current-window
+ reb-target-window
+ (if (not (re-search-forward reb-regexp (point-max) t))
+ (message "No more matches.")
+ (reb-show-subexp
+ (or (and reb-subexp-mode reb-subexp-displayed) 0)
+ t))))
+
+(defun reb-prev-match ()
+ "Go to previous match in the RE Builder target window."
+ (interactive)
+
+ (reb-assert-buffer-in-window)
+ (reb-with-current-window reb-target-window
+ (goto-char (1- (point)))
+ (if (not (re-search-backward reb-regexp (point-min) t))
+ (message "No more matches.")
+ (reb-show-subexp
+ (or (and reb-subexp-mode reb-subexp-displayed) 0)
+ t))))
+
+(defun reb-toggle-case ()
+ "Toggle case sensitivity of searches for RE Builder target buffer."
+ (interactive)
+
+ (with-current-buffer reb-target-buffer
+ (setq case-fold-search (not case-fold-search)))
+ (reb-update-modestring)
+ (reb-auto-update nil nil nil t))
+
+(defun reb-copy ()
+ "Copy current RE into the kill ring for later insertion."
+ (interactive)
+
+ (reb-update-regexp)
+ (let ((re (with-output-to-string
+ (print (reb-target-binding reb-regexp)))))
+ (kill-new (substring re 1 (1- (length re))))
+ (message "Regexp copied to kill-ring")))
+
+;; The subexpression mode is not electric because the number of
+;; matches should be seen rather than a prompt.
+(defun reb-enter-subexp-mode ()
+ "Enter the subexpression mode in the RE Builder."
+ (interactive)
+
+ (setq reb-subexp-mode t)
+ (reb-update-modestring)
+ (use-local-map reb-subexp-mode-map)
+ (message "`0'-`9' to display subexpressions `q' to quit subexp mode."))
+
+(defun reb-show-subexp (subexp &optional pause)
+ "Visually show limit of subexpression SUBEXP of recent search.
+On color displays this just puts point to the end of the expression as
+the match should already be marked by an overlay.
+On other displays jump to the beginning and the end of it.
+If the optional PAUSE is non-nil then pause at the end in any case."
+ (reb-with-current-window reb-target-window
+ (if (not (reb-color-display-p))
+ (progn (goto-char (match-beginning subexp))
+ (sit-for reb-blink-delay)))
+ (goto-char (match-end subexp))
+ (if (or (not (reb-color-display-p)) pause)
+ (sit-for reb-blink-delay))))
+
+(defun reb-quit-subexp-mode ()
+ "Quit the subexpression mode in the RE Builder."
+ (interactive)
+
+ (setq reb-subexp-mode nil
+ reb-subexp-displayed nil)
+ (reb-update-modestring)
+ (use-local-map reb-mode-map)
+ (reb-do-update))
+
+(defun reb-change-syntax (&optional syntax)
+ "Change the syntax used by the RE Builder.
+Optional argument SYNTAX must be specified if called non-interactively."
+ (interactive
+ (list (intern
+ (completing-read "Select syntax: "
+ (mapcar (lambda (el) (cons (symbol-name el) 1))
+ '(read string lisp-re sregex))
+ nil t (symbol-name reb-re-syntax)))))
+
+ (if (memq syntax '(read string lisp-re sregex))
+ (let ((buffer (get-buffer reb-buffer)))
+ (setq reb-re-syntax syntax)
+ (if buffer
+ (with-current-buffer buffer
+ (erase-buffer)
+ (reb-insert-regexp)
+ (goto-char (+ 2 (point-min)))
+ (cond ((reb-lisp-syntax-p)
+ (reb-lisp-mode))
+ (t (reb-mode))))))
+ (error "Invalid syntax: %s" syntax)))
+
+
+;; Non-interactive functions below
+(defun reb-do-update (&optional subexp)
+ "Update matches in the RE Builder target window.
+If SUBEXP is non-nil mark only the corresponding sub-expressions."
+
+ (reb-assert-buffer-in-window)
+ (reb-update-regexp)
+ (reb-update-overlays subexp))
+
+(defun reb-auto-update (beg end lenold &optional force)
+ "Called from `after-update-functions' to update the display.
+BEG END and LENOLD are passed in from the hook.
+An actual update is only done if the regexp has changed or if the
+optional fourth argument FORCE is non-nil."
+ (let ((prev-valid reb-valid-string)
+ (new-valid
+ (condition-case nil
+ (progn
+ (if (or (reb-update-regexp) force)
+ (progn
+ (reb-assert-buffer-in-window)
+ (reb-do-update)))
+ "")
+ (error " *invalid*"))))
+ (setq reb-valid-string new-valid)
+ (force-mode-line-update)
+
+ ;; Through the caching of the re a change invalidating the syntax
+ ;; for symbolic expressions will not delete the overlays so we
+ ;; catch it here
+ (if (and (reb-lisp-syntax-p)
+ (not (string= prev-valid new-valid))
+ (string= prev-valid ""))
+ (reb-delete-overlays))))
+
+(defun reb-delete-overlays ()
+ "Delete all RE Builder overlays in the `reb-target-buffer' buffer."
+ (if (buffer-live-p reb-target-buffer)
+ (with-current-buffer reb-target-buffer
+ (mapcar 'delete-overlay reb-overlays)
+ (setq reb-overlays nil))))
+
+(defun reb-assert-buffer-in-window ()
+ "Assert that `reb-target-buffer' is displayed in `reb-target-window'."
+
+ (if (not (eq reb-target-buffer (window-buffer reb-target-window)))
+ (set-window-buffer reb-target-window reb-target-buffer)))
+
+(defun reb-update-modestring ()
+ "Update the variable `reb-mode-string' displayed in the mode line."
+ (setq reb-mode-string
+ (concat
+ (if reb-subexp-mode
+ (concat " (subexp " (or reb-subexp-displayed "-") ")")
+ "")
+ (if (not (reb-target-binding case-fold-search))
+ " Case"
+ "")))
+ (force-mode-line-update))
+
+(defun reb-display-subexp (&optional subexp)
+ "Highlight only subexpression SUBEXP in the RE Builder."
+ (interactive)
+
+ (setq reb-subexp-displayed
+ (or subexp (string-to-int (format "%c" last-command-char))))
+ (reb-update-modestring)
+ (reb-do-update reb-subexp-displayed))
+
+(defun reb-kill-buffer ()
+ "When the RE Builder buffer is killed make sure no overlays stay around."
+
+ (if (member major-mode '(reb-mode reb-lisp-mode))
+ (reb-delete-overlays)))
+
+
+;; The next functions are the interface between the regexp and
+;; its textual representation in the RE Builder buffer.
+;; They are the only functions concerned with the actual syntax
+;; being used.
+(defun reb-read-regexp ()
+ "Read current RE."
+ (save-excursion
+ (cond ((eq reb-re-syntax 'read)
+ (goto-char (point-min))
+ (read (current-buffer)))
+ ((eq reb-re-syntax 'string)
+ (goto-char (point-min))
+ (re-search-forward "\"")
+ (let ((beg (point)))
+ (goto-char (point-max))
+ (re-search-backward "\"")
+ (buffer-substring-no-properties beg (point))))
+ ((reb-lisp-syntax-p)
+ (buffer-string)))))
+
+(defun reb-empty-regexp ()
+ "Return empty RE for current syntax."
+ (cond ((reb-lisp-syntax-p) "'()")
+ (t "")))
+
+(defun reb-insert-regexp ()
+ "Insert current RE."
+
+ (let ((re (or (reb-target-binding reb-regexp)
+ (reb-empty-regexp))))
+ (cond ((eq reb-re-syntax 'read)
+ (print re (current-buffer)))
+ ((eq reb-re-syntax 'string)
+ (insert "\n\"" re "\""))
+ ;; For the Lisp syntax we need the "source" of the regexp
+ ((reb-lisp-syntax-p)
+ (insert (or (reb-target-binding reb-regexp-src)
+ (reb-empty-regexp)))))))
+
+(defun reb-cook-regexp (re)
+ "Return RE after processing it according to `reb-re-syntax'."
+ (cond ((eq reb-re-syntax 'lisp-re)
+ (lre-compile-string (eval (car (read-from-string re)))))
+ ((eq reb-re-syntax 'sregex)
+ (apply 'sregex (eval (car (read-from-string re)))))
+ (t re)))
+
+(defun reb-update-regexp ()
+ "Update the regexp for the target buffer.
+Return t if the (cooked) expression changed."
+ (let* ((re-src (reb-read-regexp))
+ (re (reb-cook-regexp re-src)))
+ (with-current-buffer reb-target-buffer
+ (let ((oldre reb-regexp))
+ (prog1
+ (not (string= oldre re))
+ (setq reb-regexp re)
+ ;; Only update the source re for the lisp formats
+ (if (reb-lisp-syntax-p)
+ (setq reb-regexp-src re-src)))))))
+
+
+;; And now the real core of the whole thing
+(defun reb-count-subexps (re)
+ "Return number of sub-expressions in the regexp RE."
+
+ (let ((i 0) (beg 0))
+ (while (string-match "\\\\(" re beg)
+ (setq i (1+ i)
+ beg (match-end 0)))
+ i))
+
+
+(defun reb-update-overlays (&optional subexp)
+ "Switch to `reb-target-buffer' and mark all matches of `reb-regexp'.
+If SUBEXP is non-nil mark only the corresponding sub-expressions."
+
+ (let* ((re (reb-target-binding reb-regexp))
+ (subexps (reb-count-subexps re))
+ (matches 0)
+ (submatches 0)
+ firstmatch)
+ (save-excursion
+ (set-buffer reb-target-buffer)
+ (reb-delete-overlays)
+ (goto-char (point-min))
+ (while (and (re-search-forward re (point-max) t)
+ (or (not reb-auto-match-limit)
+ (< matches reb-auto-match-limit)))
+ (if (= 0 (length (match-string 0)))
+ (error "Empty regular expression!"))
+ (let ((i 0))
+ (setq matches (1+ matches))
+ (while (<= i subexps)
+ (if (and (or (not subexp) (= subexp i))
+ (match-beginning i))
+ (let ((overlay (make-overlay (match-beginning i)
+ (match-end i)))
+ (face-name (format "reb-match-%d" i)))
+ (if (not firstmatch)
+ (setq firstmatch (match-data)))
+ (setq reb-overlays (cons overlay reb-overlays)
+ submatches (1+ submatches))
+ (overlay-put
+ overlay 'face
+ (or (intern-soft face-name)
+ (error "Too many subexpressions - face `%s' not defined"
+ face-name )))
+ (overlay-put overlay 'priority i)))
+ (setq i (1+ i))))))
+ (let ((count (if subexp submatches matches)))
+ (message"%s %smatch(es)%s"
+ (if (= 0 count) "No" (int-to-string count))
+ (if subexp "subexpression " "")
+ (if (and reb-auto-match-limit
+ (= reb-auto-match-limit count))
+ " (limit reached)" "")))
+ (if firstmatch
+ (progn (store-match-data firstmatch)
+ (reb-show-subexp (or subexp 0))))))
+
+;;; re-builder.el ends here
(autoload (quote auto-show-mode) "auto-show" "\
This command is obsolete." t nil)
+;;;***
+\f
+;;;### (autoloads (autoconf-mode) "autoconf" "progmodes/autoconf.el"
+;;;;;; (14532 61420))
+;;; Generated autoloads from progmodes/autoconf.el
+
+(autoload (quote autoconf-mode) "autoconf" "\
+Major mode for editing Autoconf configure.in files." t nil)
+
;;;***
\f
;;;### (autoloads (auto-insert-mode define-auto-insert auto-insert)
;;;;;; bookmark-load bookmark-save bookmark-write bookmark-delete
;;;;;; bookmark-insert bookmark-rename bookmark-insert-location
;;;;;; bookmark-relocate bookmark-jump bookmark-set) "bookmark"
-;;;;;; "bookmark.el" (14419 37278))
+;;;;;; "bookmark.el" (14531 42950))
;;; Generated autoloads from bookmark.el
(define-key ctl-x-map "rb" 'bookmark-jump)
(define-key ctl-x-map "rm" 'bookmark-set)
;;;### (autoloads (batch-byte-recompile-directory batch-byte-compile
;;;;;; display-call-tree byte-compile compile-defun byte-compile-file
;;;;;; byte-recompile-directory byte-force-recompile) "bytecomp"
-;;;;;; "emacs-lisp/bytecomp.el" (14516 150))
+;;;;;; "emacs-lisp/bytecomp.el" (14534 23874))
;;; Generated autoloads from emacs-lisp/bytecomp.el
(autoload (quote byte-force-recompile) "bytecomp" "\
;;;***
\f
-;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (14495 18013))
+;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (14533 31536))
;;; Generated autoloads from emacs-lisp/cl.el
(defvar custom-print-functions nil "\
;;;***
\f
-;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (13569
-;;;;;; 34340))
+;;;### (autoloads (run-scheme) "cmuscheme" "cmuscheme.el" (14535
+;;;;;; 44845))
;;; Generated autoloads from cmuscheme.el
(autoload (quote run-scheme) "cmuscheme" "\
\f
;;;### (autoloads (comint-redirect-results-list-from-process comint-redirect-results-list
;;;;;; comint-redirect-send-command-to-process comint-redirect-send-command
-;;;;;; comint-run make-comint) "comint" "comint.el" (14411 60193))
+;;;;;; comint-run make-comint) "comint" "comint.el" (14535 44845))
;;; Generated autoloads from comint.el
(autoload (quote make-comint) "comint" "\
;;;;;; facemenu-remove-special facemenu-remove-all facemenu-remove-face-props
;;;;;; facemenu-set-read-only facemenu-set-intangible facemenu-set-invisible
;;;;;; facemenu-set-face-from-menu facemenu-set-background facemenu-set-foreground
-;;;;;; facemenu-set-face) "facemenu" "facemenu.el" (14508 6392))
+;;;;;; facemenu-set-face) "facemenu" "facemenu.el" (14529 14394))
;;; Generated autoloads from facemenu.el
(define-key global-map "\M-g" 'facemenu-keymap)
(autoload 'facemenu-keymap "facemenu" "Keymap for face-changing commands." t 'keymap)
;;;### (autoloads (font-lock-fontify-buffer global-font-lock-mode
;;;;;; global-font-lock-mode font-lock-remove-keywords font-lock-add-keywords
;;;;;; turn-on-font-lock font-lock-mode) "font-lock" "font-lock.el"
-;;;;;; (14522 33623))
+;;;;;; (14535 40196))
;;; Generated autoloads from font-lock.el
(defvar font-lock-mode-hook nil "\
;;;***
\f
-;;;### (autoloads (mh-version mh-rmail) "mh-e" "mail/mh-e.el" (14376
-;;;;;; 9267))
+;;;### (autoloads (mh-version mh-rmail) "mh-e" "mail/mh-e.el" (14532
+;;;;;; 63447))
;;; Generated autoloads from mail/mh-e.el
(autoload (quote mh-rmail) "mh-e" "\
;;;;;; list-fontsets describe-fontset describe-font list-coding-categories
;;;;;; list-coding-systems describe-current-coding-system describe-current-coding-system-briefly
;;;;;; describe-coding-system list-charset-chars read-charset list-character-sets)
-;;;;;; "mule-diag" "international/mule-diag.el" (14524 58690))
+;;;;;; "mule-diag" "international/mule-diag.el" (14529 14422))
;;; Generated autoloads from international/mule-diag.el
(autoload (quote list-character-sets) "mule-diag" "\
;;;***
\f
;;;### (autoloads (octave-mode) "octave-mod" "progmodes/octave-mod.el"
-;;;;;; (14358 1330))
+;;;;;; (14535 42068))
;;; Generated autoloads from progmodes/octave-mod.el
(autoload (quote octave-mode) "octave-mod" "\
Compile the the current buffer's directory on HOST. Log in as USER.
See \\[compile]." t nil)
+;;;***
+\f
+;;;### (autoloads (re-builder) "re-builder" "emacs-lisp/re-builder.el"
+;;;;;; (14536 1936))
+;;; Generated autoloads from emacs-lisp/re-builder.el
+
+(autoload (quote re-builder) "re-builder" "\
+Call up the RE Builder for the current window." t nil)
+
;;;***
\f
;;;### (autoloads (recentf-open-more-files recentf-cleanup recentf-edit-list
-;;;;;; recentf-save-list recentf-mode) "recentf" "recentf.el" (14522
-;;;;;; 39506))
+;;;;;; recentf-save-list recentf-mode) "recentf" "recentf.el" (14533
+;;;;;; 31505))
;;; Generated autoloads from recentf.el
(autoload (quote recentf-mode) "recentf" "\
;;;***
\f
;;;### (autoloads (regexp-opt-depth regexp-opt) "regexp-opt" "emacs-lisp/regexp-opt.el"
-;;;;;; (14495 18015))
+;;;;;; (14535 45202))
;;; Generated autoloads from emacs-lisp/regexp-opt.el
(autoload (quote regexp-opt) "regexp-opt" "\
The returned regexp is typically more efficient than the equivalent regexp:
(let ((open-paren (if PAREN \"\\\\(\" \"\")) (close-paren (if PAREN \"\\\\)\" \"\")))
- (concat open-paren (mapconcat 'regexp-quote STRINGS \"\\\\|\") close-paren))
-
-but typically contains more regexp grouping constructs.
-Use `regexp-opt-depth' to count them." nil nil)
+ (concat open-paren (mapconcat 'regexp-quote STRINGS \"\\\\|\") close-paren))" nil nil)
(autoload (quote regexp-opt-depth) "regexp-opt" "\
Return the depth of REGEXP.
;;;;;; mail-signature mail-personal-alias-file mail-alias-file mail-default-reply-to
;;;;;; mail-archive-file-name mail-header-separator mail-yank-ignored-headers
;;;;;; mail-interactive mail-self-blind mail-specify-envelope-from
-;;;;;; mail-from-style) "sendmail" "mail/sendmail.el" (14495 18026))
+;;;;;; mail-from-style) "sendmail" "mail/sendmail.el" (14532 62968))
;;; Generated autoloads from mail/sendmail.el
(defvar mail-from-style (quote angles) "\
;;;### (autoloads (strokes-mode strokes-load-user-strokes strokes-help
;;;;;; strokes-describe-stroke strokes-do-complex-stroke strokes-do-stroke
;;;;;; strokes-read-complex-stroke strokes-read-stroke strokes-global-set-stroke)
-;;;;;; "strokes" "strokes.el" (13337 50462))
+;;;;;; "strokes" "strokes.el" (14527 50024))
;;; Generated autoloads from strokes.el
(defvar strokes-mode nil "\
;;;***
\f
;;;### (autoloads (display-time-mode display-time display-time-day-and-date
-;;;;;; display-time-mode) "time" "time.el" (14495 17997))
+;;;;;; display-time-mode) "time" "time.el" (14526 14916))
;;; Generated autoloads from time.el
(defvar display-time-mode nil "\
(autoload (quote windmove-default-keybindings) "windmove" "\
Set up default keybindings for `windmove'." t nil)
+;;;***
+\f
+;;;### (autoloads (winner-mode winner-mode) "winner" "winner.el"
+;;;;;; (14535 44846))
+;;; Generated autoloads from winner.el
+
+(defvar winner-mode nil "\
+Toggle winner-mode.
+Setting this variable directly does not take effect;
+use either \\[customize] or the function `winner-mode'.")
+
+(custom-add-to-group (quote winner) (quote winner-mode) (quote custom-variable))
+
+(custom-add-load (quote winner-mode) (quote winner))
+
+(autoload (quote winner-mode) "winner" "\
+Toggle Winner mode.
+With arg, turn Winner mode on if and only if arg is positive." t nil)
+
;;;***
\f
;;;### (autoloads (wordstar-mode) "ws-mode" "emulation/ws-mode.el"
projects / emacs.git / commitdiff