diff options
| author | Dan Nicolaescu <[email protected]> | 2007-10-31 06:28:09 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <[email protected]> | 2007-10-31 06:28:09 +0000 |
| commit | 91dd4dc44291d513b64ee95736c0b1dbd519bd82 (patch) | |
| tree | 254c41df95ab1b66ba0c8aefdf275e5b50869355 /lisp/progmodes/simula.el | |
| parent | 2c3a09b1ac5070ffe0371c7ca9ea1bcf4f462237 (diff) | |
* progmodes/mixal-mode.el (mixal-run, mixal-debug): Call mixvm
only if it is bound.
* textmodes/reftex.el: Move autoloads for before all uses.
(reftex-make-overlay, reftex-overlay-put, reftex-move-overlay)
(reftex-delete-overlay): Move to the top level with the condition
in the body.
* progmodes/simula.el: Use when instead of if.
* iimage.el (iimage-locate-file): Define unconditionally.
* mail/mailabbrev.el (mail-abbrev-next-line):
* emulation/vip.el (vip-enlarge-region, vip-line)
(vip-next-line-at-bol, vip-previous-line)
(vip-previous-line-at-bol, vip-find-char, vip-put-back, ex-read):
Wrap with-no-warnings around uses of next-line and previous-line.
* ediff.el (run-ediff-from-cvs-buffer):
* ediff-vers.el (cvs-run-ediff-on-file-descriptor): Remove
function not used by pcl-cvs anymore.
(noninteractive, generic-sc-get-latest-rev)
(ediff-generic-sc-internal, ediff-generic-sc-merge-internal):
Delete support for long obsolete generic-sc.el.
Diffstat (limited to 'lisp/progmodes/simula.el')
| -rw-r--r-- | lisp/progmodes/simula.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el index db5d6552c8..e0b04cfebe 100644 --- a/lisp/progmodes/simula.el +++ b/lisp/progmodes/simula.el @@ -1615,9 +1615,9 @@ If not nil and not t, move to limit of search and return nil." (simula-install-standard-abbrevs)) ;; Hilit mode support. -(if (and (fboundp 'hilit-set-mode-patterns) - (boundp 'hilit-patterns-alist) - (not (assoc 'simula-mode hilit-patterns-alist))) +(when (fboundp 'hilit-set-mode-patterns) + (when (and (boundp 'hilit-patterns-alist) + (not (assoc 'simula-mode hilit-patterns-alist))) (hilit-set-mode-patterns 'simula-mode '( @@ -1626,7 +1626,7 @@ If not nil and not t, move to limit of search and return nil." ("\"[^\"\n]*\"\\|'.'\\|'![0-9]+!'" nil string) ("\\<\\(ACTIVATE\\|AFTER\\|AND\\|ARRAY\\|AT\\|BEFORE\\|BEGIN\\|BOOLEAN\\|CHARACTER\\|CLASS\\|DELAY\\|DO\\|ELSE\\|END\\|EQ\\|EQV\\|EXTERNAL\\|FALSE\\|FOR\\|GE\\|GO\\|GOTO\\|GT\\|HIDDEN\\|IF\\|IMP\\|IN\\|INNER\\|INSPECT\\|INTEGER\\|IS\\|LABEL\\|LE\\|LONG\\|LT\\|NAME\\|NE\\|NEW\\|NONE\\|NOT\\|NOTEXT\\|OR\\|OTHERWISE\\|PRIOR\\|PROCEDURE\\|PROTECTED\\|QUA\\|REACTIVATE\\|REAL\\|REF\\|SHORT\\|STEP\\|SWITCH\\|TEXT\\|THEN\\|THIS\\|TO\\|TRUE\\|UNTIL\\|VALUE\\|VIRTUAL\\|WHEN\\|WHILE\\)\\>" nil keyword) ("!\\|\\<COMMENT\\>" ";" comment)) - nil 'case-insensitive)) + nil 'case-insensitive))) ;; defuns for submitting bug reports |