[Emacs-diffs] Changes to emacs/lisp/progmodes/idlwave.el

[Juanma Barranquero]

Index: emacs/lisp/progmodes/idlwave.el
diff -c emacs/lisp/progmodes/idlwave.el:3.42 
emacs/lisp/progmodes/idlwave.el:3.43
*** emacs/lisp/progmodes/idlwave.el:3.42        Tue Jun 14 15:29:27 2005
--- emacs/lisp/progmodes/idlwave.el     Thu Jun 16 14:54:09 2005
***************
*** 1369,1375 ****
  ;; 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 ?\ 
    "Character to be inserted for IDL comment indentation.
  Normally a space.")
  
--- 1369,1375 ----
  ;; 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 ?\
    "Character to be inserted for IDL comment indentation.
  Normally a space.")
  
***************
*** 5493,5500 ****
          (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))))
        (setq idlwave-completion-help-info
              (list 'keyword name type-selector class-selector entry 
super-classes))
        (idlwave-complete-in-buffer
--- 5493,5500 ----
          (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 "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,5538 ****
                           (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)))
        (setq idlwave-completion-help-info
              (list 'keyword name type-selector class-selector nil 
super-classes))
        (idlwave-complete-in-buffer
--- 5531,5538 ----
                           (concat idlwave-current-obj_new-class
                                   "::Init (via OBJ_NEW)")
                         (idlwave-make-full-name class 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