From 5eee025da05da32f26f40fed447552f0655acc8b Mon Sep 17 00:00:00 2001 From: Lute Kamstra Date: Tue, 5 Apr 2005 18:32:59 +0000 Subject: [PATCH] (generic-mode-internal): Fix 2005-03-31 change. (define-generic-mode): Ditto. Fix debug declaration. --- lisp/generic.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/generic.el b/lisp/generic.el index 02dc2d461e8..bd3a41e4e66 100644 --- a/lisp/generic.el +++ b/lisp/generic.el @@ -226,7 +226,7 @@ You can specify keyword arguments without specifying a docstring. See the file generic-x.el for some examples of `define-generic-mode'." (declare (debug (sexp def-form def-form def-form form def-form - &optional stringp)) + [&optional stringp] &rest [keywordp form])) (indent 1)) ;; Backward compatibility. @@ -239,20 +239,20 @@ See the file generic-x.el for some examples of `define-generic-mode'." (push docstring custom-keyword-args) (setq docstring nil)) - (let* ((mode-name (symbol-name mode)) + (let* ((name (symbol-name mode)) (pretty-name (capitalize (replace-regexp-in-string - "-mode\\'" "" mode-name))) - (mode-hook (intern (concat mode-name "-hook")))) + "-mode\\'" "" name))) + (mode-hook (intern (concat name "-hook")))) (unless (plist-get custom-keyword-args :group) (setq custom-keyword-args (plist-put custom-keyword-args :group `',(intern (replace-regexp-in-string - "-mode\\'" "" mode-name))))) + "-mode\\'" "" name))))) `(progn ;; Add a new entry. - (add-to-list 'generic-mode-list ,mode-name) + (add-to-list 'generic-mode-list ,name) ;; Add it to auto-mode-alist (dolist (re ,auto-mode-list) @@ -275,10 +275,10 @@ See the file generic-x.el for some examples of `define-generic-mode'." (defun generic-mode-internal (mode comment-list keyword-list font-lock-list function-list) "Go into the generic mode MODE." - (let* ((mode-name (symbol-name mode)) + (let* ((name (symbol-name mode)) (pretty-name (capitalize (replace-regexp-in-string - "-mode\\'" "" mode-name))) - (mode-hook (intern (concat mode-name "-hook")))) + "-mode\\'" "" name))) + (mode-hook (intern (concat name "-hook")))) (kill-all-local-variables) -- 2.39.5