From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Jon Dufresne Newsgroups: gmane.emacs.bugs Subject: bug#17365: 24.3; Visiting tags table in combination with fill column indicator causes Emacs to hang Date: Tue, 29 Apr 2014 12:16:30 -0700 Message-ID: References: <87lhupxjfm.fsf@localhost.localdomain.i-did-not-set--mail-host-address--so-tickle-me> <2w8uqot7yb.fsf@fencepost.gnu.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 X-Trace: ger.gmane.org 1398799051 17839 80.91.229.3 (29 Apr 2014 19:17:31 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 29 Apr 2014 19:17:31 +0000 (UTC) Cc: 17365@debbugs.gnu.org To: Alp Aker Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Apr 29 21:17:27 2014 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 1WfDWw-0004nC-OK for geb-bug-gnu-emacs@m.gmane.org; Tue, 29 Apr 2014 21:17:26 +0200 Original-Received: from localhost ([::1]:52114 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WfDWw-0005ys-9f for geb-bug-gnu-emacs@m.gmane.org; Tue, 29 Apr 2014 15:17:26 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:48322) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WfDWe-0005br-K6 for bug-gnu-emacs@gnu.org; Tue, 29 Apr 2014 15:17:13 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WfDWY-0003ql-R1 for bug-gnu-emacs@gnu.org; Tue, 29 Apr 2014 15:17:08 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:56281) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WfDWY-0003qg-OB for bug-gnu-emacs@gnu.org; Tue, 29 Apr 2014 15:17:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1WfDWX-0007od-PV for bug-gnu-emacs@gnu.org; Tue, 29 Apr 2014 15:17:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Jon Dufresne Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 29 Apr 2014 19:17:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 17365 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 17365-submit@debbugs.gnu.org id=B17365.139879900030001 (code B ref 17365); Tue, 29 Apr 2014 19:17:01 +0000 Original-Received: (at 17365) by debbugs.gnu.org; 29 Apr 2014 19:16:40 +0000 Original-Received: from localhost ([127.0.0.1]:45398 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WfDWB-0007np-5s for submit@debbugs.gnu.org; Tue, 29 Apr 2014 15:16:39 -0400 Original-Received: from mail-qa0-f54.google.com ([209.85.216.54]:34312) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1WfDW8-0007nV-JD for 17365@debbugs.gnu.org; Tue, 29 Apr 2014 15:16:37 -0400 Original-Received: by mail-qa0-f54.google.com with SMTP id s7so651383qap.27 for <17365@debbugs.gnu.org>; Tue, 29 Apr 2014 12:16:31 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:in-reply-to:references:date:message-id:subject:from:to :cc:content-type; bh=Dw4ZnfJHUvLPrHgHh2Ngo81VEPYqhg+eKXZ839YtLe4=; b=gFG3fAETfQTL/oDeIKNpqfprfnxslhXPGw0tQ3XpPHMiP13e8KVgiZ+o3S9H0dE1HI WSBO1biJYXbmskRRmVb18mk6xtXy5JlrgVBMV6g9BSpQLDMPeHE7+u86xxsig8vjV2k0 y12B0D0IMmX5tVGIbtsc3Nnt7gdf8kBIOVgX8oqlhLuCEmMIaJAeTfTLFrBgEEmLJ7HQ MCmb2OxwlRb3B+genDH19lzSVhklseahpx/HLwlBGVobBIELxONxRntvzVj9zEogH1/j PxwxWiv1/ZRZ1LAh6Xcds03TTCcGovpRrNTh/FLLO++ZmWCIVn2jMwgpspMNIulDio8n XHrQ== X-Received: by 10.140.93.42 with SMTP id c39mr1457048qge.53.1398798990961; Tue, 29 Apr 2014 12:16:30 -0700 (PDT) Original-Received: by 10.229.10.201 with HTTP; Tue, 29 Apr 2014 12:16:30 -0700 (PDT) In-Reply-To: X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.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:88454 Archived-At: On Tue, Apr 29, 2014 at 12:10 PM, Alp Aker wrote: > Jon, could you replace the definition of fci-redraw-region with the > following and try your recipe again? > > (defun fci-redraw-region (start end _ignored) > (when (fci-get-buffer-windows t) > (save-match-data > (save-excursion > (let ((inhibit-point-motion-hooks t)) > (goto-char end) > (setq end (line-beginning-position 2)) > (fci-delete-overlays-region start end) > (fci-put-overlays-region start end)))))) > > This worked! After adding this function Emacs no longer hangs after entering "yes". Thank you very much for the prompt response. The full working recipe now appears as follows: --- (require 'package) (add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/")) (package-initialize) (package-refresh-contents) (package-install 'fill-column-indicator) (setq debug-on-event 'sigusr2) (require 'fill-column-indicator) (setq-default fci-rule-column 80) (defun fci-mode-on () "Turn fci-mode on." (fci-mode 1)) (define-globalized-minor-mode global-fci-mode fci-mode fci-mode-on) (global-fci-mode 1) (defun fci-redraw-region (start end _ignored) (when (fci-get-buffer-windows t) (save-match-data (save-excursion (let ((inhibit-point-motion-hooks t)) (goto-char end) (setq end (line-beginning-position 2)) (fci-delete-overlays-region start end) (fci-put-overlays-region start end)))))) (defun project-compile-and-visit-tags-table () "Compile TAGS file at the project ROOT directory." (interactive) (let ((root (project-root))) (when root (add-hook 'compilation-finish-functions #'project-visit-tags-table) (compile (format "ctags -e -R --languages=PHP -o %s %s" (concat root "TAGS") root))))) (defun project-visit-tags-table (buffer string) "Tell tags commands to use tags table at the project root." (when (string= string "finished\n") (visit-tags-table (concat (project-root) "TAGS"))) (remove-hook 'compilation-finish-functions #'project-visit-tags-table)) (defun project-root () "Return the project's root directory." (locate-dominating-file default-directory ".hg")) ---