diff options
Diffstat (limited to 'lisp/progmodes/delphi.el')
| -rw-r--r-- | lisp/progmodes/delphi.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/progmodes/delphi.el b/lisp/progmodes/delphi.el index 2558456bc07..77d88e5a812 100644 --- a/lisp/progmodes/delphi.el +++ b/lisp/progmodes/delphi.el @@ -1779,7 +1779,7 @@ If no extension is specified, .pas is assumed. Creates a buffer for the unit." (if (null file) (error "unit not found: %s" unit-file) (find-file file) - (if (not (eq major-mode 'delphi-mode)) + (if (not (derived-mode-p 'delphi-mode)) (delphi-mode))) file)) @@ -2015,7 +2015,7 @@ no args, if that value is non-nil." (interactive) (kill-all-local-variables) (use-local-map delphi-mode-map) - (setq major-mode 'delphi-mode) + (setq major-mode 'delphi-mode) ;FIXME: Use define-derived-mode. (setq mode-name "Delphi") (setq local-abbrev-table delphi-mode-abbrev-table) @@ -2025,8 +2025,7 @@ no args, if that value is non-nil." (mapc #'(lambda (var) (let ((var-symb (car var)) (var-val (cadr var))) - (make-local-variable var-symb) - (set var-symb var-val))) + (set (make-local-variable var-symb) var-val))) (list '(indent-line-function delphi-indent-line) '(comment-indent-function delphi-indent-line) '(case-fold-search t) |