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.