Commit 26b9ecbc authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(find-file-noselect, recode-file-name): Doc fixes.

(insert-directory, kill-some-buffers): "?\ " -> "?\s".
(magic-mode-alist, buffer-file-numbers-unique, write-file-functions,
get-free-disk-space): Fix typos in docstrings.
(find-file-not-found-hooks, find-file-hooks, write-file-hooks,
write-contents-hooks, write-file-hooks): Declare with
`define-obsolete-variable-alias'.
parent 3f32d6a3
...@@ -5,6 +5,15 @@ ...@@ -5,6 +5,15 @@
(desktop-internal-v2s): Don't quote keywords. (desktop-internal-v2s): Don't quote keywords.
(desktop-clear): "?\ " -> "?\s". (desktop-clear): "?\ " -> "?\s".
   
* files.el (find-file-noselect, recode-file-name): Doc fixes.
(insert-directory, kill-some-buffers): "?\ " -> "?\s".
(magic-mode-alist, buffer-file-numbers-unique)
(write-file-functions, get-free-disk-space):
Fix typos in docstrings.
(find-file-not-found-hooks, find-file-hooks, write-file-hooks)
(write-contents-hooks, write-file-hooks):
Declare with `define-obsolete-variable-alias'.
* textmodes/org.el (org-table-formula-substitute-names) * textmodes/org.el (org-table-formula-substitute-names)
(org-table-get-vertical-vector): Doc fixes. (org-table-get-vertical-vector): Doc fixes.
(org-table-recalculate): Remove unused argument to `message'. (org-table-recalculate): Remove unused argument to `message'.
......
...@@ -159,8 +159,7 @@ both at the file level and at the levels of the containing directories." ...@@ -159,8 +159,7 @@ both at the file level and at the levels of the containing directories."
:type 'boolean :type 'boolean
:group 'find-file) :group 'find-file)
(defcustom revert-without-query (defcustom revert-without-query nil
nil
"*Specify which files should be reverted without query. "*Specify which files should be reverted without query.
The value is a list of regular expressions. The value is a list of regular expressions.
If the file name matches one of these regular expressions, If the file name matches one of these regular expressions,
...@@ -178,7 +177,7 @@ If the buffer is visiting a new file, the value is nil.") ...@@ -178,7 +177,7 @@ If the buffer is visiting a new file, the value is nil.")
(put 'buffer-file-number 'permanent-local t) (put 'buffer-file-number 'permanent-local t)
(defvar buffer-file-numbers-unique (not (memq system-type '(windows-nt))) (defvar buffer-file-numbers-unique (not (memq system-type '(windows-nt)))
"Non-nil means that buffer-file-number uniquely identifies files.") "Non-nil means that `buffer-file-number' uniquely identifies files.")
(defvar buffer-file-read-only nil (defvar buffer-file-read-only nil
"Non-nil if visited file was read-only when visited.") "Non-nil if visited file was read-only when visited.")
...@@ -381,9 +380,8 @@ and should return either a buffer or nil." ...@@ -381,9 +380,8 @@ and should return either a buffer or nil."
These functions are called as soon as the error is detected. These functions are called as soon as the error is detected.
Variable `buffer-file-name' is already set up. Variable `buffer-file-name' is already set up.
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.")
(defvaralias 'find-file-not-found-hooks 'find-file-not-found-functions) (define-obsolete-variable-alias 'find-file-not-found-hooks
(make-obsolete-variable 'find-file-not-found-functions "22.1")
'find-file-not-found-hooks 'find-file-not-found-functions "22.1")
;;;It is not useful to make this a local variable. ;;;It is not useful to make this a local variable.
;;;(put 'find-file-hooks 'permanent-local t) ;;;(put 'find-file-hooks 'permanent-local t)
...@@ -395,8 +393,7 @@ functions are called." ...@@ -395,8 +393,7 @@ functions are called."
:type 'hook :type 'hook
:options '(auto-insert) :options '(auto-insert)
:version "22.1") :version "22.1")
(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")
(defvar write-file-functions nil (defvar write-file-functions nil
"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.
...@@ -412,10 +409,9 @@ This hook is not run if any of the functions in ...@@ -412,10 +409,9 @@ This hook is not run if any of the functions in
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
coding system and setting mode bits. (See Info coding system and setting mode bits. (See Info
node `(elisp)Saving Buffers'.) To perform various checks or node `(elisp)Saving Buffers'.) To perform various checks or
updates before the buffer is saved, use `before-save-hook' .") updates before the buffer is saved, use `before-save-hook'.")
(put 'write-file-functions 'permanent-local t) (put 'write-file-functions 'permanent-local t)
(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")
(defvar local-write-file-hooks nil) (defvar local-write-file-hooks nil)
(make-variable-buffer-local 'local-write-file-hooks) (make-variable-buffer-local 'local-write-file-hooks)
...@@ -439,8 +435,8 @@ For hooks that _do_ pertain to the particular visited file, use ...@@ -439,8 +435,8 @@ For hooks that _do_ pertain to the particular visited file, use
To perform various checks or updates before the buffer is saved, To perform various checks or updates before the buffer is saved,
use `before-save-hook'.") use `before-save-hook'.")
(make-variable-buffer-local 'write-contents-functions) (make-variable-buffer-local 'write-contents-functions)
(defvaralias 'write-contents-hooks 'write-contents-functions) (define-obsolete-variable-alias 'write-contents-hooks
(make-obsolete-variable 'write-contents-hooks 'write-contents-functions "22.1") 'write-contents-functions "22.1")
(defcustom enable-local-variables t (defcustom enable-local-variables t
"*Control use of local variables in files you visit. "*Control use of local variables in files you visit.
...@@ -866,8 +862,8 @@ it means chase no more than that many links and then stop." ...@@ -866,8 +862,8 @@ it means chase no more than that many links and then stop."
"Change the encoding of FILE's name from CODING to NEW-CODING. "Change the encoding of FILE's name from CODING to NEW-CODING.
The value is a new name of FILE. The value is a new name of FILE.
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
already exists unless optional third argument OK-IF-ALREADY-EXISTS already exists unless optional fourth argument OK-IF-ALREADY-EXISTS
is non-nil. A number as third arg means request confirmation if is non-nil. A number as fourth arg means request confirmation if
the new name already exists. This is what happens in interactive the new name already exists. This is what happens in interactive
use with M-x." use with M-x."
(interactive (interactive
...@@ -1326,9 +1322,9 @@ When nil, never request confirmation." ...@@ -1326,9 +1322,9 @@ When nil, never request confirmation."
If a buffer exists visiting FILENAME, return that one, but If a buffer exists visiting FILENAME, return that one, but
verify that the file has not changed since visited or saved. verify that the file has not changed since visited or saved.
The buffer is not selected, just returned to the caller. The buffer is not selected, just returned to the caller.
Optional first arg NOWARN non-nil means suppress any warning messages. Optional second arg NOWARN non-nil means suppress any warning messages.
Optional second arg RAWFILE non-nil means the file is read literally. Optional third arg RAWFILE non-nil means the file is read literally.
Optional third arg WILDCARDS non-nil means do wildcard processing Optional fourth arg WILDCARDS non-nil means do wildcard processing
and visit all the matching files. When wildcards are actually and visit all the matching files. When wildcards are actually
used and expanded, return a list of buffers that are visiting used and expanded, return a list of buffers that are visiting
the various files." the various files."
...@@ -2000,7 +1996,7 @@ if REGEXP matches the text at the beginning of the buffer, ...@@ -2000,7 +1996,7 @@ if REGEXP matches the text at the beginning of the buffer,
to decide the buffer's major mode. to decide the buffer's major mode.
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
\"allow `auto-mode-alist' to decide for these files.)") \"allow `auto-mode-alist' to decide for these files.\")")
(defun set-auto-mode (&optional keep-mode-if-same) (defun set-auto-mode (&optional keep-mode-if-same)
"Select major mode appropriate for current buffer. "Select major mode appropriate for current buffer.
...@@ -4009,7 +4005,7 @@ specifies the list of buffers to kill, asking for approval for each one." ...@@ -4009,7 +4005,7 @@ specifies the list of buffers to kill, asking for approval for each one."
(and name ; Can be nil for an indirect buffer (and name ; Can be nil for an indirect buffer
; if we killed the base buffer. ; if we killed the base buffer.
(not (string-equal name "")) (not (string-equal name ""))
(/= (aref name 0) ? ) (/= (aref name 0) ?\s)
(yes-or-no-p (yes-or-no-p
(format "Buffer %s %s. Kill? " (format "Buffer %s %s. Kill? "
name name
...@@ -4392,9 +4388,9 @@ preference to the program given by this variable." ...@@ -4392,9 +4388,9 @@ preference to the program given by this variable."
:group 'dired) :group 'dired)
(defun get-free-disk-space (dir) (defun get-free-disk-space (dir)
"Return the mount of free space on directory DIR's file system. "Return the amount of free space on directory DIR's file system.
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,
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
fail. fail.
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
...@@ -4642,7 +4638,7 @@ normally equivalent short `-D' option is just passed on to ...@@ -4642,7 +4638,7 @@ normally equivalent short `-D' option is just passed on to
(end (insert-directory-adj-pos (end (insert-directory-adj-pos
(+ beg (read (current-buffer))) (+ beg (read (current-buffer)))
error-lines))) error-lines)))
(if (memq (char-after end) '(?\n ?\ )) (if (memq (char-after end) '(?\n ?\s))
;; End is followed by \n or by " -> ". ;; End is followed by \n or by " -> ".
(put-text-property start end 'dired-filename t) (put-text-property start end 'dired-filename t)
;; It seems that we can't trust ls's output as to ;; It seems that we can't trust ls's output as to
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment