Mercurial > emacs
comparison lisp/files.el @ 91015:b83d0dadb2a7
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 857-865)
- Update from CVS
- Merge from emacs--rel--22
- Update from CVS: lisp/emacs-lisp/avl-tree.el: New file.
- Remove RCS keywords
* emacs--rel--22 (patch 97-100)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 246-247)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-252
author | Miles Bader <miles@gnu.org> |
---|---|
date | Wed, 29 Aug 2007 05:03:40 +0000 |
parents | 424b655804ca 17609106f057 |
children | 14c4a6aac623 |
comparison
equal
deleted
inserted
replaced
91014:2392e6a45952 | 91015:b83d0dadb2a7 |
---|---|
2024 ("\\.sgml?\\'" . sgml-mode) | 2024 ("\\.sgml?\\'" . sgml-mode) |
2025 ("\\.x[ms]l\\'" . xml-mode) | 2025 ("\\.x[ms]l\\'" . xml-mode) |
2026 ("\\.dtd\\'" . sgml-mode) | 2026 ("\\.dtd\\'" . sgml-mode) |
2027 ("\\.ds\\(ss\\)?l\\'" . dsssl-mode) | 2027 ("\\.ds\\(ss\\)?l\\'" . dsssl-mode) |
2028 ("\\.js\\'" . java-mode) ; javascript-mode would be better | 2028 ("\\.js\\'" . java-mode) ; javascript-mode would be better |
2029 ("\\.x[bp]m\\'" . c-mode) | |
2030 ;; .emacs or .gnus or .viper following a directory delimiter in | 2029 ;; .emacs or .gnus or .viper following a directory delimiter in |
2031 ;; Unix, MSDOG or VMS syntax. | 2030 ;; Unix, MSDOG or VMS syntax. |
2032 ("[]>:/\\]\\..*\\(emacs\\|gnus\\|viper\\)\\'" . emacs-lisp-mode) | 2031 ("[]>:/\\]\\..*\\(emacs\\|gnus\\|viper\\)\\'" . emacs-lisp-mode) |
2033 ("\\`\\..*emacs\\'" . emacs-lisp-mode) | 2032 ("\\`\\..*emacs\\'" . emacs-lisp-mode) |
2034 ;; _emacs following a directory delimiter | 2033 ;; _emacs following a directory delimiter |
3179 ;; loosen them later, whereas it's impossible to close the | 3178 ;; loosen them later, whereas it's impossible to close the |
3180 ;; time-window of loose permissions otherwise. | 3179 ;; time-window of loose permissions otherwise. |
3181 (set-default-file-modes ?\700) | 3180 (set-default-file-modes ?\700) |
3182 (while (condition-case () | 3181 (while (condition-case () |
3183 (progn | 3182 (progn |
3184 (condition-case nil | 3183 (and (file-exists-p to-name) |
3185 (delete-file to-name) | 3184 (delete-file to-name)) |
3186 (file-error nil)) | |
3187 (copy-file from-name to-name nil t) | 3185 (copy-file from-name to-name nil t) |
3188 nil) | 3186 nil) |
3189 (file-already-exists t)) | 3187 (file-already-exists t)) |
3190 ;; The file was somehow created by someone else between | 3188 ;; The file was somehow created by someone else between |
3191 ;; `delete-file' and `copy-file', so let's try again. | 3189 ;; `delete-file' and `copy-file', so let's try again. |
3190 ;; rms says "I think there is also a possible race | |
3191 ;; condition for making backup files" (emacs-devel 20070821). | |
3192 nil)) | 3192 nil)) |
3193 ;; Reset the umask. | 3193 ;; Reset the umask. |
3194 (set-default-file-modes umask))) | 3194 (set-default-file-modes umask))) |
3195 (and modes | 3195 (and modes |
3196 (set-file-modes to-name (logand modes #o1777)))) | 3196 (set-file-modes to-name (logand modes #o1777)))) |