diff options
author | Glenn Morris <rgm@gnu.org> | 2009-08-22 19:29:18 +0000 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2009-08-22 19:29:18 +0000 |
commit | e6ce8c4239a0b7003430d94a5f591e1d4ad50213 (patch) | |
tree | 17852bba62da89f449af8c75f4fe50a3fb89852f /lisp/progmodes/ada-mode.el | |
parent | a569b4801085fa14c3bd0d153e389636645908b9 (diff) | |
download | emacs-e6ce8c4239a0b7003430d94a5f591e1d4ad50213.tar.gz |
Use forward-line rather than goto-line.
Diffstat (limited to 'lisp/progmodes/ada-mode.el')
-rw-r--r-- | lisp/progmodes/ada-mode.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index c28926dbb3d..89cbdd18454 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -1,7 +1,7 @@ ;;; ada-mode.el --- major-mode for editing Ada sources ;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. ;; Author: Rolf Ebert <ebert@inf.enst.fr> ;; Markus Heritsch <Markus.Heritsch@studbox.uni-stuttgart.de> @@ -229,6 +229,8 @@ It may be `downcase-word', `upcase-word', `ada-loose-case-word' or (const ada-no-auto-case)) :group 'ada) +;; FIXME If this is not something required by the ada language, this +;; should be removed. (defcustom ada-clean-buffer-before-saving t "*Non-nil means remove trailing spaces and untabify the buffer before saving." :type 'boolean :group 'ada) @@ -793,8 +795,9 @@ the 4 file locations can be clicked on and jumped to." (compilation-find-file (point-marker) (match-string 1) "./") (set-buffer file) - (if (stringp line) - (goto-line (string-to-number line))) + (when (stringp line) + (goto-char (point-min)) + (forward-line (1- (string-to-number line)))) (setq source (point-marker))) |