[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#2951: Suggestion: self-evaluating-p function
From: |
Ralph Schleicher |
Subject: |
bug#2951: Suggestion: self-evaluating-p function |
Date: |
Fri, 10 Apr 2009 23:31:07 +0200 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.3 (gnu/linux) |
I would like to have a 'self-evaluating-p' function in Emacs to check
whether or not a value has to be quoted.
Please find attached a patch with an example implementation together
with ChangeLog entries and documentation.
diff -u emacs-22.3/lisp/ChangeLog.orig emacs-22.3/lisp/ChangeLogyes
--- emacs-22.3/lisp/ChangeLog.orig 2008-09-05 18:12:23.000000000 +0200
+++ emacs-22.3/lisp/ChangeLog 2009-04-10 22:52:48.000000000 +0200
@@ -1,3 +1,7 @@
+2009-04-10 Ralph Schleicher <rs@ralph-schleicher.de>
+
+ * subr.el (self-evaluating-p): New function.
+
2008-09-05 Chong Yidong <cyd@stupidchicken.com>
* Version 22.3 released.
diff -u emacs-22.3/lisp/subr.el.orig emacs-22.3/lisp/subr.el
--- emacs-22.3/lisp/subr.el.orig 2008-09-02 17:15:26.000000000 +0200
+++ emacs-22.3/lisp/subr.el 2009-04-10 22:51:26.000000000 +0200
@@ -185,6 +185,19 @@
(while t
(signal 'error (list (apply 'format args)))))
+(defun self-evaluating-p (object)
+ "Return t if OBJECT is a self-evaluating form.
+That means OBJECT is neither a symbol nor a list except for
+nil (which is a symbol and a list), t (which is a symbol),
+keywords (which are symbols), and lambda expressions (which
+are lists)."
+ (if (symbolp object)
+ (or (eq object nil)
+ (eq object t)
+ (keywordp object))
+ (or (atom object)
+ (eq (car object) 'lambda))))
+
;; We put this here instead of in frame.el so that it's defined even on
;; systems where frame.el isn't loaded.
(defun frame-configuration-p (object)
diff -u emacs-22.3/lispref/ChangeLog.orig emacs-22.3/lispref/ChangeLog
--- emacs-22.3/lispref/ChangeLog.orig 2008-09-05 18:12:32.000000000 +0200
+++ emacs-22.3/lispref/ChangeLog 2009-04-10 22:52:32.000000000 +0200
@@ -1,3 +1,7 @@
+2009-04-10 Ralph Schleicher <rs@ralph-schleicher.de>
+
+ * eval.texi (Self-Evaluating Forms): Add self-evaluating-p.
+
2008-09-05 Chong Yidong <cyd@stupidchicken.com>
* Version 22.3 released.
diff -u emacs-22.3/lispref/eval.texi.orig emacs-22.3/lispref/eval.texi
--- emacs-22.3/lispref/eval.texi.orig 2008-01-07 09:49:06.000000000 +0100
+++ emacs-22.3/lispref/eval.texi 2009-04-10 22:43:34.000000000 +0200
@@ -178,6 +178,36 @@
@end group
@end example
+@defun self-evaluating-p object
+This function returns @code{t} if @var{object} is a self-evaluating
+form. That means, @var{object} is neither a symbol nor a list except
+for @code{nil} (which is a symbol and a list), @code{t} (which is a
+symbol), keywords (which are symbols), and lambda expressions (which
+are lists). @xref{Constant Variables}, and @ref{Lambda Expressions},
+for more information.
+@end defun
+
+ Please note that @code{self-evaluating-p} only flags those symbols
+as self-evaluating forms where the result does not depend on scope.
+
+@example
+@group
+(setq foo 1)
+ @result{} 1
+(self-evaluating-p 'foo)
+ @result{} nil
+(let ((foo 'foo))
+ (self-evaluating-p 'foo))
+ @result{} nil
+;; @r{Likewise with @code{eq}.}
+(eq 'foo foo)
+ @result{} nil
+(let ((foo 'foo))
+ (eq 'foo foo))
+ @result{} t
+@end group
+@end example
+
@node Symbol Forms
@subsection Symbol Forms
@cindex symbol evaluation
--
Ralph
- bug#2951: Suggestion: self-evaluating-p function,
Ralph Schleicher <=