Mercurial > emacs
changeset 28995:93c16141d107
(ada-mode, ada-create-case-exception): Don't quote lambdas.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 19 May 2000 21:40:45 +0000 |
| parents | 0388cb689633 |
| children | 679eb595bbc0 |
| files | lisp/progmodes/ada-mode.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/ada-mode.el Fri May 19 21:36:14 2000 +0000 +++ b/lisp/progmodes/ada-mode.el Fri May 19 21:40:45 2000 +0000 @@ -6,7 +6,7 @@ ;; Markus Heritsch <Markus.Heritsch@studbox.uni-stuttgart.de> ;; Emmanuel Briot <briot@gnat.com> ;; Maintainer: Emmanuel Briot <briot@gnat.com> -;; Ada Core Technologies's version: $Revision: 1.70 $ +;; Ada Core Technologies's version: $Revision: 1.31 $ ;; Keywords: languages ada ;; This file is not part of GNU Emacs @@ -926,7 +926,7 @@ ;; Support for compile.el ;; We just substitute our own functions to go to the error. (add-hook 'compilation-mode-hook - '(lambda() + (lambda() (set 'compile-auto-highlight 40) (define-key compilation-minor-mode-map [mouse-2] 'ada-compile-mouse-goto-error) @@ -973,7 +973,7 @@ (concat "^\\(private[ \t]\\)?[ \t]*package[ \t]+" "\\(body[ \t]+\\)?" "\\(\\(\\sw\\|[_.]\\)+\\)\\.\\(\\sw\\|_\\)+[ \t\n]+is")) - '(lambda () + (lambda () (set 'fname (ff-get-file ff-search-directories (ada-make-filename-from-adaname @@ -983,7 +983,7 @@ ;; go to the correct package. (add-to-list 'ff-special-constructs (cons "^separate[ \t\n]*(\\(\\(\\sw\\|[_.]\\)+\\))" - '(lambda () + (lambda () (set 'fname (ff-get-file ff-search-directories (ada-make-filename-from-adaname @@ -993,7 +993,7 @@ ;; old one can handle only one possible type of extension for Ada files (add-to-list 'ff-special-constructs (cons "^with[ \t]+\\([a-zA-Z0-9_\\.]+\\)" - '(lambda () + (lambda () (set 'fname (ff-get-file ff-search-directories (ada-make-filename-from-adaname @@ -1032,7 +1032,7 @@ (add-hook 'local-write-file-hooks 'ada-remove-trailing-spaces) ;; convert all tabs to the correct number of spaces. (add-hook 'local-write-file-hooks - '(lambda () (untabify (point-min) (point-max)))))) + (lambda () (untabify (point-min) (point-max)))))) (run-hooks 'ada-mode-hook) @@ -1131,7 +1131,7 @@ ;; Save the list in the file (find-file (expand-file-name ada-case-exception-file)) (erase-buffer) - (mapcar '(lambda (x) (insert (car x) (nth 1 x) "\n")) + (mapcar (lambda (x) (insert (car x) (nth 1 x) "\n")) (sort exception-list (lambda(a b) (string< (car a) (car b))))) (save-buffer)