procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Move imagep in image.c from the debugging section

Browse source 
* lisp/simple.el (imagep): Remove.
* src/image.c (Fimagep): Always define.
This commit is contained in:
Lars Ingebrigtsen 2022-09-13 16:37:31 +02:00
parent 7e374b9663
commit 07ee1be052
2 changed files with 2 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/simple.el
View file

@ -10717,10 +10717,6 @@ If the buffer doesn't exist, create it first."
(plist-put plist prop val #'equal))
(defun imagep (object)
"Return non-nil if OBJECT is an image."
(and (consp object) (eq (car object) 'image)))
(provide 'simple)
;;; simple.el ends here

6
src/image.c
View file

@ -11838,9 +11838,6 @@ x_kill_gs_process (Pixmap pixmap, struct frame *f)
/***********************************************************************
Tests
***********************************************************************/
#ifdef GLYPH_DEBUG
DEFUN ("imagep", Fimagep, Simagep, 1, 1, 0,
doc: /* Value is non-nil if SPEC is a valid image specification. */)
(Lisp_Object spec)
@ -11848,6 +11845,7 @@ DEFUN ("imagep", Fimagep, Simagep, 1, 1, 0,
return valid_image_p (spec) ? Qt : Qnil;
}
#ifdef GLYPH_DEBUG
DEFUN ("lookup-image", Flookup_image, Slookup_image, 1, 1, 0,
doc: /* */)
@ -12240,9 +12238,9 @@ non-numeric, there is no explicit limit on the size of images. */);
defsubr (&Simage_mask_p);
defsubr (&Simage_metadata);
defsubr (&Simage_cache_size);
defsubr (&Simagep);
#ifdef GLYPH_DEBUG
defsubr (&Simagep);
defsubr (&Slookup_image);
#endif