|
| From: | Emanuel Berg |
| Subject: | Re: Keybinding that loops through Major Modes |
| Date: | Tue, 03 Nov 2020 00:29:50 +0100 |
| User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) |
> (defun iterate-major-mode ()
> (interactive)
> (let*((modes (list #'emacs-lisp-mode #'perl-mode #'text-mode))
> (new-mode (or (cadr (member major-mode modes)) (car modes))) )
> (apply `(,new-mode)) ))
> ;; (iterate-major-mode)
Maybe this looks better:
(defun iterate-major-mode ()
(interactive)
(let*((modes (list #'emacs-lisp-mode #'perl-mode #'text-mode))
(new-mode (or (cadr (member major-mode modes)) (car modes))) )
(apply (list new-mode))) )
;; (iterate-major-mode)
--
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal
| [Prev in Thread] | Current Thread | [Next in Thread] |