Re: Returning value from function

[Jean Louis <bugs@gnu.support>]

* 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/