From rms@gnu.ai.mit.edu Fri Sep 13 16:27:19 1996 X-VM-v5-Data: ([nil nil nil nil nil nil nil nil nil] [nil "Fri" "13" "September" "1996" "19:25:43" "-0400" "Richard Stallman" "rms@gnu.ai.mit.edu" nil "179" "[sasdjb@unx.sas.com: NT Emacs 19.34 crashes in old compiled .elc]" "^From:" nil nil "9" nil nil nil nil] nil) Received: from ethanol.gnu.ai.mit.edu (ethanol.gnu.ai.mit.edu [128.52.46.64]) by june.cs.washington.edu (8.7.5/7.2ju) with SMTP id QAA28324 for ; Fri, 13 Sep 1996 16:27:17 -0700 Received: by ethanol.gnu.ai.mit.edu (8.6.12/8.6.12GNU) id TAA31580; Fri, 13 Sep 1996 19:25:43 -0400 Message-Id: <199609132325.TAA31580@ethanol.gnu.ai.mit.edu> From: Richard Stallman To: voelker@cs.washington.edu, andrewi@harlequin.co.uk Subject: [sasdjb@unx.sas.com: NT Emacs 19.34 crashes in old compiled .elc] Date: Fri, 13 Sep 1996 19:25:43 -0400 I can't reproduce this--can you? ------- Start of forwarded message ------- Newsgroups: gnu.emacs.bug Path: news From: sasdjb@unx.sas.com (David Biesack) Subject: NT Emacs 19.34 crashes in old compiled .elc Originator: sasdjb@mozart.unx.sas.com Sender: news@unx.sas.com (Noter of Newsworthy Events) Date: Fri, 13 Sep 1996 19:37:25 GMT Distribution: local X-Nntp-Posting-Host: mozart.unx.sas.com Organization: SAS Institute Inc. Lines: 162 Apparently-To: gnu-emacs-bug%uunet.uucp@mcnc.org GNU Emacs 19.34.1 (i386-*-nt4.0)of Thu Aug 29 1996 from the cs.washington.edu build. I have a relatively old compiled .elc file - -rw-r--r-- 1 sasdjb root 2447 Sep 14 1992 buffer-search.el which was compiled from Emacs 18.58. Loading this and executing its M-x buffer-search-regexp in 19.34 on Windows NT 4.0 (final) causes GNU Emacs to crash. I'm rnning on a 64MB Dell Optiplex GXPro 200 Pentium Pro. Here is the .el code: (defvar next-buffer-list nil "List of files for next-buffer to process.") (defun next-buffer (&optional initialize) "Select next buffer among files in current buffer list. Non-nil argument (prefix arg, if interactive) initializes to the beginning of the list of files in the buffer list." (interactive "P") (if initialize (setq next-buffer-list (buffer-list))) (or next-buffer-list (error "All files processed.")) (switch-to-buffer (car next-buffer-list)) (setq next-buffer-list (cdr next-buffer-list))) (defvar buffer-loop-form nil "Form for buffer-loop-continue to eval to process one file. If it returns nil, it is through with one file; move on to next.") (defun buffer-loop-continue (&optional first-time) "Continue last \\[buffer-search-regexp] or \\[buffer-query-replace] command. Used noninteractively with non-nil argument to begin such a command. See variable buffer-loop-form." (interactive) (if first-time (progn (next-buffer t) (goto-char (point-min)))) (while (not (eval buffer-loop-form)) (next-buffer) (message "Scanning file %s..." buffer-file-name) (goto-char (point-min))) (if (get-buffer-window (current-buffer)) (select-window (get-buffer-window (current-buffer))) (switch-to-buffer (current-buffer)))) (defun buffer-search-regexp (regexp) "Search through all files listed in buffer list for match for REGEXP. Stops when a match is found. To continue searching for next match, use command \\[buffer-loop-continue]." (interactive "sBuffer search (regexp): ") (if (and (equal regexp "") (eq (car buffer-loop-form) 're-search-forward)) (buffer-loop-continue nil) (setq buffer-loop-form (list 're-search-forward regexp nil t)) (buffer-loop-continue t))) (defun buffer-query-replace (from to &optional delimited) "query-replace-regexp FROM with TO through all files listed in buffer list. Third arg DELIMITED (prefix arg) means replace only word-delimited matches. If you exit (C-G or ESC), you can resume the query-replace with the command \\[buffer-loop-continue]. See documentation of variable buffer-file-name." (interactive "sBuffer query replace (regexp): \nsBuffer query replace %s by: \nP") (setq buffer-loop-form (list 'and (list 'save-excursion (list 're-search-forward from nil t)) (list 'not (list 'perform-replace from to t t (not (null delimited)))))) (buffer-loop-continue t)) 8<------8<------8<------8<------8<------8<------8<------8<------8<------ Here is the uuencoded .elc code, which you can also recreate by compiling the above on GNU Emacs 18.58 begin 644 buffer-search.elc M*&1E9G9AF5S('1O('1H92!B96=I;FYI;F<@;V8@=&AE(&QI'0M8G5F9F5R+6QI'`I(")<"E-E87)C M:"!T:')O=6=H(&%L;"!F:6QE'`I.B`B*2`H8GET92UC;V1E("+" MB,0(Q5PBA0T`"4#&/8,6`,?"(8(A`,8(PL-&B1&(Q\,AAR(@6W)E9V5X<"!B M=69F97(M;&]O<"UF;W)M(&YI;"!T(&5Q=6%L("(B(')E+7-E87)C:"UF;W)W M87)D(&)U9F9E2UR97!L86-E+7)E9V5X<"!&4D]-('=I=&@@5$\@=&AR;W5G:"!A M;&P@9FEL97,@;&ES=&5D(&EN(&)U9F9E6]U(&5X:70@*$,M1R!O3H@"E`B*2`H8GET92UC;V1E("+"B,;'R`G" MPT9$R&-U