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
4628bef1
Commit
4628bef1
authored
Oct 08, 2010
by
Juanma Barranquero
Browse files
Merge changes from emacs-23 branch.
parents
24ac444f
2b7c9342
Changes
34
Hide whitespace changes
Inline
Side-by-side
Showing
20 changed files
with
256 additions
and
145 deletions
+256
-145
doc/lispref/ChangeLog
doc/lispref/ChangeLog
+6
-0
doc/misc/ChangeLog
doc/misc/ChangeLog
+8
-0
doc/misc/cl.texi
doc/misc/cl.texi
+14
-40
doc/misc/eudc.texi
doc/misc/eudc.texi
+11
-25
lib-src/ChangeLog
lib-src/ChangeLog
+5
-0
lib-src/emacsclient.c
lib-src/emacsclient.c
+12
-1
lisp/ChangeLog
lisp/ChangeLog
+46
-0
lisp/cedet/ChangeLog
lisp/cedet/ChangeLog
+29
-5
lisp/cedet/semantic/bovine/c-by.el
lisp/cedet/semantic/bovine/c-by.el
+58
-57
lisp/cedet/semantic/bovine/el.el
lisp/cedet/semantic/bovine/el.el
+1
-1
lisp/cedet/semantic/db-typecache.el
lisp/cedet/semantic/db-typecache.el
+1
-1
lisp/cedet/semantic/fw.el
lisp/cedet/semantic/fw.el
+1
-1
lisp/cedet/semantic/grammar.el
lisp/cedet/semantic/grammar.el
+1
-1
lisp/cedet/semantic/imenu.el
lisp/cedet/semantic/imenu.el
+1
-1
lisp/cedet/semantic/lex-spp.el
lisp/cedet/semantic/lex-spp.el
+33
-0
lisp/cedet/semantic/mru-bookmark.el
lisp/cedet/semantic/mru-bookmark.el
+12
-0
lisp/cedet/semantic/tag.el
lisp/cedet/semantic/tag.el
+2
-1
lisp/dired.el
lisp/dired.el
+1
-1
lisp/dnd.el
lisp/dnd.el
+5
-4
lisp/emacs-lisp/shadow.el
lisp/emacs-lisp/shadow.el
+9
-6
No files found.
doc/lispref/ChangeLog
View file @
4628bef1
...
...
@@ -2458,6 +2458,12 @@
* display.texi (Images): Delete redundant @findex.
2007-08-16 Stefan Monnier <monnier@iro.umontreal.ca>
* text.texi (Change Hooks): (after|before)-change-functions are no
longer bound to nil while running; rather inhibit-modification-hooks
is t.
2007-08-16 Richard Stallman <rms@gnu.org>
* processes.texi (Asynchronous Processes): Clarify
...
...
doc/misc/ChangeLog
View file @
4628bef1
2010-10-08 Glenn Morris <rgm@gnu.org>
* cl.texi (Organization, Installation, Old CL Compatibility):
Deprecate cl-compat for new code.
(Usage, Installation): Remove outdated information.
* eudc.texi (CCSO PH/QI, LDAP Requirements): Remove old information.
2010-10-07 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus.texi (Gravatars): Document gnus-gravatar-too-ugly.
...
...
doc/misc/cl.texi
View file @
4628bef1
...
...
@@ -163,19 +163,6 @@ include at the beginning:
@end example
@noindent
If you want to ensure that the new (Gillespie) version of @dfn{CL}
is the one that is present, add an additional @code{(require '
cl
-
19
)}
call
:
@
example
(
require
'cl)
(require '
cl
-
19
)
@
end
example
@
noindent
The
second
call
will
fail
(
with
``@
file
{
cl
-
19.
el
}
not
found
''
)
if
the
old
@
file
{
cl
.
el
}
package
was
in
use
.
It is safe to arrange to load @dfn{CL} at all times, e.g.,
in your @file{.emacs} file. But it'
s
a
good
idea
,
for
portability
,
to
@
code
{(
require
'cl)} in your code even if you do this.
...
...
@@ -219,39 +206,26 @@ will take care of pulling in the other files when they are
needed
.
There
is
another
file
,
@
file
{
cl
-
compat
.
el
},
which
defines
some
routines from the older @file{cl.el} package that are no
longer
routines
from
the
older
@
file
{
cl
.
el
}
package
that
are
no
t
otherwise
present
in
the
new
package
.
This
includes
internal
routines
like
@
code
{
setelt
}
and
@
code
{
zip
-
lists
},
deprecated
features
like
@
code
{
defkeyword
},
and
an
emulation
of
the
old
-
style
multiple-values feature. @xref{Old CL Compatibility}.
multiple
-
values
feature
.
This
file
is
obsolete
and
should
not
be
used
in
new
code
.
@
xref
{
Old
CL
Compatibility
}.
@
node
Installation
,
Naming
Conventions
,
Organization
,
Overview
@
section
Installation
@
noindent
Installation of the @dfn{CL} package is simple: Just put the
byte-compiled files @file{cl.elc}, @file{cl-extra.elc},
@file{cl-seq.elc}, @file{cl-macs.elc}, and @file{cl-compat.elc}
into a directory on your @code{load-path}.
There are no special requirements to compile this package:
The files do not have to be loaded before they are compiled,
nor do they need to be compiled in any particular order.
You may choose to put the files into your main @file{lisp/}
directory, replacing the original @file{cl.el} file there. Or,
you could put them into a directory that comes before @file{lisp/}
on your @code{load-path} so that the old @file{cl.el} is
effectively hidden.
Also, format the @file{cl.texinfo} file and put the resulting
Info files in the @file{info/} directory or another suitable place.
You may instead wish to leave this package'
s
components
all
in
their
own
directory
,
and
then
add
this
directory
to
your
@
code
{
load
-
path
}
and
@
code
{
Info
-
directory
-
list
}.
Add
the
directory
to
the
front
of
the
list
so
the
old
@
dfn
{
CL
}
package
and
its
documentation
are
hidden
.
The
@
dfn
{
CL
}
package
is
distributed
with
Emacs
,
so
there
is
no
need
to
install
anything
.
If
you
do
need
to
install
it
,
just
put
the
byte
-
compiled
files
@
file
{
cl
.
elc
},
@
file
{
cl
-
extra
.
elc
},
@
file
{
cl
-
seq
.
elc
},
@
file
{
cl
-
macs
.
elc
},
and
(
if
necessary
)
@
file
{
cl
-
compat
.
elc
}
into
a
directory
on
your
@
code
{
load
-
path
}.
Also
,
format
the
@
file
{
cl
.
texi
}
file
and
put
the
resulting
Info
files
into
a
directory
in
your
@
code
{
Info
-
directory
-
list
}.
@
node
Naming
Conventions
,
,
Installation
,
Overview
@
section
Naming
Conventions
...
...
@@ -5076,8 +5050,8 @@ Lisp.
@
noindent
The
@
dfn
{
CL
}
package
includes
emulations
of
some
features
of
the
old
@
file
{
cl
.
el
},
in
the
form
of
a
compatibility
package
@
code
{
cl
-
compat
}.
T
o
use
it
,
put
@
code
{(
require
'cl-compat)} in
your program
.
@
code
{
cl
-
compat
}.
T
his
file
is
obsolete
and
may
be
removed
in
future
,
so
it
should
not
be
used
in
new
code
.
The
old
package
defined
a
number
of
internal
routines
without
@
code
{
cl
-}
prefixes
or
other
annotations
.
Call
to
these
routines
...
...
doc/misc/eudc.texi
View file @
4628bef1
...
...
@@ -137,7 +137,7 @@ complement to the DAP itself.
LDAP servers usually store (but are not limited to) information about
people such as their name, phone number, email address, office
location, etc@enddots
{}
More information about LDAP can be found at
@url
{
http://www.openldap.org/
}
@url
{
http://www.openldap.org/
}
.
EUDC requires external support to access LDAP directory servers
(@pxref
{
LDAP Requirements
}
)
...
...
@@ -148,17 +148,15 @@ EUDC requires external support to access LDAP directory servers
@section CCSO PH/QI
The Central Computing Services Office (CCSO) of the University of
Illinois at Urbana Champaign
(UIUC)
created and freely distribute
s
a
directory system that
is currently in use in more than 300 organizations
around the world.
The system records information about people such as
their address,
phone number, email, academic information or any other
details it was configured to
.
Illinois at Urbana Champaign created and freely distribute
d
a
directory system that
was used by many organizations in the 1990s.
The system records information about people such as
their address,
phone number, email, academic information or any other
details it was
configured to. Nowadays this system is not widely used
.
The system consists of two parts: a database server traditionally called
@samp
{
qi
}
and a command-line client called @samp
{
ph
}
.
@url
{
ftp://uiarchive.cso.uiuc.edu/pub/packages/ph
}
is the main
distribution site. @url
{
http://www.uiuc.edu/cgi-bin/ph/lookup?Query=.
}
provides a listing of the active @samp
{
qi
}
servers.
@samp
{
qi
}
and a command-line client called @samp
{
ph
}
. As of 2010, the
code can still be downloaded from @url
{
http://www-dev.cites.uiuc.edu/ph/
}
.
The original command-line @samp
{
ph
}
client that comes with the
@samp
{
ph/qi
}
distribution provides additional features like the
...
...
@@ -225,18 +223,10 @@ email composition buffers (@pxref{Inline Query Expansion})
@comment node-name, next, previous, up
@section LDAP Requirements
LDAP support is added by means of @file
{
ldap.el
}
which is part of Emacs.
LDAP support is added by means of @file
{
ldap.el
}
,
which is part of Emacs.
@file
{
ldap.el
}
needs an external command line utility named
@file
{
ldapsearch
}
which is available as part of LDAP toolkits:
@itemize @bullet
@item
Open LDAP Libraries
(@url
{
http://www.openldap.org/
}
)
@item
University of Michigan's LDAP Client software
(@url
{
http://www.umich.edu/~dirsvcs/ldap/
}
)
@end itemize
@file
{
ldapsearch
}
, available as part of Open LDAP
(@url
{
http://www.openldap.org/
}
).
@node Usage, Credits, Installation, Top
...
...
@@ -968,7 +958,3 @@ in testing and proofreading the code and docs of @file{ph.el}.
@printindex vr
@bye
@ignore
arch-tag: 1b79460b-4ea1-441d-ab45-05ddd16ef241
@end ignore
lib-src/ChangeLog
View file @
4628bef1
2010-10-08 Glenn Morris <rgm@gnu.org>
* emacsclient.c (set_local_socket) [DARWIN_OS]: Try as a fall-back
DARWIN_USER_TEMP_DIR. (Bug#3992)
2010-10-03 Dan Nicolaescu <dann@ics.uci.edu>
* test-distrib.c (cool_read):
...
...
lib-src/emacsclient.c
View file @
4628bef1
...
...
@@ -1223,7 +1223,18 @@ set_local_socket (void)
{
tmpdir
=
egetenv
(
"TMPDIR"
);
if
(
!
tmpdir
)
tmpdir
=
"/tmp"
;
{
#ifdef DARWIN_OS
size_t
n
=
confstr
(
_CS_DARWIN_USER_TEMP_DIR
,
NULL
,
(
size_t
)
0
);
if
(
n
>
0
)
{
tmpdir
=
alloca
(
n
);
confstr
(
_CS_DARWIN_USER_TEMP_DIR
,
tmpdir
,
n
);
}
else
#endif
tmpdir
=
"/tmp"
;
}
socket_name
=
alloca
(
strlen
(
tmpdir
)
+
strlen
(
server_name
)
+
EXTRA_SPACE
);
sprintf
(
socket_name
,
"%s/emacs%d/%s"
,
...
...
lisp/ChangeLog
View file @
4628bef1
2010-10-08 Glenn Morris <rgm@gnu.org>
* emacs-lisp/cl-compat.el, emacs-lisp/lmenu.el: Move to obsolete/.
* emacs-lisp/shadow.el (lisp-shadow): Change prefix.
(shadows-compare-text-p): Make it an obsolete alias for...
(load-path-shadows-compare-text): ... new name.
(find-emacs-lisp-shadows): Update for above name change.
(load-path-shadows-same-file-or-nonexistent): New name for the old
shadow-same-file-or-nonexistent.
2010-10-08 Chong Yidong <cyd@stupidchicken.com>
* minibuffer.el (completion--some, completion--do-completion)
(minibuffer-complete-and-exit, minibuffer-completion-help)
(completion-basic-try-completion)
(completion-basic-all-completions)
(completion-pcm--find-all-completions): Use lexical-let to
avoid some false matches in variable completion (Bug#7056)
2010-10-08 Olof Ohlsson Sax <olof.ohlsson.sax@gmail.com> (tiny change)
* vc-svn.el (vc-svn-merge-news): Use --non-interactive. (Bug#7152)
2010-10-08 Leo <sdl.web@gmail.com>
* dnd.el (dnd-get-local-file-name): If MUST-EXIST is non-nil, only
return non-nil if the file exists (Bug#7090).
2010-10-08 Stefan Monnier <monnier@iro.umontreal.ca>
* minibuffer.el (completion--replace):
Better preserve markers (bug#7138).
2010-10-08 Juanma Barranquero <lekktu@gmail.com>
* server.el (server-process-filter): Doc fix.
2010-10-08 Drew Adams <drew.adams@oracle.com>
* dired.el (dired-save-positions): Doc fix. (Bug#7119)
2010-10-08 Andreas Schwab <schwab@linux-m68k.org>
* Makefile.in (ELCFILES): Update.
2010-10-08 Glenn Morris <rgm@gnu.org>
* vc/ediff-wind.el (ediff-setup-control-frame):
...
...
lisp/cedet/ChangeLog
View file @
4628bef1
2010-09-30 Chong Yidong <cyd@stupidchicken.com>
* semantic/bovine/el.el:
* semantic/mru-bookmark.el (global-semantic-mru-bookmark-mode):
Fix require statements.
2010-09-29 Chong Yidong <cyd@stupidchicken.com>
* semantic/tag.el (semantic-tag-version): Bump to 2.0.
* semantic/db-typecache.el (semanticdb-typecache-find-default):
* semantic/imenu.el (semantic-create-imenu-index):
* semantic/grammar.el (semantic--grammar-macro-function-tag):
* semantic/fw.el (semanticdb-without-unloaded-file-searches): Fix
require. Suggested by David Engster.
* semantic/bovine/c-by.el: Regenerate.
2010-09-29 Eric Ludlam <zappo@gnu.org>
* semantic/lex-spp.el (semantic-lex-spp-debug-symbol): New var.
(semantic-lex-spp-enable-debug-symbol): New command
(semantic-lex-spp-value-valid-p)
(semantic-lex-spp-validate-value): New functions
(semantic-lex-spp-symbol-set)
(semantic-lex-spp-symbol-push): Add call to validate value.
(semantic-lex-spp-table-write-slot-value): Instead of erroring on
invalid values during save, just save a nil.
2010-09-25 Chong Yidong <cyd@stupidchicken.com>
* ede/linux.el (ede-project-class-files):
...
...
@@ -465,11 +494,6 @@
(ede-dired-minor-mode): Use define-minor-mode and derived-mode-p.
(ede-dired-add-to-target): Use dolist.
2010-04-18 Chong Yidong <cyd@stupidchicken.com>
* ede/pmake.el (ede-proj-makefile-insert-variables):
Don't destroy list before using it.
2010-04-29 Chong Yidong <cyd@stupidchicken.com>
* semantic.el (semantic-completion-at-point-function):
...
...
lisp/cedet/semantic/bovine/c-by.el
View file @
4628bef1
...
...
@@ -1240,7 +1240,9 @@
(
nth
7
vals
))
(
nth
0
vals
)
(
nth
10
vals
)
(
nth
4
vals
))
(
list
(
nth
4
vals
))
(
nth
9
vals
))
)
(
opt-stars
opt-class
...
...
@@ -1262,7 +1264,9 @@
(
nth
6
vals
))
(
nth
0
vals
)
(
nth
9
vals
)
(
nth
4
vals
))
(
list
(
nth
4
vals
))
(
nth
8
vals
))
)
)
;; end func-decl
...
...
@@ -1433,13 +1437,11 @@
namespace-symbol
opt-bits
opt-array
opt-assign
,
(
semantic-lambda
(
nth
2
vals
)
(
nth
0
vals
)
(
nth
3
vals
)
(
nth
4
vals
)
(
nth
5
vals
))
(
nth
4
vals
))
)
)
;; end varname
...
...
@@ -1484,19 +1486,28 @@
)
)
;; end variablearg-opt-name
(
varname-opt-initializer
(
semantic-list
)
(
opt-assign
)
(
;;EMPTY
)
)
;; end varname-opt-initializer
(
varnamelist
(
opt-ref
varname
varname-opt-initializer
punctuation
"\\`[,]\\'"
varnamelist
,
(
semantic-lambda
(
cons
(
nth
1
vals
)
(
nth
3
vals
)))
(
nth
4
vals
)))
)
(
opt-ref
varname
varname-opt-initializer
,
(
semantic-lambda
(
list
(
nth
1
vals
)))
...
...
@@ -2108,74 +2119,64 @@
"\\`[&]\\'"
)
)
;; end expr-start
(
expr-binop
(
punctuation
"\\`[-]\\'"
)
(
punctuation
"\\`[+]\\'"
)
(
punctuation
"\\`[*]\\'"
)
(
punctuation
"\\`[/]\\'"
)
(
punctuation
"\\`[&]\\'"
punctuation
"\\`[&]\\'"
)
(
punctuation
"\\`[&]\\'"
)
(
punctuation
"\\`[|]\\'"
punctuation
"\\`[|]\\'"
)
(
punctuation
"\\`[|]\\'"
)
)
;; end expr-binop
(
expression
(
number
(
unaryexpression
expr-binop
unaryexpression
,
(
semantic-lambda
(
list
(
identity
start
)
(
identity
end
)))
)
(
multi-stage-dereference
(
unaryexpression
,
(
semantic-lambda
(
list
(
identity
start
)
(
identity
end
)))
)
)
;; end expression
(
unaryexpression
(
number
)
(
multi-stage-dereference
)
(
NEW
multi-stage-dereference
,
(
semantic-lambda
(
list
(
identity
start
)
(
identity
end
)))
)
multi-stage-dereference
)
(
NEW
builtintype-types
semantic-list
,
(
semantic-lambda
(
list
(
identity
start
)
(
identity
end
)))
)
(
namespace-symbol
,
(
semantic-lambda
(
list
(
identity
start
)
(
identity
end
)))
)
(
string-seq
,
(
semantic-lambda
(
list
(
identity
start
)
(
identity
end
)))
)
semantic-list
)
(
namespace-symbol
)
(
string-seq
)
(
type-cast
expression
,
(
semantic-lambda
(
list
(
identity
start
)
(
identity
end
)))
)
(
semantic-list
expression
,
(
semantic-lambda
(
list
(
identity
start
)
(
identity
end
)))
)
expression
)
(
semantic-list
,
(
semantic-lambda
(
list
(
identity
start
)
(
identity
end
)))
)
expression
)
(
semantic-list
)
(
expr-start
expression
,
(
semantic-lambda
(
list
(
identity
start
)
(
identity
end
)))
)
)
;; end expression
expression
)
)
;; end unaryexpression
)
"Parser table."
)
...
...
lisp/cedet/semantic/bovine/el.el
View file @
4628bef1
...
...
@@ -958,7 +958,7 @@ ELisp variables can be pretty long, so track this one too.")
(add-hook 'lisp-mode-hook 'semantic-default-elisp-setup)
(eval-after-load "
semanticdb
"
'
(
require
'semanticdb-el
)
'
(
require
'semantic
/
db-el
)
)
(
provide
'semantic/bovine/el
)
...
...
lisp/cedet/semantic/db-typecache.el
View file @
4628bef1
...
...
@@ -403,7 +403,7 @@ TYPE is the datatype to find.
PATH is the search path, which should be one table object.
If FIND-FILE-MATCH is non-nil, then force the file belonging to the
found tag to be loaded."
(
if
(
not
(
and
(
featurep
'semanticdb
)
semanticdb-current-database
))
(
if
(
not
(
and
(
featurep
'semantic
/
db
)
semanticdb-current-database
))
nil
;; No DB, no search
(
save-excursion
(
semanticdb-typecache-find-method
(
or
path
semanticdb-current-table
)
...
...
lisp/cedet/semantic/fw.el
View file @
4628bef1
...
...
@@ -315,7 +315,7 @@ FILE, NOWARN, RAWFILE, and WILDCARDS are passed into `find-file-noselect'"
(
defmacro
semanticdb-without-unloaded-file-searches
(
forms
)
"Execute FORMS with `unloaded' removed from the current throttle."
`
(
let
((
semanticdb-find-default-throttle
(
if
(
featurep
'semanticdb-find
)
(
if
(
featurep
'semantic
/
db-find
)
(
remq
'unloaded
semanticdb-find-default-throttle
)
nil
)))
,
forms
))
...
...
lisp/cedet/semantic/grammar.el
View file @
4628bef1
...
...
@@ -1519,7 +1519,7 @@ Return the tag found or nil if not found."
(
car
(
semantic-find-tags-by-class
'function
(
or
(
semantic-find-tags-by-name
name
(
current-buffer
))
(
and
(
featurep
'semanticdb
)
(
and
(
featurep
'semantic
/
db
)
semanticdb-current-database
(
cdar
(
semanticdb-find-tags-by-name
name
nil
t
)))))))
...
...
lisp/cedet/semantic/imenu.el
View file @
4628bef1
...
...
@@ -235,7 +235,7 @@ Optional argument STREAM is an optional stream of tags used to create menus."
(
setq
imenu-default-goto-function
'semantic-imenu-goto-function
)
(
prog1
(
if
(
and
semantic-imenu-index-directory
(
featurep
'semanticdb
)
(
featurep
'semantic
/
db
)
(
semanticdb-minor-mode-p
))
(
semantic-create-imenu-directory-index
(
or
stream
(
semantic-fetch-tags-fast
)))
...
...
lisp/cedet/semantic/lex-spp.el
View file @
4628bef1
...
...
@@ -173,10 +173,42 @@ The search priority is:
(
setq
semantic-lex-spp-dynamic-macro-symbol-obarray-stack
(
make-vector
13
0
))))
(
defun
semantic-lex-spp-value-valid-p
(
value
)
"Return non-nil if VALUE is valid."
(
or
(
null
value
)
(
stringp
value
)
(
and
(
consp
value
)
(
or
(
semantic-lex-token-p
(
car
value
))
(
eq
(
car
(
car
value
))
'spp-arg-list
)))))
(
defvar
semantic-lex-spp-debug-symbol
nil
"A symbol to break on if it is being set somewhere."
)
(
defun
semantic-lex-spp-enable-debug-symbol
(
sym
)
"Enable debugging for symbol SYM.
Disable debugging by entering nothing."
(
interactive
"sSymbol: "
)
(
if
(
string=
sym
""
)
(
setq
semantic-lex-spp-debug-symbol
nil
)
(
setq
semantic-lex-spp-debug-symbol
sym
)))
(
defmacro
semantic-lex-spp-validate-value
(
name
value
)
"Validate the NAME and VALUE of a macro before it is set."
; `(progn
; (when (not (semantic-lex-spp-value-valid-p ,value))
; (error "Symbol \"%s\" with bogus value %S" ,name ,value))
; (when (and semantic-lex-spp-debug-symbol
; (string= semantic-lex-spp-debug-symbol name))
; (debug))
; )
nil
)
(
defun
semantic-lex-spp-symbol-set
(
name
value
&optional
obarray-in
)
"Set value of spp symbol with NAME to VALUE and return VALUE.
If optional OBARRAY-IN is non-nil, then use that obarray instead of
the dynamic map."
(
semantic-lex-spp-validate-value
name
value
)
(
if
(
and
(
stringp
value
)
(
string=
value
""
))
(
setq
value
nil
))
(
set
(
intern
name
(
or
obarray-in
(
semantic-lex-spp-dynamic-map
)))
...
...
@@ -192,6 +224,7 @@ the dynamic map."
(
defun
semantic-lex-spp-symbol-push
(
name
value
)
"Push macro NAME with VALUE into the map.
Reverse with `semantic-lex-spp-symbol-pop'."
(
semantic-lex-spp-validate-value
name
value
)
(
let*
((
map
(
semantic-lex-spp-dynamic-map
))
(
stack
(
semantic-lex-spp-dynamic-map-stack
))
(
mapsym
(
intern
name
map
))
...
...
lisp/cedet/semantic/mru-bookmark.el
View file @
4628bef1
...
...
@@ -239,6 +239,18 @@ This function pushes tags onto the tag ring."
;;
;; Tracking minor mode.
(
defcustom
global-semantic-mru-bookmark-mode
nil
"If non-nil, enable `semantic-mru-bookmark-mode' globally.
When this mode is enabled, Emacs keeps track of which tags have
been edited, and you can re-visit them with \\[semantic-mrub-switch-tags]."
:group
'semantic
:group
'semantic-modes
:type
'boolean
:require
'semantic/util-modes
:initialize
'custom-initialize-default
:set
(
lambda
(
sym
val
)
(
global-semantic-mru-bookmark-mode
(
if
val
1
-1
))))
;;;###autoload
(
define-minor-mode
global-semantic-mru-bookmark-mode
"Toggle global use of option `semantic-mru-bookmark-mode'.
...
...
lisp/cedet/semantic/tag.el
View file @
4628bef1
...
...
@@ -53,7 +53,7 @@
(
declare-function
semantic-fetch-tags
"semantic"
)
(
declare-function
semantic-clear-toplevel-cache
"semantic"
)
(
defconst
semantic-tag-version
"2.0
pre7
"
(
defconst
semantic-tag-version
"2.0"
"Version string of semantic tags made with this code."
)
(
defconst
semantic-tag-incompatible-version
"1.0"
...
...
@@ -221,6 +221,7 @@ See also the function `semantic-ctxt-current-mode'."
;; beginning of TAG.
(
or
(
and
(
>=
(
point
)
start
)
(
<
(
point
)
end
))
(
goto-char
start
))
(
require
'semantic/ctxt
)
(
semantic-ctxt-current-mode
)))))
(
defsubst
semantic--tag-attributes-cdr
(
tag
)
...
...
lisp/dired.el
View file @
4628bef1
...
...
@@ -1178,7 +1178,7 @@ Preserves old cursor, marks/flags, hidden-p."
The positions have the form (BUFFER-POSITION WINDOW-POSITIONS).
BUFFER-POSITION is the point position in the current dired buffer.
The buffer position
ha
ve
the form (BUFFER DIRED-FILENAME BUFFER-POINT).
It
ha
s
the form (BUFFER DIRED-FILENAME BUFFER-POINT).