mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

(ada-indent-region, ada-check-matching-start, ada-check-defun-name): Fix error

Browse Source 
format string.
This commit is contained in:
Karl Heuer 1996-01-29 23:09:15 +00:00
parent ba4a8e51f9
commit 4dd3b39642
1 changed files with 5 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/progmodes/ada-mode.el
View File

@ -1408,9 +1408,7 @@ Moves to 'begin' if in a declarative part."
(setq lines-remaining (1- lines-remaining)))
;; show line number where the error occurred
(error
(error (format "line %d: %s"
(1+ (count-lines (point-min) (point)))
err) nil)))
(error "line %d: %s" (1+ (count-lines (point-min) (point))) err)))
(message "indenting ... done")))
@ -2501,9 +2499,7 @@ This works by two steps:
;; Moves point to the matching block start.
(ada-goto-matching-start 0)
(if (not (looking-at (concat "\\<" keyword "\\>")))
(error (concat
"matching start is not '"
keyword "'"))))
(error "matching start is not '%s'" keyword)))
(defun ada-check-defun-name (defun-name)
@ -2542,14 +2538,9 @@ This works by two steps:
;; should be looking-at the correct name
;;
(if (not (looking-at (concat "\\<" defun-name "\\>")))
(error
(concat
"matching defun has different name: "
(buffer-substring
(point)
(progn
(forward-sexp 1)
(point))))))))
(error "matching defun has different name: %s"
(buffer-substring (point)
(progn (forward-sexp 1) (point)))))))
(defun ada-goto-matching-decl-start (&optional noerror nogeneric)