676 |
((null action) (try-completion string names)) |
((null action) (try-completion string names)) |
677 |
(t (test-completion string names)))))) |
(t (test-completion string names)))))) |
678 |
|
|
679 |
|
(defun executable-find (command) |
680 |
|
"Search for COMMAND in `exec-path' and return the absolute file name. |
681 |
|
Return nil if COMMAND is not found anywhere in `exec-path'." |
682 |
|
;; Use 1 rather than file-executable-p to better match the behavior of |
683 |
|
;; call-process. |
684 |
|
(locate-file command exec-path exec-suffixes 1)) |
685 |
|
|
686 |
(defun load-library (library) |
(defun load-library (library) |
687 |
"Load the library named LIBRARY. |
"Load the library named LIBRARY. |
688 |
This is an interface to the function `load'." |
This is an interface to the function `load'." |
4862 |
(define-key ctl-x-5-map "\C-f" 'find-file-other-frame) |
(define-key ctl-x-5-map "\C-f" 'find-file-other-frame) |
4863 |
(define-key ctl-x-5-map "r" 'find-file-read-only-other-frame) |
(define-key ctl-x-5-map "r" 'find-file-read-only-other-frame) |
4864 |
|
|
4865 |
;;; arch-tag: bc68d3ea-19ca-468b-aac6-3a4a7766101f |
;; arch-tag: bc68d3ea-19ca-468b-aac6-3a4a7766101f |
4866 |
;;; files.el ends here |
;;; files.el ends here |