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.

diff --git a/lisp/net/eudcb-mab.el b/lisp/net/eudcb-mab.el
index 08fc20f438adfdbb9370ccdf5109b85e6d8e1a57..805c742d9e0b1cfb47de3221890b238efcc52853 100644 (file)
--- 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 3f6696fce779b48ddeed23d2faef972f35f319c6..e69ce4f1d12790c74c7e3e1efa68787496e0a342 100644 (file)
--- 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 1b48fe9c3a873c64907952a64da0ead07fe91a28..66dea8803b3e801059659d59eb977a21a35e64e3 100644 (file)
--- 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