Mercurial > hg > xemacs-beta
comparison lisp/subr.el @ 801:2b676dc88c66
[xemacs-hg @ 2002-04-01 03:58:02 by ben]
bug fixes (e.g. ballooning on X windows)
Makefile.in.in: Try to make the Makefile notice if its source Makefile.in.in is
changed, and regenerate and run itself.
Use a bigger default SHEAP_ADJUSTMENT on Cygwin; otherwise you
can't compile under Mule if a Lisp file has changed. (can't run
temacs)
TODO.ben-mule-21-5: update.
mule/mule-cmds.el: Hash the result of mswindows-get-language-environment-from-locale,
since it's very expensive (and causes huge ballooning of memory
under X Windows, since it's called from x-get-resource).
cl-extra.el, code-files.el, files.el, simple.el, subr.el, x-faces.el: Create new string-equal-ignore-case, based on built-in
compare-strings -- compare strings ignoring case without the need
to generate garbage by calling downcase. Use it in equalp and
elsewhere.
alloc.c, bytecode.c, chartab.c, data.c, elhash.c, emacs.c, eval.c, event-Xt.c, event-unixoid.c, extents.c, file-coding.c, fileio.c, fns.c, glyphs.c, gutter.c, lisp-union.h, lisp.h, mule-charset.c, nt.c, process-unix.c, process.c, specifier.c, symbols.c, sysdep.c, sysdep.h, text.c, toolbar.c: Try to implement GC triggering based on percentage of total memory
usage. Not currently activated (percentage set to 0) because not
quite working. Add `memory-usage' primitive to return XEmacs'
idea of its memory usage.
Add primitive compare-strings, compatible with FSF 21.1 -- can
compare any part of two strings, optionally ignoring case.
Improve qxe() functions in text.c for text comparison.
Use RETURN_NOT_REACHED to try to avoid warnings about unreachable
code.
Add volatile_make_int() to fix warning in unix_send_process().
author | ben |
---|---|
date | Mon, 01 Apr 2002 03:59:04 +0000 |
parents | e38acbeb1cae |
children | a634e3b7acc8 |
comparison
equal
deleted
inserted
replaced
800:a5954632b187 | 801:2b676dc88c66 |
---|---|
361 (set sym val))) | 361 (set sym val))) |
362 | 362 |
363 ;;;; String functions. | 363 ;;;; String functions. |
364 | 364 |
365 ;; XEmacs | 365 ;; XEmacs |
366 (defun string-equal-ignore-case (str1 str2) | |
367 "Return t if two strings have identical contents, ignoring case differences. | |
368 Case is not significant. Text properties and extents are ignored. | |
369 Symbols are also allowed; their print names are used instead. | |
370 | |
371 See also `equalp'." | |
372 (if (symbolp str1) | |
373 (setq str1 (symbol-name str1))) | |
374 (if (symbolp str2) | |
375 (setq str2 (symbol-name str2))) | |
376 (eq t (compare-strings str1 nil nil str2 nil nil t))) | |
377 | |
378 ;; XEmacs | |
366 (defun replace-in-string (str regexp newtext &optional literal) | 379 (defun replace-in-string (str regexp newtext &optional literal) |
367 "Replace all matches in STR for REGEXP with NEWTEXT string, | 380 "Replace all matches in STR for REGEXP with NEWTEXT string, |
368 and returns the new string. | 381 and returns the new string. |
369 Optional LITERAL non-nil means do a literal replacement. | 382 Optional LITERAL non-nil means do a literal replacement. |
370 Otherwise treat `\\' in NEWTEXT as special: | 383 Otherwise treat `\\' in NEWTEXT as special: |
589 (setq start-column 0)) | 602 (setq start-column 0)) |
590 (let ((len (length str))) | 603 (let ((len (length str))) |
591 (concat (substring str (min start-column len) (min end-column len)) | 604 (concat (substring str (min start-column len) (min end-column len)) |
592 (and padding (> end-column len) | 605 (and padding (> end-column len) |
593 (make-string (- end-column len) padding))))) | 606 (make-string (- end-column len) padding))))) |
607 | |
594 | 608 |
595 | 609 |
596 ;; alist/plist functions | 610 ;; alist/plist functions |
597 (defun plist-to-alist (plist) | 611 (defun plist-to-alist (plist) |
598 "Convert property list PLIST into the equivalent association-list form. | 612 "Convert property list PLIST into the equivalent association-list form. |