Mercurial > hg > xemacs-beta

comparison lisp/prim/files.el @ 201:eb5470882647 r20-3b27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b27
author cvs
date Mon, 13 Aug 2007 10:01:22 +0200
parents a2f645c6b9f8
children e45d5e7c476e
comparison
equal deleted inserted replaced
200:f0deb0c0e6be 201:eb5470882647
1193 ;;; so more common ones above are found faster. 1193 ;;; so more common ones above are found faster.
1194 ("\\.p[lm]\\'" . perl-mode) 1194 ("\\.p[lm]\\'" . perl-mode)
1195 ("\\.py\\'" . python-mode) 1195 ("\\.py\\'" . python-mode)
1196 ("\\.texi\\(nfo\\)?\\'" . texinfo-mode) 1196 ("\\.texi\\(nfo\\)?\\'" . texinfo-mode)
1197 ("\\.ad[abs]\\'" . ada-mode) 1197 ("\\.ad[abs]\\'" . ada-mode)
1198 ("\\.l\\(i?sp\\)?\\'" . lisp-mode) 1198 ("\\.c?l\\(i?sp\\)?\\'" . lisp-mode)
1199 ("\\.p\\(as\\)?\\'" . pascal-mode) 1199 ("\\.p\\(as\\)?\\'" . pascal-mode)
1200 ("\\.ltx\\'" . latex-mode) 1200 ("\\.ltx\\'" . latex-mode)
1201 ("\\.[sS]\\'" . asm-mode) 1201 ("\\.[sS]\\'" . asm-mode)
1202 ("[Cc]hange.?[Ll]og?\\(.[0-9]+\\)?\\'" . change-log-mode) 1202 ("[Cc]hange.?[Ll]og?\\(.[0-9]+\\)?\\'" . change-log-mode)
1203 ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode) 1203 ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode)
2198 ) 2198 )
2199 ;; If the auto-save file was recent before this command, 2199 ;; If the auto-save file was recent before this command,
2200 ;; delete it now. 2200 ;; delete it now.
2201 (delete-auto-save-file-if-necessary recent-save) 2201 (delete-auto-save-file-if-necessary recent-save)
2202 ;; Support VC `implicit' locking. 2202 ;; Support VC `implicit' locking.
2203 (vc-after-save) 2203 (when (fboundp 'vc-after-save)
2204 (vc-after-save))
2204 (run-hooks 'after-save-hook)) 2205 (run-hooks 'after-save-hook))
2205 (display-message 'no-log "(No changes need to be saved)")))) 2206 (display-message 'no-log "(No changes need to be saved)"))))
2206 2207
2207 ;; This does the "real job" of writing a buffer into its visited file 2208 ;; This does the "real job" of writing a buffer into its visited file
2208 ;; and making a backup file. This is what is normally done 2209 ;; and making a backup file. This is what is normally done