Re: Changing buffer mode

[carlmarcos]

Jul 22, 2022, 04:13 by incal@dataswamp.org:

> carlmarcos--- via Users list for the GNU Emacs text editor wrote:
>
>> Have come up with the following [...]
>>
>
> How did you come up with that?
>
>From studying your code and my original code.  Do you approve of it, or could 
>it be improved
a bit more?

(defun mode-sweep (mode)
  "Cycle the buffer through three major modes (text, org, normal)."

  (interactive
   (list
    (let ( (cseq '("org-mode" "text-mode" "normal-mode")) )
      (completing-read "Mode: " cseq nil t "normal"))))

  (apply (list (intern mode))) )