aboutsummaryrefslogtreecommitdiffhomepage
path: root/coq
diff options
context:
space:
mode:
authorGravatar David Aspinall <da@inf.ed.ac.uk>2002-08-29 23:41:57 +0000
committerGravatar David Aspinall <da@inf.ed.ac.uk>2002-08-29 23:41:57 +0000
commit3e698858551f444faa938d1f14fe7317c5edc37c (patch)
tree7a6b13da660ebb5ff8e344a5c378435a80f350b1 /coq
parent137dde03ece224d04ff7a10b93305a445422d342 (diff)
mPatch from Stefan Monnier [buffer-substring].
Diffstat (limited to 'coq')
-rw-r--r--coq/coq.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/coq/coq.el b/coq/coq.el
index 7984472b..641fc1b4 100644
--- a/coq/coq.el
+++ b/coq/coq.el
@@ -377,7 +377,7 @@ This is specific to coq-mode."
(defun coq-guess-or-ask-for-string (s)
(let ((guess
(if (region-exists-p)
- (buffer-substring (region-beginning) (region-end))
+ (buffer-substring-no-properties (region-beginning) (region-end))
(symbol-near-point))))
(read-string
(if guess (concat s " (" guess "):")(concat s ":"))
@@ -430,9 +430,9 @@ This is specific to coq-mode."
(if (char-equal (char-after (point)) ?E)
(setq count (1+ count))
(setq count (1- count))))
- (buffer-string
- (progn (beginning-of-line) (forward-word 1) (point))
- (progn (end-of-line) (point)))))))
+ (buffer-substring-no-properties
+ (progn (beginning-of-line) (forward-word 1) (point))
+ (progn (end-of-line) (point)))))))
(insert (concat "End" section)))))
(defun coq-Compile ()
@@ -804,7 +804,7 @@ This is specific to coq-mode."
(defun coq-fake-constant-markup ()
"Markup constants in Coq goal output by matching on regexps.
This is a horrible and approximate way of doing subterm markup.
-(Code used to be in Coq, but got lost between versions 5 and 7).
+\(Code used to be in Coq, but got lost between versions 5 and 7).
This is a hook setting for `pg-after-fontify-output-hook' to
enable identifiers to be highlighted and allow useful
mouse activation."