From: Leo Liu <sdl.web@gmail.com>
Date: Fri, 26 Apr 2013 17:11:04 +0000 (+0800)
Subject: * progmodes/octave.el (octave-sync-function-file-names): Fix last
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~359^2~4
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ff7210d55b30e175da1384ba707ce1340a0c4e11;p=emacs.git

* progmodes/octave.el (octave-sync-function-file-names): Fix last
  change.
---

diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el
index 3c24205eb8e..f8b9e4f6fab 100644
--- a/lisp/progmodes/octave.el
+++ b/lisp/progmodes/octave.el
@@ -1024,7 +1024,8 @@ See Info node `(octave)Function Files'."
                    (file-name-nondirectory buffer-file-name)))
             (func (and (re-search-forward octave-function-header-regexp nil t)
                        (match-string 3))))
-        (when (and (not (equal file func))
+        (when (and func
+                   (not (equal file func))
                    (yes-or-no-p
                     "Function name different from file name. Fix? "))
           (replace-match file nil nil nil 3))))))