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, |
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.") |
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) |
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. |
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) |
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. |
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 |
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." |
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. |
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 |
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 |
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 |