[Gd-chatter] r11346 - trunk/gwydion/tools/elisp

[cpage at gwydiondylan.org]

Author: cpage
Date: Sat May 12 12:19:53 2007
New Revision: 11346

Modified:
   trunk/gwydion/tools/elisp/dylan-mode.el
Log:
Job: minor

Removed the Dylan Mode customizable variable `dylan-outdent-arrows'. This
behavior should always be on. (Outdent "=>" so the result part of a function
signature lines up with the indentation of the argument list.)


Modified: trunk/gwydion/tools/elisp/dylan-mode.el
==============================================================================
--- trunk/gwydion/tools/elisp/dylan-mode.el	(original)
+++ trunk/gwydion/tools/elisp/dylan-mode.el	Sat May 12 12:19:53 2007
@@ -5,7 +5,7 @@
 
 ;; Author: Robert Stockton (rgs at cs.cmu.edu), others, then Chris Page
 ;; Maintainer: Chris Page <cpage at opendylan.org>
-;; Version: 1.20
+;; Version: 1.21
 
 ;; This file is *NOT* part of GNU Emacs.
 
@@ -151,10 +151,12 @@
 ;;     Other miscellaneous fixes and cleanups.
 ;;   version 1.20
 ;;     Added support for multiple levels of font-lock decoration.
+;;   version 1.21
+;;     Removed dylan-outdent-arrows. It should always be on.
 
 ;;; Code:
 
-(defconst dylan-version "1.20"
+(defconst dylan-version "1.21"
   "Dylan Mode version number.")
 
 (defun dylan-version ()
@@ -174,11 +176,6 @@
   :type  'integer
   :group 'dylan)
 
-(defcustom dylan-outdent-arrows t
-  "*Whether to outdent \"=>\" in function signatures."
-  :type  'boolean
-  :group 'dylan)
-
 (defcustom dylan-highlight-function-calls nil
   "*Whether to highlight function calls in `font-lock-mode'.
 Applies only in font-lock decoration level 2 or higher.
@@ -1171,7 +1168,7 @@
 					 &optional in-case in-paren)
   (save-excursion
     (goto-char line-start)
-    (let ((arrow (and dylan-outdent-arrows (looking-at "=>"))))
+    (let ((arrow (looking-at "=>")))
       (dylan-skip-whitespace-backward)
       (if (look-back "finally$")	; special case -- this one is tricky
 	  0				; because "for" can have empty bodies