aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLeo Liu2013-04-27 01:11:04 +0800
committerLeo Liu2013-04-27 01:11:04 +0800
commitff7210d55b30e175da1384ba707ce1340a0c4e11 (patch)
tree82b6a353a8421c6e92fa7229d817133d08b6cd01
parente55d3b0408c33aef72cddb6076617dacbf9ea4c0 (diff)
downloademacs-ff7210d55b30e175da1384ba707ce1340a0c4e11.tar.gz
emacs-ff7210d55b30e175da1384ba707ce1340a0c4e11.zip
* progmodes/octave.el (octave-sync-function-file-names): Fix last
change.
-rw-r--r--lisp/progmodes/octave.el3
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'."
1024 (file-name-nondirectory buffer-file-name))) 1024 (file-name-nondirectory buffer-file-name)))
1025 (func (and (re-search-forward octave-function-header-regexp nil t) 1025 (func (and (re-search-forward octave-function-header-regexp nil t)
1026 (match-string 3)))) 1026 (match-string 3))))
1027 (when (and (not (equal file func)) 1027 (when (and func
1028 (not (equal file func))
1028 (yes-or-no-p 1029 (yes-or-no-p
1029 "Function name different from file name. Fix? ")) 1030 "Function name different from file name. Fix? "))
1030 (replace-match file nil nil nil 3)))))) 1031 (replace-match file nil nil nil 3))))))