Re: Returning value from function

[Jean Louis]

* Heime <heimeborgia@protonmail.com> [2022-11-02 08:08]:
> 
> I want the following function to return an indicator (Green or
> Amber).  How can this be done?

Sure, but me personally, I prefer using `cond' but would not mix it with `if' 
in the same time:

Instead of:

(defun txcomplt-light (featr)
  "DOCSTRING."
  (cond
   ((eq 'company featr)
    (if (equal 2 (aref recorder 0))
        (message "Light | Green")
      (message "Light | Amber")))
   ((eq 'corfu featr)
    (if (equal 2 (aref recorder 1))
        (message "Light | Green")
      (message "Light | Amber")))) )

(defun txcomplt-light (featr)
  "DOCSTRING."
  (cond ((and (eq 'company featr) (equal 2 (aref recorder 0))) (message "Light 
| Green"))
        ((and (eq 'corfu featr) (equal 2 (aref recorder 1))) (message "Light | 
Amber"))))

However, I did not maybe make your logic right. I hope you see that `if' is not 
necessary. 

To make function return anything, just make the value that you wish returned 
the last one:

(defun txcomplt-light (featr)
  "DOCSTRING."
  (cond ((and (eq 'company featr) (equal 2 (aref recorder 0))) 
         (message "Light | Green")
         "Green") ;; this is what is returned
        ((and (eq 'corfu featr) (equal 2 (aref recorder 1))) 
         (message "Light | Amber")
         "Amber"))) ;; this is what is returned

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/