remove bogus execute priv

[gnu-emacs-elpa] / packages / ada-mode / ada-fix-error.el

diff --git a/packages/ada-mode/ada-fix-error.el b/packages/ada-mode/ada-fix-error.el
old mode 100755 (executable)
new mode 100644 (file)
index db43473..e8115fa
--- a/packages/ada-mode/ada-fix-error.el
+++ b/packages/ada-mode/ada-fix-error.el
@@ -1,7 +1,7 @@
 ;;; ada-fix-error.el --- utilities for automatically fixing
 ;; errors reported by the compiler.
 
-;; Copyright (C) 1999-2009, 2012-2013 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2009, 2012-2014 Free Software Foundation, Inc.
 
 ;; Author     : Stephen Leake      <Stephen_Leake@stephe-leake.org>
 ;; Maintainer : Stephen Leake      <Stephen_Leake@stephe-leake.org>
@@ -27,10 +27,9 @@
 ;;;; code
 
 (require 'ada-mode)
+(require 'cl-lib)
 (require 'compile)
 
-(eval-when-compile (require 'cl-macs))
-
 (defcustom ada-fix-sort-context-clause t
   "*If non-nil, sort context clause when inserting 'with'"
   :type 'boolean
@@ -145,8 +144,8 @@ point and return nil.")
   "Get compilation message at point.
 Compatible with Emacs 23.4 and 24.x."
   (cl-case emacs-major-version
-    (23 (get-text-property (point) 'message))
-    (24 (get-text-property (point) 'compilation-message))))
+    (23 (get-text-property (line-beginning-position) 'message))
+    (24 (get-text-property (line-beginning-position) 'compilation-message))))
 
 (defun ada-fix-compiler-error ()
   "Attempt to fix the current compiler error. Leave point at fixed code."