Có biến Emacs để tắt sao lưu các tệp có phần mở rộng cụ thể không?

Question

Ví dụ: khi chỉnh sửa các tệp dữ liệu khác nhau, dữ liệu sao lưu không sử dụng và thực sự thực hiện các công cụ của chúng tôi. Vì vậy, tôi muốn để có thể vô hiệu hóa sao lưu cho các tập tin có chứa một regexp trong tên.

justinhj

Answer 1

Tôi ghét phải chỉ đơn giản là tham khảo tài nguyên trực tuyến khác cho các câu hỏi như thế này, nhưng điều này dường như là một sự phù hợp hoàn hảo cho nhu cầu của bạn.

http://anirudhs.chaosnet.org/blog/2005.01.21.html

Khi bạn thiết lập đã gì được mô tả trên trang đó, bạn có thể chỉ cần thêm này để .emacs hoặc .emacs.d/init.el của bạn tập tin tùy thuộc vào phiên bản của emacs:

(setq auto-mode-alist (append '(("\\.ext1$" . sensitive-mode)) auto-mode-alist)) 
(setq auto-mode-alist (append '(("\\.ext2$" . sensitive-mode)) auto-mode-alist)) 
(setq auto-mode-alist (append '(("\\.ext3$" . sensitive-mode)) auto-mode-alist)) 
(setq auto-mode-alist (append '(("\\.ext4$" . sensitive-mode)) auto-mode-alist)) 

đâu \\.ext1$, \\.ext2$, vv là các cụm từ thông dụng khớp với tên tệp bạn không muốn sao lưu.

Answer 2

Bạn luôn có thể yêu cầu emacs đặt các tệp sao lưu/lưu tự động trong thư mục chính của bạn.

http://amitp.blogspot.com/2007/03/emacs-move-autosave-and-backup-files.html

(defvar user-temporary-file-directory 
    (concat temporary-file-directory user-login-name "/")) 
(make-directory user-temporary-file-directory t) 
(setq backup-by-copying t) 
(setq backup-directory-alist 
     `(("." . ,user-temporary-file-directory) 
     (,tramp-file-name-regexp nil))) 
(setq auto-save-list-file-prefix 
     (concat user-temporary-file-directory ".auto-saves-")) 
(setq auto-save-file-name-transforms 
     `((".*" ,user-temporary-file-directory t))) 

Answer 3

Nếu bạn muốn sử dụng được xây dựng trong chức năng Emacs làm điều gì đó như thế này:

(defvar my-backup-ignore-regexps (list "foo.*" "\\.bar$") 
    "*List of filename regexps to not backup") 

(defun my-backup-enable-p (name) 
    "Filter certain file backups" 
    (when (normal-backup-enable-predicate name) 
    (let ((backup t)) 
     (mapc (lambda (re) 
       (setq backup (and backup (not (string-match re name))))) 
      my-backup-ignore-regexps) 
     backup))) 

(setq backup-enable-predicate 'my-backup-enable-p)