X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fcl-extra.el;h=cac76f9ab40e34e533199aca776fc79cb09bd9f8;hp=ea99b9d47249a7272b510c241efcd8ce8900ac7c;hb=716cfba952c1dc0d2cf5c968971f3780ba728a89;hpb=d74da9234cc42e8018b1500105c3892a5c46d5e3

diff --git a/lisp/cl-extra.el b/lisp/cl-extra.el
index ea99b9d..cac76f9 100644
--- a/lisp/cl-extra.el
+++ b/lisp/cl-extra.el
@@ -639,12 +639,11 @@ argument VECP, this copies vectors as well as conses."
 ;; XEmacs: our `get' groks DEFAULT.
 (defalias 'get* 'get)
 
-(defun getf (plist tag &optional def)
-  "Search PROPLIST for property PROPNAME; return its value or DEFAULT.
-PROPLIST is a list of the sort returned by `symbol-plist'."
+(defun getf (plist property &optional default)
+  "Search PLIST for property PROPERTY; return its value or DEFAULT.
+PLIST is a list of the sort returned by `symbol-plist'."
   (setplist '--cl-getf-symbol-- plist)
-  (or (get '--cl-getf-symbol-- tag)
-      (and def (get* '--cl-getf-symbol-- tag def))))
+  (get '--cl-getf-symbol-- property default))
 
 (defun cl-set-getf (plist tag val)
   (let ((p plist))