diff options
| author | Leo Liu <sdl.web@gmail.com> | 2013-04-27 01:11:04 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2013-04-27 01:11:04 +0800 |
| commit | ff7210d55b30e175da1384ba707ce1340a0c4e11 (patch) | |
| tree | 82b6a353a8421c6e92fa7229d817133d08b6cd01 | |
| parent | e55d3b0408c33aef72cddb6076617dacbf9ea4c0 (diff) | |
| download | emacs-ff7210d55b30e175da1384ba707ce1340a0c4e11.tar.gz emacs-ff7210d55b30e175da1384ba707ce1340a0c4e11.tar.bz2 emacs-ff7210d55b30e175da1384ba707ce1340a0c4e11.zip | |
* progmodes/octave.el (octave-sync-function-file-names): Fix last
change.
| -rw-r--r-- | lisp/progmodes/octave.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)))))) |