Commits

Anonymous committed 0687e06

Indentation-related fixes, xemacs-beta
<15796.21261.691333.893368@harpo.it.uu.se>,
<15797.61516.27964.49875@harpo.it.uu.se>

Comments (0)

Files changed (3)

+2002-10-28  Ville Skyttä  <scop@xemacs.org>
+
+	* sml-mode.el (sml-electric-pipe):
+	Avoid error when electrifying at end of buffer.
+	(sml-find-matching-starter):
+	Fix boundary error at beginning of buffer.
+
+	* sml-defs.el (sml-mode-menu):
+	Use indent-region, not sml-indent-region (nonexistent).
+
 2002-10-15  Ville Skyttä  <scop@xemacs.org>
 
 	* Makefile (srckit): Remove.
     ["insert SML form"   sml-insert-form t]
     ("Forms" :filter sml-forms-menu)
     ("Format/Mode Variables"
-     ["indent region"             sml-indent-region t]
+     ["indent region"             indent-region t]
      ["outdent"                   sml-back-to-outer-indent t]
      ["-" nil nil]
      ["set indent-level"          sml-indent-level t]
      (skip-chars-forward "\t |")
      (skip-syntax-forward "w")
      (skip-chars-forward "\t ")
-     (when (= ?= (char-after)) (backward-char)))))
+     (when (and (not (eobp)) (= ?= (char-after))) (backward-char)))))
 
 (defun sml-electric-semi ()
   "Insert a \;.
 	  (progn (sml-backward-sexp prec)
 		 (setq sym (save-excursion (sml-forward-sym)))
 		 (not (or (member sym syms) (bobp)))))
-      (unless (bobp) sym))))
+      (if (member sym syms) sym))))
 
 (defun sml-skip-siblings ()
   (while (and (not (bobp)) (sml-backward-arg))