Revisions to Switch to most recent buffer in a given mode

deleted 15 characters in body

edited Apr 23, 2021 at 1:22

369
2
8

[edited (again) to add:] CodeThe amended to reflectcode below works (taken from phils's suggestions in the answer below).

deleted 1 character in body

Source Link

edited Apr 23, 2021 at 0:58

Pablo

369
2
8

[edit[edited (again) to add:] Code amended to reflect phils's suggestions in the answer below.

(defun switch-to-most-recent-buffer-in-mode (mode) (interactive "C") (let (found) (catch 'done (mapc (lambda (x) (when (with-current-buffer x (eq major-mode 'modemode)) (switch-to-buffer x) (setq found t) (throw 'done nil))) (buffer-list)) (unless found (message "not found")))))

[edit to add:] Code amended to reflect phils's suggestions in the answer below.

(defun switch-to-most-recent-buffer-in-mode (mode) (interactive "C") (let (found) (catch 'done (mapc (lambda (x) (when (with-current-buffer x (eq major-mode 'mode)) (switch-to-buffer x) (setq found t) (throw 'done nil))) (buffer-list)) (unless found (message "not found")))))

[edited (again) to add:] Code amended to reflect phils's suggestions in the answer below.

(defun switch-to-most-recent-buffer-in-mode (mode) (interactive "C") (let (found) (catch 'done (mapc (lambda (x) (when (with-current-buffer x (eq major-mode mode)) (switch-to-buffer x) (setq found t) (throw 'done nil))) (buffer-list)) (unless found (message "not found")))))

added 480 characters in body

Source Link

edited Apr 23, 2021 at 0:42

Pablo

369
2
8

--

[edit to add:] Code amended to reflect phils's suggestions in the answer below.

(defun switch-to-most-recent-buffer-in-mode (mode) (interactive "C") (let (found) (catch 'done (mapc (lambda (x) (when (with-current-buffer x (eq major-mode 'mode)) (switch-to-buffer x) (setq found t) (throw 'done nil))) (buffer-list)) (unless found (message "not found")))))

--

[edit to add:] Code amended to reflect phils's suggestions in the answer below.

(defun switch-to-most-recent-buffer-in-mode (mode) (interactive "C") (let (found) (catch 'done (mapc (lambda (x) (when (with-current-buffer x (eq major-mode 'mode)) (switch-to-buffer x) (setq found t) (throw 'done nil))) (buffer-list)) (unless found (message "not found")))))