(defun meld-buffers (buffer-A buffer-B) "Run Meld on a pair of buffers, BUFFER-A and BUFFER-B." (interactive (list (read-buffer "Buffer A to compare: ") (read-buffer "Buffer B to compare: "))) (unless (executable-find "meld") (error "meld not found")) (setq buffer-A (buffer-file-name (get-buffer buffer-A))) (setq buffer-B (buffer-file-name (get-buffer buffer-B))) (start-process-shell-command "meld