summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2005-06-16 14:54:09 +0000
committerJuanma Barranquero <lekktu@gmail.com>2005-06-16 14:54:09 +0000
commitb6a97790db0a6ae27e81d54d5986e9c27914b75e (patch)
tree708e646169fe28505b191f491248455eecdbf116 /lisp
parentb66c24b4429c4ef3acf555c400169fd8090de195 (diff)
downloademacs-b6a97790db0a6ae27e81d54d5986e9c27914b75e.tar.gz
(idlwave-complete): Don't use `format' on `error' arguments.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/progmodes/idlwave.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index 820e619f331..273c3296180 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -1369,7 +1369,7 @@ the leftover unidentified statements containing an equal sign." )
;; Note that this is documented in the v18 manuals as being a string
;; of length one rather than a single character.
;; The code in this file accepts either format for compatibility.
-(defvar idlwave-comment-indent-char ?\
+(defvar idlwave-comment-indent-char ?\
"Character to be inserted for IDL comment indentation.
Normally a space.")
@@ -5493,8 +5493,8 @@ When we force a method or a method keyword, CLASS can specify the class."
(error "Nothing known about procedure %s"
(idlwave-make-full-name class name)))
(setq list (idlwave-fix-keywords name 'pro class list super-classes))
- (unless list (error (format "No keywords available for procedure %s"
- (idlwave-make-full-name class name))))
+ (unless list (error "No keywords available for procedure %s"
+ (idlwave-make-full-name class name)))
(setq idlwave-completion-help-info
(list 'keyword name type-selector class-selector entry super-classes))
(idlwave-complete-in-buffer
@@ -5531,8 +5531,8 @@ When we force a method or a method keyword, CLASS can specify the class."
(concat idlwave-current-obj_new-class
"::Init (via OBJ_NEW)")
(idlwave-make-full-name class name)))
- (unless list (error (format "No keywords available for function %s"
- msg-name)))
+ (unless list (error "No keywords available for function %s"
+ msg-name))
(setq idlwave-completion-help-info
(list 'keyword name type-selector class-selector nil super-classes))
(idlwave-complete-in-buffer