[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-mode.el

[Stefan Monnier]

Index: emacs/lisp/progmodes/ada-mode.el
diff -c emacs/lisp/progmodes/ada-mode.el:1.54 
emacs/lisp/progmodes/ada-mode.el:1.55
*** emacs/lisp/progmodes/ada-mode.el:1.54       Sun May  4 15:52:34 2003
--- emacs/lisp/progmodes/ada-mode.el    Tue May 13 16:48:15 2003
***************
*** 956,975 ****
    "Returns t if inside a comment."
    (nth 4 (or parse-result
               (parse-partial-sexp
!               (save-excursion (beginning-of-line) (point)) (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)))))
  
  (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))))
    (or (ada-in-string-p parse-result) (ada-in-comment-p parse-result)))
  
  
--- 956,975 ----
    "Returns t if inside a comment."
    (nth 4 (or parse-result
               (parse-partial-sexp
!               (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
!               (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
!                           (line-beginning-position) (point))))
    (or (ada-in-string-p parse-result) (ada-in-comment-p parse-result)))
  
  
***************
*** 1071,1077 ****
  ;;;###autoload
  (defun ada-mode ()
    "Ada mode is the major mode for editing Ada code.
! This version was built on $Date: 2003/05/04 19:52:34 $.
  
  Bindings are as follows: (Note: 'LFD' is control-j.)
  \\{ada-mode-map}
--- 1071,1077 ----
  ;;;###autoload
  (defun ada-mode ()
    "Ada mode is the major mode for editing Ada code.
! This version was built on $Date: 2003/05/13 20:48:15 $.
  
  Bindings are as follows: (Note: 'LFD' is control-j.)
  \\{ada-mode-map}