summaryrefslogtreecommitdiff
path: root/lisp/progmodes/prolog.el
diff options
context:
space:
mode:
authorMattias EngdegÄrd <mattiase@acm.org>2023-04-09 15:27:28 +0200
committerMattias EngdegÄrd <mattiase@acm.org>2023-04-09 16:45:40 +0200
commit4f0849a9e6d29e25d23e061bd81bacce9468856d (patch)
treebea87cb0664401382f8f71061a3d4d5f4fad4bae /lisp/progmodes/prolog.el
parent48ff93ba18c8fae6c2904d40906cd0e13158b688 (diff)
downloademacs-4f0849a9e6d29e25d23e061bd81bacce9468856d.tar.gz
Remove unused values in effect context
* lisp/net/eudcb-mab.el (eudc-mab-query-internal): * lisp/org/ob-core.el (org-babel-insert-result): * lisp/progmodes/prolog.el (prolog-smie-forward-token) (prolog-smie-backward-token): Silence ignored-return-value warnings about calls to side-effect-free functions in the last clause of `cond` statements whose values are unused.
Diffstat (limited to 'lisp/progmodes/prolog.el')
-rw-r--r--lisp/progmodes/prolog.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 1b48fe9c3a8..66dea8803b3 100644
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -828,7 +828,7 @@ Relevant only when `prolog-imenu-flag' is non-nil."
((not (zerop (skip-chars-forward prolog-operator-chars))))
((not (zerop (skip-syntax-forward "w_'"))))
;; In case of non-ASCII punctuation.
- ((not (zerop (skip-syntax-forward ".")))))
+ (t (skip-syntax-forward ".")))
(point))))
(defun prolog-smie-backward-token ()
@@ -842,7 +842,7 @@ Relevant only when `prolog-imenu-flag' is non-nil."
((not (zerop (skip-chars-backward prolog-operator-chars))))
((not (zerop (skip-syntax-backward "w_'"))))
;; In case of non-ASCII punctuation.
- ((not (zerop (skip-syntax-backward ".")))))
+ (t (skip-syntax-backward ".")))
(point))))
(defconst prolog-smie-grammar