Mercurial > hg > xemacs-beta
comparison lisp/subr.el @ 4905:755ae5b97edb
Change "special form" to "special operator" in our sources.
Add a compatible function alias, and the relevant manual index entries.
src/ChangeLog addition:
2010-01-31 Aidan Kehoe <kehoea@parhasard.net>
* symbols.c (Fspecial_operator_p, syms_of_symbols):
* eval.c (print_subr, Finteractive_p, Ffuncall)
(Ffunction_min_args, Ffunction_max_args, vars_of_eval):
* editfns.c:
* data.c (Fsubr_max_args):
* doc.c (Fbuilt_in_symbol_file):
Change "special form" to "special operator" in our sources.
man/ChangeLog addition:
2010-01-31 Aidan Kehoe <kehoea@parhasard.net>
* xemacs/programs.texi (Defuns):
* lispref/variables.texi (Local Variables, Defining Variables)
(Setting Variables, Default Value):
* lispref/symbols.texi (Definitions):
* lispref/searching.texi (Saving Match Data):
* lispref/positions.texi (Excursions, Narrowing):
* lispref/objects.texi (Primitive Function Type):
* lispref/macros.texi (Defining Macros, Backquote):
* lispref/lispref.texi (Top):
* lispref/intro.texi (A Sample Function Description):
* lispref/help.texi (Help Functions):
* lispref/functions.texi (What Is a Function, Simple Lambda)
(Defining Functions, Calling Functions, Anonymous Functions):
* lispref/frames.texi (Input Focus):
* lispref/eval.texi (Forms, Function Indirection)
(Special Operators, Quoting):
* lispref/edebug-inc.texi (Instrumenting)
(Specification Examples):
* lispref/debugging.texi (Internals of Debugger):
* lispref/control.texi (Control Structures, Sequencing):
(Conditionals, Combining Conditions, Iteration):
(Catch and Throw, Handling Errors):
* lispref/commands.texi (Defining Commands, Using Interactive):
Terminology change; special operator -> special form.
Don't attempt to change this in texinfo.texi or cl.texi, which use
macros I don't understand.
* lispref/macros.texi (Defining Macros): Give an anonymous macro
example here.
* lispref/positions.texi (Excursions):
Correct some documentation that called a couple of macros special
forms.
* lispref/searching.texi (Saving Match Data):
Drop some documentation of how to write code that works with Emacs
18.
* lispref/specifiers.texi (Adding Specifications):
Correct this; #'let-specifier is a macro, not a special operator.
* lispref/windows.texi (Window Configurations)
(Selecting Windows):
Correct this, #'save-selected-window and #'save-window-excursion
are macros, not special operators.
lisp/ChangeLog addition:
2010-01-31 Aidan Kehoe <kehoea@parhasard.net>
* obsolete.el:
* loadhist.el (symbol-file):
* help.el (describe-function-1):
* bytecomp.el: (byte-compile-save-current-buffer):
* byte-optimize.el (byte-optimize-form-code-walker):
* subr.el (subr-arity):
Change "special form" to "special operator" in these files, it's
the more logical term.
* subr.el (special-form-p): Provide this alias for
#'special-operator-p.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 31 Jan 2010 20:28:01 +0000 |
| parents | 0142cb4d1049 |
| children | 788c38f20376 |
comparison
equal
deleted
inserted
replaced
| 4904:e91e3e353805 | 4905:755ae5b97edb |
|---|---|
| 216 (define-function 'search-forward-regexp (symbol-function 're-search-forward)) | 216 (define-function 'search-forward-regexp (symbol-function 're-search-forward)) |
| 217 (define-function 'search-backward-regexp (symbol-function 're-search-backward)) | 217 (define-function 'search-backward-regexp (symbol-function 're-search-backward)) |
| 218 (define-function 'remove-directory 'delete-directory) | 218 (define-function 'remove-directory 'delete-directory) |
| 219 (define-function 'set-match-data 'store-match-data) | 219 (define-function 'set-match-data 'store-match-data) |
| 220 (define-function 'send-string-to-terminal 'external-debugging-output) | 220 (define-function 'send-string-to-terminal 'external-debugging-output) |
| 221 (define-function 'special-form-p 'special-operator-p) | |
| 221 | 222 |
| 222 ;; XEmacs: | 223 ;; XEmacs: |
| 223 (defun local-variable-if-set-p (sym buffer) | 224 (defun local-variable-if-set-p (sym buffer) |
| 224 "Return t if SYM would be local to BUFFER after it is set. | 225 "Return t if SYM would be local to BUFFER after it is set. |
| 225 A nil value for BUFFER is *not* the same as (current-buffer), but | 226 A nil value for BUFFER is *not* the same as (current-buffer), but |
| 1761 (defun subr-arity (subr) | 1762 (defun subr-arity (subr) |
| 1762 "Return minimum and maximum number of args allowed for SUBR. | 1763 "Return minimum and maximum number of args allowed for SUBR. |
| 1763 SUBR must be a built-in function (not just a symbol that refers to one). | 1764 SUBR must be a built-in function (not just a symbol that refers to one). |
| 1764 The returned value is a pair (MIN . MAX). MIN is the minimum number | 1765 The returned value is a pair (MIN . MAX). MIN is the minimum number |
| 1765 of args. MAX is the maximum number or the symbol `many', for a | 1766 of args. MAX is the maximum number or the symbol `many', for a |
| 1766 function with `&rest' args, or `unevalled' for a special form. | 1767 function with `&rest' args, or `unevalled' for a special operator. |
| 1767 | 1768 |
| 1768 See also `special-form-p', `subr-min-args', `subr-max-args', | 1769 See also `special-operator-p', `subr-min-args', `subr-max-args', |
| 1769 `function-allows-args'. " | 1770 `function-allows-args'. " |
| 1770 (check-argument-type #'subrp subr) | 1771 (check-argument-type #'subrp subr) |
| 1771 (cons (subr-min-args subr) | 1772 (cons (subr-min-args subr) |
| 1772 (cond | 1773 (cond |
| 1773 ((special-form-p subr) | 1774 ((special-operator-p subr) |
| 1774 'unevalled) | 1775 'unevalled) |
| 1775 ((null (subr-max-args subr)) | 1776 ((null (subr-max-args subr)) |
| 1776 'many) | 1777 'many) |
| 1777 (t (subr-max-args subr))))) | 1778 (t (subr-max-args subr))))) |
| 1778 | 1779 |