(rmail-summary-get-new-mail): Don't call rmail-summary-goto-msg if msg is 0.

[gnu-emacs] / lisp / find-file.el

diff --git a/lisp/find-file.el b/lisp/find-file.el
index 14a3c045707a2b8043ae68c2deeac49119636f4c..c9fc0b80645a7fe8a857af75a8024b6e14935843 100644 (file)
--- a/lisp/find-file.el
+++ b/lisp/find-file.el
@@ -169,8 +169,9 @@ To override this, give an argument to `ff-find-other-file'.")
     ("^with[ \t]+\\([a-zA-Z0-9_\\.]+\\)" .
      (lambda ()
        (setq fname (buffer-substring (match-beginning 1) (match-end 1)))
+       (require 'ada-mode)
        (setq fname (concat (ada-make-filename-from-adaname fname)
-                           ada-spec-suffix))))
+                          ada-spec-suffix))))
     )
   "*A list of regular expressions specifying how to recognise special 
 constructs such as include files etc, and an associated method for 
@@ -252,13 +253,6 @@ specified in `ada-search-directories'.  If a file is not found, a new one
 is created with the first matching extension (`.adb' yields `.ads').
 ")
 
-;;;### autoload
-(autoload 'ada-make-filename-from-adaname "ada-mode"
-  "Determine the filename of a package/procedure from its own Ada name.")
-(defvar ada-spec-suffix ".ads"  
-  "*Suffix of Ada specification files.")
-(make-variable-buffer-local 'ada-spec-suffix)
-
 (defvar modula2-other-file-alist
   '(
     ("\\.mi$" (".md")) ;; Modula-2 module definition
@@ -906,7 +900,7 @@ Also remember that name in `ff-function-name'."
 ;;
 (defun ff-set-point-accordingly ()
   "Find the function specified in `ff-function-name'.
-That name was previously  etermined by `ff-which-function-are-we-in'."
+That name was previously determined by `ff-which-function-are-we-in'."
   (if ff-function-name
       (progn
         (goto-char (point-min))