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