(Vdebug_on_signal): Renamed from Vdebug_force.

[bpt/emacs.git] / lisp / progmodes / icon.el

diff --git a/lisp/progmodes/icon.el b/lisp/progmodes/icon.el
index c65151c..85e30a7 100644 (file)
--- a/lisp/progmodes/icon.el
+++ b/lisp/progmodes/icon.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1989 Free Software Foundation, Inc.
 
-;; Author: Chris Smith <convex!csmith>
+;; Author: Chris Smith <csmith@convex.com>
 ;; Created: 15 Feb 89
 ;; Keywords: languages
 
@@ -19,8 +19,9 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
 
 ;;; Commentary:
 
@@ -68,23 +69,23 @@
   (modify-syntax-entry ?| "." icon-mode-syntax-table)
   (modify-syntax-entry ?\' "\"" icon-mode-syntax-table))
 
-(defconst icon-indent-level 4
+(defvar icon-indent-level 4
   "*Indentation of Icon statements with respect to containing block.")
-(defconst icon-brace-imaginary-offset 0
+(defvar icon-brace-imaginary-offset 0
   "*Imagined indentation of a Icon open brace that actually follows a statement.")
-(defconst icon-brace-offset 0
+(defvar icon-brace-offset 0
   "*Extra indentation for braces, compared with other text in same context.")
-(defconst icon-continued-statement-offset 4
+(defvar icon-continued-statement-offset 4
   "*Extra indent for lines not starting new statements.")
-(defconst icon-continued-brace-offset 0
+(defvar icon-continued-brace-offset 0
   "*Extra indent for substatements that start with open-braces.
 This is in addition to icon-continued-statement-offset.")
 
-(defconst icon-auto-newline nil
+(defvar icon-auto-newline nil
   "*Non-nil means automatically newline before and after braces
 inserted in Icon code.")
 
-(defconst icon-tab-always-indent t
+(defvar icon-tab-always-indent t
   "*Non-nil means TAB in Icon mode should always reindent the current line,
 regardless of where in the line point is when the TAB command is used.")
 \f
@@ -129,7 +130,7 @@ with no args, if that value is non-nil."
   (setq local-abbrev-table icon-mode-abbrev-table)
   (set-syntax-table icon-mode-syntax-table)
   (make-local-variable 'paragraph-start)
-  (setq paragraph-start (concat "^$\\|" page-delimiter))
+  (setq paragraph-start (concat "$\\|" page-delimiter))
   (make-local-variable 'paragraph-separate)
   (setq paragraph-separate paragraph-start)
   (make-local-variable 'indent-line-function)