aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2019-04-30 14:56:29 -0400
committerStefan Monnier2019-04-30 14:56:29 -0400
commit910d170771ac74ab76d6dcb2dda3f3167e01b705 (patch)
treeeb0c73f92bdc096f689223e5a24f27f3c85f4ac1
parent325f51c84d9ad4d9776784bd324b347ffe4fe51b (diff)
downloademacs-910d170771ac74ab76d6dcb2dda3f3167e01b705.tar.gz
emacs-910d170771ac74ab76d6dcb2dda3f3167e01b705.zip
* lisp/progmodes/cc-engine.el: Silence minor compiler warnings
(c-restricted-<>-arglists, c-parse-and-markup-<>-arglists): Move declaration before first use. (c-after-change-unmark-raw-strings): Remove unused var `found-end`.
-rw-r--r--lisp/progmodes/cc-engine.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index 5d1b4bbed6e..a0459b9f2ae 100644
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -1812,7 +1812,7 @@ comment at the start of cc-engine.el for more info."
1812 (setcar c-sws-lit-limits (match-beginning 1)) 1812 (setcar c-sws-lit-limits (match-beginning 1))
1813 (setq c-sws-lit-limits (cons (match-beginning 1) (match-end 1))))))) 1813 (setq c-sws-lit-limits (cons (match-beginning 1) (match-end 1)))))))
1814 1814
1815(defun c-invalidate-sws-region-after-del (beg end old-len) 1815(defun c-invalidate-sws-region-after-del (beg end _old-len)
1816 ;; Text has been deleted, OLD-LEN characters of it starting from position 1816 ;; Text has been deleted, OLD-LEN characters of it starting from position
1817 ;; BEG. END is typically eq to BEG. Should there have been a comment or 1817 ;; BEG. END is typically eq to BEG. Should there have been a comment or
1818 ;; CPP construct open at END before the deletion, check whether this 1818 ;; CPP construct open at END before the deletion, check whether this
@@ -5475,6 +5475,9 @@ comment at the start of cc-engine.el for more info."
5475 (setq c-bs-cache-limit 5475 (setq c-bs-cache-limit
5476 (min c-bs-cache-limit pos))) 5476 (min c-bs-cache-limit pos)))
5477 5477
5478(defvar c-restricted-<>-arglists) ;FIXME: Move definition here?
5479(defvar c-parse-and-markup-<>-arglists) ;FIXME: Move definition here?
5480
5478(defun c-update-brace-stack (stack from to) 5481(defun c-update-brace-stack (stack from to)
5479 ;; Given a brace-stack which has the value STACK at position FROM, update it 5482 ;; Given a brace-stack which has the value STACK at position FROM, update it
5480 ;; to its value at position TO, where TO is after (or equal to) FROM. 5483 ;; to its value at position TO, where TO is after (or equal to) FROM.
@@ -6488,9 +6491,6 @@ comment at the start of cc-engine.el for more info."
6488 (c-clear-<>-pair-props) 6491 (c-clear-<>-pair-props)
6489 (forward-char))))))) 6492 (forward-char)))))))
6490 6493
6491(defvar c-restricted-<>-arglists) ;FIXME: Move definition here?
6492(defvar c-parse-and-markup-<>-arglists) ;FIXME: Move definition here?
6493
6494(defun c-restore-<>-properties (_beg _end _old-len) 6494(defun c-restore-<>-properties (_beg _end _old-len)
6495 ;; This function is called as an after-change function. It restores the 6495 ;; This function is called as an after-change function. It restores the
6496 ;; category/syntax-table properties on template/generic <..> pairs between 6496 ;; category/syntax-table properties on template/generic <..> pairs between
@@ -6927,7 +6927,7 @@ comment at the start of cc-engine.el for more info."
6927 ;; This functions is called as an after-change function by virtue of its 6927 ;; This functions is called as an after-change function by virtue of its
6928 ;; membership of the C++ value of `c-before-font-lock-functions'. 6928 ;; membership of the C++ value of `c-before-font-lock-functions'.
6929 ;; (when (< beg end) 6929 ;; (when (< beg end)
6930 (c-save-buffer-state (found eoll state id found-beg found-end) 6930 (c-save-buffer-state (found eoll state id found-beg)
6931 ;; Has an inserted " swallowed up a R"(, turning it into "...R"(? 6931 ;; Has an inserted " swallowed up a R"(, turning it into "...R"(?
6932 (goto-char end) 6932 (goto-char end)
6933 (setq eoll (c-point 'eoll)) 6933 (setq eoll (c-point 'eoll))