# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1052858895 0
# Node ID b4fef1c0c73bc390da83b8c0be2eb58d4f6f5cbf
# Parent  96a99720aa8b78211be7d5bb23aac22d31536536
(ada-in-comment-p, ada-in-string-p)
(ada-in-string-or-comment-p): Use line-beginning-position.

diff -r 96a99720aa8b -r b4fef1c0c73b lisp/progmodes/ada-mode.el
--- a/lisp/progmodes/ada-mode.el	Tue May 13 20:42:19 2003 +0000
+++ b/lisp/progmodes/ada-mode.el	Tue May 13 20:48:15 2003 +0000
@@ -956,20 +956,20 @@
   "Returns t if inside a comment."
   (nth 4 (or parse-result
              (parse-partial-sexp
-              (save-excursion (beginning-of-line) (point)) (point)))))
+              (line-beginning-position) (point)))))
 
 (defsubst ada-in-string-p (&optional parse-result)
   "Returns t if point is inside a string.
 If parse-result is non-nil, use is instead of calling parse-partial-sexp."
   (nth 3 (or parse-result
              (parse-partial-sexp
-              (save-excursion (beginning-of-line) (point)) (point)))))
+              (line-beginning-position) (point)))))
 
 (defsubst ada-in-string-or-comment-p (&optional parse-result)
   "Returns t if inside a comment or string."
   (setq parse-result (or parse-result
                          (parse-partial-sexp
-                          (save-excursion (beginning-of-line) (point)) (point))))
+                          (line-beginning-position) (point))))
   (or (ada-in-string-p parse-result) (ada-in-comment-p parse-result)))
 
 
@@ -1071,7 +1071,7 @@
 ;;;###autoload
 (defun ada-mode ()
   "Ada mode is the major mode for editing Ada code.
-This version was built on $Date: 2003/05/04 13:55:51 $.
+This version was built on $Date: 2003/05/04 19:52:34 $.
 
 Bindings are as follows: (Note: 'LFD' is control-j.)
 \\{ada-mode-map}