xemacs-beta: src/dired.c comparison

comparison src/dired.c @ 444:576fb035e263 r21-2-37

Import from CVS: tag r21-2-37

author	cvs
date	Mon, 13 Aug 2007 11:36:19 +0200
parents	abe6d1db359e
children	1ccc32a20af4

comparison

equal deleted inserted replaced

-:a8296e22da4e
+:576fb035e263
 static Lisp_Object file_name_completion (Lisp_Object file,
 Lisp_Object directory,
 int all_flag, int ver_flag);
 DEFUN ("file-name-completion", Ffile_name_completion, 2, 2, 0, /*
-Complete file name FILE in directory DIRECTORY.
+Complete file name PARTIAL-FILENAME in directory DIRECTORY.
-Returns the longest string common to all filenames in DIRECTORY
+Return the longest prefix common to all file names in DIRECTORY
-that start with FILE.
+that start with PARTIAL-FILENAME.
-If there is only one and FILE matches it exactly, returns t.
+If there is only one and PARTIAL-FILENAME matches it exactly, return t.
-Returns nil if DIRECTORY contains no name starting with FILE.
+Return nil if DIRECTORY contains no name starting with PARTIAL-FILENAME.
-Filenames which end with any member of `completion-ignored-extensions'
+File names which end with any member of `completion-ignored-extensions'
-are not considered as possible completions for FILE unless there is no
+are not considered as possible completions for PARTIAL-FILENAME unless
-other possible completion.  `completion-ignored-extensions' is not applied
+there is no other possible completion. `completion-ignored-extensions'
-to the names of directories.
+is not applied to the names of directories.
 */
-(file, directory))
+(partial_filename, directory))
 {
 /* This function can GC.  GC checked 1996.04.06. */
 Lisp_Object handler;
 /* If the directory name has special constructs in it,
 call the corresponding file handler.  */
 handler = Ffind_file_name_handler (directory, Qfile_name_completion);
 if (!NILP (handler))
-return call3 (handler, Qfile_name_completion, file, directory);
+return call3 (handler, Qfile_name_completion, partial_filename, directory);
 /* If the file name has special constructs in it,
 call the corresponding file handler.  */
-handler = Ffind_file_name_handler (file, Qfile_name_completion);
+handler = Ffind_file_name_handler (partial_filename, Qfile_name_completion);
 if (!NILP (handler))
-return call3 (handler, Qfile_name_completion, file, directory);
+return call3 (handler, Qfile_name_completion, partial_filename, directory);
-return file_name_completion (file, directory, 0, 0);
+return file_name_completion (partial_filename, directory, 0, 0);
 }
 DEFUN ("file-name-all-completions", Ffile_name_all_completions, 2, 2, 0, /*
-Return a list of all completions of file name FILE in directory DIRECTORY.
+Return a list of all completions of PARTIAL-FILENAME in DIRECTORY.
-These are all file names in directory DIRECTORY which begin with FILE.
+These are all file names in DIRECTORY which begin with PARTIAL-FILENAME.
 File names which end with any member of `completion-ignored-extensions'
-are not considered as possible completions for FILE unless there is no
+are not considered as possible completions for PARTIAL-FILENAME unless
-other possible completion.  `completion-ignored-extensions' is not applied
+there is no other possible completion. `completion-ignored-extensions'
-to the names of directories.
+is not applied to the names of directories.
 */
-(file, directory))
+(partial_filename, directory))
 {
 /* This function can GC. GC checked 1997.06.04. */
 Lisp_Object handler;
 struct gcpro gcpro1;
 /* If the file name has special constructs in it,
 call the corresponding file handler.  */
 handler = Ffind_file_name_handler (directory, Qfile_name_all_completions);
 UNGCPRO;
 if (!NILP (handler))
-return call3 (handler, Qfile_name_all_completions, file,
+return call3 (handler, Qfile_name_all_completions, partial_filename,
 		  directory);
-return file_name_completion (file, directory, 1, 0);
+return file_name_completion (partial_filename, directory, 1, 0);
 }
 static int
 file_name_completion_stat (Lisp_Object directory, DIRENTRY *dp,
 			   struct stat *st_addr)
 static Lisp_Object user_name_completion (Lisp_Object user,
 int all_flag,
 int *uniq);
 DEFUN ("user-name-completion", Fuser_name_completion, 1, 1, 0, /*
-Complete user name USER.
+Complete user name from PARTIAL-USERNAME.
+Return the longest prefix common to all user names starting with
-Returns the longest string common to all user names that start
+PARTIAL-USERNAME.  If there is only one and PARTIAL-USERNAME matches
-with USER.  If there is only one and USER matches it exactly,
+it exactly, returns t.  Return nil if there is no user name starting
-returns t.  Returns nil if there is no user name starting with USER.
+with PARTIAL-USERNAME.
 */
-(user))
+(partial_username))
 {
-return user_name_completion (user, 0, NULL);
+return user_name_completion (partial_username, 0, NULL);
 }
 DEFUN ("user-name-completion-1", Fuser_name_completion_1, 1, 1, 0, /*
-Complete user name USER.
+Complete user name from PARTIAL-USERNAME.
 This function is identical to `user-name-completion', except that
 the cons of the completion and an indication of whether the
 completion was unique is returned.
-The car of the returned value is the longest string common to all
+The car of the returned value is the longest prefix common to all user
-user names that start with USER.  If there is only one and USER
+names that start with PARTIAL-USERNAME.  If there is only one and
-matches it exactly, the car is t.  The car is nil if there is no
+PARTIAL-USERNAME matches it exactly, the car is t.  The car is nil if
-user name starting with USER.  The cdr of the result is non-nil
+there is no user name starting with PARTIAL-USERNAME.  The cdr of the
-if and only if the completion returned in the car was unique.
+result is non-nil if and only if the completion returned in the car
+was unique.
 */
-(user))
+(partial_username))
 {
 int uniq;
-Lisp_Object completed = user_name_completion (user, 0, &uniq);
+Lisp_Object completed = user_name_completion (partial_username, 0, &uniq);
 return Fcons (completed, uniq ? Qt : Qnil);
 }
 DEFUN ("user-name-all-completions", Fuser_name_all_completions, 1, 1, 0, /*
-Return a list of all completions of user name USER.
+Return a list of all user name completions from PARTIAL-USERNAME.
-These are all user names which begin with USER.
+These are all the user names which begin with PARTIAL-USERNAME.
 */
-(user))
+(partial_username))
 {
-return user_name_completion (user, 1, NULL);
+return user_name_completion (partial_username, 1, NULL);
 }
 struct user_name
 {
 Bufbyte *ptr;

Mercurial > hg > xemacs-beta

comparison src/dired.c @ 444:576fb035e263 r21-2-37