aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog9
-rw-r--r--lisp/calc/calc-ext.el2
-rw-r--r--lisp/progmodes/cc-engine.el16
3 files changed, 20 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 70d34fb7117..3f603a6ad64 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
12011-08-16 Feng Li <fengli@gmail.com> (tiny change)
2
3 * calc/calc-ext.el (math-defintegral-2): Remove nested backquote.
4
52011-08-16 Alan Mackenzie <acm@muc.de>
6
7 * progmodes/cc-engine.el (c-state-cache-non-literal-place):
8 Correct, to avoid the inside of macros.
9
12011-08-16 Richard Stallman <rms@gnu.org> 102011-08-16 Richard Stallman <rms@gnu.org>
2 11
3 * epa-mail.el: Handle GnuPG group definitions. 12 * epa-mail.el: Handle GnuPG group definitions.
diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index 6e05cdb07e5..8b816665d97 100644
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -2887,7 +2887,7 @@ If X is not an error form, return 1."
2887 (cons 'progn 2887 (cons 'progn
2888 (mapcar #'(lambda (func) 2888 (mapcar #'(lambda (func)
2889 `(put ',func 'math-integral-2 2889 `(put ',func 'math-integral-2
2890 `(nconc 2890 (nconc
2891 (get ',func 'math-integral-2) 2891 (get ',func 'math-integral-2)
2892 (list #'(lambda (u v) ,@code))))) 2892 (list #'(lambda (u v) ,@code)))))
2893 (if (symbolp funcs) (list funcs) funcs)))) 2893 (if (symbolp funcs) (list funcs) funcs))))
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index 0236a2be296..0d88f85d263 100644
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -2130,13 +2130,17 @@ comment at the start of cc-engine.el for more info."
2130 pos)) 2130 pos))
2131 2131
2132(defsubst c-state-cache-non-literal-place (pos state) 2132(defsubst c-state-cache-non-literal-place (pos state)
2133 ;; Return a position outside of a string/comment at or before POS. 2133 ;; Return a position outside of a string/comment/macro at or before POS.
2134 ;; STATE is the parse-partial-sexp state at POS. 2134 ;; STATE is the parse-partial-sexp state at POS.
2135 (if (or (nth 3 state) ; in a string? 2135 (let ((res (if (or (nth 3 state) ; in a string?
2136 (nth 4 state)) ; in a comment? 2136 (nth 4 state)) ; in a comment?
2137 (nth 8 state) 2137 (nth 8 state)
2138 pos)) 2138 pos)))
2139 2139 (save-excursion
2140 (goto-char res)
2141 (if (c-beginning-of-macro)
2142 (point)
2143 res))))
2140 2144
2141;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2145;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2142;; Stuff to do with point-min, and coping with any literal there. 2146;; Stuff to do with point-min, and coping with any literal there.