comparison lisp/files.el @ 1134:05c961416bb5

*** empty log message ***

1133:f36b965cfeb0

(defun load-library (library)
  "Load the library named LIBRARY.
This is an interface to the function `load'."
  (interactive "sLoad library: ")
  (load library))

(defun switch-to-buffer-other-window (buffer)
  "Select buffer BUFFER in another window."
  (interactive "BSwitch to buffer in other window: ")
  (let ((pop-up-windows t))

This is a separate procedure so your site-init or startup file can
redefine it.
If the optional argument KEEP-BACKUP-VERSION is non-nil,
we do not remove backup version numbers, only true file version numbers."
  (let (handler (handlers file-name-handler-alist))
    (while (and (consp handlers) (null handler))
      (if (and (consp (car handlers))
	       (stringp (car (car handlers)))
	       (string-match (car (car handlers)) name))
	  (setq handler (cdr (car handlers))))
      (setq handlers (cdr handlers)))
    (if handler
	(funcall handler 'file-name-sans-versions name keep-backup-version)
      (substring name 0
		 (if (eq system-type 'vax-vms)
		     ;; VMS version number is (a) semicolon, optional

This works by running a directory listing program
whose name is in the variable `ls-program'.
If WILDCARD, it also runs the shell specified by `shell-file-name'."
  (let (handler (handlers file-name-handler-alist))
    (while (and (consp handlers) (null handler))
      (if (and (consp (car handlers))
	       (stringp (car (car handlers)))
	       (string-match (car (car handlers)) file))
	  (setq handler (cdr (car handlers))))
      (setq handlers (cdr handlers)))
    (if handler
	(funcall handler 'insert-directory file switches
		 wildcard full-directory-p)
      (if (eq system-type 'vax-vms)
	  (vms-read-directory file switches (current-buffer))

1134:05c961416bb5

(defun load-library (library)
  "Load the library named LIBRARY.
This is an interface to the function `load'."
  (interactive "sLoad library: ")
  (load library))

;; OTHER is the other file to be compared.
(defun file-local-copy (file)
  "Copy the file FILE into a temporary file on this machine.
Returns the name of the local copy, or nil, if FILE is directly
accessible."
  (let (handler (handlers file-name-handler-alist))
    (save-match-data
     (while (and (consp handlers) (null handler))
       (if (and (consp (car handlers))
		(stringp (car (car handlers)))
		(string-match (car (car handlers)) file))
	   (setq handler (cdr (car handlers))))
       (setq handlers (cdr handlers))))
    (if handler
	(funcall handler 'file-local-copy file)
      nil)))

(defun switch-to-buffer-other-window (buffer)
  "Select buffer BUFFER in another window."
  (interactive "BSwitch to buffer in other window: ")
  (let ((pop-up-windows t))

This is a separate procedure so your site-init or startup file can
redefine it.
If the optional argument KEEP-BACKUP-VERSION is non-nil,
we do not remove backup version numbers, only true file version numbers."
  (let (handler (handlers file-name-handler-alist))
    (save-match-data
     (while (and (consp handlers) (null handler))
       (if (and (consp (car handlers))
		(stringp (car (car handlers)))
		(string-match (car (car handlers)) name))
	   (setq handler (cdr (car handlers))))
       (setq handlers (cdr handlers))))
    (if handler
	(funcall handler 'file-name-sans-versions name keep-backup-version)
      (substring name 0
		 (if (eq system-type 'vax-vms)
		     ;; VMS version number is (a) semicolon, optional

This works by running a directory listing program
whose name is in the variable `ls-program'.
If WILDCARD, it also runs the shell specified by `shell-file-name'."
  (let (handler (handlers file-name-handler-alist))
    (save-match-data
     (while (and (consp handlers) (null handler))
       (if (and (consp (car handlers))
		(stringp (car (car handlers)))
		(string-match (car (car handlers)) file))
	   (setq handler (cdr (car handlers))))
       (setq handlers (cdr handlers))))
    (if handler
	(funcall handler 'insert-directory file switches
		 wildcard full-directory-p)
      (if (eq system-type 'vax-vms)
	  (vms-read-directory file switches (current-buffer))