Re: (interactive) and &optional

[Emanuel Berg]

Jean Louis wrote:

> (defun search-something (&optional query)
>    "Search something by using QUERY."
>    (interactive)
>    (let ((query (or query (read-from-minibuffer "Query: "))))
>      (message query)))

This has the same problem as before, it should look something
like this:

;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/geh.el

(defun search-something (&optional query)
  "Search something by using QUERY."
  (interactive "sQuery: ")
  (unless (and (stringp query)
               (not (string= "" query)) )
    (setq query "default search") )
  (message query) )

;; (search-something "love")         ; love
;; (search-something)                ; default search
;; M-x search-something RET RET      ; default search
;; M-x search-something RET love RET ; love

-- 
underground experts united
https://dataswamp.org/~incal