[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-mode.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-mode.el |
Date: |
Tue, 13 May 2003 16:48:15 -0400 |
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}