/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

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

revision 1.291 by pj, Mon Mar 11 13:31:50 2002 UTC revision 1.292 by gerd, Sun Mar 24 19:46:58 2002 UTC
# Line 1  Line 1 
1  ;;; subr.el --- basic lisp subroutines for Emacs  ;;; subr.el --- basic lisp subroutines for Emacs
2    
3  ;; Copyright (C) 1985, 86, 92, 94, 95, 99, 2000, 2001  ;; Copyright (C) 1985, 86, 92, 94, 95, 99, 2000, 2001, 2002
4  ;;   Free Software Foundation, Inc.  ;;   Free Software Foundation, Inc.
5    
6  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
# Line 32  Each element of this list holds the argu Line 32  Each element of this list holds the argu
32  (defun custom-declare-variable-early (&rest arguments)  (defun custom-declare-variable-early (&rest arguments)
33    (setq custom-declare-variable-list    (setq custom-declare-variable-list
34          (cons arguments custom-declare-variable-list)))          (cons arguments custom-declare-variable-list)))
35    
36    
37    (defun macro-declaration-function (macro decl)
38      "Process a declaration found in a macro definition.
39    This is set as the value of the variable `macro-declaration-function'.
40    MACRO is the name of the macro being defined.
41    DECL is a list `(declare ...)' containing the declarations.
42    The return value of this function is not used."
43      (dolist (d (cdr decl))
44        (cond ((and (consp d) (eq (car d) 'indent))
45               (put macro 'lisp-indent-function (cadr d)))
46              ((and (consp d) (eq (car d) 'debug))
47               (put macro 'edebug-form-spec (cadr d)))
48              (t
49               (message "Unknown declaration %s" d)))))
50    
51    (setq macro-declaration-function 'macro-declaration-function)
52    
53    
54  ;;;; Lisp language features.  ;;;; Lisp language features.
55    

Legend:
Removed from v.1.291  
changed lines
  Added in v.1.292

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