Fix compiler warnings.

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index 61fcaac2ce6685aed285a80678d109ce962f9b74..68d4ecba1c776048291027b4441136fb3b3cb9e8 100644 (file)
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: loadef.scm,v 1.36 1999/01/14 21:37:46 cph Exp $
+;;; $Id: loadef.scm,v 1.37 1999/01/14 21:40:56 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -324,10 +324,10 @@ This is usually 103 or 2627."
   'PASSWORD-EDIT
   "Major mode specialized for viewing password files.")
 
-(define-autoload-command toggle-pw-form 'PASSWORD-EDIT
+(define-autoload-command 'toggle-pw-form 'PASSWORD-EDIT
   "Toggle the body of the password form under point.")
 
-(define-autoload-command mouse-toggle-pw-form 'PASSWORD-EDIT
+(define-autoload-command 'mouse-toggle-pw-form 'PASSWORD-EDIT
   "Toggle the body of the password form under mouse.")
 \f
 ;;;; DOS-specific commands

diff --git a/v7/src/edwin/pwedit.scm b/v7/src/edwin/pwedit.scm
index 2fcea9f69bdd2ba59a900ebd84722d63ce991970..f207431ed054d889786b428442b98bada4d32020 100644 (file)
--- a/v7/src/edwin/pwedit.scm
+++ b/v7/src/edwin/pwedit.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: pwedit.scm,v 1.2 1999/01/14 21:35:05 cph Exp $
+;;; $Id: pwedit.scm,v 1.3 1999/01/14 21:40:35 cph Exp $
 ;;;
 ;;; Copyright (c) 1999 Massachusetts Institute of Technology
 ;;;
@@ -118,8 +118,7 @@
     (lambda ()
       (let ((form
             (or (get-pw-form point)
-                (error:bad-range-argument point 'INSERT-PW-BODY)))
-           (le (line-end point 0)))
+                (error:bad-range-argument point 'INSERT-PW-BODY))))
        (if (eq? 'SHORT (car form))
            (let ((region (short-pw-body-region point)))
              (if region