aboutsummaryrefslogtreecommitdiffhomepage
path: root/coq
diff options
context:
space:
mode:
authorGravatar Pierre Courtieu <courtieu@lri.fr>2012-09-07 19:47:10 +0000
committerGravatar Pierre Courtieu <courtieu@lri.fr>2012-09-07 19:47:10 +0000
commit1e5fcb1a36df556dc7c0b8bac2b0b36a8e8d2743 (patch)
tree22fc0625084bcaf5460322b5688c47967d365451 /coq
parentba090c7e88c00df4d0db7e5c521bd30d4fb61ec4 (diff)
Fix of the last commit.
Diffstat (limited to 'coq')
-rw-r--r--coq/coq.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/coq/coq.el b/coq/coq.el
index ea33b2f8..ceb81311 100644
--- a/coq/coq.el
+++ b/coq/coq.el
@@ -663,14 +663,14 @@ Return nil if s is nil."
(defun coq-id-at-point ()
"Return the identifier at current point.
Support dot.notation.of.modules."
- (dummy (modify-syntax-entry ?\. "w")) ; temporary for dot notation
+ (modify-syntax-entry ?\. "w") ; temporary for dot notation
(let* ((symb
(symbol-name (cond
((fboundp 'symbol-near-point) (symbol-near-point))
((fboundp 'symbol-at-point) (symbol-at-point))
(t 'nothing))))
- (dummy (modify-syntax-entry ?\. ".")) ; go back to ususal syntax
(symbclean (coq-remove-trailing-dot symb)))
+ (modify-syntax-entry ?\. ".") ; go back to ususal syntax
(if (zerop (length symbclean)) nil symbclean)))