удар: перестали работать, если сценарий не выполняется корнем

У меня есть это для изменения yes или no подсказка к y или n подсказки:

(fset 'yes-or-no-p 'y-or-n-p)

у меня есть они для запуска Emacs без такой "шумихи", которую я получил от этот вопрос .

(setq inhibit-startup-echo-area-message t)
(setq inhibit-startup-message t)

И Steve Yegge функция для переименования файла, который Вы редактируете наряду с его соответствующим буфером:

(defun rename-file-and-buffer (new-name)
  "Renames both current buffer and file it's visiting to NEW-NAME."
  (interactive "sNew name: ")
  (let ((name (buffer-name))
 (filename (buffer-file-name)))
    (if (not filename)
 (message "Buffer '%s' is not visiting a file!" name)
      (if (get-buffer new-name)
   (message "A buffer named '%s' already exists!" new-name)
 (progn
   (rename-file name new-name 1)
   (rename-buffer new-name)
   (set-visited-file-name new-name)
   (set-buffer-modified-p nil))))))

14
задан flybywire 29 October 2009 в 06:41
поделиться