From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Vincent =?UTF-8?Q?Bela=C3=AFche?= Newsgroups: gmane.emacs.bugs Subject: bug#12774: RE: bug#12774: 24.2.50; EMACS 24.2.50.1 crashing Date: Sun, 04 Nov 2012 09:52:02 +0100 Message-ID: <80k3u1oiml.fsf@gmail.com> References: <807gq5sxq9.fsf@gmail.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1352019137 18646 80.91.229.3 (4 Nov 2012 08:52:17 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 4 Nov 2012 08:52:17 +0000 (UTC) Cc: 12774@debbugs.gnu.org To: Eli Zaretskii Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sun Nov 04 09:52:26 2012 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1TUvwO-0003Rr-2G for geb-bug-gnu-emacs@m.gmane.org; Sun, 04 Nov 2012 09:52:24 +0100 Original-Received: from localhost ([::1]:48071 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TUvwE-0004wk-Tn for geb-bug-gnu-emacs@m.gmane.org; Sun, 04 Nov 2012 03:52:14 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:57468) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TUvw5-0004wa-Uo for bug-gnu-emacs@gnu.org; Sun, 04 Nov 2012 03:52:07 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TUvw3-0003qm-Ih for bug-gnu-emacs@gnu.org; Sun, 04 Nov 2012 03:52:05 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:37808) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TUvw3-0003qh-Eb for bug-gnu-emacs@gnu.org; Sun, 04 Nov 2012 03:52:03 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1TUvyv-00067L-MU for bug-gnu-emacs@gnu.org; Sun, 04 Nov 2012 03:55:01 -0500 X-Loop: help-debbugs@gnu.org In-Reply-To: <807gq5sxq9.fsf@gmail.com> Resent-From: Vincent =?UTF-8?Q?Bela=C3=AFche?= Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sun, 04 Nov 2012 08:55:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 12774 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 12774-submit@debbugs.gnu.org id=B12774.135201930023507 (code B ref 12774); Sun, 04 Nov 2012 08:55:01 +0000 Original-Received: (at 12774) by debbugs.gnu.org; 4 Nov 2012 08:55:00 +0000 Original-Received: from localhost ([127.0.0.1]:48059 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TUvyt-000675-JT for submit@debbugs.gnu.org; Sun, 04 Nov 2012 03:55:00 -0500 Original-Received: from smtp05.smtpout.orange.fr ([80.12.242.127]:25634 helo=smtp.smtpout.orange.fr) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TUvyo-00066t-Te for 12774@debbugs.gnu.org; Sun, 04 Nov 2012 03:54:57 -0500 Original-Received: from CHOUNEK ([92.139.226.115]) by mwinf5d10 with ME id KLrt1k0082W12xY03LruLx; Sun, 04 Nov 2012 09:51:55 +0100 X-Antivirus: avast! (VPS 121103-1, 03/11/2012), Outbound message X-Antivirus-Status: Clean X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:66429 Archived-At: --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable > Date: Sun, 4 Nov 2012 05:46:16 +0200 > From: eliz@gnu.org > Subject: Re: RE: bug#12774: RE: bug#12774: 24.2.50; EMACS 24.2.50.1 crash= ing=E2=80=8F > To: vincent.b.1@hotmail.fr > CC: 12774@debbugs.gnu.org >=20 > > From: Vincent Bela=C3=AFche > > Date: Sat, 3 Nov 2012 23:24:15 +0100 > >=20 > > The crash can happen without my doing anything special previously excep= t opening that attached file USING_CEDET_FROM_BZR which causes loading orgm= ode. Also it seems that it has to do with the size of my init.el file --- a= nd not only to its content. > >=20 > >=20 > >=20 > > For instance there was in my init file some doit-1 function definition = (which is some trash code which I wrote for some purpose and I don't need a= ny longer), here is the definition: > >=20 > >=20 > > (defun doit-1 () > > (interactive) > > (save-excursion > > ; (goto-char (point-min)) > > (while (re-search-forward "--\\|\\." nil t) > > (when (save-match-data (texmathp)) > > (cond > > ((string=3D (match-string 0) "--") > > (replace-match "-")) > > ((string=3D (match-string 0) ".") > > (unless (looking-back "\\\\right") > > (replace-match "\\cdot " t t)))))))) > >=20 > >=20 > >=20 > > If I comment out this definition from the init file, then I cannot re-p= roduce the crash (or at least I could not succeed in doing it, but it may s= till be possible), but if I let it, then I can rather easily make the crash= occur. I cannot believe that this function per se is the root cause of the= problem. However the simple fact that its definition takes some memory spa= ce suffices to increase the likelihood the crash when I open that file. >=20 > Is this doit-1 function actually used somewhere in your init.el or in > your .emacs? If it is, can you show the code that uses it? >=20 No it is not used anywhere else, this is some leftover trash code... > > BTW, here is the end of my *Message* buffer when the opening of USING_C= EDET_FROM_BZR does cause any crash, this reflects what should happen when t= his file is visited --- the `Loading dired-x...done' is because I open USIN= G_CEDET_FROM_BZR from a Dired buffer, so what happens is from line `flet' i= s an obsolete macro (as of 24.3); use either `cl-flet' or `cl-letf'. [2 tim= es].=20 > >=20 > >=20 > > Loading dired-x...done > > `flet' is an obsolete macro (as of 24.3); use either `cl-flet' or `cl-l= etf'. [2 times] > > File mode specification error: (void-function org-mode-p) > > Loading vc-bzr...done >=20 > Can you turn on debug-on-error and show the Lisp backtrace for these > messages? Each time a backtrace appears, type "C-]" to get out of the > debugger and continue to the next error. For your information, to get the backtrace I had to open directly USING_CEDET_FROM_BZR without going through Dired, because going through Dired beforehand increases considerably the risk of trash. When I did `C-]' I got again and again the same backtrace. For your information also, I did not get any bracktrace for `flet' is an obsolete macro (as of 24.3); use either `cl-flet' or `cl-letf' Vincent. --=-=-= Content-Type: text/plain Content-Disposition: inline; filename=backtrace_1st.txt Content-Transfer-Encoding: quoted-printable Debugger entered--Lisp error: (void-function org-mode-p) (org-mode-p) (if (org-mode-p) (setq bl nil)) (while bl (set-buffer (car (prog1 bl (setq bl (cdr bl))))) (if (org-mode-= p) (setq bl nil))) (save-excursion (while bl (set-buffer (car (prog1 bl (setq bl (cdr bl))))= ) (if (org-mode-p) (setq bl nil))) (if (org-mode-p) (progn (easy-menu-chang= e (quote ("Org")) "File List for Agenda" (append (list ["Edit File List" (o= rg-edit-agenda-file-list) t] ["Add/Move Current File to Front of List" org-= agenda-file-to-front t] ["Remove Current File from List" org-remove-file t]= ["Cycle through agenda files" org-cycle-agenda-files t] ["Occur in all age= nda files" org-occur-in-agenda-files t] "--") (mapcar (quote org-file-menu-= entry) (org-agenda-files t))))))) (let ((bl (buffer-list))) (save-excursion (while bl (set-buffer (car (pro= g1 bl (setq bl (cdr bl))))) (if (org-mode-p) (setq bl nil))) (if (org-mode-= p) (progn (easy-menu-change (quote ("Org")) "File List for Agenda" (append = (list ["Edit File List" ... t] ["Add/Move Current File to Front of List" or= g-agenda-file-to-front t] ["Remove Current File from List" org-remove-file = t] ["Cycle through agenda files" org-cycle-agenda-files t] ["Occur in all a= genda files" org-occur-in-agenda-files t] "--") (mapcar (quote org-file-men= u-entry) (org-agenda-files t)))))))) org-install-agenda-files-menu() (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode (quote org-mo= de)) (setq mode-name "Org") (progn (if (get (quote outline-mode) (quote mod= e-class)) (put (quote org-mode) (quote mode-class) (get (quote outline-mode= ) (quote mode-class)))) (if (keymap-parent org-mode-map) nil (set-keymap-pa= rent org-mode-map (current-local-map))) (let ((parent (char-table-parent or= g-mode-syntax-table))) (if (and parent (not (eq parent (standard-syntax-tab= le)))) nil (set-char-table-parent org-mode-syntax-table (syntax-table)))) (= if (or (abbrev-table-get org-mode-abbrev-table :parents) (eq org-mode-abbre= v-table local-abbrev-table)) nil (abbrev-table-put org-mode-abbrev-table :p= arents (list local-abbrev-table)))) (use-local-map org-mode-map) (set-synta= x-table org-mode-syntax-table) (setq local-abbrev-table org-mode-abbrev-tab= le) (if nil (if (boundp (quote outline-mode-menu-heading)) (progn (easy-men= u-remove outline-mode-menu-heading) (easy-menu-remove outline-mode-menu-sho= w) (easy-menu-remove outline-mode-menu-hide))) (define-key org-mode-map [me= nu-bar headings] (quote undefined)) (define-key org-mode-map [menu-bar hide= ] (quote undefined)) (define-key org-mode-map [menu-bar show] (quote undefi= ned))) (org-load-modules-maybe) (easy-menu-add org-org-menu) (easy-menu-add= org-tbl-menu) (org-install-agenda-files-menu) (if org-descriptive-links (a= dd-to-invisibility-spec (quote (org-link)))) (add-to-invisibility-spec (quo= te (org-cwidth))) (add-to-invisibility-spec (quote (org-hide-block . t))) (= if nil (progn (org-set-local (quote line-move-ignore-invisible) t))) (org-s= et-local (quote outline-regexp) org-outline-regexp) (org-set-local (quote o= utline-level) (quote org-outline-level)) (if (and org-ellipsis (fboundp (qu= ote set-display-table-slot)) (boundp (quote buffer-display-table)) (fboundp= (quote make-glyph-code))) (progn (if org-display-table nil (setq org-displ= ay-table (make-display-table))) (set-display-table-slot org-display-table 4= (vconcat (mapcar (function (lambda ... ...)) (if (stringp org-ellipsis) or= g-ellipsis "...")))) (setq buffer-display-table org-display-table))) (org-s= et-regexps-and-options) (if (and org-tag-faces (not org-tags-special-faces-= re)) (progn (org-set-tag-faces (quote org-tag-faces) org-tag-faces))) (org-= set-local (quote calc-embedded-open-mode) "# ") (modify-syntax-entry 64 "w"= ) (if org-startup-truncated (setq truncate-lines t)) (org-set-local (quote = font-lock-unfontify-region-function) (quote org-unfontify-region)) (org-set= -local (quote org-table-may-need-update) t) (org-add-hook (quote before-cha= nge-functions) (quote org-before-change-function) nil (quote local)) (org-a= dd-hook (quote kill-buffer-hook) (quote org-check-running-clock) nil (quote= local)) (org-set-autofill-regexps) (setq indent-line-function (quote org-i= ndent-line-function)) (org-update-radio-target-regexp) (org-set-local (quot= e beginning-of-defun-function) (quote org-beginning-of-defun)) (org-set-loc= al (quote end-of-defun-function) (quote org-end-of-defun)) (org-set-local (= quote next-error-function) (quote org-occur-next-match)) (if org-enforce-to= do-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-fr= om-children-or-siblings-or-parent)) (remove-hook (quote org-blocker-hook) (= quote org-block-todo-from-children-or-siblings-or-parent))) (if org-enforce= -todo-checkbox-dependencies (add-hook (quote org-blocker-hook) (quote org-b= lock-todo-from-checkboxes)) (remove-hook (quote org-blocker-hook) (quote or= g-block-todo-from-checkboxes))) (org-set-local (quote comment-start) "#") (= org-set-local (quote comment-padding) " ") (org-set-local (quote align-mode= -rules-list) (quote ((org-in-buffer-settings (regexp . "^#\\+[A-Z_]+:\\(\\s= -*\\)\\S-+") (modes quote (org-mode)))))) (org-set-local (quote imenu-creat= e-index-function) (quote org-imenu-get-tree)) (if (or nil (not (boundp (quo= te outline-isearch-open-invisible-function)))) (org-add-hook (quote isearch= -mode-end-hook) (quote org-isearch-end) (quote append) (quote local)) (org-= set-local (quote outline-isearch-open-invisible-function) (function (lambda= (&rest ignore) (org-show-context (quote isearch)))))) (and org-startup-wit= h-beamer-mode (org-beamer-mode 1)) (set (make-local-variable (quote pcomple= te-command-completion-function)) (quote org-pcomplete-initial)) (set (make-= local-variable (quote pcomplete-command-name-function)) (quote org-command-= at-point)) (set (make-local-variable (quote pcomplete-default-completion-fu= nction)) (quote ignore)) (set (make-local-variable (quote pcomplete-parse-a= rguments-function)) (quote org-parse-arguments)) (set (make-local-variable = (quote pcomplete-termination-string)) "") (if (and org-insert-mode-line-in-= empty-file (interactive-p) (=3D (point-min) (point-max))) (insert "# -*-= mode: org -*-\n\n")) ...) (progn (make-local-variable (quote delay-mode-hooks)) (let ((delay-mode-h= ooks t)) (outline-mode) (setq major-mode (quote org-mode)) (setq mode-name = "Org") (progn (if (get (quote outline-mode) (quote mode-class)) (put (quote= org-mode) (quote mode-class) (get (quote outline-mode) (quote mode-class))= )) (if (keymap-parent org-mode-map) nil (set-keymap-parent org-mode-map (cu= rrent-local-map))) (let ((parent (char-table-parent org-mode-syntax-table))= ) (if (and parent (not (eq parent ...))) nil (set-char-table-parent org-mod= e-syntax-table (syntax-table)))) (if (or (abbrev-table-get org-mode-abbrev-= table :parents) (eq org-mode-abbrev-table local-abbrev-table)) nil (abbrev-= table-put org-mode-abbrev-table :parents (list local-abbrev-table)))) (use-= local-map org-mode-map) (set-syntax-table org-mode-syntax-table) (setq loca= l-abbrev-table org-mode-abbrev-table) (if nil (if (boundp (quote outline-mo= de-menu-heading)) (progn (easy-menu-remove outline-mode-menu-heading) (easy= -menu-remove outline-mode-menu-show) (easy-menu-remove outline-mode-menu-hi= de))) (define-key org-mode-map [menu-bar headings] (quote undefined)) (defi= ne-key org-mode-map [menu-bar hide] (quote undefined)) (define-key org-mode= -map [menu-bar show] (quote undefined))) (org-load-modules-maybe) (easy-men= u-add org-org-menu) (easy-menu-add org-tbl-menu) (org-install-agenda-files-= menu) (if org-descriptive-links (add-to-invisibility-spec (quote (org-link)= ))) (add-to-invisibility-spec (quote (org-cwidth))) (add-to-invisibility-sp= ec (quote (org-hide-block . t))) (if nil (progn (org-set-local (quote line-= move-ignore-invisible) t))) (org-set-local (quote outline-regexp) org-outli= ne-regexp) (org-set-local (quote outline-level) (quote org-outline-level)) = (if (and org-ellipsis (fboundp (quote set-display-table-slot)) (boundp (quo= te buffer-display-table)) (fboundp (quote make-glyph-code))) (progn (if org= -display-table nil (setq org-display-table (make-display-table))) (set-disp= lay-table-slot org-display-table 4 (vconcat (mapcar (function ...) (if ... = org-ellipsis "...")))) (setq buffer-display-table org-display-table))) (org= -set-regexps-and-options) (if (and org-tag-faces (not org-tags-special-face= s-re)) (progn (org-set-tag-faces (quote org-tag-faces) org-tag-faces))) (or= g-set-local (quote calc-embedded-open-mode) "# ") (modify-syntax-entry 64 "= w") (if org-startup-truncated (setq truncate-lines t)) (org-set-local (quot= e font-lock-unfontify-region-function) (quote org-unfontify-region)) (org-s= et-local (quote org-table-may-need-update) t) (org-add-hook (quote before-c= hange-functions) (quote org-before-change-function) nil (quote local)) (org= -add-hook (quote kill-buffer-hook) (quote org-check-running-clock) nil (quo= te local)) (org-set-autofill-regexps) (setq indent-line-function (quote org= -indent-line-function)) (org-update-radio-target-regexp) (org-set-local (qu= ote beginning-of-defun-function) (quote org-beginning-of-defun)) (org-set-l= ocal (quote end-of-defun-function) (quote org-end-of-defun)) (org-set-local= (quote next-error-function) (quote org-occur-next-match)) (if org-enforce-= todo-dependencies (add-hook (quote org-blocker-hook) (quote org-block-todo-= from-children-or-siblings-or-parent)) (remove-hook (quote org-blocker-hook)= (quote org-block-todo-from-children-or-siblings-or-parent))) (if org-enfor= ce-todo-checkbox-dependencies (add-hook (quote org-blocker-hook) (quote org= -block-todo-from-checkboxes)) (remove-hook (quote org-blocker-hook) (quote = org-block-todo-from-checkboxes))) (org-set-local (quote comment-start) "#")= (org-set-local (quote comment-padding) " ") (org-set-local (quote align-mo= de-rules-list) (quote ((org-in-buffer-settings (regexp . "^#\\+[A-Z_]+:\\(\= \s-*\\)\\S-+") (modes quote (org-mode)))))) (org-set-local (quote imenu-cre= ate-index-function) (quote org-imenu-get-tree)) (if (or nil (not (boundp (q= uote outline-isearch-open-invisible-function)))) (org-add-hook (quote isear= ch-mode-end-hook) (quote org-isearch-end) (quote append) (quote local)) (or= g-set-local (quote outline-isearch-open-invisible-function) (function (lamb= da (&rest ignore) (org-show-context (quote isearch)))))) (and org-startup-w= ith-beamer-mode (org-beamer-mode 1)) (set (make-local-variable (quote pcomp= lete-command-completion-function)) (quote org-pcomplete-initial)) (set (mak= e-local-variable (quote pcomplete-command-name-function)) (quote org-comman= d-at-point)) (set (make-local-variable (quote pcomplete-default-completion-= function)) (quote ignore)) (set (make-local-variable (quote pcomplete-parse= -arguments-function)) (quote org-parse-arguments)) (set (make-local-variabl= e (quote pcomplete-termination-string)) "") (if (and org-insert-mode-line-i= n-empty-file (interactive-p) (=3D (point-min) (point-max))) (insert "# -= *- mode: org -*-\n\n")) ...)) org-mode() set-auto-mode-0(org-mode nil) byte-code("\237\305=19\211=1A\203/ --=-=-=--