From db63d9d324ac5064ab40e6ee708955123882230b Mon Sep 17 00:00:00 2001 From: "Jose A. Ortega Ruiz" Date: Wed, 21 Jan 2009 00:44:22 +0100 Subject: [PATCH] FUEL: Fix bug in usings update doing the wrong thing for empty USING:. --- misc/fuel/fuel-debug.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/misc/fuel/fuel-debug.el b/misc/fuel/fuel-debug.el index 4d84ad5141..1db1d36b61 100644 --- a/misc/fuel/fuel-debug.el +++ b/misc/fuel/fuel-debug.el @@ -1,6 +1,6 @@ ;;; fuel-debug.el -- debugging factor code -;; Copyright (C) 2008 Jose Antonio Ortega Ruiz +;; Copyright (C) 2008, 2009 Jose Antonio Ortega Ruiz ;; See http://factorcode.org/license.txt for BSD license. ;; Author: Jose Antonio Ortega Ruiz @@ -287,7 +287,8 @@ the debugger." (goto-char (point-min)) (if (re-search-forward "^USING: " nil t) (let ((begin (point)) - (end (or (and (re-search-forward "\\_<;\\_>") (point)) (point)))) + (end (or (and (re-search-forward ";\\( \\|$\\)") (point)) + (point)))) (kill-region begin end)) (re-search-forward "^IN: " nil t) (beginning-of-line)