From: tomo Date: Mon, 25 Nov 2002 13:45:24 +0000 (+0000) Subject: update. X-Git-Tag: r21-4-9-utf-2000-0_19-cjkc~60 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=637a84f7f0521b6828ad4ca5af82d68ef9233382;p=chise%2Fxemacs-chise.git update. --- diff --git a/lisp/auto-autoloads.el b/lisp/auto-autoloads.el index cd681c4..af99676 100644 --- a/lisp/auto-autoloads.el +++ b/lisp/auto-autoloads.el @@ -131,19 +131,22 @@ be used only with -batch." nil nil) ;;;### (autoloads (build-report) "build-report" "lisp/build-report.el") (autoload 'build-report "build-report" "\ -Composes a fresh mail message with the contents of the built XEmacs -Installation file and excerpts from XEmacs make output. -`compose-mail' is used to create the mail message. Point is left at -the beginning of the mail text. You may add some personal notes if -you like and send the report. -See also - `compose-mail', `mail-user-agent', - `build-report-destination', - `build-report-keep-regexp', - `build-report-delete-regexp', - `build-report-make-output-dir', - `build-report-make-output-files', and - `build-report-installation-file'." t nil) +Report build information including Installation and make output. + +Prompts for status (usually \"Success\" or \"Failure\"). Then uses +`compose-mail' to create a mail message. The Subject header contains +status and version information. Point is left at the beginning of the +mail text. Add some notes if you like, and send the report. + +Looks for Installation and the make output file (`beta.err' by +default, customizable via `build-report-make-output-files') in the +build directory of the running XEmacs by default (customizable via +`build-report-make-output-dir'). The output from make is filtered +through `build-report-keep-regexp' and `build-report-delete-regexp' +before including in the message. + +See also `mail-user-agent', `build-report-destination', and +`build-report-installation-file'." t nil) ;;;*** @@ -861,7 +864,8 @@ in the tag table that matches the tagname used in the previous find-tag. the tag. This version of this function supports multiple active tags tables, -and completion. +and completion. See also the commands `\\[push-tag-mark]' and +`\\[pop-tag-mark]'. Variables of note: @@ -1223,7 +1227,8 @@ or if you change your font path, you can call this to re-initialize the menus." ;;;### (autoloads (x-font-build-cache font-default-size-for-device font-default-encoding-for-device font-default-registry-for-device font-default-family-for-device font-default-object-for-device font-default-font-for-device font-create-object) "font" "lisp/font.el") -(autoload 'font-create-object "font" nil nil nil) +(autoload 'font-create-object "font" "\ +Return a font descriptor object for FONTNAME, appropriate for DEVICE." nil nil) (autoload 'font-default-font-for-device "font" nil nil nil) @@ -1430,7 +1435,7 @@ If you don't like the lazy invocation of this function, you can add it to when they are selected for the first time. If you add fonts to your system, or if you change your font path, you can call this to re-initialize the menus." nil nil) -(defun* mswindows-font-menu-font-data (face dcache) (let* ((case-fold-search t) (domain (if font-menu-this-frame-only-p (selected-frame) (selected-device))) (name (font-instance-name (face-font-instance face domain))) (truename (font-instance-truename (face-font-instance face domain (if (featurep 'mule) 'ascii)))) family size weight entry slant) (when (string-match mswindows-font-regexp name) (setq family (match-string 1 name)) (setq entry (vassoc family (aref dcache 0)))) (when (and (null entry) (string-match mswindows-font-regexp truename)) (setq family (match-string 1 truename)) (setq entry (vassoc family (aref dcache 0)))) (when (null entry) (return-from mswindows-font-menu-font-data (make-vector 5 nil))) (when (string-match mswindows-font-regexp name) (setq weight (match-string 2 name)) (setq size (string-to-int (match-string 4 name)))) (when (string-match mswindows-font-regexp truename) (when (not (member weight (aref entry 1))) (setq weight (match-string 2 truename))) (when (not (member size (aref entry 2))) (setq size (string-to-int (match-string 4 truename)))) (setq slant (match-string 5 truename))) (vector entry family size weight slant))) +(defun* mswindows-font-menu-font-data (face dcache) (let* ((case-fold-search t) (domain (if font-menu-this-frame-only-p (selected-frame) (selected-device))) (name (font-instance-name (face-font-instance face domain))) (truename (font-instance-truename (face-font-instance face domain (if (featurep 'mule) 'ascii)))) family size weight entry slant) (when (string-match mswindows-font-regexp name) (setq family (match-string 1 name)) (setq entry (vassoc family (aref dcache 0)))) (when (and (null entry) (string-match mswindows-font-regexp truename)) (setq family (match-string 1 truename)) (setq entry (vassoc family (aref dcache 0)))) (when (null entry) (return-from mswindows-font-menu-font-data (make-vector 5 nil))) (when (string-match mswindows-font-regexp name) (setq weight (match-string 2 name)) (setq size (string-to-int (or (match-string 4 name) "0")))) (when (string-match mswindows-font-regexp truename) (when (not (member weight (aref entry 1))) (setq weight (match-string 2 truename))) (when (not (member size (aref entry 2))) (setq size (string-to-int (or (match-string 4 truename) "0")))) (setq slant (match-string 5 truename))) (vector entry family size weight slant))) ;;;*** @@ -1693,7 +1698,7 @@ they are not defaultly assigned to keys." t nil) ;;;*** -;;;### (autoloads (clear-rectangle string-rectangle open-rectangle insert-rectangle yank-rectangle kill-rectangle extract-rectangle delete-extract-rectangle delete-rectangle) "rect" "lisp/rect.el") +;;;### (autoloads (clear-rectangle replace-rectangle string-rectangle open-rectangle insert-rectangle yank-rectangle kill-rectangle extract-rectangle delete-extract-rectangle delete-rectangle) "rect" "lisp/rect.el") (autoload 'delete-rectangle "rect" "\ Delete the text in the region-rectangle without saving it. @@ -1753,6 +1758,10 @@ Otherwise this command does not delete or overwrite any existing text. When called from a program, the rectangle's corners are START and END." t nil) +(autoload 'replace-rectangle "rect" "\ +Like `string-rectangle', but unconditionally replace the original region, +as if `pending-delete-mode' were active." t nil) + (autoload 'clear-rectangle "rect" "\ Blank out the region-rectangle. The text previously in the region is overwritten with blanks. diff --git a/lisp/utf-2000/auto-autoloads.el b/lisp/utf-2000/auto-autoloads.el index 85a9ed9..df0106a 100644 --- a/lisp/utf-2000/auto-autoloads.el +++ b/lisp/utf-2000/auto-autoloads.el @@ -7,10 +7,12 @@ ;;;*** -;;;### (autoloads (ideographic-structure-find-char char-ucs char-daikanwa update-ideograph-radical-table) "ideograph-util" "utf-2000/ideograph-util.el") +;;;### (autoloads (ideographic-structure-find-char char-ucs char-daikanwa char-representative-of-daikanwa update-ideograph-radical-table) "ideograph-util" "utf-2000/ideograph-util.el") (autoload 'update-ideograph-radical-table "ideograph-util" nil t nil) +(autoload 'char-representative-of-daikanwa "ideograph-util" nil nil nil) + (autoload 'char-daikanwa "ideograph-util" nil nil nil) (autoload 'char-ucs "ideograph-util" nil nil nil) @@ -18,5 +20,12 @@ (autoload 'ideographic-structure-find-char "ideograph-util" nil nil nil) ;;;*** + +;;;### (autoloads (mapping-table-read-file) "read-maps" "utf-2000/read-maps.el") + +(autoload 'mapping-table-read-file "read-maps" "\ +Read mapping table." t nil) + +;;;*** (provide 'utf-2000-autoloads)