LINUX.ORG.RU

История изменений

Исправление Bad_ptr, (текущая версия) :

Во, как-то так, в .emacs:

(defvar emacs-command-file-name "/tmp/emacs-cmd")
(defvar emacs-command-buffer (or (find-buffer-visiting emacs-command-file-name)
                                 (with-current-buffer (find-file-noselect emacs-command-file)
                                   (save-buffer)
                                   (current-buffer))))
(with-current-buffer emacs-command-buffer
  (add-hook 'after-revert-hook
            #'(lambda ()
                (let ((files (split-string
                              (with-current-buffer emacs-command-buffer
                                (let ((ret (buffer-string)))
                                  (erase-buffer)
                                  ret))
                              "\n" t "[ \t\n]"))))
                (mapc #'find-file files))
            nil t)
  (auto-revert-mode))
Ну и соответственно editor.sh 
#!/bin/bash
echo "$1\" >> ~/.emacs.d/cmdfile

Ну или с евалом можно.

Исправление Bad_ptr, :

Во, как-то так, в .emacs:

(defvar emacs-command-file-name "/tmp/emacs-cmd")
(defvar emacs-command-buffer (or (find-buffer-visiting emacs-command-file-name)
                                 (with-current-buffer (create-file-buffer emacs-command-file)
                                   (save-buffer)
                                   (current-buffer))))
(with-current-buffer emacs-command-buffer
  (add-hook 'after-revert-hook
            #'(lambda ()
                (let ((files (split-string
                              (with-current-buffer emacs-command-buffer
                                (let ((ret (buffer-string)))
                                  (erase-buffer)
                                  ret))
                              "\n" t "[ \t\n]"))))
                (mapc #'find-file files))
            nil t)
  (auto-revert-mode))
Ну и соответственно editor.sh 
#!/bin/bash
echo "$1\" >> ~/.emacs.d/cmdfile

Ну или с евалом можно.

Исправление Bad_ptr, :

Во, как-то так, в .emacs:

(defvar emacs-command-file-name "/tmp/emacs-cmd")
(defvar emacs-command-buffer (or (find-buffer-visiting emacs-command-file-name)
                                 (with-current-buffer (create-file-buffer emacs-command-file)
                                   (save-buffer)
                                   (current-buffer))))
(with-current-buffer emacs-command-buffer
  (add-hook 'after-revert-hook
            #'(lambda ()
                (find-file (with-current-buffer emacs-command-buffer
                             (let ((ret (buffer-string)))
                               (erase-buffer)
                               ret))))
            nil t)
  (auto-revert-mode))
Ну и соответственно editor.sh 
#!/bin/bash
echo "$1\" >> ~/.emacs.d/cmdfile

Ну или с евалом можно.

Исходная версия Bad_ptr, :

Во, как-то так, в .emacs:

(defvar emacs-command-file-name "/tmp/emacs-cmd")
(defvar emacs-command-buffer (or (find-buffer-visiting emacs-command-file-name)
                                 (with-current-buffer (create-file-buffer emacs-command-file)
                                   (save-buffer)
                                   (current-buffer))))
(with-current-buffer emacs-command-buffer
  (add-hook 'after-revert-hook
            #'(lambda ()
                (find-file (with-current-buffer emacs-command-buffer
                             (let ((ret (buffer-string)))
                               (erase-buffer)
                               ret))))
            nil t)
  (auto-revert-mode))