[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/eshell/esh-module.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/eshell/esh-module.el [lexbind] |
Date: |
Tue, 06 Jul 2004 07:09:16 -0400 |
Index: emacs/lisp/eshell/esh-module.el
diff -c emacs/lisp/eshell/esh-module.el:1.9.8.2
emacs/lisp/eshell/esh-module.el:1.9.8.3
*** emacs/lisp/eshell/esh-module.el:1.9.8.2 Tue Oct 14 23:51:31 2003
--- emacs/lisp/eshell/esh-module.el Tue Jul 6 10:00:21 2004
***************
*** 1,6 ****
;;; esh-module.el --- Eshell modules
! ;; Copyright (C) 1999, 2000 Free Software Foundation
;; Author: John Wiegley <address@hidden>
;; Keywords: processes
--- 1,6 ----
;;; esh-module.el --- Eshell modules
! ;; Copyright (C) 1999, 2000, 2004 Free Software Foundation
;; Author: John Wiegley <address@hidden>
;; Keywords: processes
***************
*** 41,72 ****
(defun eshell-load-defgroups (&optional directory)
"Load `defgroup' statements from Eshell's module files."
! (with-current-buffer
! (find-file-noselect (expand-file-name "esh-groups.el" directory))
! (erase-buffer)
! (insert ";;; do not modify this file; it is auto-generated -*-
no-byte-compile: t -*-\n\n")
! (let ((files (directory-files (or directory
! (car command-line-args-left))
! nil "\\`em-.*\\.el\\'")))
! (while files
! (message "Loading defgroup from `%s'" (car files))
! (let (defgroup)
! (catch 'handled
! (with-current-buffer (find-file-noselect (car files))
! (goto-char (point-min))
! (while t
! (forward-sexp)
! (if (eobp) (throw 'handled t))
! (backward-sexp)
! (let ((begin (point))
! (defg (looking-at "(defgroup")))
(forward-sexp)
! (if defg
! (setq defgroup (buffer-substring begin (point))))))))
! (if defgroup
! (insert defgroup "\n\n")))
! (setq files (cdr files))))
! (save-buffer)))
;; load the defgroup's for the standard extension modules, so that
;; documentation can be provided when the user customize's
--- 41,73 ----
(defun eshell-load-defgroups (&optional directory)
"Load `defgroup' statements from Eshell's module files."
! (let ((vc-handled-backends nil)) ; avoid VC fucking things up
! (with-current-buffer
! (find-file-noselect (expand-file-name "esh-groups.el" directory))
! (erase-buffer)
! (insert ";;; do not modify this file; it is auto-generated -*-
no-byte-compile: t -*-\n\n")
! (let ((files (directory-files (or directory
! (car command-line-args-left))
! nil "\\`em-.*\\.el\\'")))
! (while files
! (message "Loading defgroup from `%s'" (car files))
! (let (defgroup)
! (catch 'handled
! (with-current-buffer (find-file-noselect (car files))
! (goto-char (point-min))
! (while t
(forward-sexp)
! (if (eobp) (throw 'handled t))
! (backward-sexp)
! (let ((begin (point))
! (defg (looking-at "(defgroup")))
! (forward-sexp)
! (if defg
! (setq defgroup (buffer-substring begin (point))))))))
! (if defgroup
! (insert defgroup "\n\n")))
! (setq files (cdr files))))
! (save-buffer))))
;; load the defgroup's for the standard extension modules, so that
;; documentation can be provided when the user customize's
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/eshell/esh-module.el [lexbind],
Miles Bader <=