Mercurial > emacs
comparison lisp/progmodes/idlwave.el @ 60917:87f9bb9d3718
* progmodes/ebnf-abn.el, progmodes/ebnf-bnf.el,
progmodes/ebnf-ebx.el, progmodes/ebnf-dtd.el, progmodes/ebnf-iso.el,
progmodes/ebnf-yac.el, progmodes/ebnf2ps.el, progmodes/idlwave.el,
progmodes/sh-script.el, progmodes/xscheme.el: Replace `illegal' with
`invalid'.
| author | Werner LEMBERG <wl@gnu.org> |
|---|---|
| date | Fri, 25 Mar 2005 08:47:00 +0000 |
| parents | a4cac40cf780 |
| children | a9c571ede913 |
comparison
equal
deleted
inserted
replaced
| 60916:480134f8cd16 | 60917:87f9bb9d3718 |
|---|---|
| 1 ;; idlwave.el --- IDL editing mode for GNU Emacs | 1 ;; idlwave.el --- IDL editing mode for GNU Emacs |
| 2 ;; Copyright (c) 1999, 2000, 2001, 2002, 2003, 2004 Free Software Foundation | 2 ;; Copyright (c) 1999, 2000, 2001, 2002, 2003, 2004, 2005 |
| 3 ;; Free Software Foundation | |
| 3 | 4 |
| 4 ;; Authors: J.D. Smith <jdsmith@as.arizona.edu> | 5 ;; Authors: J.D. Smith <jdsmith@as.arizona.edu> |
| 5 ;; Carsten Dominik <dominik@science.uva.nl> | 6 ;; Carsten Dominik <dominik@science.uva.nl> |
| 6 ;; Chris Chase <chase@att.com> | 7 ;; Chris Chase <chase@att.com> |
| 7 ;; Maintainer: J.D. Smith <jdsmith@as.arizona.edu> | 8 ;; Maintainer: J.D. Smith <jdsmith@as.arizona.edu> |
| 5585 (setq what (intern (car (nth (1- what) what-list))))) | 5586 (setq what (intern (car (nth (1- what) what-list))))) |
| 5586 ((and what | 5587 ((and what |
| 5587 (symbolp what) | 5588 (symbolp what) |
| 5588 (assoc (symbol-name what) what-list)) | 5589 (assoc (symbol-name what) what-list)) |
| 5589 what) | 5590 what) |
| 5590 (t (error "Illegal WHAT")))) | 5591 (t (error "Invalid WHAT")))) |
| 5591 (nil-list '(nil nil nil nil)) | 5592 (nil-list '(nil nil nil nil)) |
| 5592 (class-list (list nil nil (or class t) nil))) | 5593 (class-list (list nil nil (or class t) nil))) |
| 5593 | 5594 |
| 5594 (cond | 5595 (cond |
| 5595 | 5596 |
| 5654 (list func nil class nil) nil))) | 5655 (list func nil class nil) nil))) |
| 5655 | 5656 |
| 5656 ((eq what 'class) | 5657 ((eq what 'class) |
| 5657 (list nil-list nil-list 'class nil-list nil)) | 5658 (list nil-list nil-list 'class nil-list nil)) |
| 5658 | 5659 |
| 5659 (t (error "Illegal value for WHAT"))))) | 5660 (t (error "Invalid value for WHAT"))))) |
| 5660 | 5661 |
| 5661 (defun idlwave-completing-read (&rest args) | 5662 (defun idlwave-completing-read (&rest args) |
| 5662 ;; Completing read, case insensitive | 5663 ;; Completing read, case insensitive |
| 5663 (let ((old-value (default-value 'completion-ignore-case))) | 5664 (let ((old-value (default-value 'completion-ignore-case))) |
| 5664 (unwind-protect | 5665 (unwind-protect |