July 2000 - XEmacs-Beta - XEmacs Mailing List Archives

Ben Wing

OK, it looks like your whole problem is due to low-memory warnings. i see why you're getting an infinite loop, and i can fix that; but i still don't know why you're getting low-memory warnings at all. could you set a breakpoint at check_memory_limits and step through it and see what values you're getting for data_start, lim_data, cp, and warnlevel? Harri Pasanen wrote: > Ben Wing wrote: > > > > the dumping problem gets you when you compile on one machine and run on > > another. you shouldn't see it here. can you get a stack backtrace of some > > sort? figure out why it's exiting? once you've built, you should just be able > > to run xemacs directly without the further stuff going on -- try just `xemacs'. > > if same problem, run under the debugger, with breakpoints at _abort and _exit > > and __exit [i think that's enough], and see why it's exiting. if you can get a > > stack trace, we can probably figure out what's going wrong. > > > > First, auto-autoloads.el is in the tarball. It gets deleted somewhere > along the make run. > Afterwards only auto-autoloads.elc is left. So if I run the make again, > the second run > complains: "Could Not Find > D:\misc\xemacs-21.1.10\lisp\auto-autoloads.el" > > As to why xemacs crashes, it does after all look exactly like the > problem I'm having with the development versions. > > I built with debug info, launched xemacs by hand, and got the > backtrace. Its again stack overflow because of an apparently > indefinately recursive call stack. > What throws me off is the malloc(unsigned int 0), at call time it should > be 91... I must be missing something. > > malloc(unsigned int 4096) line 661 + 6 bytes > malloc(unsigned int 0) line 605 + 10 bytes > xmalloc(unsigned int 91) line 392 + 9 bytes > allocate_lisp_storage(unsigned int 91) line 495 + 9 bytes > alloc_lcrecord(unsigned int 91, const lrecord_implementation * > 0x011a0020 _lrecord_lstream) line 531 + 9 bytes > allocate_managed_lcrecord(int 689121824) line 2569 + 19 bytes > Lstream_new(const lstream_implementation * 0x011a0130 > _lstream_resizing_buffer, const char * 0x011a0830) line 239 + 16 bytes > make_resizing_buffer_output_stream() line 1331 + 15 bytes > emacs_doprnt_string_va(const unsigned char * 0x0116581c, int > -1458550780, int -1, char * 0x00033154) line 837 + 5 bytes > warn_when_safe(int -1458418676, int -1458419660, const char * > 0x0116581c) line 5026 + 22 bytes > malloc_warning(const char * 0x0124cd90) line 360 + 28 bytes > check_memory_limits() line 97 + 11 bytes > align(unsigned int 4096) line 443 > morecore(unsigned int 4096) line 490 + 9 bytes > malloc(unsigned int 4096) line 661 + 12 bytes > malloc(unsigned int 0) line 605 + 10 bytes > xmalloc(unsigned int 91) line 392 + 9 bytes > allocate_lisp_storage(unsigned int 91) line 495 + 9 bytes > alloc_lcrecord(unsigned int 91, const lrecord_implementation * > 0x011a0020 _lrecord_lstream) line 531 + 9 bytes > allocate_managed_lcrecord(int 689121824) line 2569 + 19 bytes > Lstream_new(const lstream_implementation * 0x011a0130 > _lstream_resizing_buffer, const char * 0x011a0830) line 239 + 16 bytes > make_resizing_buffer_output_stream() line 1331 + 15 bytes > emacs_doprnt_string_va(const unsigned char * 0x0116581c, int > -1458550780, int -1, char * 0x00033300) line 837 + 5 bytes > warn_when_safe(int -1458418676, int -1458419660, const char * > 0x0116581c) line 5026 + 22 bytes > malloc_warning(const char * 0x0124cd90) line 360 + 28 bytes > check_memory_limits() line 97 + 11 bytes > align(unsigned int 4096) line 443 > morecore(unsigned int 4096) line 490 + 9 bytes > malloc(unsigned int 4096) line 661 + 12 bytes > malloc(unsigned int 0) line 605 + 10 bytes > xmalloc(unsigned int 91) line 392 + 9 bytes > allocate_lisp_storage(unsigned int 91) line 495 + 9 bytes > alloc_lcrecord(unsigned int 91, const lrecord_implementation * > 0x011a0020 _lrecord_lstream) line 531 + 9 bytes > allocate_managed_lcrecord(int 689121824) line 2569 + 19 bytes > Lstream_new(const lstream_implementation * 0x011a0130 > _lstream_resizing_buffer, const char * 0x011a0830) line 239 + 16 bytes > make_resizing_buffer_output_stream() line 1331 + 15 bytes > emacs_doprnt_string_va(const unsigned char * 0x0116581c, int > -1458550780, int -1, char * 0x000334ac) line 837 + 5 bytes > warn_when_safe(int -1458418676, int -1458419660, const char * > 0x0116581c) line 5026 + 22 bytes > malloc_warning(const char * 0x0124cd90) line 360 + 28 bytes > check_memory_limits() line 97 + 11 bytes > align(unsigned int 4096) line 443 > morecore(unsigned int 4096) line 490 + 9 bytes > malloc(unsigned int 4096) line 661 + 12 bytes > malloc(unsigned int 0) line 605 + 10 bytes > xmalloc(unsigned int 91) line 392 + 9 bytes > allocate_lisp_storage(unsigned int 91) line 495 + 9 bytes > alloc_lcrecord(unsigned int 91, const lrecord_implementation * > 0x011a0020 _lrecord_lstream) line 531 + 9 bytes > allocate_managed_lcrecord(int 689121824) line 2569 + 19 bytes > Lstream_new(const lstream_implementation * 0x011a0130 > _lstream_resizing_buffer, const char * 0x011a0830) line 239 + 16 bytes > make_resizing_buffer_output_stream() line 1331 + 15 bytes > emacs_doprnt_string_va(const unsigned char * 0x0116581c, int > -1458550780, int -1, char * 0x00033658) line 837 + 5 bytes > warn_when_safe(int -1458418676, int -1458419660, const char * > 0x0116581c) line 5026 + 22 bytes > malloc_warning(const char * 0x0124cd90) line 360 + 28 bytes > check_memory_limits() line 97 + 11 bytes > align(unsigned int 4096) line 443 > morecore(unsigned int 4096) line 490 + 9 bytes > malloc(unsigned int 4096) line 661 + 12 bytes > malloc(unsigned int 0) line 605 + 10 bytes > xmalloc(unsigned int 91) line 392 + 9 bytes > allocate_lisp_storage(unsigned int 91) line 495 + 9 bytes > alloc_lcrecord(unsigned int 91, const lrecord_implementation * > 0x011a0020 _lrecord_lstream) line 531 + 9 bytes > allocate_managed_lcrecord(int 689121824) line 2569 + 19 bytes > Lstream_new(const lstream_implementation * 0x011a0130 > _lstream_resizing_buffer, const char * 0x011a0830) line 239 + 16 bytes > make_resizing_buffer_output_stream() line 1331 + 15 bytes > emacs_doprnt_string_va(const unsigned char * 0x0116581c, int > -1458550780, int -1, char * 0x00033804) line 837 + 5 bytes > warn_when_safe(int -1458418676, int -1458419660, const char * > 0x0116581c) line 5026 + 22 bytes > malloc_warning(const char * 0x0124cd90) line 360 + 28 bytes > check_memory_limits() line 97 + 11 bytes > align(unsigned int 4096) line 443 > morecore(unsigned int 4096) line 490 + 9 bytes > malloc(unsigned int 4096) line 661 + 12 bytes > malloc(unsigned int 0) line 605 + 10 bytes > xmalloc(unsigned int 91) line 392 + 9 bytes > allocate_lisp_storage(unsigned int 91) line 495 + 9 bytes -- Ben In order to save my hands, I am cutting back on my mail. I also write as succinctly as possible -- please don't be offended. If you send me mail, you _will_ get a response, but please be patient, especially for XEmacs-related mail. If you need an immediate response and it is not apparent in your message, please say so. Thanks for your understanding. See also http://www.666.com/ben/chronic-pain/

2 participants
2 comments

Re: New packages uploaded 25 years

Vin Shelton

Thank you. >>>>> On 07 Jul 2000 11:00:19 +0200, Andreas Jaeger <aj(a)suse.de> said: >>>>> Vin Shelton writes: >> Andreas, >> What about the mic-paren updates? Andreas> It hasn't been reviewed yet - and it was to large for me to do it Andreas> yesterday.:-( Andreas> It's not forgotten ;-) Andreas> Andreas Andreas> -- Andreas> Andreas Jaeger Andreas> SuSE Labs aj(a)suse.de Andreas> private aj(a)arthur.inka.de

1 participants
0 comments

Re: source forge: search --and W3 4.0.44 vs 4.0.46 25 years

Eric Marsden

>>>>> "tvr" == T V Raman <ramantv(a)earthlink.net> writes: tvr> The search form on sourceforge (uses post and is php powered) tvr> ticlkles an interestingly weird bug in w3 4.0.46 (works fine tvr> with 4.0.44) --if you do a submit using 4.0.46, you get back an tvr> error page saying "this url redirected to itself" --and the url tvr> of the returned error page has the parameters sent as the http tvr> post stuck at the end like get parameters. Does anyone know tvr> where this bug crept in from? with w3-4.0pre.46 I can't even load their main page; w3 gives up and the *URL-<x>* buffer contains the redirection message you quote. I think this is due to a buggy mod_php in the Apache they are using; it can't handle Host: headers which include a port number (and unlike Netscape, w3 always includes one, even when it's the default port). (defadvice url-create-mime-request (after url-buggy-http1.1 activate) "Workaround for certain HTTP daemons which can't cope with a port number in the Host: header." (save-match-data (when (string-match "\$Host: [^:]+\$:80\\>" ad-return-value) (setq ad-return-value (replace-match "\\1" t nil ad-return-value))))) -- Eric Marsden <URL:http://www.laas.fr/~emarsden>

1 participants
0 comments

Re: EFS Strange Behaviour 25 years

Michael Sperber

With EFS bugs, it generally helps to do an M-x efs-report-bug (after a problem has occurred) to give me more information about what's going on. -- Cheers =8-} Chipsy Friede, Völkerverständigung und überhaupt blabla

1 participants
0 comments

Re: New packages uploaded 25 years

Andreas Jaeger

>>>>> Vin Shelton writes: > Andreas, > What about the mic-paren updates? It hasn't been reviewed yet - and it was to large for me to do it yesterday.:-( It's not forgotten ;-) Andreas -- Andreas Jaeger SuSE Labs aj(a)suse.de private aj(a)arthur.inka.de

1 participants
0 comments

Re: Small bug in lazy-lock. 25 years

Andreas Jaeger

>>>>> Paul Stodghill writes: > I just did a package update and suddenly started seeing a bunch of errors > like the following, > (20) (error/warning) Error in `post-command-hook' (setting hook to nil): (wrong-number-of-arguments #<subr window-minibuffer-p> 0) > I think that the following fixes the problem. Could someone look this over > and check it in? Thanks, I release a new package now. Andreas -- Andreas Jaeger SuSE Labs aj(a)suse.de private aj(a)arthur.inka.de

1 participants
0 comments

fix completer.el for ms windows 25 years

Ben Wing

2000-07-07 Ben Wing <ben(a)xemacs.org> * completer.el: * completer.el (completer-path-separator-string): New. * completer.el (completer-path-separator-regexp): New. * completer.el (completer-path-delimiter-list): New. * completer.el (completer-path-separator-regexp-inside-brackets): New. * completer.el (completer-dot-dot-list): New. * completer.el (completer-message): * completer.el (completer-last-component): * completer.el (completer-cache): * completer.el (completer-file): * completer.el (completer): * completer.el (completer-goto): * completer.el (completer-minibuf-string): * completer.el (completer-new-cmd): My version 3.04. Works under MS Windows / cygwin now. 1 -- Ben In order to save my hands, I am cutting back on my mail. I also write as succinctly as possible -- please don't be offended. If you send me mail, you _will_ get a response, but please be patient, especially for XEmacs-related mail. If you need an immediate response and it is not apparent in your message, please say so. Thanks for your understanding. See also http://www.666.com/ben/chronic-pain/ Index: completer.el =================================================================== RCS file: /usr/CVSroot/XEmacs/xemacs-packages/os/ilisp/completer.el,v retrieving revision 1.1.1.1 diff -u -r1.1.1.1 completer.el --- completer.el 1998/01/14 06:42:54 1.1.1.1 +++ completer.el 2000/07/07 07:37:31 ＠＠ -1,25 +1,29 ＠＠ -;;; -*-Emacs-Lisp-*- -;;;%Header -;;; -;;; Rcs_Info: completer.el,v 3.23 1993/09/03 02:05:07 ivan Rel $ -;;; -;;; Partial completion mechanism for GNU Emacs. Version 3.03 -;;; Copyright (C) 1990, 1991, 1992 Chris McConnell, ccm(a)cs.cmu.edu. +;;; completer.el --- powerful completion mechanism + +;; Partial completion mechanism for XEmacs. Version 3.04. +;; Copyright (C) 1990, 1991, 1992 Chris McConnell <chrimc(a)microsoft.com> +;; Copyright (C) 2000 Ben Wing. + +;; Author: Chris Mcconnell <chrimc(a)microsoft.com> +;; Latest XEmacs Author: Ben Wing +;; Maintainer: Ben Wing +;; Keywords: minibuffer, completion + ;;; Thanks to Bjorn Victor for suggestions, testing, and patches for ;;; file completion. -;;; This file is part of GNU Emacs. +;;; This file is part of XEmacs. -;;; GNU Emacs is distributed in the hope that it will be useful, +;;; XEmacs is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY. No author or distributor ;;; accepts responsibility to anyone for the consequences of using it ;;; or for whether it serves any particular purpose or works at all, ;;; unless he says so in writing. Refer to the GNU Emacs General Public ;;; License for full details. ;;; Everyone is granted permission to copy, modify and redistribute -;;; GNU Emacs, but only under the conditions described in the +;;; XEmacs, but only under the conditions described in the ;;; GNU Emacs General Public License. A copy of this license is -;;; supposed to have been given to you along with GNU Emacs so you +;;; supposed to have been given to you along with XEmacs so you ;;; can know your rights and responsibilities. It should be in a ;;; file named COPYING. Among other things, the copyright notice ;;; and this notice must be preserved on all copies. ＠＠ -121,6 +125,21 ＠＠ (defvar completer-path-cache nil "Cache of (path . choices) for completer.") +(defvar completer-path-separator-string + (if (eq system-type 'windows-nt) "\\" "/")) + +(defvar completer-path-separator-regexp + (if (eq system-type 'windows-nt) "[/\\]" "/")) + +(defvar completer-path-delimiter-list + (if (eq system-type 'windows-nt) '(?\\ ?/) '(?/))) + +(defvar completer-path-separator-regexp-inside-brackets + (if (eq system-type 'windows-nt) "/\\" "/")) + +(defvar completer-dot-dot-list + (if (eq system-type 'windows-nt) '("../" "..\\") '("../"))) + (defvar completer-string nil "Last completer string.") (defvar completer-table nil "Last completer table.") (defvar completer-pred nil "Last completer pred.") ＠＠ -148,7 +167,7 ＠＠ (delete-region point end) (if (and quit-flag ;;(not (eq 'lucid-19 ilisp-emacs-version-id)) - (not (string-match "Lucid" emacs-version)) + (not (string-match "XEmacs" emacs-version)) ) (setq quit-flag nil unread-command-char 7)))) ＠＠ -314,7 +333,7 ＠＠ (let ((last (1- (length string)) ) (match 0) (end 0)) - (while (and (setq match (string-match "/" string end)) (< match last)) + (while (and (setq match (string-match completer-path-separator-regexp string end)) (< match last)) (setq end (1+ match))) end)) ＠＠ -386,7 +405,8 ＠＠ mode t))) (if (and (or (car (cdr (cdr (cdr choices)))) (string= path (car choices))) - (eq (elt (car choices) (1- (length (car choices)))) ?/)) + (memq (elt (car choices) (1- (length (car choices)))) + completer-path-delimiter-list)) (progn (if (>= size completer-cache-size) (rplacd last nil)) (setq completer-path-cache ＠＠ -400,23 +420,43 ＠＠ delimit words. Optional ANY is a delimiter that matches any of the delimiters in WORD. If optional MODE is nil or 'help then possible matches will always be returned." + ;; canonicalize slashes under windows-nt for proper completion + (if (eq system-type 'windows-nt) + (setq string (replace-in-string string "/" "\\\\"))) (let* ((case-fold-search completion-ignore-case) (last (and (eq mode 'exit-ok) (completer-last-component string))) (position - ;; Special hack for CMU RFS filenames - (if (string-match "^/\\.\\./[^/]*/" string) - (match-end 0) - (string-match "[^~/]" string))) + ;; find beginning of first directory component. + (cond + ;; CMU RFS filenames like /../computername/foo/bar.c + ((string-match "^/\\.\\./[^/]*/" string) + (match-end 0)) + ;; windows-nt filenames like \\computername\foo\bar.c, or + ;; cygwin filenames like //d/foo/bar.c + ((and (memq system-type '(windows-nt cygwin32)) + (string-match "[/\\][/\\][^/\\]*[/\\]" string)) + (match-end 0)) + ;; windows-nt filenames like c:\foo\bar.c or c:bar.c + ((and (eq system-type 'windows-nt) + (string-match "[A-Za-z]:[/\\]?" string)) + (match-end 0)) + (t + ;; normal absolute or relative names, or names beginning + ;; with ~/ + (string-match + (concat "[^~" completer-path-separator-regexp-inside-brackets + "]") string)))) (new (substring string 0 position)) (user (if (string= new "~") (setq new (file-name-directory (expand-file-name new))))) - (words (concat words "/")) + (words (concat words completer-path-separator-regexp-inside-brackets)) (len (length string)) (choices nil) end (old-choices (list nil nil nil nil))) (while position - (let* ((begin (string-match "/" string position)) + (let* ((begin (string-match completer-path-separator-regexp string + position)) (exact-p nil)) (setq end (if begin (match-end 0)) choices ＠＠ -428,10 +468,11 ＠＠ (let* ((choices (all-completions new 'read-file-name-internal)) (choicep choices)) - (if (string= (car choicep) "../") + (if (member (car choicep) completer-dot-dot-list) (cdr (cdr choicep)) (while (cdr choicep) - (if (string= (car (cdr choicep)) "../") + (if (member (car (cdr choicep)) + completer-dot-dot-list) (rplacd choicep nil)) (setq choicep (cdr choicep))) choices)) ＠＠ -457,7 +498,11 ＠＠ (setq old-choices (let* ((lcs (car (cdr choices))) (matches (car (cdr (cdr choices)))) - (slash (and lcs (string-match "/$" lcs)))) + (slash + (and lcs + (string-match + (concat completer-path-separator-regexp "$") + lcs)))) (list nil (if slash (substring lcs 0 slash) lcs) (if (and (cdr matches) ＠＠ -553,8 +598,11 ＠＠ ;; Handle environment variables (let ((match (getenv (substring string 1 - (string-match "/" string))))) - (if match (setq match (concat match "/"))) + (string-match completer-path-separator-regexp string))))) + (if match + (setq match + (concat match + completer-path-separator-string))) (list match match (list match) match)) (let* ((choices (all-completions ＠＠ -622,7 +670,9 ＠＠ (start (car region)) (end (cdr region)) (string (buffer-substring start end)) - (file-p (string-match "[^ ]*\$~\\|/\\|$\$" string)) + (file-p (string-match (if (eq system-type 'windows-nt) + "[^ ]*\$~\\|/\\|\\\\\\|\\|$\$" + "[^ ]*\$~\\|/\\|$\$") string)) (no-insert (eq mode 'help)) (message t) (new (not (string= (buffer-substring start (point)) lcs)))) ＠＠ -639,7 +689,7 ＠＠ ;;Not unique (if lcs (let* ((regexp - (concat "[" words (if file-p "/") "]")) + (concat "[" words (if file-p completer-path-separator-regexp-inside-brackets) "]")) (words (completer-words regexp lcs)) point) ;; Go to where its ambiguous ＠＠ -674,7 +724,7 ＠＠ (if file-p (progn (if (not (= (point) end)) (forward-char 1)) - (if (not (save-excursion (re-search-forward "/" end t))) + (if (not (save-excursion (re-search-forward completer-path-separator-regexp end t))) (goto-char end)))) (if message (progn ＠＠ -734,7 +784,10 ＠＠ (save-excursion (goto-char (point-max)) (if (and (eq minibuffer-completion-table 'read-file-name-internal) - (re-search-backward "//\\|/~\\|.\\$" nil t)) + (re-search-backward + (if (memq system-type '(windows-nt cygwin32)) + ; // is meaningful + "/~\\|.\\$" "//\\|/~\\|.\\$") nil t)) (delete-region (point-min) (1+ (point)))) (buffer-substring (point-min) (point-max)))) ＠＠ -752,7 +805,8 ＠＠ (let ((string (completer-minibuf-string))) (or (not (string-match - (concat "[" completer-words "/~]") + (concat "[" completer-words + completer-path-separator-regexp-inside-brackets "~]") string)) (condition-case () (let ((completion

1 participants
0 comments

Small bug in lazy-lock. 25 years

Paul Stodghill

I just did a package update and suddenly started seeing a bunch of errors like the following, (20) (error/warning) Error in `post-command-hook' (setting hook to nil): (wrong-number-of-arguments #<subr window-minibuffer-p> 0) I think that the following fixes the problem. Could someone look this over and check it in? Thanks. --- edit-utils/lazy-lock.el.orig Thu Jul 6 17:08:22 2000 +++ edit-utils/lazy-lock.el Thu Jul 6 17:08:44 2000 ＠＠ -454,7 +454,7 ＠＠ ;; Do the visible parts of the buffer(s), i.e., the window(s). (if (or (not lazy-lock-walk-windows) (and (eq lazy-lock-walk-windows t) (one-window-p t))) - (or (window-minibuffer-p) + (or (window-minibuffer-p (selected-window)) (lazy-lock-maybe-fontify-window (selected-window))) (walk-windows #'lazy-lock-maybe-fontify-window 'no-minibuf (eq lazy-lock-walk-windows 'all-frames))))) ＠＠ -472,7 +472,7 ＠＠ ;; from FSF Emacs, which doesn't (or didn't?) have built-in timers. ;; using sit-for is unfriendly and can cause weird interactions. (when (and (not (memq this-command lazy-lock-ignore-commands)) - (not (window-minibuffer-p)) + (not (window-minibuffer-p (selected-window))) lazy-lock-stealth-time) (if lazy-lock-timeout-id (disable-timeout lazy-lock-timeout-id)) (setq lazy-lock-timeout-id

2 participants
1 comments

too much highlighting in compilation mode? 25 years

Charles G Waldman

Can anybody explain to me the intention of the ***marked** line in the code fragment below? (defvar compilation-font-lock-keywords (purecopy (list '("^[-_.\"A-Za-z0-9/+]+\$:\\|, line \$[0-9]+: \$[wW]arning:\$.*$" . font-lock-keyword-face) '("^[-_.\"A-Za-z0-9/+]+\$: *\\|, line \$[0-9]+:.*$" . font-lock-function-name-face) ***'("^[^:\n]+-[a-zA-Z][^:\n]+$" . font-lock-doc-string-face)*** '("\$^[-_.\"A-Za-z0-9/+]+\$\$: *\\|, line \$[0-9]+" 1 font-lock-string-face t) '("^[-_.\"A-Za-z0-9/+]+\$: *[0-9]+\\|, line [0-9]+\$" 1 bold t) )) "Additional expressions to highlight in Compilation mode.") Seems to me that this winds up highlighting WAY too much stuff... pretty much any line with a hyphen in it, and no colons. It winds up giving ugly results - for instance, if you do a recursive make, and some directory names have hyphens, you get messages like Entering foo-bar getting highlighted, but messages like Entering baz are not, it just winds up looking inconsistent and random. I'd like to remove this piece of compilation-font-lock-keywords, but I'd like to understand why it's there, first.

2 participants
2 comments

Re: Small bug in lazy-lock. 25 years

Adrian Aichner

>>>>> "Paul" == Paul Stodghill <stodghil(a)cs.cornell.edu> writes: Paul> I just did a package update and suddenly started seeing a Paul> bunch of errors like the following, Paul> (20) (error/warning) Error in `post-command-hook' (setting hook to nil): (wrong-number-of-arguments #<subr window-minibuffer-p> 0) I see the exact same problem in (emacs-version) "XEmacs 21.1 (patch 10) \"Capitol Reef\" [Lucid] (i386-pc-win32) of Fri Jun 09 2000 on ZJ75T" after a package update on edit-utils. Adrian Paul> I think that the following fixes the problem. Could someone look this over Paul> and check it in? Paul> Thanks. Paul> --- edit-utils/lazy-lock.el.orig Thu Jul 6 17:08:22 2000 Paul> +++ edit-utils/lazy-lock.el Thu Jul 6 17:08:44 2000 Paul> ＠＠ -454,7 +454,7 ＠＠ Paul> ;; Do the visible parts of the buffer(s), i.e., the window(s). Paul> (if (or (not lazy-lock-walk-windows) Paul> (and (eq lazy-lock-walk-windows t) (one-window-p t))) Paul> - (or (window-minibuffer-p) Paul> + (or (window-minibuffer-p (selected-window)) Paul> (lazy-lock-maybe-fontify-window (selected-window))) Paul> (walk-windows #'lazy-lock-maybe-fontify-window Paul> 'no-minibuf (eq lazy-lock-walk-windows 'all-frames))))) Paul> ＠＠ -472,7 +472,7 ＠＠ Paul> ;; from FSF Emacs, which doesn't (or didn't?) have built-in timers. Paul> ;; using sit-for is unfriendly and can cause weird interactions. Paul> (when (and (not (memq this-command lazy-lock-ignore-commands)) Paul> - (not (window-minibuffer-p)) Paul> + (not (window-minibuffer-p (selected-window))) Paul> lazy-lock-stealth-time) Paul> (if lazy-lock-timeout-id (disable-timeout lazy-lock-timeout-id)) Paul> (setq lazy-lock-timeout-id

1 participants
0 comments

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

1999

1998

XEmacs-Beta July 2000