/[emacs]/emacs/lisp/files.el
ViewVC logotype

Diff of /emacs/lisp/files.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.579 by rms, Thu May 30 17:13:54 2002 UTC revision 1.580 by sds, Sat Jun 1 18:04:35 2002 UTC
# Line 303  REGEXP is a regular expression to match Line 303  REGEXP is a regular expression to match
303  If it matches, `replace-match' is used to replace the  If it matches, `replace-match' is used to replace the
304  matching part with REPLACEMENT.  matching part with REPLACEMENT.
305  If the optional element UNIQUIFY is non-nil, the auto-save file name is  If the optional element UNIQUIFY is non-nil, the auto-save file name is
306  constructed by taking the directory part of the replaced file-name,  constructed by taking the directory part of the replaced file-name,
307  concatenated with the buffer file name with all directory separators  concatenated with the buffer file name with all directory separators
308  changed to `!' to prevent clashes.  This will not work  changed to `!' to prevent clashes.  This will not work
309  correctly if your filesystem truncates the resulting name.  correctly if your filesystem truncates the resulting name.
# Line 483  DIR defaults to current buffer's directo Line 483  DIR defaults to current buffer's directo
483    (unless dir    (unless dir
484      (setq dir default-directory))      (setq dir default-directory))
485    (unless default-dirname    (unless default-dirname
486      (setq default-dirname      (setq default-dirname
487            (if initial (concat dir initial) default-directory)))            (if initial (concat dir initial) default-directory)))
488    (read-file-name prompt dir default-dirname mustmatch initial    (read-file-name prompt dir default-dirname mustmatch initial
489                    'file-directory-p))                    'file-directory-p))
# Line 1179  that are visiting the various files." Line 1179  that are visiting the various files."
1179                    (unless (or (eq read-only buffer-file-read-only)                    (unless (or (eq read-only buffer-file-read-only)
1180                                (eq read-only buffer-read-only))                                (eq read-only buffer-read-only))
1181                      (when (or nowarn                      (when (or nowarn
1182                                (let ((question                                (let ((question
1183                                       (format "File %s is %s on disk.  Change buffer mode? "                                       (format "File %s is %s on disk.  Change buffer mode? "
1184                                               buffer-file-name                                               buffer-file-name
1185                                               (if read-only "read-only" "writable"))))                                               (if read-only "read-only" "writable"))))
# Line 1461  in that case, this function acts as if ` Line 1461  in that case, this function acts as if `
1461    (mapc    (mapc
1462     (lambda (elt)     (lambda (elt)
1463       (cons (purecopy (car elt)) (cdr elt)))       (cons (purecopy (car elt)) (cdr elt)))
1464     '(("\\.te?xt\\'" . text-mode)     '(("\\.in\\'" nil t)
1465         ("\\.te?xt\\'" . text-mode)
1466       ("\\.c\\'" . c-mode)       ("\\.c\\'" . c-mode)
1467       ("\\.h\\'" . c-mode)       ("\\.h\\'" . c-mode)
1468       ("\\.tex\\'" . tex-mode)       ("\\.tex\\'" . tex-mode)
# Line 1492  in that case, this function acts as if ` Line 1493  in that case, this function acts as if `
1493       ("\\.m\\'" . objc-mode)       ("\\.m\\'" . objc-mode)
1494       ("\\.java\\'" . java-mode)       ("\\.java\\'" . java-mode)
1495       ("\\.mk\\'" . makefile-mode)       ("\\.mk\\'" . makefile-mode)
1496       ("\\(M\\|m\\|GNUm\\)akefile\\(\\.in\\)?\\'" . makefile-mode)       ("\\(M\\|m\\|GNUm\\)akefile\\'" . makefile-mode)
1497       ("\\.am\\'" . makefile-mode)       ;For Automake.       ("\\.am\\'" . makefile-mode)       ;For Automake.
1498       ;; Less common extensions come here       ;; Less common extensions come here
1499       ;; so more common ones above are found faster.       ;; so more common ones above are found faster.

Legend:
Removed from v.1.579  
changed lines
  Added in v.1.580

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26