1466 |
;; If the word is already in the list, even with a different casing |
;; If the word is already in the list, even with a different casing |
1467 |
;; we simply want to replace it. |
;; we simply want to replace it. |
1468 |
(if (and (not (equal ada-case-exception '())) |
(if (and (not (equal ada-case-exception '())) |
1469 |
(assoc-ignore-case word ada-case-exception)) |
(assoc-string word ada-case-exception t)) |
1470 |
(setcar (assoc-ignore-case word ada-case-exception) word) |
(setcar (assoc-string word ada-case-exception t) word) |
1471 |
(add-to-list 'ada-case-exception (cons word t)) |
(add-to-list 'ada-case-exception (cons word t)) |
1472 |
) |
) |
1473 |
|
|
1519 |
;; If the word is already in the list, even with a different casing |
;; If the word is already in the list, even with a different casing |
1520 |
;; we simply want to replace it. |
;; we simply want to replace it. |
1521 |
(if (and (not (equal ada-case-exception-substring '())) |
(if (and (not (equal ada-case-exception-substring '())) |
1522 |
(assoc-ignore-case word ada-case-exception-substring)) |
(assoc-string word ada-case-exception-substring t)) |
1523 |
(setcar (assoc-ignore-case word ada-case-exception-substring) word) |
(setcar (assoc-string word ada-case-exception-substring t) word) |
1524 |
(add-to-list 'ada-case-exception-substring (cons word t)) |
(add-to-list 'ada-case-exception-substring (cons word t)) |
1525 |
) |
) |
1526 |
|
|
1548 |
(if (char-equal (string-to-char word) ?*) |
(if (char-equal (string-to-char word) ?*) |
1549 |
(progn |
(progn |
1550 |
(setq word (substring word 1)) |
(setq word (substring word 1)) |
1551 |
(unless (assoc-ignore-case word ada-case-exception-substring) |
(unless (assoc-string word ada-case-exception-substring t) |
1552 |
(add-to-list 'ada-case-exception-substring (cons word t)))) |
(add-to-list 'ada-case-exception-substring (cons word t)))) |
1553 |
(unless (assoc-ignore-case word ada-case-exception) |
(unless (assoc-string word ada-case-exception t) |
1554 |
(add-to-list 'ada-case-exception (cons word t))))) |
(add-to-list 'ada-case-exception (cons word t))))) |
1555 |
|
|
1556 |
(forward-line 1)) |
(forward-line 1)) |
1618 |
(point))) |
(point))) |
1619 |
match) |
match) |
1620 |
;; If we have an exception, replace the word by the correct casing |
;; If we have an exception, replace the word by the correct casing |
1621 |
(if (setq match (assoc-ignore-case (buffer-substring start end) |
(if (setq match (assoc-string (buffer-substring start end) |
1622 |
ada-case-exception)) |
ada-case-exception t)) |
1623 |
|
|
1624 |
(progn |
(progn |
1625 |
(delete-region start end) |
(delete-region start end) |