Mercurial > emacs
comparison lisp/dos-w32.el @ 71428:4dc3f74ad23f
(top level): Use find-file-not-found-functions instead of the obsolete
find-file-not-found-hooks.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 23 Jun 2006 10:39:05 +0000 |
| parents | 3bd95f4f2941 |
| children | d317c5ea9079 138ce2701550 |
comparison
equal
deleted
inserted
replaced
| 71427:2b086f630764 | 71428:4dc3f74ad23f |
|---|---|
| 184 (setq coding (coding-system-change-eol-conversion coding 0)) | 184 (setq coding (coding-system-change-eol-conversion coding 0)) |
| 185 (setq buffer-file-coding-system coding)) | 185 (setq buffer-file-coding-system coding)) |
| 186 (setq buffer-file-type (eq buffer-file-coding-system 'no-conversion))))) | 186 (setq buffer-file-type (eq buffer-file-coding-system 'no-conversion))))) |
| 187 | 187 |
| 188 ;;; To set the default coding system on new files. | 188 ;;; To set the default coding system on new files. |
| 189 (add-hook 'find-file-not-found-hooks | 189 (add-hook 'find-file-not-found-functions |
| 190 'find-file-not-found-set-buffer-file-coding-system) | 190 'find-file-not-found-set-buffer-file-coding-system) |
| 191 | 191 |
| 192 ;;; To accomodate filesystems that do not require CR/LF translation. | 192 ;;; To accomodate filesystems that do not require CR/LF translation. |
| 193 (defvar untranslated-filesystem-list nil | 193 (defvar untranslated-filesystem-list nil |
| 194 "List of filesystems that require no CR/LF translation when reading | 194 "List of filesystems that require no CR/LF translation when reading |