procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/textmodes/two-column.el: Address FIXME

Browse source 
(2C-associate-buffer): Move minibuffer interactive to the `interactive` spec.
This commit is contained in:
Stefan Monnier 2021-04-13 09:59:23 -04:00
parent cf605d56f9
commit 1db460784e
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/textmodes/two-column.el
View file

@ -319,16 +319,17 @@ first and the associated buffer to its right."
;;;###autoload
(defun 2C-associate-buffer ()
"Associate another buffer with this one in two-column minor mode.
(defun 2C-associate-buffer (buffer)
"Associate another BUFFER with this one in two-column minor mode.
Can also be used to associate a just previously visited file, by
accepting the proposed default buffer.
\(See \\[describe-mode] .)"
(interactive)
(interactive
(list (or (2C-other)
(read-buffer "Associate buffer: " (other-buffer)))))
(let ((b1 (current-buffer))
(b2 (or (2C-other)
(read-buffer "Associate buffer: " (other-buffer)))))
(b2 buffer))
(setq 2C-mode nil)
(with-current-buffer b2
(and (2C-other)