Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
9ffe3f52
Commit
9ffe3f52
authored
Oct 01, 2009
by
Glenn Morris
Browse files
Doc/message fixes.
parent
d8edf09f
Changes
7
Hide whitespace changes
Inline
Side-by-side
Showing
7 changed files
with
39 additions
and
30 deletions
+39
-30
lisp/ChangeLog
lisp/ChangeLog
+9
-0
lisp/emacs-lisp/chart.el
lisp/emacs-lisp/chart.el
+5
-5
lisp/emacs-lisp/eieio-comp.el
lisp/emacs-lisp/eieio-comp.el
+4
-4
lisp/emacs-lisp/eieio-datadebug.el
lisp/emacs-lisp/eieio-datadebug.el
+3
-3
lisp/emacs-lisp/eieio-opt.el
lisp/emacs-lisp/eieio-opt.el
+4
-4
lisp/emacs-lisp/eieio-speedbar.el
lisp/emacs-lisp/eieio-speedbar.el
+5
-5
lisp/emacs-lisp/eieio.el
lisp/emacs-lisp/eieio.el
+9
-9
No files found.
lisp/ChangeLog
View file @
9ffe3f52
2009-10-01 Glenn Morris <rgm@gnu.org>
* emacs-lisp/chart.el (chart-zap-chars, chart-bar-quickie)
(chart-file-count):
* emacs-lisp/eieio-comp.el (byte-compile-defmethod-param-convert):
* emacs-lisp/eieio-datadebug.el (data-debug-insert-object-button):
* emacs-lisp/eieio-opt.el (eieio-describe-class):
* emacs-lisp/eieio-speedbar.el (eieio-speedbar-create):
* emacs-lisp/eieio.el (defclass, eieio-defclass-autoload)
(eieio-copy-parents-into-subclass, make-instance, class-children)
(eieio-generic-form):
* cedet/cedet-files.el (cedet-directory-name-to-file-name):
* cedet/cedet-idutils.el (cedet-idutils-search)
(cedet-idutils-expand-filename, cedet-idutils-support-for-directory)
...
...
lisp/emacs-lisp/chart.el
View file @
9ffe3f52
;;; chart.el --- Draw charts (bar charts, etc)
;;
;
Copyright (C) 1996, 1998, 1999, 2001, 2004, 2005, 2007, 2008, 2009
;;
;
Free Software Foundation, Inc.
;; Copyright (C) 1996, 1998, 1999, 2001, 2004, 2005, 2007, 2008, 2009
;;
Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Version: 0.2
...
...
@@ -528,7 +528,7 @@ cons cells of the form (NAME . NUM). See SORT for more details."
(
remove-text-properties
p
(
point
)
'
(
face
))))))
(
defun
chart-zap-chars
(
n
)
"Zap up to N chars without delet
et
ing EOLs."
"Zap up to N chars without deleting EOLs."
(
if
(
not
(
eobp
))
(
if
(
<
n
(
-
(
save-excursion
(
end-of-line
)
(
point
))
(
point
)))
(
delete-char
n
)
...
...
@@ -579,7 +579,7 @@ R1 and R2 are dotted pairs. Colorize it with FACE."
(defun chart-bar-quickie (dir title namelst nametitle numlst numtitle
&optional max sort-pred)
"Wash over the complex eieio stuff and create a nice bar chart.
Creat it going in direction DIR ['horizontal 'vertical] with TITLE
Creat
e
it going in direction DIR ['horizontal 'vertical] with TITLE
using a name sequence NAMELST labeled NAMETITLE with values NUMLST
labeled NUMTITLE.
Optional arguments:
...
...
@@ -619,7 +619,7 @@ SORT-PRED if desired."
;;; Sample utility function
(defun chart-file-count (dir)
"Draw a chart displaying the number of different file exten
t
ions in DIR."
"Draw a chart displaying the number of different file exten
s
ions in DIR."
(interactive "DDirectory: ")
(if (not (string-match "/$" dir))
(setq dir (concat dir "/")))
...
...
lisp/emacs-lisp/eieio-comp.el
View file @
9ffe3f52
;;; eieio-comp.el -- eieio routines to help with byte compilation
;;
;
Copyright (C) 1995,1996, 1998, 1999, 2000, 2001, 2002, 2005, 2008,
;;
;
2009 Free Software Foundation, Inc.
;; Copyright (C) 1995,1996, 1998, 1999, 2000, 2001, 2002, 2005, 2008,
;;
2009
Free Software Foundation, Inc.
;; Author: Eric M. Ludlam
<zappo@gnu.org>
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Version: 0.2
;; Keywords: oop, lisp, tools
...
...
@@ -126,7 +126,7 @@ that is called but rarely. Argument FORM is the body of the method."
(
defun
byte-compile-defmethod-param-convert
(
paramlist
)
"Convert method params into the params used by the defmethod thingy.
Argument PARAMLIST is the paramter list to convert."
Argument PARAMLIST is the param
e
ter list to convert."
(
let
((
argfix
nil
))
(
while
paramlist
(
setq
argfix
(
cons
(
if
(
listp
(
car
paramlist
))
...
...
lisp/emacs-lisp/eieio-datadebug.el
View file @
9ffe3f52
;;; eieio-datadebug.el --- EIEIO extensions to the data debugger.
;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc.
;; Copyright (C) 2007, 2008, 2009
Free Software Foundation, Inc.
;; Author: Eric M. Ludlam
<zappo@gnu.org>
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Keywords: OO, lisp
;; This file is part of GNU Emacs.
...
...
@@ -51,7 +51,7 @@ PREFIX specifies what to insert at the start of each line."
(
defun
data-debug-insert-object-button
(
object
prefix
prebuttontext
)
"Insert a button representing OBJECT.
PREFIX is the text that prece
e
ds the button.
PREFIX is the text that preced
e
s the button.
PREBUTTONTEXT is some text between PREFIX and the object button."
(
let
((
start
(
point
))
(
end
nil
)
...
...
lisp/emacs-lisp/eieio-opt.el
View file @
9ffe3f52
;;; eieio-opt.el -- eieio optional functions (debug, printing, speedbar)
;;
;
Copyright (C) 1996, 1998, 1999, 2000, 2001, 2002, 2003, 2005,
;;
; 2008,
2009 Free Software Foundation, Inc.
;; Copyright (C) 1996, 1998, 1999, 2000, 2001, 2002, 2003, 2005,
2008,
;;
2009
Free Software Foundation, Inc.
;; Author: Eric M. Ludlam
<zappo@gnu.org>
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Version: 0.2
;; Keywords: OO, lisp
...
...
@@ -75,7 +75,7 @@ Argument CH-PREFIX is another character prefix to display."
(
defun
eieio-describe-class
(
class
&optional
headerfcn
)
"Describe a CLASS defined by a string or symbol.
If CLASS is actually an object, then also display current values of that obect.
If CLASS is actually an object, then also display current values of that ob
j
ect.
Optional HEADERFCN should be called to insert a few bits of info first."
(
interactive
(
list
(
eieio-read-class
"Class: "
)))
(
with-output-to-temp-buffer
(
help-buffer
)
;"*Help*"
...
...
lisp/emacs-lisp/eieio-speedbar.el
View file @
9ffe3f52
...
...
@@ -3,7 +3,7 @@
;; Copyright (C) 1999, 2000, 2001, 2002, 2005, 2007, 2008, 2009
;; Free Software Foundation, Inc.
;; Author: Eric M. Ludlam
<zappo@gnu.org>
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Version: 0.2
;; Keywords: OO, tools
...
...
@@ -77,9 +77,9 @@
;; string. This will automatically handle cases when speedbar is
;; not already loaded, and specifying all overload functions.
;;
;; 5) Create an initli
a
zer function which looks like this:
;; 5) Create an init
ia
lizer function which looks like this:
;;
;; (defun my-speedbar-mode-initi
l
aize ()
;; (defun my-speedbar-mode-initia
l
ize ()
;; "documentation"
;; (interactive)
;; (speedbar-frame-mode 1)
...
...
@@ -136,8 +136,8 @@
"Create a speedbar mode for displaying an object hierarchy.
MAP-FN is the keymap generator function used for extra keys.
MAP-VAR is the keymap variable used.
MENU-VAR is the symbol contain
t
ing an easymenu compatible menu part to use.
MODENAME is a s
tring used to identify this browser mode.
MENU-VAR is the symbol containing an easymenu compatible menu part to use.
MODENAME is a string used to identify this browser mode.
FETCHER is a generic function used to fetch the base object list used when
creating the speedbar display."
(
if
(
not
(
featurep
'speedbar
))
...
...
lisp/emacs-lisp/eieio.el
View file @
9ffe3f52
;;; eieio.el --- Enhanced Implementation of Emacs Interpreted Objects
;;; or maybe Eric's Implementation of Emacs Intrepreted Objects
;;
;
Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003,
;;
; 2004,
2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;; Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003,
2004,
;;
2005, 2006, 2007, 2008, 2009
Free Software Foundation, Inc.
;; Author: Eric M. Ludlam
<zappo@gnu.org>
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Version: 0.2
;; Keywords: OO, lisp
...
...
@@ -307,7 +307,7 @@ Options added to EIEIO:
If a string, use as an error string if someone does
try to make an instance.
:method-invocation-order
- Control the method invo
k
ation order if there is
- Control the method invo
c
ation order if there is
multiple inheritance. Valid values are:
:breadth-first - The default.
:depth-first
...
...
@@ -333,7 +333,7 @@ wish, and reference them using the function `class-option'."
;;;###autoload
(
defun
eieio-defclass-autoload
(
cname
superclasses
filename
doc
)
"Create autoload symbols for the EIEIO class CNAME.
SUPERCLASSES are the superclasses that CNAME inherit
e
s from.
SUPERCLASSES are the superclasses that CNAME inherits from.
DOC is the docstring for CNAME.
This function creates a mock-class for CNAME and adds it into
SUPERCLASSES as children.
...
...
@@ -1020,7 +1020,7 @@ if default value is nil."
(
defun
eieio-copy-parents-into-subclass
(
newc
parents
)
"Copy into NEWC the slots of PARENTS.
Follow the rules of not overwrit
t
ing early parents when applying to
Follow the rules of not overwriting early parents when applying to
the new child class."
(
let
((
ps
(
aref
newc
class-parent
))
(
sn
(
class-option-assoc
(
aref
newc
class-options
)
...
...
@@ -1101,7 +1101,7 @@ for each slot. For example:
(make-instance 'foo :slot1 value1 :slotN valueN)
Compat
a
bility note:
Compat
i
bility note:
If the first element of INITARGS is a string, it is used as the
name of the class.
...
...
@@ -1615,7 +1615,7 @@ The CLOS function `class-direct-superclasses' is aliased to this function."
`
(
aref
(
class-v
,
class
)
class-children
))
(
defun
class-children
(
class
)
"Return child class
s
es to CLASS.
"Return child classes to CLASS.
The CLOS function `class-direct-subclasses' is aliased to this function."
(
if
(
not
(
class-p
class
))
(
signal
'wrong-type-argument
(
list
'class-p
class
)))
...
...
@@ -2274,7 +2274,7 @@ function performs no type checking!"
If CLASS is not a class then use `generic' instead. If class has no
form, but has a parent class, then trace to that parent class. The
first time a form is requested from a symbol, an optimized path is
memoized for future faster use."
memo
r
ized for future faster use."
(
let
((
emto
(
aref
(
get
method
'eieio-method-obarray
)
(
if
class
key
(
+
key
3
)))))
(
if
(
class-p
class
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment