[emacs] нужно написать скрипт

(defun user-save-and-make-all-with-ext-command () 
  "save and call compile as make all"
  (interactive) 
  (save-buffer)
  (compile "make -k")  
  (shell-command-to-string "xterm -e \"./somecommand\"")
  (message "make -k executed!"))

Так?

хмм. консоль открывается, но тут же закрывается. В программе написал std::cin >> a; в обычной консоли все хорошо, а тут консоль не ждет пока я что нибудь введу. Но суть правильная, сейчас может сам додумаюсь, я про shell-command не знал.

А все понял, поменял somecommand на имя своей программы, работает как надо. Вот только теперь вопрос, можно ли что бы имя само подставлялось. Скажем из мейк файла поля target, TARGET = main что бы подставлялось main

я бы вместо
(compile "make -k")
написал
(call-interactively 'compile)
это вызывает компилятор, записанный
в переменной compile-command
А по умолчанию значение переменной равно "make -k"

(defun get-target-filename (makefile &optional key-name)
  (with-current-buffer (find-file makefile t)
    (let ((real-key-name (if key-name key-name "TARGET"))
          target)
      (when (re-search-forward (concat "" real-key-name "\\s +=\\s +\\([a-zA-Z0-9|\\.]+\\)") nil t nil)
        (setq target (match-string 1)))
      (kill-buffer (current-buffer))
      target)))


(defun user-save-and-make-all () 
  "save and call compile as make all"
  (interactive) 
  (save-buffer)
  (call-interactively 'compile)
  (shell-command-to-string (concat "xterm -e \"./" (get-target-filename (concat compilation-directory "/Makefile")) "\""))
  (message "make -k executed!"))

Как-то так.

Йа идиот. Даже так:

(defun get-target-filename (makefile &optional key-name)
  (with-current-buffer (find-file makefile t)
    (let* ((real-key-name (if key-name key-name "TARGET"))
           (target (when (re-search-forward (concat "" real-key-name "\\s +=\\s +\\([a-zA-Z0-9|\\.]+\\)") nil t nil)
                     (match-string 1))))      
      (kill-buffer (current-buffer))
      target)))

Спасибо большое. То что нужно