Add the latex-query-replace-regexp-math library.

diff --git a/.emacs b/.emacs
index b990474d74dd029f30f3fc7540f8f8204fc6d075..5e9a7a03d31572f99798789f8f770e6e613dcd70 100644 (file)
--- a/.emacs
+++ b/.emacs
@@ -76,6 +76,7 @@
 (global-set-key "\C-cd" 'diff-buffer-against-file)
 
 (load-library "fix-nonstandard-chars")
+(load-library "latex-query-replace-regexp-math")
 
 
 ;; Enable dired-find-alternate-file without having to stop
@@ -88,4 +89,17 @@
 
 ;; Show trailing whitespace, without having to drop into
 ;; whitespace-mode.
-(custom-set-variables '(show-trailing-whitespace t))
+(custom-set-variables
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ '(auth-source-save-behavior nil)
+ '(show-trailing-whitespace t))
+(custom-set-faces
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
+ )
+

diff --git a/latex-query-replace-regexp-math.el b/latex-query-replace-regexp-math.el
new file mode 100644 (file)
index 0000000..2c486ec
--- /dev/null
+++ b/latex-query-replace-regexp-math.el
@@ -0,0 +1,21 @@
+;; This is a math-mode find and replace. It relies on the AUCTeX
+;; package for the "texmathp" function.
+;;
+;; Originally from http://stackoverflow.com/questions/19845598,
+;; and modified to mention AUCTeX if it is missing.
+
+(fset 'latex-query-replace-regexp-math
+  `(lambda (regexp to-string &optional delimited start end backward)
+  "Like `query-replace-regexp' but only searches within math environments."
+  ,(interactive-form 'query-replace-regexp)
+
+  (if (fboundp 'texmathp)
+    (let ((replace-re-search-function
+          (lambda (regexp bound noerror)
+            (catch :found
+              (while (let ((ret (re-search-forward regexp bound noerror)))
+                       (when (save-match-data (texmathp)) (throw :found ret))
+                       ret))))))
+      (query-replace-regexp regexp to-string delimited start end backward))
+    (error "AUCTeX and latex-mode are required for this function.")
+  )))