Show
Ignore:
Timestamp:
2005年11月26日 08時33分26秒 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • vendor/emacs-CVS_HEAD/lisp/cus-dep.el

    r3806 r3988  
    8080  (set-buffer (find-file-noselect generated-custom-dependencies-file)) 
    8181  (erase-buffer) 
    82   (insert "\ 
    83 ;;; " (file-name-nondirectory generated-custom-dependencies-file) 
     82  (insert ";;; " (file-name-nondirectory generated-custom-dependencies-file) 
    8483      " --- automatically extracted custom dependencies 
    85 ;; 
    86 ;;; Code: 
     84;;\n;;; Code: 
    8785 
    8886") 
    8987  (mapatoms (lambda (symbol) 
    9088              (let ((members (get symbol 'custom-group)) 
    91                    item where found) 
     89                    where found) 
    9290                (when members 
    93                   ;; So x and no-x builds won't differ. 
    94                   (setq members 
    95                         (sort (copy-sequence members) 
    96                               (lambda (x y) (string< (car x) (car y))))) 
    97                   (while members 
    98                     (setq item (car (car members)) 
    99                           members (cdr members) 
    100                           where (get item 'custom-where)) 
     91                  (dolist (member 
     92                           ;; So x and no-x builds won't differ. 
     93                           (sort (mapcar 'car members) 'string<)) 
     94                    (setq where (get member 'custom-where)) 
    10195                    (unless (or (null where) 
    10296                                (member where found)) 
    103                       (if found 
    104                           (insert " ") 
    105                         (insert "(put '" (symbol-name symbol) 
    106                                 " 'custom-loads '(")) 
    107                       (prin1 where (current-buffer)) 
    10897                      (push where found))) 
    10998                  (when found 
    110                     (insert "))\n")))))) 
     99                    (insert "(put '" (symbol-name symbol) 
     100                            " 'custom-loads '") 
     101                    (prin1 (nreverse found) (current-buffer)) 
     102                    (insert ")\n")))))) 
    111103  (insert "\ 
    112 ;;; These are for handling :version.  We need to have a minimum of 
    113 ;;; information so `customize-changed-options' could do its job. 
     104;; These are for handling :version.  We need to have a minimum of 
     105;; information so `customize-changed-options' could do its job. 
    114106 
    115 ;;; For groups we set `custom-version', `group-documentation' and 
    116 ;;; `custom-tag' (which are shown in the customize buffer), so we 
    117 ;;; don't have to load the file containing the group. 
     107;; For groups we set `custom-version', `group-documentation' and 
     108;; `custom-tag' (which are shown in the customize buffer), so we 
     109;; don't have to load the file containing the group. 
    118110 
    119 ;;; `custom-versions-load-alist' is an alist that has as car a version 
    120 ;;; number and as elts the files that have variables or faces that 
    121 ;;; contain that version. These files should be loaded before showing 
    122 ;;; the customization buffer that `customize-changed-options' 
    123 ;;; generates. 
     111;; `custom-versions-load-alist' is an alist that has as car a version 
     112;; number and as elts the files that have variables or faces that 
     113;; contain that version. These files should be loaded before showing 
     114;; the customization buffer that `customize-changed-options' 
     115;; generates. 
    124116 
    125 ;;; This macro is used so we don't modify the information about 
    126 ;;; variables and groups if it's already set. (We don't know when 
    127 ;;; " (file-name-nondirectory generated-custom-dependencies-file) 
     117;; This macro is used so we don't modify the information about 
     118;; variables and groups if it's already set. (We don't know when 
     119;; " (file-name-nondirectory generated-custom-dependencies-file) 
    128120      " is going to be loaded and at that time some of the 
    129 ;;; files might be loaded and some others might not). 
     121;; files might be loaded and some others might not). 
    130122\(defmacro custom-put-if-not (symbol propname value) 
    131123  `(unless (get ,symbol ,propname) 
    …… 
    176168              (file-name-nondirectory generated-custom-dependencies-file)) ") 
    177169 
    178 ;;; Local Variables: 
    179 ;;; version-control: never 
    180 ;;; no-byte-compile: t 
    181 ;;; no-update-autoloads: t 
    182 ;;; End: 
    183 ;;; " (file-name-nondirectory generated-custom-dependencies-file) " ends here\n") 
     170;; Local Variables: 
     171;; version-control: never 
     172;; no-byte-compile: t 
     173;; no-update-autoloads: t 
     174;; End:\n;;; " 
     175              (file-name-nondirectory generated-custom-dependencies-file) 
     176              " ends here\n") 
    184177  (let ((kept-new-versions 10000000)) 
    185178    (save-buffer)) 
    …… 
    189182  
    190183 
    191 ;;; arch-tag: b7b6421a-bf7a-44fd-a382-6f44976bdf68 
     184;; arch-tag: b7b6421a-bf7a-44fd-a382-6f44976bdf68 
    192185;;; cus-dep.el ends here