mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
Require individual files if needed when compiling, rather than
esh-maint. Collect any require statements. Move provide statement to end. Move any commentary to start. (top-level): Don't require pp. Use condition-case rather than ignore-errors.
This commit is contained in:
parent
fa31eac318
commit
99abb67ec6
1 changed files with 6 additions and 8 deletions
|
|
@ -22,19 +22,15 @@
|
|||
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||||
;; Boston, MA 02110-1301, USA.
|
||||
|
||||
(provide 'esh-util)
|
||||
;;; Commentary:
|
||||
|
||||
(eval-when-compile (require 'esh-maint))
|
||||
;;; Code:
|
||||
|
||||
(defgroup eshell-util nil
|
||||
"This is general utility code, meant for use by Eshell itself."
|
||||
:tag "General utilities"
|
||||
:group 'eshell)
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
(require 'pp)
|
||||
|
||||
;;; User Variables:
|
||||
|
||||
(defcustom eshell-stringify-t t
|
||||
|
|
@ -429,7 +425,9 @@ list."
|
|||
;; "args out of range" error in `sit-for', if this function
|
||||
;; runs while point is in the minibuffer and the users attempt
|
||||
;; to use completion. Don't ask me.
|
||||
(ignore-errors (sit-for 0 0)))
|
||||
(condition-case nil
|
||||
(sit-for 0 0)
|
||||
(error nil)))
|
||||
|
||||
(defun eshell-read-passwd-file (file)
|
||||
"Return an alist correlating gids to group names in FILE."
|
||||
|
|
@ -781,7 +779,7 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.
|
|||
; (or result
|
||||
; (file-attributes filename))))
|
||||
|
||||
;;; Code:
|
||||
(provide 'esh-util)
|
||||
|
||||
;;; arch-tag: 70159778-5c7a-480a-bae4-3ad332fca19d
|
||||
;;; esh-util.el ends here
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue