diff options
author | Mattias EngdegÄrd <mattiase@acm.org> | 2023-04-09 15:27:28 +0200 |
---|---|---|
committer | Mattias EngdegÄrd <mattiase@acm.org> | 2023-04-09 16:45:40 +0200 |
commit | 4f0849a9e6d29e25d23e061bd81bacce9468856d (patch) | |
tree | bea87cb0664401382f8f71061a3d4d5f4fad4bae | |
parent | 48ff93ba18c8fae6c2904d40906cd0e13158b688 (diff) | |
download | emacs-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.
-rw-r--r-- | lisp/net/eudcb-mab.el | 3 | ||||
-rw-r--r-- | lisp/org/ob-core.el | 3 | ||||
-rw-r--r-- | lisp/progmodes/prolog.el | 4 |
3 files changed, 6 insertions, 4 deletions
diff --git a/lisp/net/eudcb-mab.el b/lisp/net/eudcb-mab.el index 08fc20f438a..805c742d9e0 100644 --- a/lisp/net/eudcb-mab.el +++ b/lisp/net/eudcb-mab.el @@ -86,7 +86,8 @@ RETURN-ATTRS is a list of attributes to return, defaulting to ((eq (car term) 'email) (unless (string= (cdr term) mail) (setq matched nil))) - ((eq (car term) 'phone)))) + ;; ((eq (car term) 'phone)) + )) (when matched (setq result diff --git a/lisp/org/ob-core.el b/lisp/org/ob-core.el index 3f6696fce77..e69ce4f1d12 100644 --- a/lisp/org/ob-core.el +++ b/lisp/org/ob-core.el @@ -2426,7 +2426,8 @@ INFO may provide the values of these header arguments (in the (delete-region (point) (org-babel-result-end))) ((member "append" result-params) (goto-char (org-babel-result-end)) (setq beg (point-marker))) - ((member "prepend" result-params))) ; already there + ;; ((member "prepend" result-params)) ; already there + ) (setq results-switches (if results-switches (concat " " results-switches) "")) (let ((wrap 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 |