comparison lisp/files.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 6504113e7c2d
comparison
equal deleted inserted replaced
800:a5954632b187 801:2b676dc88c66
1599 (skip-chars-backward " \t") 1599 (skip-chars-backward " \t")
1600 (let* ((str (buffer-substring start (point))) 1600 (let* ((str (buffer-substring start (point)))
1601 (var (read str)) 1601 (var (read str))
1602 val) 1602 val)
1603 ;; Setting variable named "end" means end of list. 1603 ;; Setting variable named "end" means end of list.
1604 (if (string-equal (downcase str) "end") 1604 (if (equalp str "end")
1605 (setq continue nil) 1605 (setq continue nil)
1606 ;; Otherwise read the variable value. 1606 ;; Otherwise read the variable value.
1607 (skip-chars-forward "^:") 1607 (skip-chars-forward "^:")
1608 (forward-char 1) 1608 (forward-char 1)
1609 (setq val (read (current-buffer))) 1609 (setq val (read (current-buffer)))
1663 (match-end 1)))) 1663 (match-end 1))))
1664 (val (save-restriction 1664 (val (save-restriction
1665 (narrow-to-region (point) end) 1665 (narrow-to-region (point) end)
1666 (read (current-buffer))))) 1666 (read (current-buffer)))))
1667 ;; Case sensitivity! Icepicks in my forehead! 1667 ;; Case sensitivity! Icepicks in my forehead!
1668 (if (equal (downcase (symbol-name key)) "mode") 1668 (if (equalp (symbol-name key) "mode")
1669 (setq key 'mode)) 1669 (setq key 'mode))
1670 (setq result (cons (cons key val) result)) 1670 (setq result (cons (cons key val) result))
1671 (skip-chars-forward " \t;"))) 1671 (skip-chars-forward " \t;")))
1672 (setq result (nreverse result)))))) 1672 (setq result (nreverse result))))))
1673 1673