[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/sweeprolog c131fdd5a5 4/8: Don't error in sweeprolog-analy
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/sweeprolog c131fdd5a5 4/8: Don't error in sweeprolog-analyze-term-at-point |
Date: |
Sat, 19 Nov 2022 15:59:27 -0500 (EST) |
branch: elpa/sweeprolog
commit c131fdd5a5b8e598b2e3946ba523fac721ee6a66
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>
Don't error in sweeprolog-analyze-term-at-point
---
sweeprolog.el | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/sweeprolog.el b/sweeprolog.el
index 8e116e81f5..76a1a274b5 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -872,8 +872,9 @@ module name, F is a functor name and N is its arity."
`("head" ,_ ,f ,a)
`("goal" ,_ ,f ,a))
(setq id-at-point (list f a)))))))
- (sweeprolog--query-once "sweep" "sweep_functor_arity_pi"
- id-at-point)))))
+ (when id-at-point
+ (sweeprolog--query-once "sweep" "sweep_functor_arity_pi"
+ id-at-point))))))
;;;; Modules
@@ -2633,9 +2634,10 @@ of them signal success by returning non-nil."
(not (looking-at-p (rx bol (or "%" "/*"))))))
(defun sweeprolog-analyze-term-at-point (cb)
- (add-hook 'sweeprolog-analyze-region-fragment-hook cb nil t)
- (sweeprolog-analyze-term (point))
- (remove-hook 'sweeprolog-analyze-region-fragment-hook cb t))
+ (let ((sweeprolog--analyze-point (point)))
+ (add-hook 'sweeprolog-analyze-region-fragment-hook cb nil t)
+ (sweeprolog-analyze-term (point))
+ (remove-hook 'sweeprolog-analyze-region-fragment-hook cb t)))
(defun sweeprolog-definition-at-point (&optional point)
(save-excursion
- [nongnu] elpa/sweeprolog updated (8133821499 -> 7dfb85c88f), ELPA Syncer, 2022/11/19
- [nongnu] elpa/sweeprolog c131fdd5a5 4/8: Don't error in sweeprolog-analyze-term-at-point,
ELPA Syncer <=
- [nongnu] elpa/sweeprolog ac344f888b 6/8: * (sweeprolog-predicate-completion-at-point): fix pcase match, ELPA Syncer, 2022/11/19
- [nongnu] elpa/sweeprolog 5399f38aa2 7/8: * (sweeprolog-analyze-fragment-flymake): restrict syntax errors, ELPA Syncer, 2022/11/19
- [nongnu] elpa/sweeprolog 7dfb85c88f 8/8: Announce recent changes in NEWS.org and bump version to 0.8.9, ELPA Syncer, 2022/11/19
- [nongnu] elpa/sweeprolog d7b3dd6f87 1/8: * (sweeprolog-maybe-syntax-error-face): don't error in top-level, ELPA Syncer, 2022/11/19
- [nongnu] elpa/sweeprolog 2c99b60683 2/8: * (sweeprolog-identifier-at-point): fix module qualification, ELPA Syncer, 2022/11/19
- [nongnu] elpa/sweeprolog 1683c9a6c8 3/8: * (sweeprolog-predicate-completion-at-point): use holes for args, ELPA Syncer, 2022/11/19
- [nongnu] elpa/sweeprolog e49e93bfc5 5/8: * (sweeprolog-analyze-fragment-to-faces) fix comment highlighting, ELPA Syncer, 2022/11/19