Mercurial > emacs
view lisp/cus-dep.el @ 21107:d67e858e738b
(c-fill-paragraph): Bind fill-paragraph-function to
nil when calling fill-paragraph, to avoid bogus recursion which
will signal an error.
(c-fill-paragraph): Always keep point in the same
relative position. Fill comment before point if there's nothing
else on the same line. Fill block comments after code a little
better. Try harder to find a good fill-prefix when point is on a
block comment ender line. Use c-Java-javadoc-paragraph-start in
block comments in Java mode. Leave block comment ender alone when
c-hanging-comment-ender-p is nil and point is on that line.
Detect paragraph-separate in multiparagraph comments. Fix for bug
that may strip the `*' off `*/' if fill-prefix ends with `*' and
c-hanging-comment-ender-p is t. Added filling of multiline string
literals. Always return t to disable filling in any unhandled
area, i.e. actual code where fill-paragraph only mess things up.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 08 Mar 1998 06:50:21 +0000 |
parents | bbad6a02f725 |
children | 44c9237d9e52 |
line wrap: on
line source
;;; cus-dep.el --- Find customization dependencies. ;; ;; Copyright (C) 1997 Free Software Foundation, Inc. ;; ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> ;; Keywords: internal ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Code: (require 'cl) (require 'widget) (require 'cus-face) (defun custom-make-dependencies () "Batch function to extract custom dependencies from .el files. Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS" (let ((enable-local-eval nil) (all-subdirs command-line-args-left) (start-directory default-directory)) (get-buffer-create " cus-dep temp") (set-buffer " cus-dep temp") (while all-subdirs (message "Directory %s" (car all-subdirs)) (let ((files (directory-files (car all-subdirs) nil "\\`[^=].*\\.el\\'")) (default-directory default-directory) file) (cd (car all-subdirs)) (while files (setq file (car files) files (cdr files)) (when (file-exists-p file) (erase-buffer) (insert-file-contents file) (goto-char (point-min)) (string-match "\\`\\(.*\\)\\.el\\'" file) (let ((name (file-name-nondirectory (match-string 1 file)))) (condition-case nil (while (re-search-forward "^(defcustom\\|^(defface\\|^(defgroup" nil t) (beginning-of-line) (let ((expr (read (current-buffer)))) (eval expr) (put (nth 1 expr) 'custom-where name))) (error nil))))) (setq all-subdirs (cdr all-subdirs))))) (message "Generating cus-load.el...") (find-file "cus-load.el") (erase-buffer) (insert "\ ;;; cus-load.el --- automatically extracted custom dependencies ;; ;;; Code: ") (mapatoms (lambda (symbol) (let ((members (get symbol 'custom-group)) item where found) (when members (while members (setq item (car (car members)) members (cdr members) where (get item 'custom-where)) (unless (or (null where) (member where found)) (if found (insert " ") (insert "(put '" (symbol-name symbol) " 'custom-loads '(")) (prin1 where (current-buffer)) (push where found))) (when found (insert "))\n")))))) (insert "\ \(provide 'cus-load) ;;; cus-load.el ends here\n") (let ((kept-new-versions 10000000)) (save-buffer)) (message "Generating cus-load.el...done") (kill-emacs)) ;;; cus-dep.el ends here