July 2006 - xemacs-cvs＠xemacs.org - XEmacs Mailing List Archives

CVS update by aidan xemacs/src ... 18 years, 4 months

CVS Monitor

User: aidan Date: 06/07/08 18:16:01 Modified: xemacs/src ChangeLog lisp.h redisplay.c syntax.h text.c Log: Fix a Mule build failure, update comments. Revision Changes Path 1.986 +11 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.985 retrieving revision 1.986 diff -u -p -r1.985 -r1.986 --- ChangeLog 2006/07/08 09:17:59 1.985 +++ ChangeLog 2006/07/08 16:15:54 1.986 ＠＠ -1,5 +1,16 ＠＠ 2006-07-08 Aidan Kehoe <kehoea(a)parhasard.net> + * lisp.h: + * redisplay.c (add_octal_runes): + * syntax.h: + * text.c + Change some comments to reflect a 21-bit character space. + * text.c (non_ascii_valid_ichar_p): + Check that no character value is greater than 2^^21, not + 2^^19. This fixes the Mule build when error-checking is turned on. + +2006-07-08 Aidan Kehoe <kehoea(a)parhasard.net> + * symbols.c (Fsubr_name): Use the CHECK_SUBR macro instead of the GNU code's explicit if statement. 1.143 +1 -1 XEmacs/xemacs/src/lisp.h Index: lisp.h =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/lisp.h,v retrieving revision 1.142 retrieving revision 1.143 diff -u -p -r1.142 -r1.143 --- lisp.h 2006/05/06 08:09:36 1.142 +++ lisp.h 2006/07/08 16:15:56 1.143 ＠＠ -399,7 +399,7 ＠＠ typedef signed char SChbyte; /* To the user, a buffer is made up of characters. In the non-Mule world, characters and Ibytes are equivalent, restricted to the range 0 - 255. - In the Mule world, many more characters are possible (19 bits worth, + In the Mule world, many more characters are possible (21 bits worth, more or less), and a character requires (typically) 1 to 4 Ibytes for its representation in a buffer or string. Note that the representation of a character by itself, in a variable, is very different from its 1.100 +1 -1 XEmacs/xemacs/src/redisplay.c Index: redisplay.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/redisplay.c,v retrieving revision 1.99 retrieving revision 1.100 diff -u -p -r1.99 -r1.100 --- redisplay.c 2006/04/25 14:02:09 1.99 +++ redisplay.c 2006/07/08 16:15:56 1.100 ＠＠ -1428,7 +1428,7 ＠＠ add_octal_runes (pos_data *data) if (data->ch >= 0x100) { /* If the character is an extended Mule character, it could have - up to 19 bits. For the moment, we treat it as a seven-digit + up to 21 bits. For the moment, we treat it as a seven-digit octal number. This is not that pretty, but whatever. */ data->ch = (7 & (orig_char >> 18)) + '0'; ADD_NEXT_OCTAL_RUNE_CHAR; 1.15 +1 -1 XEmacs/xemacs/src/syntax.h Index: syntax.h =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/syntax.h,v retrieving revision 1.14 retrieving revision 1.15 diff -u -p -r1.14 -r1.15 --- syntax.h 2006/02/21 11:33:46 1.14 +++ syntax.h 2006/07/08 16:15:57 1.15 ＠＠ -149,7 +149,7 ＠＠ WORD_SYNTAX_P (Lisp_Object table, Ichar the tag and the comment bits. Clearly, such a scheme will not work for Mule, because the matching - paren could be any character and as such requires 19 bits, which + paren could be any character and as such requires 21 bits, which we don't got. Remember that under Mule we use char tables instead of vectors. 1.28 +7 -9 XEmacs/xemacs/src/text.c Index: text.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/text.c,v retrieving revision 1.27 retrieving revision 1.28 diff -u -p -r1.27 -r1.28 --- text.c 2006/06/19 18:19:38 1.27 +++ text.c 2006/07/08 16:15:57 1.28 ＠＠ -215,13 +215,11 ＠＠ Boston, MA 02111-1307, USA. */ this to 2048, and further shrinkage would become uncomfortable. No such problems exist in XEmacs. - Composite characters could be represented as 0x8D C1 C2 C3, - where each C[1-3] is in the range 0xA0 - 0xFF. This allows - for slightly under 2^20 (one million) composite characters - over the XEmacs process lifetime, and you only need to - increase the size of a Mule character from 19 to 21 bits. - Or you could use 0x8D C1 C2 C3 C4, allowing for about - 85 million (slightly over 2^26) composite characters. + Composite characters could be represented as 0x8D C1 C2 C3, where each + C[1-3] is in the range 0xA0 - 0xFF. This allows for slightly under + 2^20 (one million) composite characters over the XEmacs process + lifetime. Or you could use 0x8D C1 C2 C3 C4, allowing for about 85 + million (slightly over 2^26) composite characters. ========================================================================== 10. Internal API's ＠＠ -4695,8 +4693,8 ＠＠ non_ascii_valid_ichar_p (Ichar ch) { int f1, f2, f3; - /* Must have only lowest 19 bits set */ - if (ch & ~0x7FFFF) + /* Must have only lowest 21 bits set */ + if (ch & ~0x1FFFFF) return 0; f1 = ichar_field1 (ch);

1 participants
0 comments

CVS update by aidan xemacs/src ... 18 years, 4 months

CVS Monitor

User: aidan Date: 06/07/08 11:18:03 Modified: xemacs/src ChangeLog symbols.c Log: Style change in subr-name. Revision Changes Path 1.985 +6 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.984 retrieving revision 1.985 diff -u -p -r1.984 -r1.985 --- ChangeLog 2006/07/07 23:01:10 1.984 +++ ChangeLog 2006/07/08 09:17:59 1.985 ＠＠ -1,5 +1,11 ＠＠ 2006-07-08 Aidan Kehoe <kehoea(a)parhasard.net> + * symbols.c (Fsubr_name): + Use the CHECK_SUBR macro instead of the GNU code's explicit if + statement. + +2006-07-08 Aidan Kehoe <kehoea(a)parhasard.net> + * charset.h: Move to 7 bits instead of 5 for the first field of a character. 1.58 +2 -2 XEmacs/xemacs/src/symbols.c Index: symbols.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/symbols.c,v retrieving revision 1.57 retrieving revision 1.58 diff -u -p -r1.57 -r1.58 --- symbols.c 2006/05/06 08:09:37 1.57 +++ symbols.c 2006/07/08 09:18:01 1.58 ＠＠ -726,8 +726,8 ＠＠ SUBR must be a built-in function. (subr)) { const char *name; - if (!SUBRP (subr)) - wrong_type_argument (Qsubrp, subr); + CHECK_SUBR (subr); + name = XSUBR (subr)->name; return make_string ((const Ibyte *)name, strlen (name)); }

1 participants
0 comments

CVS update by aidan xemacs/src ... 18 years, 4 months

CVS Monitor

User: aidan Date: 06/07/08 01:01:15 Modified: xemacs/src ChangeLog charset.h Log: Adjust the Mule charsets to support 500,000 unknown Unicode charsets. Revision Changes Path 1.344 +8 -0 XEmacs/xemacs/man/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/man/ChangeLog,v retrieving revision 1.343 retrieving revision 1.344 diff -u -p -r1.343 -r1.344 --- ChangeLog 2006/06/03 17:50:46 1.343 +++ ChangeLog 2006/07/07 23:01:01 1.344 ＠＠ -1,3 +1,11 ＠＠ +2006-07-08 Aidan Kehoe <kehoea(a)parhasard.net> + + * internals/internals.texi (Internal String Encoding): + Mention that UTF-8 would be a reasonable alternative encoding. + * internals/internals.texi (Internal Character Encoding): + Re-arrange the description of characters to deal with 21-bit + characters. + 2006-06-03 Aidan Kehoe <kehoea(a)parhasard.net> * lispref/mule.texi (CCL Syntax): 1.76 +13 -11 XEmacs/xemacs/man/internals/internals.texi Index: internals.texi =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/man/internals/internals.texi,v retrieving revision 1.75 retrieving revision 1.76 diff -u -p -r1.75 -r1.76 --- internals.texi 2006/04/23 16:11:28 1.75 +++ internals.texi 2006/07/07 23:01:06 1.76 ＠＠ -11335,10 +11335,12 ＠＠ were encoded in a one-byte-per-character the actual multi-byte encoding. ＠end enumerate - None of the standard non-modal encodings meet all of these + None of the pre-Unciode standard non-modal encodings meet all of these conditions. For example, EUC satisfies only (2) and (3), while -Shift-JIS and Big5 (not yet described) satisfy only (2). (All -non-modal encodings must satisfy (2), in order to be unambiguous.) +Shift-JIS and Big5 (not yet described) satisfy only (2). (All non-modal +encodings must satisfy (2), in order to be unambiguous.) UTF-8, +however, meets all three, and we are considering moving to it as an +internal encoding. ＠node Internal Character Encoding, , Internal String Encoding, Internal Mule Encodings ＠subsection Internal Character Encoding ＠＠ -11346,16 +11348,16 ＠＠ non-modal encodings must satisfy (2), in ＠cindex character encoding, internal ＠cindex encoding, internal character - One 19-bit word represents a single character. The word is + One 21-bit word represents a single character. The word is separated into three fields: ＠example -Bit number: 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 - <------------> <------------------> <------------------> -Field: 1 2 3 +Bit number: 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 + <------------------> <------------------> <------------------> +Field: 1 2 3 ＠end example - Note that fields 2 and 3 hold 7 bits each, while field 1 holds 5 bits. + Note that each field holds 7 bits. ＠example Character set Field 1 Field 2 Field 3 ＠＠ -11370,12 +11372,12 ＠＠ Dimension-1 private 0 range: (20 - 6F) (20 - 7F) Dimension-2 official LB - 0x8F PC1 PC2 range: (01 - 0A) (20 - 7F) (20 - 7F) -Dimension-2 private LB - 0xE1 PC1 PC2 +Dimension-2 private LB - 0x80 PC1 PC2 range: (0F - 1E) (20 - 7F) (20 - 7F) Composite 0x1F ? ? ＠end example -Note that character codes 0 - 255 are the same as the ``binary +Note also that character codes 0 - 255 are the same as the ``binary encoding'' described above. Most of the code in XEmacs knows nothing of the representation of a ＠＠ -11607,7 +11609,7 ＠＠ the same as the representation of that s you cannot do the standard C trick of passing a pointer to a character to a function that expects a string. -An Ichar takes up 19 bits of representation and (for code compatibility +An Ichar takes up 21 bits of representation and (for code compatibility and such) is compatible with an int. This representation is visible on the Lisp level. The important characteristics of the Ichar representation are 1.984 +5 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.983 retrieving revision 1.984 diff -u -p -r1.983 -r1.984 --- ChangeLog 2006/07/07 19:51:13 1.983 +++ ChangeLog 2006/07/07 23:01:10 1.984 ＠＠ -1,3 +1,8 ＠＠ +2006-07-08 Aidan Kehoe <kehoea(a)parhasard.net> + + * charset.h: + Move to 7 bits instead of 5 for the first field of a character. + 2006-07-07 Aidan Kehoe <kehoea(a)parhasard.net> * config.h.in: 1.14 +6 -6 XEmacs/xemacs/src/charset.h Index: charset.h =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/charset.h,v retrieving revision 1.13 retrieving revision 1.14 diff -u -p -r1.13 -r1.14 --- charset.h 2006/06/03 17:50:54 1.13 +++ charset.h 2006/07/07 23:01:11 1.14 ＠＠ -140,8 +140,8 ＠＠ enum LEADING_BYTE_OFFICIAL_2 #define PRE_LEADING_BYTE_PRIVATE_2 0x9F /* 2-byte char-set */ #define MIN_LEADING_BYTE_PRIVATE_1 0xA0 -#define MAX_LEADING_BYTE_PRIVATE_1 0xEF -#define MIN_LEADING_BYTE_PRIVATE_2 0xF0 +#define MAX_LEADING_BYTE_PRIVATE_1 0xC0 +#define MIN_LEADING_BYTE_PRIVATE_2 0xC1 #define MAX_LEADING_BYTE_PRIVATE_2 0xFF #define NUM_LEADING_BYTES 129 ＠＠ -354,9 +354,9 ＠＠ charset_by_attributes (int type, int fin /************************************************************************/ /* The bit fields of character are divided into 3 parts: - FIELD1(5bits):FIELD2(7bits):FIELD3(7bits) */ + FIELD1(7bits):FIELD2(7bits):FIELD3(7bits) */ -#define ICHAR_FIELD1_MASK (0x1F << 14) +#define ICHAR_FIELD1_MASK (0x7F << 14) #define ICHAR_FIELD2_MASK (0x7F << 7) #define ICHAR_FIELD3_MASK 0x7F ＠＠ -376,7 +376,7 ＠＠ charset_by_attributes (int type, int fin #define FIELD2_TO_PRIVATE_LEADING_BYTE 0x80 #define FIELD1_TO_OFFICIAL_LEADING_BYTE (MIN_LEADING_BYTE_OFFICIAL_2 - 1) -#define FIELD1_TO_PRIVATE_LEADING_BYTE 0xE1 +#define FIELD1_TO_PRIVATE_LEADING_BYTE 0x80 /* Minimum and maximum allowed values for the fields. */ ＠＠ -406,7 +406,7 ＠＠ charset_by_attributes (int type, int fin #define MIN_CHAR_PRIVATE_TYPE9N (MIN_ICHAR_FIELD2_PRIVATE << 7) #define MIN_CHAR_OFFICIAL_TYPE9NX9N (MIN_ICHAR_FIELD1_OFFICIAL << 14) #define MIN_CHAR_PRIVATE_TYPE9NX9N (MIN_ICHAR_FIELD1_PRIVATE << 14) -#define MIN_CHAR_COMPOSITION (0x1F << 14) +#define MIN_CHAR_COMPOSITION (0x7F << 14) /* Leading byte of a character.

1 participants
0 comments

CVS update by viteno xemacs ... 18 years, 4 months

CVS Monitor

User: viteno Date: 06/07/07 23:50:57 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1585 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1584 retrieving revision 1.1585 diff -u -p -r1.1584 -r1.1585 --- version.sh 2006/07/06 21:51:03 1.1584 +++ version.sh 2006/07/07 21:50:56 1.1585 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20060706)" +xemacs_extra_name="(+CVS-20060707)" xemacs_release_date="2006-05-16"

1 participants
0 comments

CVS update by aidan packages/xemacs-packages/xemacs-devel ... 18 years, 4 months

CVS Monitor

User: aidan Date: 06/07/07 23:22:30 Modified: packages/xemacs-packages/xemacs-devel ChangeLog find-func.el Log: Support built-in functions in find-func. Revision Changes Path 1.104 +6 -0 XEmacs/packages/xemacs-packages/xemacs-devel/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-devel/ChangeLog,v retrieving revision 1.103 retrieving revision 1.104 diff -u -p -r1.103 -r1.104 --- ChangeLog 2005/10/12 08:14:49 1.103 +++ ChangeLog 2006/07/07 21:22:29 1.104 ＠＠ -1,3 +1,9 ＠＠ +2006-07-07 Aidan Kehoe <kehoea(a)parhasard.net> + + * find-func.el: + Sync to GNU Emacs 22.0.50, add support for finding built-in + functions. + 2005-10-12 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 1.72 released. 1.9 +220 -105 XEmacs/packages/xemacs-packages/xemacs-devel/find-func.el Index: find-func.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/xemacs-devel/find-func.el,v retrieving revision 1.8 retrieving revision 1.9 diff -u -p -r1.8 -r1.9 --- find-func.el 2004/06/29 17:44:28 1.8 +++ find-func.el 2006/07/07 21:22:29 1.9 ＠＠ -1,6 +1,7 ＠＠ ;;; find-func.el --- find the definition of the Emacs Lisp function near point -;; Copyright (C) 1997, 1999, 2001, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004, +;; 2006 Free Software Foundation, Inc. ;; Author: Jens Petersen <petersen(a)kurims.kyoto-u.ac.jp> ;; Maintainer: petersen(a)kurims.kyoto-u.ac.jp ＠＠ -21,10 +22,10 ＠＠ ;; You should have received a copy of the GNU General Public License ;; along with XEmacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. -;;; Synched up with: FSF 21.3. +;;; Synched up with: FSF 22.0.50 ;;; Commentary: ;; ＠＠ -43,9 +44,14 ＠＠ ;; although it is unusual it can happen that say a variable and function ;; of the same name are defined in different files, which may lead to ;; incorrect results.) Unfortunately in Emacs, only symbols loaded from -;; startup can be found. It would be nice if the location of primitive -;; functions in the C code was also recorded! +;; startup can be found. +;; The file names of primitive functions in C is available in recent GNU and +;; XEmacs beta versions; GNU since some point in 2004, XEmacs since early +;; 2005. XEmacs returns the file name from `symbol-file' in loadhist.el, as +;; with any other symbol. GNU has a function `help-C-file-name' in +;; help-fns.el that they call instead. + ;; The code started out from `describe-function', `describe-key' ;; ("help.el") and `fff-find-loaded-emacs-lisp-function' (Noah Friedman's ;; "fff.el"). ＠＠ -75,30 +81,55 ＠＠ ;; (define-derived-mode foo ...), (define-minor-mode foo) (concat "^\\s-*(\$def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|\ -ine-function\\|ine-obsolete-function-alias\\|ine-compatible-function-alias\\|\ -\[^cgv\W]\\w+\\*?\$\\|define-minor-mode\ -\\|easy-mmode-define-global-mode\\)" find-function-space-re +ine\$?:-global\$?-minor-mode\\|ine-compilation-mode\\|un-cvs-mode\\|\ +foo\\|[^cfgv]\\w+\\*?\\)\\|easy-mmode-define-[a-z-]+\\|easy-menu-define\\|\ +menu-bar-make-toggle\\)" + find-function-space-re "\$'\\|\(quote \$?%s\$\\s-\\|$\\|\(\\|$\\)") "The regexp used by `find-function' to search for a function definition. Note it must contain a `%s' at the place where `format' should insert the function name. The default value avoids `defconst', -`defgroup', `defvar'. +`defgroup', `defvar', `defface'. Please send improvements and fixes to the maintainer." :type 'regexp :group 'find-function) (defcustom find-variable-regexp - (concat "^\\s-*(\$def[^umag\W]\\(\\w\\|\\s_\$+\\*?\\|define-obsolete-variable-alias\\|define-compatible-variable-alias\\)" - find-function-space-re "%s\$\\s-\\|$\$") + (concat + "^\\s-*(\$def[^fumag]\\(\\w\\|\\s_\$+\\*?\\|\ +easy-mmode-def\$map\\|syntax\$\\|easy-menu-define\\)" + find-function-space-re + "%s\$\\s-\\|$\$") "The regexp used by `find-variable' to search for a variable definition. -It should match right up to the variable name. The default value -avoids `defun', `defmacro', `defalias', `defadvice', `defgroup'. +Note it must contain a `%s' at the place where `format' +should insert the variable name. The default value +avoids `defun', `defmacro', `defalias', `defadvice', `defgroup', `defface'. Please send improvements and fixes to the maintainer." :type 'regexp :group 'find-function) +(defcustom find-face-regexp + (concat"^\\s-*(defface" find-function-space-re "%s\$\\s-\\|$\$") + "The regexp used by `find-face' to search for a face definition. +Note it must contain a `%s' at the place where `format' +should insert the face name. + +Please send improvements and fixes to the maintainer." +:type 'regexp +:group 'find-function +:version "22.1") + +(defvar find-function-regexp-alist + '((nil . find-function-regexp) + (defvar . find-variable-regexp) + (defface . find-face-regexp)) + "Alist mapping definition types into regexp variables. +Each regexp variable's value should actually be a format string +to be used to substitute the desired symbol name into the regexp.") +(put 'find-function-regexp-alist 'risky-local-variable t) + (defcustom find-function-source-path nil "The default list of directories where `find-function' searches. ＠＠ -124,51 +155,99 ＠＠ See the functions `find-function' and `f ;;; Functions: -;; XEmacs omission: Emacs has find-library and supporting friends here. -;; We have the equivalent in lib-complete.el in core. +;; XEmacs omission: Emacs has find-library and supporting friends here. We +;; have the equivalent in lib-complete.el in core. -;;;###autoload -(defun find-function-search-for-symbol (symbol variable-p library) - "Search for SYMBOL in LIBRARY. -If VARIABLE-P is nil, `find-function-regexp' is used, otherwise -`find-variable-regexp' is used." +;; However, we don't have support for looking up C in core; that comes from +;; GNU and is here. + +(defvar find-function-C-source-directory + ;; XEmacs change ; source-directory -> source-root + (let ((dir (expand-file-name "src" source-root))) + (when (and (file-directory-p dir) (file-readable-p dir)) + dir)) + "Directory where the C source files of XEmacs can be found. +If nil, do not try to find the source code of functions and variables +defined in C.") + +(defun find-function-C-source (fun-or-var file type) + "Find the source location where SUBR-OR-VAR is defined in FILE. +TYPE should be nil to find a function, or `defvar' to find a variable." + (unless find-function-C-source-directory + (setq find-function-C-source-directory + (read-directory-name "XEmacs C source dir: " nil nil t))) + (setq file (expand-file-name file find-function-C-source-directory)) + (unless (file-readable-p file) + (error "The C source file %s is not available" + (file-name-nondirectory file))) + (unless type + (setq fun-or-var (indirect-function fun-or-var))) + ;; Versions of XEmacs without `subr-name' shouldn't return C filenames + ;; from `symbol-file'. + (assert (fboundp 'subr-name) + t + "This code needs `subr-name', and shouldn't be called without it.") + (with-current-buffer (find-file-noselect file) + (goto-char (point-min)) + (unless (re-search-forward + (if type + (concat "DEFVAR[A-Z_]*[ \t\n]*([ \t\n]*\"" + (regexp-quote (symbol-name fun-or-var)) + "\"") + (concat "DEFUN[ \t\n]*([ \t\n]*\"" + (regexp-quote (subr-name fun-or-var)) + "\"")) + nil t) + (error "Can't find source for %s" fun-or-var)) + (cons (current-buffer) (match-beginning 0)))) + +;;;###autoload +(defun find-function-search-for-symbol (symbol type library) + "Search for SYMBOL's definition of type TYPE in LIBRARY. +If TYPE is nil, look for a function definition. +Otherwise, TYPE specifies the kind of definition, +and it is interpreted via `find-function-regexp-alist'. +The search is done in the source for library LIBRARY." (if (null library) (error "Don't know where `%s' is defined" symbol)) ;; We deviate significantly from Emacs here, due to our distinct ;; find-library implementations. - (if (string-match "\\.el\$c\$\\'" library) - (setq library (substring library 0 (match-beginning 1)))) - (let* ((path find-function-source-path) - (filename (if (file-exists-p library) - library - ;; use `file-name-sans-extension' here? (if it gets fixed) - (if (string-match "\$\\.el\$\\'" library) - (setq library (substring library 0 - (match-beginning 1)))) - (or (locate-library (concat library ".el") t path) - (locate-library library t path))))) - (if (not filename) - (error "The library \"%s\" is not in the path." library)) - (with-current-buffer (find-file-noselect filename) - (save-match-data - (let ((regexp (format (if variable-p - find-variable-regexp - find-function-regexp) - (regexp-quote (symbol-name symbol)))) - (case-fold-search)) - (with-syntax-table emacs-lisp-mode-syntax-table - (goto-char (point-min)) - (if (or (re-search-forward regexp nil t) - (re-search-forward - (concat "^([^ ]+" find-function-space-re "['(]" - (regexp-quote (symbol-name symbol)) - "\\>") - nil t)) - (progn - (beginning-of-line) - (cons (current-buffer) (point))) - (error "Cannot find definition of `%s' in library `%s'" - symbol library)))))))) + (if (string-match "^\$.*\\.c\$$" library) + (find-function-C-source symbol (match-string 1 library) type) + (if (string-match "\\.el\$c\$\\'" library) + (setq library (substring library 0 (match-beginning 1)))) + (let* ((path find-function-source-path) + (filename (if (file-exists-p library) + library + ;; use `file-name-sans-extension' here? (if it gets + ;; fixed) + (if (string-match "\$\\.el\$\\'" library) + (setq library (substring library 0 + (match-beginning 1)))) + (or (locate-library (concat library ".el") t path) + (locate-library library t path))))) + (if (not filename) + (error "The library \"%s\" is not in the path." library)) + (with-current-buffer (find-file-noselect filename) + (save-match-data + (let ((regexp (format (if type + find-variable-regexp + find-function-regexp) + (regexp-quote (symbol-name symbol)))) + (case-fold-search)) + (with-syntax-table emacs-lisp-mode-syntax-table + (goto-char (point-min)) + (if (or (re-search-forward regexp nil t) + (re-search-forward + (concat "^([^ ]+" find-function-space-re "['(]" + (regexp-quote (symbol-name symbol)) + "\\_>") + nil t)) + (progn + (beginning-of-line) + (cons (current-buffer) (point))) + (error "Cannot find definition of `%s' in library `%s'" + symbol library))))))))) ;;;###autoload (defun find-function-noselect (function) ＠＠ -195,13 +274,8 ＠＠ in `load-path'." function (symbol-name def))))) (setq function (symbol-function function) def (symbol-function function))) - ;; XEmacs difference: check for primitive functions a bit differently - (and (subrp (symbol-function function)) - (if aliases - (error "%s which is a primitive function" aliases) - (error "%s is a primitive function" function))) (if aliases - (message aliases)) + (message "%s" aliases)) (let ((library (cond ((eq (car-safe def) 'autoload) (nth 1 def)) ＠＠ -215,57 +289,62 ＠＠ in `load-path'." (and (compiled-function-p (cdr def)) (file-name-sans-extension (compiled-function-annotation (cdr def)))))))))) + ;; XEmacs difference: check for primitive functions a bit differently + ;; XEmacs; move this after the symbol-file check, which can now return + ;; the place in C where the function is. + (and (null library) (subrp (symbol-function function)) + (if aliases + (error "%s which is a primitive function" aliases) + (error "%s is a primitive function" function))) (find-function-search-for-symbol function nil library)))) ;; XEmacs change: these functions are defined in help.el ;(defalias 'function-at-point 'function-called-at-point) -(defun find-function-read (&optional variable-p) +(defun find-function-read (&optional type) "Read and return an interned symbol, defaulting to the one near point. -If the optional VARIABLE-P is nil, then a function is gotten -defaulting to the value of the function `function-at-point', otherwise -a variable is asked for, with the default coming from -`variable-at-point'." - (let ((symb (funcall (if variable-p +If TYPE is nil, insist on a symbol with a function definition. +Otherwise TYPE should be `defvar' or `defface'. +If TYPE is nil, defaults using `function-at-point', +otherwise uses `variable-at-point'." + (let ((symb (funcall (if type 'variable-at-point 'function-at-point))) + (predicate (cdr (assq type '((nil . fboundp) (defvar . boundp) + (defface . facep))))) + (prompt (cdr (assq type '((nil . "function") (defvar . "variable") + (defface . "face"))))) (enable-recursive-minibuffers t) val) (if (equal symb 0) (setq symb nil)) - (setq val (if variable-p - (completing-read - (concat "Find variable" - (if symb - (format " (default %s)" symb)) - ": ") - obarray 'boundp t nil 'variable-history) - (completing-read - (concat "Find function" - (if symb - (format " (default %s)" symb)) - ": ") - obarray 'fboundp t nil 'function-history))) + (setq val (completing-read + (concat "Find " + prompt + (if symb + (format " (default %s)" symb)) + ": ") + obarray predicate t nil)) (list (if (equal val "") symb (intern val))))) -(defun find-function-do-it (symbol variable-p switch-fn) - "Find Emacs Lisp SYMBOL in a buffer and display it with SWITCH-FN. -If VARIABLE-P is nil, a function definition is searched for, otherwise -a variable definition is searched for. The start of a definition is -centered according to the variable `find-function-recenter-line'. +(defun find-function-do-it (symbol type switch-fn) + "Find Emacs Lisp SYMBOL in a buffer and display it. +TYPE is nil to search for a function definition, +or else `defvar' or `defface'. + +The variable `find-function-recenter-line' controls how +to recenter the display. SWITCH-FN is the function to call +to display and select the buffer. See also `find-function-after-hook'. -Point is saved in the buffer if it is one of the current buffers." +Set mark before moving, if the buffer already existed." (let* ((orig-point (point)) (orig-buffers (buffer-list)) (buffer-point (save-excursion - (funcall (if variable-p - 'find-variable-noselect - 'find-function-noselect) - symbol))) + (find-definition-noselect symbol type))) (new-buf (car buffer-point)) (new-point (cdr buffer-point))) (when buffer-point ＠＠ -278,7 +357,7 ＠＠ Point is saved in the buffer if it is on ;;;###autoload (defun find-function (function) - "Find the definition of the function near point in the current window. + "Find the definition of the FUNCTION near point. Finds the Emacs Lisp library containing the definition of the function near point (selected by `function-at-point') in a buffer and ＠＠ -319,46 +398,82 ＠＠ The library where VARIABLE is defined is `find-function-source-path', if non nil, otherwise in `load-path'." (if (not variable) (error "You didn't specify a variable")) - (and (built-in-variable-type variable) - (error "%s is a primitive variable" variable)) (let ((library (or file (symbol-file variable)))) + (unless (and (null library) (built-in-variable-type variable)) + (error "%s is a primitive variable" variable)) (find-function-search-for-symbol variable 'variable library))) ;;;###autoload (defun find-variable (variable) - "Find the definition of the variable near point in the current window. + "Find the definition of the VARIABLE near point. Finds the Emacs Lisp library containing the definition of the variable near point (selected by `variable-at-point') in a buffer and -places point before the definition. Point is saved in the buffer if -it is one of the current buffers. +places point before the definition. + +Set mark before moving, if the buffer already existed. The library where VARIABLE is defined is searched for in `find-function-source-path', if non nil, otherwise in `load-path'. See also `find-function-recenter-line' and `find-function-after-hook'." - (interactive (find-function-read 'variable)) - (find-function-do-it variable t 'switch-to-buffer)) + (interactive (find-function-read 'defvar)) + (find-function-do-it variable 'defvar 'switch-to-buffer)) ;;;###autoload (defun find-variable-other-window (variable) - "Find the definition of the variable near point in another window. + "Find, in another window, the definition of VARIABLE near point. See `find-variable' for more details." - (interactive (find-function-read 'variable)) - (find-function-do-it variable t 'switch-to-buffer-other-window)) + (interactive (find-function-read 'defvar)) + (find-function-do-it variable 'defvar 'switch-to-buffer-other-window)) ;;;###autoload (defun find-variable-other-frame (variable) - "Find the definition of the variable near point in another frame. + "Find, in annother frame, the definition of VARIABLE near point. See `find-variable' for more details." - (interactive (find-function-read 'variable)) - (find-function-do-it variable t 'switch-to-buffer-other-frame)) + (interactive (find-function-read 'defvar)) + (find-function-do-it variable 'defvar 'switch-to-buffer-other-frame)) + +;;;###autoload +(defun find-definition-noselect (symbol type &optional file) + "Return a pair `(BUFFER . POINT)' pointing to the definition of SYMBOL. +TYPE says what type of definition: nil for a function, +`defvar' or `defface' for a variable or face. This functoin +does not switch to the buffer or display it. + +The library where SYMBOL is defined is searched for in FILE or +`find-function-source-path', if non nil, otherwise in `load-path'." + (if (not symbol) + (error "You didn't specify a symbol")) + (if (null type) + (find-function-noselect symbol) + (let ((library (or file (symbol-file symbol)))) + (find-function-search-for-symbol symbol type library)))) + +;; RMS says: +;; For symmetry, this should be called find-face; but some programs +;; assume that, if that name is defined, it means something else. +;;;###autoload +(defun find-face-definition (face) + "Find the definition of FACE. FACE defaults to the name near point. + +Finds the Emacs Lisp library containing the definition of the face +near point (selected by `variable-at-point') in a buffer and +places point before the definition. + +Set mark before moving, if the buffer already existed. + +The library where FACE is defined is searched for in +`find-function-source-path', if non nil, otherwise in `load-path'. +See also `find-function-recenter-line' and `find-function-after-hook'." + (interactive (find-function-read 'defface)) + (find-function-do-it face 'defface 'switch-to-buffer)) ;;;###autoload (defun find-function-on-key (key) "Find the function that KEY invokes. KEY is a string. -Point is saved if FUNCTION is in the current buffer." +Set mark before moving, if the buffer already existed." (interactive "kFind function on key: ") ;; XEmacs change: Avoid the complex menu code with key-or-menu-binding (let ((defn (key-or-menu-binding key)) ＠＠ -399,5 +514,5 ＠＠ Point is saved if FUNCTION is in the cur (provide 'find-func) -;;; arch-tag: 43ecd81c-74dc-4d9a-8f63-a61e55670d64 +;; arch-tag: 43ecd81c-74dc-4d9a-8f63-a61e55670d64 ;;; find-func.el ends here

1 participants
0 comments

CVS update by james xemacs ... 18 years, 4 months

CVS Monitor

User: james Date: 06/07/07 22:07:54 Modified: xemacs ChangeLog configure.ac configure Log: Add -Wdeclaration-after-statement support. <m3irmuujmj.fsf_-_(a)jerrypc.cs.usu.edu> Revision Changes Path 1.508 +6 -0 XEmacs/xemacs/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/ChangeLog,v retrieving revision 1.507 retrieving revision 1.508 diff -u -p -r1.507 -r1.508 --- ChangeLog 2006/06/29 14:51:59 1.507 +++ ChangeLog 2006/07/07 20:07:44 1.508 ＠＠ -1,3 +1,9 ＠＠ +2006-06-20 Jerry James <james(a)xemacs.org> + + * configure.ac: When gcc is used, capture the values of __GNUC__ + and __GNUC_MINOR__. Use them to conditionally add warning flags + that are not supported by all versions of gcc. + 2006-06-23 Stephen J. Turnbull <stephen(a)xemacs.org> * configure.ac (Build Makefile.in's from Makefile.in.in's): 1.45 +12 -11 XEmacs/xemacs/configure.ac Index: configure.ac =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/configure.ac,v retrieving revision 1.44 retrieving revision 1.45 diff -u -p -r1.44 -r1.45 --- configure.ac 2006/06/29 14:52:00 1.44 +++ configure.ac 2006/07/07 20:07:45 1.45 ＠＠ -1883,15 +1883,13 ＠＠ CFLAGS="$xe_save_CFLAGS" dnl Determine GCC version. if test "$GCC" = "yes"; then AC_RUN_IFELSE([AC_LANG_SOURCE([int main () { -#if __GNUC__ >= 3 -return 11; -#else -return 0; -#endif -}])], [:], -[case "$?" in - 11) echo "You appear to be using GCC version 3 or above."; __GCC3=yes ;; -esac]) +return __GNUC__; +}])], [:], [__GCC="$?"]) +AC_RUN_IFELSE([AC_LANG_SOURCE([int main () { +return __GNUC_MINOR__; +}])], [:], [__GCC_MINOR="$?"]) +__GCC_VERSION=$__GCC"."$__GCC_MINOR +echo "You appear to be using GCC version" $__GCC_VERSION fi dnl Support for using a different compiler for xemacs itself. ＠＠ -2311,7 +2309,7 ＠＠ if test "$cflags_warning_specified" = "n dnl Warnings about char subscripts are pretty pointless, though, dnl and we use them in various places. with_cflags_warning="$with_cflags_warning -Wsign-compare -Wno-char-subscripts" - test "$__GCC3" = "yes" && with_cflags_warning="$with_cflags_warning -Wpacked" + test "$__GCC" -ge 3 && with_cflags_warning="$with_cflags_warning -Wpacked" dnl glibc is intentionally not `-Wpointer-arith'-clean. dnl Ulrich Drepper has rejected patches to fix the glibc header files. test "$have_glibc" != "yes" && \ ＠＠ -2327,8 +2325,11 ＠＠ if test "$cflags_warning_specified" = "n dnl some very ugly code changes. if test "$with_xemacs_compiler" = "g++"; then xe_cflags_warning="$with_cflags_warning -Weffc++" - elif test "$__GCC3" = "yes"; then + elif test "$__GCC" -ge 3; then xe_cflags_warning="$with_cflags_warning -Wunused-parameter" + if test "$__GCC" -gt 3 || test "$__GCC_MINOR" -ge 4; then + with_cflags_warning="$with_cflags_warning -Wdeclaration-after-statement" + fi fi with_cflags_warning="$with_cflags_warning -Wshadow -Wmissing-declarations" with_cflags_warning="$with_cflags_warning -Wmissing-prototypes -Wstrict-prototypes" 1.283 +54 -10 XEmacs/xemacs/configure Index: configure =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/configure,v retrieving revision 1.282 retrieving revision 1.283 diff -u -p -r1.282 -r1.283 --- configure 2006/06/06 00:18:29 1.282 +++ configure 2006/07/07 20:07:45 1.283 ＠＠ -8324,11 +8324,7 ＠＠ cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { -#if __GNUC__ >= 3 -return 11; -#else -return 0; -#endif +return __GNUC__; } _ACEOF rm -f conftest$ac_exeext ＠＠ -8349,13 +8345,52 ＠＠ echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) -case "$?" in - 11) echo "You appear to be using GCC version 3 or above."; __GCC3=yes ;; -esac +__GCC="$?" fi rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi +if test "$cross_compiling" = yes; then + { { echo "$as_me:$LINENO: error: cannot run test program while cross compiling +See \`config.log' for more details." >&5 +echo "$as_me: error: cannot run test program while cross compiling +See \`config.log' for more details." >&2;} + { (exit 1); exit 1; }; } +else + cat >conftest.$ac_ext <<_ACEOF +/* confdefs.h. */ +_ACEOF +cat confdefs.h >>conftest.$ac_ext +cat >>conftest.$ac_ext <<_ACEOF +/* end confdefs.h. */ +int main () { +return __GNUC_MINOR__; +} +_ACEOF +rm -f conftest$ac_exeext +if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 + (eval $ac_link) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); } && { ac_try='./conftest$ac_exeext' + { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 + (eval $ac_try) 2>&5 + ac_status=$? + echo "$as_me:$LINENO: \$? = $ac_status" >&5 + (exit $ac_status); }; }; then +: +else + echo "$as_me: program exited with status $ac_status" >&5 +echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +( exit $ac_status ) +__GCC_MINOR="$?" +fi +rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi +__GCC_VERSION=$__GCC"."$__GCC_MINOR +echo "You appear to be using GCC version" $__GCC_VERSION +fi ＠＠ -9209,13 +9244,16 ＠＠ if test "$cflags_warning_specified" = "n with_cflags_warning="-Wall -Wno-switch -Wundef" with_cflags_warning="$with_cflags_warning -Wsign-compare -Wno-char-subscripts" - test "$__GCC3" = "yes" && with_cflags_warning="$with_cflags_warning -Wpacked" + test "$__GCC" -ge 3 && with_cflags_warning="$with_cflags_warning -Wpacked" test "$have_glibc" != "yes" && \ with_cflags_warning="$with_cflags_warning -Wpointer-arith" if test "$with_xemacs_compiler" = "g++"; then xe_cflags_warning="$with_cflags_warning -Weffc++" - elif test "$__GCC3" = "yes"; then + elif test "$__GCC" -ge 3; then xe_cflags_warning="$with_cflags_warning -Wunused-parameter" + if test "$__GCC" -gt 3 || test "$__GCC_MINOR" -ge 4; then + with_cflags_warning="$with_cflags_warning -Wdeclaration-after-statement" + fi fi with_cflags_warning="$with_cflags_warning -Wshadow -Wmissing-declarations" with_cflags_warning="$with_cflags_warning -Wmissing-prototypes -Wstrict-prototypes" ＠＠ -39695,6 +39733,12 ＠＠ test -n "$prefix" && test -n "$exec_prefix" && exec_prefix=`echo '' "$exec_prefix" | sed -e 's:^ ::' -e 's,$[^/]$/*$,\1,'` + +if test -r $srcdir/src/depend; then :; +else + echo "creating $srcdir/src/depend" + perl $srcdir/src/make-src-depend > $srcdir/src/depend +fi for file in $internal_makefile_list; do case $file in

1 participants
0 comments

CVS update by aidan xemacs/src ... 18 years, 4 months

CVS Monitor

User: aidan Date: 06/07/07 21:51:18 Modified: xemacs/src ChangeLog config.h.in Log: Small bug in the INLINE_HEADER macro. Revision Changes Path 1.983 +7 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.982 retrieving revision 1.983 diff -u -p -r1.982 -r1.983 --- ChangeLog 2006/07/02 07:32:19 1.982 +++ ChangeLog 2006/07/07 19:51:13 1.983 ＠＠ -1,3 +1,10 ＠＠ +2006-07-07 Aidan Kehoe <kehoea(a)parhasard.net> + + * config.h.in: + Don't declare inline macros as `extern' if we're building a + standalone program, because their extern definitions in inline.c + are unlikely to be included. + 2006-06-24 Stephen J. Turnbull <stephen(a)xemacs.org> * gc.c (gc_mark_root_set): Quiet GCC 4 whining about unused values. 1.109 +1 -1 XEmacs/xemacs/src/config.h.in Index: config.h.in =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/config.h.in,v retrieving revision 1.108 retrieving revision 1.109 diff -u -p -r1.108 -r1.109 --- config.h.in 2006/04/23 16:11:32 1.108 +++ config.h.in 2006/07/07 19:51:15 1.109 ＠＠ -1066,7 +1066,7 ＠＠ extern "C" { Use `inline static' to define inline functions in .c files. See the Internals manual for examples and more information. */ -#if defined (__cplusplus) || ! defined (__GNUC__) +#if defined (__cplusplus) || ! defined (__GNUC__) || ! defined(emacs) # define INLINE_HEADER inline static #elif defined (DONT_EXTERN_INLINE_HEADER_FUNCTIONS) # define INLINE_HEADER inline

1 participants
0 comments

CVS update by viteno xemacs ... 18 years, 4 months

CVS Monitor

User: viteno Date: 06/07/06 23:51:03 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1584 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1583 retrieving revision 1.1584 diff -u -p -r1.1583 -r1.1584 --- version.sh 2006/07/05 21:51:14 1.1583 +++ version.sh 2006/07/06 21:51:03 1.1584 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20060705)" +xemacs_extra_name="(+CVS-20060706)" xemacs_release_date="2006-05-16"

1 participants
0 comments

CVS update by scop packages/unsupported/scop/vc ... 18 years, 4 months

CVS Monitor

User: scop Date: 06/07/06 21:07:41 Modified: packages/unsupported/scop/vc ChangeLog vc.el Log: Sync vc.el with upstream. Revision Changes Path 1.66 +1 -1 XEmacs/packages/unsupported/scop/STATUS Index: STATUS =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/STATUS,v retrieving revision 1.65 retrieving revision 1.66 diff -u -p -r1.65 -r1.66 --- STATUS 2006/07/04 21:54:23 1.65 +++ STATUS 2006/07/06 19:07:36 1.66 ＠＠ -17,5 +17,5 ＠＠ generic-modes: generic.el and generic-x. - Compiles, seems to work, auto-mode-alist and autoloads may need spanking. vc: vc*.el and a few other related files from GNU Emacs, vc-git.el from git -- Up to date with GNU Emacs CVS HEAD, git upstream as of 2006-07-04. +- Up to date with GNU Emacs CVS HEAD, git upstream as of 2006-07-06. - Approaching usable state. 1.58 +4 -0 XEmacs/packages/unsupported/scop/vc/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/ChangeLog,v retrieving revision 1.57 retrieving revision 1.58 diff -u -p -r1.57 -r1.58 --- ChangeLog 2006/07/04 21:55:05 1.57 +++ ChangeLog 2006/07/06 19:07:40 1.58 ＠＠ -1,3 +1,7 ＠＠ +2006-07-06 Ville Skyttä <scop(a)xemacs.org> + + * vc.el: Sync with upstream. + 2006-07-04 Ville Skyttä <scop(a)xemacs.org> * Makefile (VERSION): 0.05. 1.33 +2 -2 XEmacs/packages/unsupported/scop/vc/vc.el Index: vc.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/unsupported/scop/vc/vc.el,v retrieving revision 1.32 retrieving revision 1.33 diff -u -p -r1.32 -r1.33 --- vc.el 2006/07/04 21:48:05 1.32 +++ vc.el 2006/07/06 19:07:41 1.33 ＠＠ -1862,7 +1862,7 ＠＠ actually call the backend, but performs (if (and file-rev1 file-rev2) (let ((status (if (eq vc-diff-knows-L 'no) - (apply 'vc-do-command "*vc-diff*" 1 "diff" + (apply 'vc-do-command "*vc-diff*" 1 "diff" nil (append (vc-switches nil 'diff) (list (file-relative-name file-rev1) (file-relative-name file-rev2)))) ＠＠ -1880,7 +1880,7 ＠＠ actually call the backend, but performs (if (eq status 2) (if (not vc-diff-knows-L) (setq vc-diff-knows-L 'no - status (apply 'vc-do-command "*vc-diff*" 1 "diff" + status (apply 'vc-do-command "*vc-diff*" 1 "diff" nil (append (vc-switches nil 'diff) (list (file-relative-name file-rev1)

1 participants
0 comments

CVS update by james xemacs/lisp ... 18 years, 4 months

CVS Monitor

User: james Date: 06/07/06 19:07:42 Modified: xemacs/lisp ChangeLog process.el Log: If an output buffer is specified, use it. <m3lkrez7pi.fsf(a)jerrypc.cs.usu.edu> Revision Changes Path 1.752 +5 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.751 retrieving revision 1.752 diff -u -p -r1.751 -r1.752 --- ChangeLog 2006/06/25 17:27:28 1.751 +++ ChangeLog 2006/07/06 17:07:40 1.752 ＠＠ -1,3 +1,8 ＠＠ +2006-06-30 Jerry James <james(a)xemacs.org> + + * process.el (shell-command): If a specific output buffer was + requested, use it. + 2006-06-25 Aidan Kehoe <kehoea(a)parhasard.net> * x-init.el (x-initialize-keyboard): 1.20 +2 -2 XEmacs/xemacs/lisp/process.el Index: process.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/process.el,v retrieving revision 1.19 retrieving revision 1.20 diff -u -p -r1.19 -r1.20 --- process.el 2005/01/09 09:44:44 1.19 +++ process.el 2006/07/06 17:07:41 1.20 ＠＠ -359,8 +359,8 ＠＠ In either case, the output is inserted a ;; Command ending with ampersand means asynchronous. (progn (if-fboundp 'background - (background (substring command 0 - (match-beginning 0))) + (background (substring command 0 (match-beginning 0)) + output-buffer) (error 'unimplemented "backgrounding a shell command requires package `background'")))

1 participants
0 comments

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

xemacs-cvs July 2006