Emacs - 调用时出错（服务器启动）

我在 EmacsWiki 上找到了这个解决方案：

“问题是目录 ~/.emacs.d/server 的所有权，当您对您的帐户还拥有“管理员”权限时。创建目录 ~/.emacs.d/server 并将该目录的所有者设置为您的登录名名称，问题就消失了。因为我有一个“荷兰”版本的 Windows 7，我不知道确切的英文术语，但这里是过程：

在 ~/.emacs.d/server 上单击 R 鼠标并选择“属性”（菜单中的最后一项）。从“属性”中选择“安全”选项卡，然后选择“高级”按钮。然后选择“所有者”选项卡并将所有者从 Administrators (<your-pc-name>\Administrators) 更改为 <your-login-name> (<your-pc-name>\<your-login-name>。现在服务器代码将接受此目录作为安全目录，因为您是所有者。

希望这对你们所有人都有帮助，无论如何它为我解决了问题。

WKR 罗伊特弗勒特"

它绝对适用于带有 Emacs 23.2.1 的 Vista。

---

我喜欢回答 larsreed，但可以使用的复杂代码：

(require 'server)
(when (and (>= emacs-major-version 23)
           (equal window-system 'w32))
  (defun server-ensure-safe-dir (dir) "Noop" t)) ; Suppress error "directory
                                                 ; ~/.emacs.d/server is unsafe"
                                                 ; on windows.
(server-start)

我在我的博客文章 http://brain-break.blogspot.com/2009/08/when-moving-from-gnu-emacs-22.html 中讨论了这个问题

另请注意，在 2009-09-19 中修复了关于 server-ensure-safe-dir 的错误 #4197，因此在传入的 Emacs 23.2 中不需要此解决方法。

在最近发布的 Emacs 23.2 下，我有这样的警告：

警告（服务器）：使用 ~/.emacs.d/server 存储 Emacs 服务器身份验证文件。 FAT32 文件系统上的目录不能防止篡改。有关详细信息，请参见变量 server-auth-dir。

要解决此问题，您可以将 server-auth-dir 指向 NTFS 分区（%APPDATA% 通常位于 Windows %SYSTEMDRIVE%，用户通常将系统驱动器格式化为 NTFS 分区）：

(require 'server)
(when (and (eq window-system 'w32) (file-exists-p (getenv "APPDATA")))
  (setq server-auth-dir (concat (getenv "APPDATA") "/.emacs.d/server"))
  (make-directory server-auth-dir)  )
(server-start)

---

这是 Windows 上已知的 Emacs 错误。一种解决方法是在 server.el 中的 server-ensure-safe-dir 中注释掉这一行，您需要在更改后重新编译字节：

;; FIXME: Busted on Windows. 
;; (eql (nth 2 attrs) (user-uid)) 

---

为避免在 lisp 目录中被黑客入侵，您只需将以下内容添加到您的 .emacs 中：

(require 'server) (and (>= emacs-major-version 23) (defun server-ensure-safe-dir (dir) "Noop" t))

---

此外，您不希望服务器以批处理模式启动。因此，在我的 .emacs 中，我使用

(defconst --batch-mode 
  (or noninteractive (member "--batch-mode" command-line-args))
  "True when running in batch-mode (--batch-mode command-line switch set).")

接着

(unless --batch-mode
  (require 'server)
  (when (and (= emacs-major-version 23)
         (= emacs-minor-version 1)
         (equal window-system 'w32))
    ;; Suppress error "directory ~/.emacs.d/server is unsafe" on Windows.
    (defun server-ensure-safe-dir (dir) "Noop" t))
  (server-start))

服务器功能仍然反复无常：当 %HOME%/.emacs.d/server 目录不存在时抛出 server-start。连续 Emacs 不会再启动了！显而易见的解决方案是创建丢失的目录并重试；我在网上的某个地方找到了解决方案，但真的不记得在哪里。以下代码在我的几台 Windows 机器上成功运行多年：

(unless --batch-mode
  (require 'server)
  (when (and (= emacs-major-version 23)
         (= emacs-minor-version 1)
         (equal window-system 'w32))
    ;; Suppress error "directory ~/.emacs.d/server is unsafe" on Windows.
    (defun server-ensure-safe-dir (dir) "Noop" t))
  (condition-case nil
      (server-start)
    (error
     (let* ((server-dir (if server-use-tcp server-auth-dir server-socket-dir)))
       (when (and server-use-tcp
          (not (file-accessible-directory-p server-dir)))
     (display-warning
      'server (format "Creating %S" server-dir) :warning)
     (make-directory server-dir t)
     (server-start))))
    )
  )

此代码在从棒上运行 Emacs 时也有效。

希望这可以帮助。

---

在 Windows 7 中对我不起作用。

相反，我阅读了 server-ensure-safe-dir 中的注释并继续获取 %APPDATA% forlder 和子文件夹的所有权。它们归本地管理员所有，而不是我。

这有帮助！

---

来自 givenkoa 的非常有帮助的回答。我在 Emacs 24.1、Windows 2003 上遇到了这个问题。

不幸的是，正如您在第一个代码段中所建议的那样，覆盖 server-ensure-safe-dir 以成为一个 noop 并不适用于所有情况。具体来说，在 (server-start) 至少执行一次之前应用它不起作用，因为如果目录不存在，初始执行也会创建目录。使用 noop 版本，根本不会创建目录。

对我有用的解决方法是消除错误消息，同时仍然正确创建目录，是以下代码，放在我的 Emacs 初始化文件中的（服务器启动）之前。它提出了一个关于 server-ensure-safe-dir 的建议，以忽略从那里引发的任何错误。不能解决问题的根本原因，但对我来说已经足够了。

(defadvice server-ensure-safe-dir (around
                                   my-around-server-ensure-safe-dir
                                   activate)
  "Ignores any errors raised from server-ensure-safe-dir"
  (ignore-errors ad-do-it))

---

如果是 RealityMonster 发现的服务器文件夹所有权问题，那么您可以在 Windows 命令提示符下运行它来修复它：

takeown /f %USERPROFILE%\.emacs.d\server /r /d y

---

下面的步骤对我有用： 1. 将下面的代码作为 .reg 文件执行。 Emacs win 版本会将注册表中的任何值视为 Env Var。

[HKEY_LOCAL_MACHINE\SOFTWARE\GNU\Emacs]
"HOME"="C:/<your_emacs_home>"
"EMACS_SERVER_FILE"="C:/<your_emacs_home>/server/main_server"
"ALTERNATE_EDITOR"="C:/<your_emacs_loc>/bin/runemacs.exe"

将下面的代码添加到您的 .emacs/init.el。这里的关键应该是“server-auth-dir”。

(require 'server)
(setq server-auth-dir "~/server")  ;;Server file location
(setq server-name "main_server")   ;;Server mutex file name
(server-start)

通过以上步骤，服务器模式对我来说正确且完美。

---

万一这偶尔打到人，我的工作站刚刚经历了“域迁移”，它为盒子上的每个文件添加了另一个权限，然后我开始收到这个错误。在我将表达式添加到虚拟“server-ensure-safe-dir”之后，这停止了失败。

（如果您想知道，迁移将分 2-3 步进行。第一个在目标域中为我添加权限，然后我被移动到目标域，然后他们可能会（我不确定) 删除旧域的权限。这是一家大公司，有很多用户，所以他们分步进行。）

---

上次我尝试时，“取得所有权”外壳扩展完成了这项工作

---