Udate function name in docstring

master
Matthew 6 years ago
parent 83ea06b611
commit 18f2376ab3
  1. 8
      eaf.el

@ -7,7 +7,7 @@
;; Copyright (C) 2018, Andy Stewart, all rights reserved. ;; Copyright (C) 2018, Andy Stewart, all rights reserved.
;; Created: 2018-06-15 14:10:12 ;; Created: 2018-06-15 14:10:12
;; Version: 0.5 ;; Version: 0.5
;; Last-Updated: Fri Dec 20 03:26:28 2019 (-0500) ;; Last-Updated: Fri Dec 20 12:26:06 2019 (-0500)
;; By: Mingde (Matthew) Zeng ;; By: Mingde (Matthew) Zeng
;; URL: http://www.emacswiki.org/emacs/download/eaf.el ;; URL: http://www.emacswiki.org/emacs/download/eaf.el
;; Keywords: ;; Keywords:
@ -173,7 +173,7 @@ the app buffer has initialized."
(defvar eaf-http-proxy-port "") (defvar eaf-http-proxy-port "")
(defvar eaf-find-alternate-file-in-dired nil (defvar eaf-find-alternate-file-in-dired nil
"If non-nil, when calling `eaf-file-open-in-dired', EAF unrecognizable files will be opened "If non-nil, when calling `eaf-open-this-from-dired', EAF unrecognizable files will be opened
by `dired-find-alternate-file'. Otherwise they will be opened normally with `dired-find-file'.") by `dired-find-alternate-file'. Otherwise they will be opened normally with `dired-find-file'.")
(defcustom eaf-name "*eaf*" (defcustom eaf-name "*eaf*"
@ -413,7 +413,7 @@ For now only EAF browser app is supported."
"Start EAF process if it hasn't started yet." "Start EAF process if it hasn't started yet."
(interactive) (interactive)
(if (process-live-p eaf-process) (if (process-live-p eaf-process)
(message "EAF process has started.") (message "EAF - Process has started.")
(setq eaf-process (setq eaf-process
(apply #'start-process (apply #'start-process
eaf-name eaf-name
@ -427,7 +427,7 @@ For now only EAF browser app is supported."
(when (string-prefix-p "exited abnormally with code" event) (when (string-prefix-p "exited abnormally with code" event)
(switch-to-buffer eaf-name)) (switch-to-buffer eaf-name))
(message "%s %s" process (replace-regexp-in-string "\n$" "" event)))) (message "%s %s" process (replace-regexp-in-string "\n$" "" event))))
(message "EAF process starting..."))) (message "EAF - Process starting...")))
(defun eaf-stop-process () (defun eaf-stop-process ()
(interactive) (interactive)

Loading…
Cancel
Save