[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/idlwave.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/idlwave.el |
Date: |
Thu, 16 Jun 2005 10:54:09 -0400 |
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