xemacs-beta: src/minibuf.c comparison

Import from CVS: tag r20-3b1

comparison

equal deleted inserted replaced

-:f659db2a1f73
+:538048ae2ab8
 {
 CHECK_STRING (preprompt);
 Vminibuf_preprompt = LISP_GETTEXT (preprompt);
 }
+return Qnil;
 }
 DEFUN ("read-minibuffer-internal", Fread_minibuffer_internal, 1, 1, 0, /*
 Lowest-level interface to minibuffers.  Don't call this.
 */
 /* More than useless.  I've nuked minibuf_prompt_width so they won't
 function at all in XEmacs at the moment.  They are used to
 implement some braindamage in FSF which we aren't including. --cet */
 #if 0
-xxDEFUN ("minibuffer-prompt", Fminibuffer_prompt, Sminibuffer_prompt, 0, 0, 0,
+xxDEFUN ("minibuffer-prompt", Fminibuffer_prompt, 0, 0, 0, /*
-"Return the prompt string of the currently-active minibuffer.\n"
+Return the prompt string of the currently-active minibuffer.
-"If no minibuffer is active, return nil.")
+If no minibuffer is active, return nil.
-()
+*/
+	 ())
 {
 return (Fcopy_sequence (Vminibuf_prompt));
 }
-xxDEFUN ("minibuffer-prompt-width", Fminibuffer_prompt_width,
+xxDEFUN ("minibuffer-prompt-width", Fminibuffer_prompt_width, 0, 0, 0, /*
-Sminibuffer_prompt_width, 0, 0, 0,
+Return the display width of the minibuffer prompt.
-"Return the display width of the minibuffer prompt.")
+*/
-()
+	 ())
 {
 return (make_int (minibuf_prompt_width));
 }
 #endif /* 0 */

Mercurial > hg > xemacs-beta