Merge from emacs-23
This commit is contained in:
Stefan Monnier
commit
fd67a7000e
12 changed files with 171 additions and 63 deletions
|
|
@ -1,3 +1,8 @@
|
|||
2010-05-30 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* .bzrignore: Ignore new files from trunk, which appear if you use
|
||||
colocated branches (i.e. "bzr switch").
|
||||
|
||||
2010-05-28 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* configure.in: Simplify some of the $canonical tests.
|
||||
|
|
|
|||
|
|
@ -1,3 +1,12 @@
|
|||
2010-05-30 Juanma Barranquero <lekktu@gmail.com>
|
||||
|
||||
* minibuf.texi (Basic Completion): Add missing "@end defun".
|
||||
|
||||
2010-05-30 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* minibuf.texi (Basic Completion): Document completion-boundaries.
|
||||
(Programmed Completion): Document the new fourth method for boundaries.
|
||||
|
||||
2010-05-22 Chong Yidong <cyd@stupidchicken.com>
|
||||
|
||||
* display.texi (Image Cache): Update documentation about image
|
||||
|
|
|
|||
|
|
@ -814,6 +814,25 @@ the values @var{string}, @var{predicate} and @code{lambda}; whatever
|
|||
it returns, @code{test-completion} returns in turn.
|
||||
@end defun
|
||||
|
||||
@defun completion-boundaries string collection predicate suffix
|
||||
This function returns the boundaries of the field on which @var{collection}
|
||||
will operate, assuming that @var{string} holds the text before point
|
||||
and @var{suffix} holds the text after point.
|
||||
|
||||
Normally completion operates on the whole string, so for all normal
|
||||
collections, this will always return @code{(0 . (length
|
||||
@var{suffix}))}. But more complex completion such as completion on
|
||||
files is done one field at a time. For example, completion of
|
||||
@code{"/usr/sh"} will include @code{"/usr/share/"} but not
|
||||
@code{"/usr/share/doc"} even if @code{"/usr/share/doc"} exists.
|
||||
Also @code{all-completions} on @code{"/usr/sh"} will not include
|
||||
@code{"/usr/share/"} but only @code{"share/"}. So if @var{string} is
|
||||
@code{"/usr/sh"} and @var{suffix} is @code{"e/doc"},
|
||||
@code{completion-boundaries} will return @code{(5 . 1)} which tells us
|
||||
that the @var{collection} will only return completion information that
|
||||
pertains to the area after @code{"/usr/"} and before @code{"/doc"}.
|
||||
@end defun
|
||||
|
||||
If you store a completion alist in a variable, you should mark the
|
||||
variable as ``risky'' with a non-@code{nil}
|
||||
@code{risky-local-variable} property. @xref{File Local Variables}.
|
||||
|
|
@ -1618,13 +1637,14 @@ containing all the intended possible completions. In such a case, you
|
|||
can supply your own function to compute the completion of a given
|
||||
string. This is called @dfn{programmed completion}. Emacs uses
|
||||
programmed completion when completing file names (@pxref{File Name
|
||||
Completion}).
|
||||
Completion}), among many other cases.
|
||||
|
||||
To use this feature, pass a symbol with a function definition as the
|
||||
@var{collection} argument to @code{completing-read}. The function
|
||||
To use this feature, pass a function as the @var{collection}
|
||||
argument to @code{completing-read}. The function
|
||||
@code{completing-read} arranges to pass your completion function along
|
||||
to @code{try-completion} and @code{all-completions}, which will then let
|
||||
your function do all the work.
|
||||
to @code{try-completion}, @code{all-completions}, and other basic
|
||||
completion functions, which will then let your function do all
|
||||
the work.
|
||||
|
||||
The completion function should accept three arguments:
|
||||
|
||||
|
|
@ -1638,10 +1658,14 @@ none. Your function should call the predicate for each possible match,
|
|||
and ignore the possible match if the predicate returns @code{nil}.
|
||||
|
||||
@item
|
||||
A flag specifying the type of operation.
|
||||
A flag specifying the type of operation. The best way to think about
|
||||
it is that the function stands for an object (in the
|
||||
``object-oriented'' sense of the word), and this third argument
|
||||
specifies which method to run.
|
||||
@end itemize
|
||||
|
||||
There are three flag values for three operations:
|
||||
There are currently four methods, i.e. four flag values, one for
|
||||
each of the four different basic operations:
|
||||
|
||||
@itemize @bullet
|
||||
@item
|
||||
|
|
@ -1663,6 +1687,13 @@ string.
|
|||
@code{lambda} specifies @code{test-completion}. The completion
|
||||
function should return @code{t} if the specified string is an exact
|
||||
match for some possibility; @code{nil} otherwise.
|
||||
|
||||
@item
|
||||
@code{(boundaries . SUFFIX)} specifies @code{completion-boundaries}.
|
||||
The function should return a value of the form @code{(boundaries
|
||||
START . END)} where START is the position of the beginning boundary in
|
||||
in the string to complete, and END is the position of the end boundary
|
||||
in SUFFIX.
|
||||
@end itemize
|
||||
|
||||
It would be consistent and clean for completion functions to allow
|
||||
|
|
|
|||
2
etc/TODO
2
etc/TODO
|
|
@ -410,7 +410,7 @@ typically due to pilot errors and should thus be in debug-ignored-errors.
|
|||
the whole menu bar. In the mean time, it should process other messages.
|
||||
|
||||
** Get some major packages installed: W3 (development version needs
|
||||
significant work), PSGML, _possibly_ Cedet and ECB.
|
||||
significant work), PSGML, _possibly_ ECB.
|
||||
http://lists.gnu.org/archive/html/emacs-devel/2007-05/msg01493.html
|
||||
Check the assignments file for other packages which might go in and
|
||||
have been missed.
|
||||
|
|
|
|||
|
|
@ -1,3 +1,17 @@
|
|||
2010-06-01 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* vc-bzr.el (vc-bzr-revision-completion-table): Apply
|
||||
`file-directory-p' to the filename part rather than to the whole text.
|
||||
|
||||
2010-05-31 Jonathan Marchand <jonathlela@gmail.com> (tiny change)
|
||||
|
||||
* cedet/ede/cpp-root.el (ede-set-project-variables): Fix feature name
|
||||
(bug#6231).
|
||||
|
||||
2010-05-31 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* man.el (Man-completion-table): Let the user type "-k " (bug#6319).
|
||||
|
||||
2010-05-31 Drew Adams <drew.adams@oracle.com>
|
||||
|
||||
* files.el (directory-files-no-dot-files-regexp): Doc fix (bug#6298).
|
||||
|
|
@ -66,6 +80,14 @@
|
|||
(ls-lisp-classify): Call ls-lisp-classify-file.
|
||||
(insert-directory): Remove blanks from switches.
|
||||
|
||||
2010-05-29 Chong Yidong <cyd@stupidchicken.com>
|
||||
|
||||
* ansi-color.el: Delete unused escape sequences (Bug#6085).
|
||||
(ansi-color-drop-regexp): New constant.
|
||||
(ansi-color-apply, ansi-color-filter-region)
|
||||
(ansi-color-apply-on-region): Delete unrecognized control sequences.
|
||||
(ansi-color-apply): Build string list before calling concat.
|
||||
|
||||
2010-05-28 Juri Linkov <juri@jurta.org>
|
||||
|
||||
* image-dired.el (image-dired-dired-toggle-marked-thumbs):
|
||||
|
|
@ -212,6 +234,16 @@
|
|||
(smie-next-sexp): Handle nil results from next-token.
|
||||
(smie-indent-calculate): Add a new case for special `fixindent' comments.
|
||||
|
||||
2010-05-27 Chong Yidong <cyd@stupidchicken.com>
|
||||
|
||||
* progmodes/verilog-mode.el (verilog-type-font-keywords):
|
||||
Use font-lock-constant-face, not obsolete font-lock-reference-face.
|
||||
|
||||
2010-05-27 Masatake YAMATO <yamato@redhat.com>
|
||||
|
||||
* htmlfontify.el (hfy-face-resolve-face): New function.
|
||||
(hfy-face-to-style): Use it (Bug#6279).
|
||||
|
||||
2010-05-26 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* progmodes/ada-xref.el (ada-gnat-parse-gpr):
|
||||
|
|
@ -316,7 +348,13 @@
|
|||
Register it in composition-function-table for all Hebrew combining
|
||||
characters.
|
||||
|
||||
2010-05-25 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* epa.el (epa--select-keys): Don't explicitly delete the window since
|
||||
that can fail (e.g. sole window in frame). Use dedication instead.
|
||||
|
||||
2010-05-24 Uday S Reddy <u.s.reddy@cs.bham.ac.uk> (tiny change)
|
||||
2010-05-19 Uday S Reddy <u.s.reddy@cs.bham.ac.uk> (tiny change)
|
||||
|
||||
* textmodes/fill.el (fill-region): Don't fill past the end (bug#6201).
|
||||
|
||||
|
|
|
|||
|
|
@ -467,7 +467,7 @@ This is for project include paths and spp source files."
|
|||
"Set variables local to PROJECT in BUFFER.
|
||||
Also set up the lexical preprocessor map."
|
||||
(call-next-method)
|
||||
(when (and (featurep 'semantic/c) (featurep 'semantic/lex-spp))
|
||||
(when (and (featurep 'semantic/bovine/c) (featurep 'semantic/lex-spp))
|
||||
(setq semantic-lex-spp-project-macro-symbol-obarray
|
||||
(semantic-lex-make-spp-table (oref project spp-table)))
|
||||
))
|
||||
|
|
|
|||
|
|
@ -508,13 +508,12 @@ If ARG is non-nil, mark the key."
|
|||
(set-keymap-parent (current-local-map) widget-keymap)
|
||||
(setq epa-exit-buffer-function #'abort-recursive-edit)
|
||||
(goto-char (point-min))
|
||||
(pop-to-buffer (current-buffer)))
|
||||
(let ((display-buffer-mark-dedicated 'soft))
|
||||
(pop-to-buffer (current-buffer))))
|
||||
(unwind-protect
|
||||
(progn
|
||||
(recursive-edit)
|
||||
(epa--marked-keys))
|
||||
(if (get-buffer-window epa-keys-buffer)
|
||||
(delete-window (get-buffer-window epa-keys-buffer)))
|
||||
(kill-buffer epa-keys-buffer))))
|
||||
|
||||
;;;###autoload
|
||||
|
|
|
|||
|
|
@ -759,6 +759,9 @@ POS defaults to `point'."
|
|||
(cond
|
||||
((eq action 'lambda)
|
||||
(not (string-match "([^)]*\\'" string)))
|
||||
((equal string "-k")
|
||||
;; Let SPC (minibuffer-complete-word) insert the space.
|
||||
(complete-with-action action '("-k ") string pred))
|
||||
(t
|
||||
(let ((table (cdr Man-completion-cache))
|
||||
(section nil)
|
||||
|
|
|
|||
|
|
@ -999,10 +999,12 @@ stream. Standard error output is discarded."
|
|||
((string-match "\\`\\(ancestor\\|branch\\|\\(revno:\\)?[-0-9]+:\\):"
|
||||
string)
|
||||
(completion-table-with-context (substring string 0 (match-end 0))
|
||||
'completion-file-name-table
|
||||
(apply-partially
|
||||
'completion-table-with-predicate
|
||||
'completion-file-name-table
|
||||
'file-directory-p t)
|
||||
(substring string (match-end 0))
|
||||
;; Dropping `pred' for no good reason.
|
||||
'file-directory-p
|
||||
pred
|
||||
action))
|
||||
((string-match "\\`\\(before\\):" string)
|
||||
(completion-table-with-context (substring string 0 (match-end 0))
|
||||
|
|
|
|||
|
|
@ -3,6 +3,11 @@
|
|||
* sysdep.c (child_setup_tty): Move the non-canonical initialization to
|
||||
the HAVE_TERMIO where it belongs (bug#6149).
|
||||
|
||||
2010-05-31 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* keymap.c (Fwhere_is_internal): Fix handling of remapping (in thread
|
||||
of bug#6305).
|
||||
|
||||
2010-05-30 Eli Zaretskii <eliz@gnu.org>
|
||||
|
||||
* bidi.c (bidi_move_to_visually_next): Make sure the sentinel
|
||||
|
|
@ -123,6 +128,11 @@
|
|||
|
||||
* dispextern.h (init_iterator): Sync prototype with changed definition.
|
||||
|
||||
2010-05-20 enami tsugutomo <tsugutomo.enami@jp.sony.com>
|
||||
|
||||
* s/netbsd.h: If terminfo is found, use it in preference to
|
||||
termcap. (Bug#6190) [Backport from trunk]
|
||||
|
||||
2010-05-19 Eli Zaretskii <eliz@gnu.org>
|
||||
|
||||
Redesign and reimplement bidi-aware edge positions of glyph rows.
|
||||
|
|
@ -2270,7 +2280,7 @@
|
|||
(xg_toggle_notify_cb, xg_set_toolkit_scroll_bar_thumb)
|
||||
(xg_create_tool_bar): Remove unused variables.
|
||||
(x_wm_set_size_hint): Move declarations before statements.
|
||||
(xg_create_frame_widgets): Remove variable grav,
|
||||
(xg_create_frame_widgets): Remove variable grav.
|
||||
|
||||
2010-02-21 Chong Yidong <cyd@stupidchicken.com>
|
||||
|
||||
|
|
@ -2388,7 +2398,7 @@
|
|||
|
||||
* xfns.c (Fx_create_frame): Remove window size matching code from
|
||||
2010-01-15.
|
||||
(x_get_current_desktop, x_get_desktop_workarea): Remove
|
||||
(x_get_current_desktop, x_get_desktop_workarea): Remove.
|
||||
|
||||
2010-01-27 Jason Rumney <jasonr@gnu.org>
|
||||
|
||||
|
|
@ -3225,7 +3235,7 @@
|
|||
fontconfig settings like hinting.
|
||||
(font_load_for_lface): If spec had a name in it, store it in entity.
|
||||
|
||||
* emacs.c (main): Call syms_of_xsettings
|
||||
* emacs.c (main): Call syms_of_xsettings.
|
||||
|
||||
* config.in: HAVE_GCONF is new.
|
||||
|
||||
|
|
@ -8810,7 +8820,7 @@
|
|||
(composition_adjust_point, Fcomposition_get_gstring): New functions.
|
||||
(syms_of_composite): Initialize gstring_hash_table, gstrint_work,
|
||||
and gstring_work_headers. DEFVAR_LISP composition-function-table.
|
||||
Defsubr compostion_get_gstring.
|
||||
Defsubr composition_get_gstring.
|
||||
|
||||
* dispextern.h (struct glyph): New union u.cmp. Delete the member
|
||||
cmp_id.
|
||||
|
|
|
|||
|
|
@ -312,10 +312,10 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
|
|||
/* Define to 1 if you have the <kerberos/krb.h> header file. */
|
||||
#undef HAVE_KERBEROS_KRB_H
|
||||
|
||||
/* Define to 1 if `e_text' is member of `krb5_error'. */
|
||||
/* Define to 1 if `e_text' is a member of `krb5_error'. */
|
||||
#undef HAVE_KRB5_ERROR_E_TEXT
|
||||
|
||||
/* Define to 1 if `text' is member of `krb5_error'. */
|
||||
/* Define to 1 if `text' is a member of `krb5_error'. */
|
||||
#undef HAVE_KRB5_ERROR_TEXT
|
||||
|
||||
/* Define to 1 if you have the <krb5.h> header file. */
|
||||
|
|
@ -606,25 +606,25 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
|
|||
/* Define to 1 if you have the `strsignal' function. */
|
||||
#undef HAVE_STRSIGNAL
|
||||
|
||||
/* Define to 1 if `ifr_addr' is member of `struct ifreq'. */
|
||||
/* Define to 1 if `ifr_addr' is a member of `struct ifreq'. */
|
||||
#undef HAVE_STRUCT_IFREQ_IFR_ADDR
|
||||
|
||||
/* Define to 1 if `ifr_broadaddr' is member of `struct ifreq'. */
|
||||
/* Define to 1 if `ifr_broadaddr' is a member of `struct ifreq'. */
|
||||
#undef HAVE_STRUCT_IFREQ_IFR_BROADADDR
|
||||
|
||||
/* Define to 1 if `ifr_flags' is member of `struct ifreq'. */
|
||||
/* Define to 1 if `ifr_flags' is a member of `struct ifreq'. */
|
||||
#undef HAVE_STRUCT_IFREQ_IFR_FLAGS
|
||||
|
||||
/* Define to 1 if `ifr_hwaddr' is member of `struct ifreq'. */
|
||||
/* Define to 1 if `ifr_hwaddr' is a member of `struct ifreq'. */
|
||||
#undef HAVE_STRUCT_IFREQ_IFR_HWADDR
|
||||
|
||||
/* Define to 1 if `ifr_netmask' is member of `struct ifreq'. */
|
||||
/* Define to 1 if `ifr_netmask' is a member of `struct ifreq'. */
|
||||
#undef HAVE_STRUCT_IFREQ_IFR_NETMASK
|
||||
|
||||
/* Define to 1 if `n_un.n_name' is member of `struct nlist'. */
|
||||
/* Define to 1 if `n_un.n_name' is a member of `struct nlist'. */
|
||||
#undef HAVE_STRUCT_NLIST_N_UN_N_NAME
|
||||
|
||||
/* Define to 1 if `tm_zone' is member of `struct tm'. */
|
||||
/* Define to 1 if `tm_zone' is a member of `struct tm'. */
|
||||
#undef HAVE_STRUCT_TM_TM_ZONE
|
||||
|
||||
/* Define to 1 if `struct utimbuf' is declared by <utime.h>. */
|
||||
|
|
@ -853,6 +853,9 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
|
|||
/* Define to the one symbol short name of this package. */
|
||||
#undef PACKAGE_TARNAME
|
||||
|
||||
/* Define to the home page for this package. */
|
||||
#undef PACKAGE_URL
|
||||
|
||||
/* Define to the version of this package. */
|
||||
#undef PACKAGE_VERSION
|
||||
|
||||
|
|
@ -912,6 +915,28 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
|
|||
/* Define to 1 if using the Motif X toolkit. */
|
||||
#undef USE_MOTIF
|
||||
|
||||
/* Enable extensions on AIX 3, Interix. */
|
||||
#ifndef _ALL_SOURCE
|
||||
# undef _ALL_SOURCE
|
||||
#endif
|
||||
/* Enable GNU extensions on systems that have them. */
|
||||
#ifndef _GNU_SOURCE
|
||||
# undef _GNU_SOURCE
|
||||
#endif
|
||||
/* Enable threading extensions on Solaris. */
|
||||
#ifndef _POSIX_PTHREAD_SEMANTICS
|
||||
# undef _POSIX_PTHREAD_SEMANTICS
|
||||
#endif
|
||||
/* Enable extensions on HP NonStop. */
|
||||
#ifndef _TANDEM_SOURCE
|
||||
# undef _TANDEM_SOURCE
|
||||
#endif
|
||||
/* Enable general extensions on Solaris. */
|
||||
#ifndef __EXTENSIONS__
|
||||
# undef __EXTENSIONS__
|
||||
#endif
|
||||
|
||||
|
||||
/* Define to 1 if we should use toolkit scroll bars. */
|
||||
#undef USE_TOOLKIT_SCROLL_BARS
|
||||
|
||||
|
|
@ -947,28 +972,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
|
|||
/* Define to 1 if you need to in order for `stat' and other things to work. */
|
||||
#undef _POSIX_SOURCE
|
||||
|
||||
/* Enable extensions on AIX 3, Interix. */
|
||||
#ifndef _ALL_SOURCE
|
||||
# undef _ALL_SOURCE
|
||||
#endif
|
||||
/* Enable GNU extensions on systems that have them. */
|
||||
#ifndef _GNU_SOURCE
|
||||
# undef _GNU_SOURCE
|
||||
#endif
|
||||
/* Enable threading extensions on Solaris. */
|
||||
#ifndef _POSIX_PTHREAD_SEMANTICS
|
||||
# undef _POSIX_PTHREAD_SEMANTICS
|
||||
#endif
|
||||
/* Enable extensions on HP NonStop. */
|
||||
#ifndef _TANDEM_SOURCE
|
||||
# undef _TANDEM_SOURCE
|
||||
#endif
|
||||
/* Enable general extensions on Solaris. */
|
||||
#ifndef __EXTENSIONS__
|
||||
# undef __EXTENSIONS__
|
||||
#endif
|
||||
|
||||
|
||||
/* Define to rpl_ if the getopt replacement functions and variables should be
|
||||
used. */
|
||||
#undef __GETOPT_PREFIX
|
||||
|
|
|
|||
34
src/keymap.c
34
src/keymap.c
|
|
@ -2829,16 +2829,16 @@ remapped command in the returned list. */)
|
|||
Lisp_Object found = Qnil;
|
||||
/* 1 means ignore all menu bindings entirely. */
|
||||
int nomenus = !NILP (firstonly) && !EQ (firstonly, Qnon_ascii);
|
||||
struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
|
||||
struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6;
|
||||
/* List of sequences found via remapping. Keep them in a separate
|
||||
variable, so as to push them later, since we prefer
|
||||
non-remapped binding. */
|
||||
Lisp_Object remapped_sequences = Qnil;
|
||||
/* Whether or not we're handling remapped sequences. This is needed
|
||||
because remapping is not done recursively by Fcommand_remapping: you
|
||||
can't remap and remapped command. */
|
||||
can't remap a remapped command. */
|
||||
int remapped = 0;
|
||||
Lisp_Object tem;
|
||||
Lisp_Object tem = Qnil;
|
||||
|
||||
/* Refresh the C version of the modifier preference. */
|
||||
where_is_preferred_modifier
|
||||
|
|
@ -2852,17 +2852,25 @@ remapped command in the returned list. */)
|
|||
else
|
||||
keymaps = Fcurrent_active_maps (Qnil, Qnil);
|
||||
|
||||
GCPRO5 (definition, keymaps, found, sequences, remapped_sequences);
|
||||
GCPRO6 (definition, keymaps, found, sequences, remapped_sequences, tem);
|
||||
|
||||
/* If this command is remapped, then it has no key bindings of its own.
|
||||
FIXME: Actually, this is not quite right: if A is remapped to
|
||||
`definition', then bindings to A will actually bind the key to
|
||||
`definition' despite the remapping from `definition' to something else.
|
||||
Another corner case is if `definition' is remapped to itself. */
|
||||
if (NILP (no_remap)
|
||||
&& SYMBOLP (definition)
|
||||
&& !NILP (Fcommand_remapping (definition, Qnil, keymaps)))
|
||||
RETURN_UNGCPRO (Qnil);
|
||||
tem = Fcommand_remapping (definition, Qnil, keymaps);
|
||||
/* If `definition' is remapped to tem', then OT1H no key will run
|
||||
that command (since they will run `tem' instead), so we should
|
||||
return nil; but OTOH all keys bound to `definition' (or to `tem')
|
||||
will run the same command.
|
||||
So for menu-shortcut purposes, we want to find all the keys bound (maybe
|
||||
via remapping) to `tem'. But for the purpose of finding the keys that
|
||||
run `definition', then we'd want to just return nil.
|
||||
We choose to make it work right for menu-shortcuts, since it's the most
|
||||
common use.
|
||||
Known bugs: if you remap switch-to-buffer to toto, C-h f switch-to-buffer
|
||||
will tell you that switch-to-buffer is bound to C-x b even though C-x b
|
||||
will run toto instead. And if `toto' is itself remapped to forward-char,
|
||||
then C-h f toto will tell you that it's bound to C-f even though C-f does
|
||||
not run toto and it won't tell you that C-x b does run toto. */
|
||||
if (NILP (no_remap) && !NILP (tem))
|
||||
definition = tem;
|
||||
|
||||
if (SYMBOLP (definition)
|
||||
&& !NILP (firstonly)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue