/[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.780 by jurta, Mon Jul 18 15:23:04 2005 UTC revision 1.781 by lektu, Wed Jul 20 01:55:39 2005 UTC
# Line 159  both at the file level and at the levels Line 159  both at the file level and at the levels
159    :type 'boolean    :type 'boolean
160    :group 'find-file)    :group 'find-file)
161    
162  (defcustom revert-without-query  (defcustom revert-without-query nil
   nil  
163    "*Specify which files should be reverted without query.    "*Specify which files should be reverted without query.
164  The value is a list of regular expressions.  The value is a list of regular expressions.
165  If the file name matches one of these regular expressions,  If the file name matches one of these regular expressions,
# Line 178  If the buffer is visiting a new file, th Line 177  If the buffer is visiting a new file, th
177  (put 'buffer-file-number 'permanent-local t)  (put 'buffer-file-number 'permanent-local t)
178    
179  (defvar buffer-file-numbers-unique (not (memq system-type '(windows-nt)))  (defvar buffer-file-numbers-unique (not (memq system-type '(windows-nt)))
180    "Non-nil means that buffer-file-number uniquely identifies files.")    "Non-nil means that `buffer-file-number' uniquely identifies files.")
181    
182  (defvar buffer-file-read-only nil  (defvar buffer-file-read-only nil
183    "Non-nil if visited file was read-only when visited.")    "Non-nil if visited file was read-only when visited.")
# Line 381  and should return either a buffer or nil Line 380  and should return either a buffer or nil
380  These functions are called as soon as the error is detected.  These functions are called as soon as the error is detected.
381  Variable `buffer-file-name' is already set up.  Variable `buffer-file-name' is already set up.
382  The functions are called in the order given until one of them returns non-nil.")  The functions are called in the order given until one of them returns non-nil.")
383  (defvaralias 'find-file-not-found-hooks 'find-file-not-found-functions)  (define-obsolete-variable-alias 'find-file-not-found-hooks
384  (make-obsolete-variable      'find-file-not-found-functions "22.1")
  'find-file-not-found-hooks 'find-file-not-found-functions "22.1")  
385    
386  ;;;It is not useful to make this a local variable.  ;;;It is not useful to make this a local variable.
387  ;;;(put 'find-file-hooks 'permanent-local t)  ;;;(put 'find-file-hooks 'permanent-local t)
# Line 395  functions are called." Line 393  functions are called."
393    :type 'hook    :type 'hook
394    :options '(auto-insert)    :options '(auto-insert)
395    :version "22.1")    :version "22.1")
396  (defvaralias 'find-file-hooks 'find-file-hook)  (define-obsolete-variable-alias 'find-file-hooks 'find-file-hook "22.1")
 (make-obsolete-variable 'find-file-hooks 'find-file-hook "22.1")  
397    
398  (defvar write-file-functions nil  (defvar write-file-functions nil
399    "List of functions to be called before writing out a buffer to a file.    "List of functions to be called before writing out a buffer to a file.
# Line 412  This hook is not run if any of the funct Line 409  This hook is not run if any of the funct
409  to how to save a buffer to file, for instance, choosing a suitable  to how to save a buffer to file, for instance, choosing a suitable
410  coding system and setting mode bits.  (See Info  coding system and setting mode bits.  (See Info
411  node `(elisp)Saving Buffers'.)  To perform various checks or  node `(elisp)Saving Buffers'.)  To perform various checks or
412  updates before the buffer is saved, use `before-save-hook' .")  updates before the buffer is saved, use `before-save-hook'.")
413  (put 'write-file-functions 'permanent-local t)  (put 'write-file-functions 'permanent-local t)
414  (defvaralias 'write-file-hooks 'write-file-functions)  (define-obsolete-variable-alias 'write-file-hooks 'write-file-functions "22.1")
 (make-obsolete-variable 'write-file-hooks 'write-file-functions "22.1")  
415    
416  (defvar local-write-file-hooks nil)  (defvar local-write-file-hooks nil)
417  (make-variable-buffer-local 'local-write-file-hooks)  (make-variable-buffer-local 'local-write-file-hooks)
# Line 439  For hooks that _do_ pertain to the parti Line 435  For hooks that _do_ pertain to the parti
435  To perform various checks or updates before the buffer is saved,  To perform various checks or updates before the buffer is saved,
436  use `before-save-hook'.")  use `before-save-hook'.")
437  (make-variable-buffer-local 'write-contents-functions)  (make-variable-buffer-local 'write-contents-functions)
438  (defvaralias 'write-contents-hooks 'write-contents-functions)  (define-obsolete-variable-alias 'write-contents-hooks
439  (make-obsolete-variable 'write-contents-hooks 'write-contents-functions "22.1")      'write-contents-functions "22.1")
440    
441  (defcustom enable-local-variables t  (defcustom enable-local-variables t
442    "*Control use of local variables in files you visit.    "*Control use of local variables in files you visit.
# Line 866  it means chase no more than that many li Line 862  it means chase no more than that many li
862    "Change the encoding of FILE's name from CODING to NEW-CODING.    "Change the encoding of FILE's name from CODING to NEW-CODING.
863  The value is a new name of FILE.  The value is a new name of FILE.
864  Signals a `file-already-exists' error if a file of the new name  Signals a `file-already-exists' error if a file of the new name
865  already exists unless optional third argument OK-IF-ALREADY-EXISTS  already exists unless optional fourth argument OK-IF-ALREADY-EXISTS
866  is non-nil.  A number as third arg means request confirmation if  is non-nil.  A number as fourth arg means request confirmation if
867  the new name already exists.  This is what happens in interactive  the new name already exists.  This is what happens in interactive
868  use with M-x."  use with M-x."
869    (interactive    (interactive
# Line 1326  When nil, never request confirmation." Line 1322  When nil, never request confirmation."
1322  If a buffer exists visiting FILENAME, return that one, but  If a buffer exists visiting FILENAME, return that one, but
1323  verify that the file has not changed since visited or saved.  verify that the file has not changed since visited or saved.
1324  The buffer is not selected, just returned to the caller.  The buffer is not selected, just returned to the caller.
1325  Optional first arg NOWARN non-nil means suppress any warning messages.  Optional second arg NOWARN non-nil means suppress any warning messages.
1326  Optional second arg RAWFILE non-nil means the file is read literally.  Optional third arg RAWFILE non-nil means the file is read literally.
1327  Optional third arg WILDCARDS non-nil means do wildcard processing  Optional fourth arg WILDCARDS non-nil means do wildcard processing
1328  and visit all the matching files.  When wildcards are actually  and visit all the matching files.  When wildcards are actually
1329  used and expanded, return a list of buffers that are visiting  used and expanded, return a list of buffers that are visiting
1330  the various files."  the various files."
# Line 2000  if REGEXP matches the text at the beginn Line 1996  if REGEXP matches the text at the beginn
1996  to decide the buffer's major mode.  to decide the buffer's major mode.
1997    
1998  If FUNCTION is nil, then it is not called.  (That is a way of saying  If FUNCTION is nil, then it is not called.  (That is a way of saying
1999  \"allow `auto-mode-alist' to decide for these files.)")  \"allow `auto-mode-alist' to decide for these files.\")")
2000    
2001  (defun set-auto-mode (&optional keep-mode-if-same)  (defun set-auto-mode (&optional keep-mode-if-same)
2002    "Select major mode appropriate for current buffer.    "Select major mode appropriate for current buffer.
# Line 4009  specifies the list of buffers to kill, a Line 4005  specifies the list of buffers to kill, a
4005        (and name                         ; Can be nil for an indirect buffer        (and name                         ; Can be nil for an indirect buffer
4006                                          ; if we killed the base buffer.                                          ; if we killed the base buffer.
4007             (not (string-equal name ""))             (not (string-equal name ""))
4008             (/= (aref name 0) ? )             (/= (aref name 0) ?\s)
4009             (yes-or-no-p             (yes-or-no-p
4010              (format "Buffer %s %s.  Kill? "              (format "Buffer %s %s.  Kill? "
4011                      name                      name
# Line 4392  preference to the program given by this Line 4388  preference to the program given by this
4388    :group 'dired)    :group 'dired)
4389    
4390  (defun get-free-disk-space (dir)  (defun get-free-disk-space (dir)
4391    "Return the mount of free space on directory DIR's file system.    "Return the amount of free space on directory DIR's file system.
4392  The result is a string that gives the number of free 1KB blocks,  The result is a string that gives the number of free 1KB blocks,
4393  or nil if the system call or the program which retrieve the infornmation  or nil if the system call or the program which retrieve the information
4394  fail.  fail.
4395    
4396  This function calls `file-system-info' if it is available, or invokes the  This function calls `file-system-info' if it is available, or invokes the
# Line 4642  normally equivalent short `-D' option is Line 4638  normally equivalent short `-D' option is
4638                            (end (insert-directory-adj-pos                            (end (insert-directory-adj-pos
4639                                  (+ beg (read (current-buffer)))                                  (+ beg (read (current-buffer)))
4640                                  error-lines)))                                  error-lines)))
4641                        (if (memq (char-after end) '(?\n ?\ ))                        (if (memq (char-after end) '(?\n ?\s))
4642                            ;; End is followed by \n or by " -> ".                            ;; End is followed by \n or by " -> ".
4643                            (put-text-property start end 'dired-filename t)                            (put-text-property start end 'dired-filename t)
4644                          ;; It seems that we can't trust ls's output as to                          ;; It seems that we can't trust ls's output as to

Legend:
Removed from v.1.780  
changed lines
  Added in v.1.781

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