master 4f0849a9e6d 2/3: Remove unused values in effect context

[Mattias Engdegård]

branch: master
commit 4f0849a9e6d29e25d23e061bd81bacce9468856d
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    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.
---
 lisp/net/eudcb-mab.el    | 3 ++-
 lisp/org/ob-core.el      | 3 ++-
 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