/[emacs]/emacs/lisp/emacs-lisp/easy-mmode.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/easy-mmode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.55 by rms, Tue Nov 2 09:23:34 2004 UTC revision 1.56 by lute, Thu Mar 31 14:49:09 2005 UTC
# Line 1  Line 1 
1  ;;; easy-mmode.el --- easy definition for major and minor modes  ;;; easy-mmode.el --- easy definition for major and minor modes
2    
3  ;; Copyright (C) 1997,2000,01,02,03,2004  Free Software Foundation, Inc.  ;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004, 2005
4    ;;   Free Software Foundation, Inc.
5    
6  ;; Author: Georges Brun-Cottan <Georges.Brun-Cottan@inria.fr>  ;; Author: Georges Brun-Cottan <Georges.Brun-Cottan@inria.fr>
7  ;; Maintainer: Stefan Monnier <monnier@gnu.org>  ;; Maintainer: Stefan Monnier <monnier@gnu.org>
# Line 152  For example, you could write Line 153  For example, you could write
153      (unless group      (unless group
154        ;; We might as well provide a best-guess default group.        ;; We might as well provide a best-guess default group.
155        (setq group        (setq group
156              `(:group ',(or (custom-current-group)              `(:group (or (custom-current-group)
157                             (intern (replace-regexp-in-string                           ',(intern (replace-regexp-in-string
158                                      "-mode\\'" "" mode-name))))))                                      "-mode\\'" "" mode-name))))))
159    
160      `(progn      `(progn
# Line 278  KEYS is a list of CL-style keyword argum Line 279  KEYS is a list of CL-style keyword argum
279      (unless group      (unless group
280        ;; We might as well provide a best-guess default group.        ;; We might as well provide a best-guess default group.
281        (setq group        (setq group
282              `(:group ',(or (custom-current-group)              `(:group (or (custom-current-group)
283                             (intern (replace-regexp-in-string                           ',(intern (replace-regexp-in-string
284                                      "-mode\\'" "" (symbol-name mode)))))))                                      "-mode\\'" "" (symbol-name mode)))))))
285    
286      `(progn      `(progn

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26