mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

(ewoc-set-data): New func.

Browse source
This commit is contained in:
Thien-Thi Nguyen 2006-05-22 05:41:48 +00:00
parent ccd97b5616
commit bb8d35a25e
2 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,15 +1,19 @@
2006-05-22 Thien-Thi Nguyen <ttn@gnu.org>
* emacs-lisp/ewoc.el (ewoc-set-data): New function.
2006-05-21 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de> 2006-05-21 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
* textmodes/bibtex.el (bibtex-maintain-sorted-entries): Mark as * textmodes/bibtex.el (bibtex-maintain-sorted-entries): Mark as
safe. safe.
* progmodes/make-mode.el (makefile-special-targets-list) * progmodes/make-mode.el (makefile-special-targets-list)
(makefile-macro-table, makefile-target-table): Mark as risky. (makefile-macro-table, makefile-target-table): Mark as risky.
(makefile-query-one-target-method): Make this the alias for the (makefile-query-one-target-method): Make this the alias for the
following variable. following variable.
(makefile-query-one-target-method-function): Make this the real (makefile-query-one-target-method-function): Make this the real
name. name.
* textmodes/artist.el (artist-text-renderer): Make this the alias * textmodes/artist.el (artist-text-renderer): Make this the alias
for the following variable. for the following variable.
(artist-text-renderer-function): Make this the real name. (artist-text-renderer-function): Make this the real name.

5
lisp/emacs-lisp/ewoc.el
View file

@ -96,6 +96,7 @@
;; ;;
;; (defun ewoc-create (pretty-printer &optional header footer) ;; (defun ewoc-create (pretty-printer &optional header footer)
;; (defalias 'ewoc-data 'ewoc--node-data) ;; (defalias 'ewoc-data 'ewoc--node-data)
;; (defun ewoc-set-data (node data)
;; (defun ewoc-location (node) ;; (defun ewoc-location (node)
;; (defun ewoc-enter-first (ewoc data) ;; (defun ewoc-enter-first (ewoc data)
;; (defun ewoc-enter-last (ewoc data) ;; (defun ewoc-enter-last (ewoc data)
@ -296,6 +297,10 @@ respectively, of the ewoc."
\(fn NODE)") \(fn NODE)")
(defun ewoc-set-data (node data)
"Set NODE to encapsulate DATA."
(setf (ewoc--node-data node) data))
(defun ewoc-enter-first (ewoc data) (defun ewoc-enter-first (ewoc data)
"Enter DATA first in EWOC. "Enter DATA first in EWOC.
Return the new node." Return the new node."