diff options
| author | Karl Heuer | 1996-01-25 00:57:23 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-25 00:57:23 +0000 |
| commit | 23161c61c453be29c00958433cbcefeefbf8e40e (patch) | |
| tree | 561f283707b57896600aaeb77cfd83e614d16a4a | |
| parent | 6048fac7bf1d3dbfefe4359d051b283ddf368418 (diff) | |
| download | emacs-23161c61c453be29c00958433cbcefeefbf8e40e.tar.gz emacs-23161c61c453be29c00958433cbcefeefbf8e40e.zip | |
(simula-electric-keyword): Pass proper format string to message.
| -rw-r--r-- | lisp/progmodes/simula.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el index 6a3319a5bab..45cb24b331d 100644 --- a/lisp/progmodes/simula.el +++ b/lisp/progmodes/simula.el | |||
| @@ -987,11 +987,10 @@ If COUNT is negative, move backward instead." | |||
| 987 | (simula-backward-up-level 1) | 987 | (simula-backward-up-level 1) |
| 988 | (if (pos-visible-in-window-p) | 988 | (if (pos-visible-in-window-p) |
| 989 | (sit-for 1) | 989 | (sit-for 1) |
| 990 | (message | 990 | (message "Matches %s" |
| 991 | (concat "Matches " | ||
| 992 | (buffer-substring | 991 | (buffer-substring |
| 993 | (point) | 992 | (point) |
| 994 | (+ (point) (window-width)))))))) | 993 | (+ (point) (window-width))))))) |
| 995 | (skip-chars-backward " \t\f") | 994 | (skip-chars-backward " \t\f") |
| 996 | (bolp))) | 995 | (bolp))) |
| 997 | (let ((indent (simula-calculate-indent))) | 996 | (let ((indent (simula-calculate-indent))) |