Có thể để tách ra một quá trình con?

Tôi sử dụng browse-url/ browse-url-firefoxđể mở các liên kết trong Firefox từ bên trong Emacs 24.5.1 trong Linux (Fedora 23) về bản chất thực thi việc firefoxthực thi với URL bằng start-process. Nếu đã có một phiên bản Firefox đang chạy, điều này sẽ khiến URL được mở trong một tab mới và chấm dứt firefoxthực thi được sinh ra từ Emacs, nhưng nếu không, một phiên bản Firefox mới sẽ chạy như một quá trình con của Emacs (cho mục đích thử nghiệm , điều này tương đương với M-! sleep 1h & RET).

Nếu sau đó tôi muốn thoát Emacs, nó sẽ hỏi tôi "Các quy trình hoạt động tồn tại; giết chúng và thoát ra bằng cách nào?" với tùy chọn giết phiên bản Firefox hoặc, tốt, hãy để Emacs chạy. Thay vào đó, tôi muốn "tách" firefoxquá trình từ cha mẹ Emacs để tôi có thể thoát Emacs trong khi vẫn giữ phiên bản Firefox chạy.

Có thể sinh ra các quá trình từ Emacs "sống sót" thoát khỏi Emacs, hoặc tất cả các quá trình sinh sản sẽ chết khi Emacs thoát ra?

đây là giải pháp, rút ​​ngắn câu trả lời của @ abo-abo.

(cond
     ((string-equal system-type "windows-nt") ; Windows
      // ...
      )
     ((string-equal system-type "gnu/linux")
      (start-process "my-browse"
                     nil "setsid"
                     "firefox"
                     (concat "file://" buffer-file-name ))

      ;; (browse-url ξurl)
      )
     ((string-equal system-type "darwin") ; Mac
                // ...
                ))

Lưu ý rằng điều kiện là cần thiết, vì Mac không có setsid.

Đây là một lệnh thực hiện những gì bạn muốn:

(defun ora-dired-start-process (cmd &optional file-list)
  (interactive
   (let ((files (dired-get-marked-files
                 t current-prefix-arg)))
     (list
      (unless (eq system-type 'windows-nt)
        (dired-read-shell-command "& on %s: "
                                  current-prefix-arg files))
      files)))
  (if (eq system-type 'windows-nt)
      (dolist (file file-list)
        (w32-shell-execute "open" (expand-file-name file)))
    (let (list-switch)
      (start-process
       cmd nil shell-file-name
       shell-command-switch
       (format
        "nohup 1>/dev/null 2>/dev/null %s \"%s\""
        (if (and (> (length file-list) 1)
                 (setq list-switch
                       (cadr (assoc cmd ora-dired-filelist-cmd))))
            (format "%s %s" cmd list-switch)
          cmd)
        (mapconcat #'expand-file-name file-list "\" \""))))))

(define-key dired-mode-map "r" 'ora-dired-start-process)

Điều quan trọng ở đây là sử dụng nohup.

Xem nguồn tại đây .