mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(subsetp, tree-equal): Doc fixes.

Browse Source
This commit is contained in:
Juanma Barranquero 2005-05-17 00:28:50 +00:00
parent 4342e957a2
commit 213233f006
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,5 +1,10 @@
2005-05-17 Juanma Barranquero <lekktu@gmail.com>
* emacs-lisp/cl.el (eql, floatp-safe, plusp, minusp, oddp)
(evenp, list*):
* emacs-lisp/cl-macs.el (macrolet, symbol-macrolet):
* emacs-lisp/cl-seq.el (subsetp, tree-equal): Doc fixes.
* net/tramp-smb.el (tramp-smb-open-connection):
Pass `tramp-chunksize' as fifth (required) argument.

4
lisp/emacs-lisp/cl-seq.el
View File

@ -800,7 +800,7 @@ Keywords supported: :test :test-not :key"
(apply 'nset-difference cl-list2 cl-list1 cl-keys)))))
(defun subsetp (cl-list1 cl-list2 &rest cl-keys)
"True if LIST1 is a subset of LIST2.
"Return true if LIST1 is a subset of LIST2.
I.e., if every element of LIST1 also appears in LIST2.
Keywords supported: :test :test-not :key"
(cond ((null cl-list1) t) ((null cl-list2) nil)
@ -888,7 +888,7 @@ Keywords supported: :test :test-not :key"
(setq cl-tree (cdr cl-tree))))))
(defun tree-equal (cl-x cl-y &rest cl-keys)
"T if trees X and Y have `eql' leaves.
"Return t if trees X and Y have `eql' leaves.
Atoms are compared by `eql'; cons cells are compared recursively.
Keywords supported: :test :test-not :key"
(cl-parsing-keywords (:test :test-not :key) ()