Как узнать, запущен ли сервер emacs

Question

Я хотел бы выполнить некоторый код в моем файле инициализации, только если запущен сервер emacs (особенно, если emacs запускается с флагом --daemon).Кажется, что при вызове server-start не работает какой-либо хук, и нет никакой переменной, на которую я могу посмотреть, чтобы проверить, работает ли сервер.Функция сервера не загружается, если сервер не запущен, и это, похоже, работает для моих целей, но я хотел бы знать, каков правильный способ сделать это.Спасибо.

Answer 1

Если процесс сервера запущен, связанный объект процесса - server-process. Проверка, если server-process не ноль, говорит вам, должен ли сервер работать; Вы можете проверить его статус, чтобы убедиться, что он находится в приемлемом состоянии.

(and (boundp 'server-process)
     (memq (process-status server-process) '(connect listen open run)))

Вы можете проверить, вызывался ли Emacs как демон, с помощью (daemonp).

Answer 2

Обновление: код, выложенный Жилем, выдает, если в буфере нет процесса, например «Буфер нуля не имеет процесса». Когда этот код используется в ~ / .emacs.el , мы рискуем не запускать Emacs. Чтобы поймать ошибку:

(defun --running-as-server ()
    "Returns true if `server-start' has been called."
  (condition-case nil
      (and (boundp 'server-process)
           (memq (process-status server-process)
                 '(connect listen open run)))
    (error)))