xemacs-beta: src/energize.c comparison

comparison src/energize.c @ 20:859a2309aef8 r19-15b93

Import from CVS: tag r19-15b93

author	cvs
date	Mon, 13 Aug 2007 08:50:05 +0200
parents	9ee227acff29
children	131b0175ea99

comparison

equal deleted inserted replaced

-:ac1f612d5250
+:859a2309aef8
 }
 #endif /* !I18N4 */
-DEFUN ("energize-update-menubar", Fenergize_update_menubar,
+DEFUN ("energize-update-menubar", Fenergize_update_menubar, 0, 1, 0, /*
-Senergize_update_menubar, 0, 1, 0 /*
 obsolete
-*/ )
+*/
-(frame)
+(frame))
-Lisp_Object frame;
 {
 return Qnil;
 }
-DEFUN ("energize-extent-menu-p", Fenergize_extent_menu_p,
+DEFUN ("energize-extent-menu-p", Fenergize_extent_menu_p, 1, 1, 0, /*
-Senergize_extent_menu_p, 1, 1, 0 /*
 Whether the extent has a set of commands defined by Energize.
-*/ )
+*/
-(extent_obj)
+(extent_obj))
-Lisp_Object extent_obj;
 {
 CHECK_EXTENT (extent_obj);
 if (NILP (Fconnected_to_energize_p ()))
 return Qnil;
 UNGCPRO;
 return NILP (only_name) ? item_list : item;
 }
-DEFUN ("energize-list-menu", Fenergize_list_menu,
+DEFUN ("energize-list-menu", Fenergize_list_menu, 3, 4, 0, /*
-Senergize_list_menu, 3, 4, 0 /*
 Request the set of menu options from the Energize server that are
 appropriate to the buffer and the extent.  Extent can be (), in which case
 the options are requested for the whole buffer.	 Selection-p tells
 if the selection is available on the dislpay emacs is using.
 Returns the options as
 in the list can also be passed to energize-execute-menu-item.
 The list is (buffer extent or () <item1> ... <itemN>).
 where <itemI> is (name id1 id2 flags); idI is (high . low).
 If optional argument only-name is provided only the item with name only-name
 is returned, or () if no such item exists.
-*/ )
+*/
-(buffer, extent_obj, selection_p, only_name)
+(buffer, extent_obj, selection_p, only_name))
-Lisp_Object buffer, extent_obj, selection_p, only_name;
 {
 Lisp_Object res;
 CHECK_BUFFER (buffer);
 if (!energize_connection || !energize_connection->conn) return Qnil;
 			   only_name);
 notify_delayed_requests ();
 return res;
 }
-DEFUN ("energize-execute-menu-item", Fenergize_execute_menu_item,
+DEFUN ("energize-execute-menu-item", Fenergize_execute_menu_item, 3, 5, 0, /*
-Senergize_execute_menu_item, 3, 5, 0 /*
 Item is a vector received by energize-list-menu.  Sends a request to
 execute the code associated to this menu inside the Energize server.
 Optional fourth argument is a string or a vector to be used as the selection
 for entry disabled because they need the selection.
 Optional fifth argument, if non NIL, tells Energize to not request
 confirmation before executing the command.
-*/ )
+*/
-(buffer, extent_obj, item, selection, no_confirm)
+(buffer, extent_obj, item, selection, no_confirm))
-Lisp_Object buffer, extent_obj, item, selection, no_confirm;
 {
 struct Lisp_Vector *v;
 if (!energize_connection || !energize_connection->conn) return Qnil;
 			 no_confirm);
 return Qt;
 }
-DEFUN ("energize-execute-command-internal", Fenergize_execute_command_internal,
+DEFUN ("energize-execute-command-internal",
-Senergize_execute_command_internal, 3, 5, 0 /*
+Fenergize_execute_command_internal, 3, 5, 0, /*
 Command is a string naming an energize command.	 Sends a request to
 execute this command inside the Energize server.
 Optional fourth argument is a string or a vector to be used as the selection.
 Optional fifth argument, if non NIL, tells Energize to not request
 confirmation before executing the command.
 See also 'energize-list-menu'.
-*/ )
+*/
-(buffer, extent_obj, command, selection, no_confirm)
+(buffer, extent_obj, command, selection, no_confirm))
-Lisp_Object buffer, extent_obj, command, selection, no_confirm;
 {
 if (!energize_connection || !energize_connection->conn) return Qnil;
 CHECK_BUFFER (buffer);
 CHECK_STRING (command);
 return Qt;
 }
 /********************************* kill buffer interface ****************/
-DEFUN ("energize-buffer-type-internal",
+DEFUN ("energize-buffer-type-internal", Fenergize_buffer_type, 1, 1, 0, /*
-Fenergize_buffer_type, Senergize_buffer_type,
-1, 1, 0 /*
 Return a symbol denoting the buffer type if buffer is an Energize
 buffer, else it returns NIL.
-*/ )
+*/
-	(buffer)
+(buffer))
-	Lisp_Object buffer;
 {
 if (!energize_connection) return Qnil;
 CHECK_BUFFER (buffer);
 return get_buffer_type_for_emacs_buffer (buffer, energize_connection);
 }
-DEFUN ("set-energize-buffer-type-internal",
+DEFUN ("set-energize-buffer-type-internal", Fset_energize_buffer_type_internal, 2, 2, 0, /*
-Fset_energize_buffer_type_internal,
-Sset_energize_buffer_type_internal, 2, 2, 0 /*
 Return the type symbol which is the new buffer-type, if the buffer is
 an Energize buffer and the type is non-NIL symbol, else it returns NIL.
-*/ )
+*/
-(buffer, type)
+(buffer, type))
-Lisp_Object buffer, type;
 {
 BufferInfo *binfo;
 if (!energize_connection || (NILP (type))) return Qnil;
 else
 return
 set_buffer_type_for_emacs_buffer (buffer, energize_connection, type);
 }
-DEFUN ("energize-buffer-p", Fenergize_buffer_p, Senergize_buffer_p, 1, 1, 0 /*
+DEFUN ("energize-buffer-p", Fenergize_buffer_p, 1, 1, 0, /*
 Whether buffer is an Energize buffer.
-*/ )
+*/
-(buffer)
+(buffer))
-Lisp_Object buffer;
 {
 BufferInfo *binfo;
 if (!energize_connection) return Qnil;
 return Qnil;
 else
 return Qt;
 }
-DEFUN ("energize-buffer-id", Fenergize_buffer_id, Senergize_buffer_id, 1, 1, 0 /*
+DEFUN ("energize-buffer-id", Fenergize_buffer_id, 1, 1, 0, /*
 Return (high . low) if buffer is an Energize buffer, otherwise nil.
-*/ )
+*/
-(buffer)
+(buffer))
-Lisp_Object buffer;
 {
 BufferInfo *binfo;
 if (!energize_connection) return Qnil;
 return Qnil;
 else
 return word_to_lisp (binfo->id);
 }
-DEFUN ("energize-request-kill-buffer", Fenergize_request_kill_buffer,
+DEFUN ("energize-request-kill-buffer", Fenergize_request_kill_buffer, 1, 1, 0, /*
-Senergize_request_kill_buffer, 1, 1, 0 /*
 Sends a request to energize for killing buffer.
-*/ )
+*/
-(buffer)
+(buffer))
-Lisp_Object buffer;
 {
 BufferInfo *binfo;
 if (!energize_connection) return Qnil;
 if (conn)
 conn->readMethod = my_read;
 return conn;
 }
-DEFUN ("handle-energize-request", Fhandle_energize_request,
+DEFUN ("handle-energize-request", Fhandle_energize_request, 2, 2, 0, /*
-Shandle_energize_request,
-2, 2, 0 /*
 Filter called when a request is available from Energize.
-*/ )
+*/
-(proc, string)
+(proc, string))
-Lisp_Object proc, string;
 {
 if (!NILP (string))
 CHECK_STRING (string);
 if (!energize_connection || !energize_connection->conn)
 		     flags & ~O_NDELAY)
 	      == -1)
 #endif
 	    abort ();
-	  XSETSUBR (fil, &Shandle_energize_request);
+	  XSETSUBR (fil, &SFhandle_energize_request);
 	  set_process_filter (lp, fil, 1);
 	  Venergize_kernel_busy = Qnil;
 	  id1 = 0;
 energize_connection = 0;
 Venergize_process = Qnil;
 }
-DEFUN ("connect-to-energize-internal",
+DEFUN ("connect-to-energize-internal", Fconnect_to_energize_internal, 0, 2, 0, /*
-Fconnect_to_energize_internal, Sconnect_to_energize_internal, 0, 2, 0 /*
 Usage: (connect-to-energize-internal <server-name> <energizearg>)
 Energizearg representing two 32 bit Energize ids that will be passed
 to the Energize server when opening the Energize connection.
 Only one connection can be open at a time.
-*/ )
+*/
+(server_name, energize_arg))
-(server_name, energize_arg)
-Lisp_Object server_name, energize_arg;
 {
 unsigned char *server;
 unsigned char *arg;
 if (!NILP (energize_arg))
 connect_to_energize ((char *)server, (char *)arg);
 return Qnil;
 }
-DEFUN ("close-connection-to-energize", Fclose_connection_to_energize,
+DEFUN ("close-connection-to-energize", Fclose_connection_to_energize, 0, 0, 0, /*
-Sclose_connection_to_energize, 0, 0, 0 /*
 Close the open Energize connection, if any.
-*/ )
+*/
-()
+())
 {
 if (!energize_connection) return Qnil;
 close_energize_connection ();
 return Qnil;
 if (!ext) return;
 set_extent_flags (extent, ext);
 set_extent_attributes_index (extent, ext);
 }
-DEFUN ("extent-to-generic-id", Fextent_to_generic_id, Sextent_to_generic_id,
+DEFUN ("extent-to-generic-id", Fextent_to_generic_id, 1, 1, 0, /*
-1, 1, 0 /*
 Return Energize ID of buffer of EXTENT.
-*/ )
+*/
-(extent_obj)
+(extent_obj))
-Lisp_Object extent_obj;
 {
 CHECK_EXTENT (extent_obj);
 return word_to_lisp (energize_extent_data_id
 		       (energize_extent_data (XEXTENT (extent_obj))));
 }
 	       binfo->emacs_buffer, 0, ME_END_CLOSED);
 }
 /* Send the BufferModified events for the current buffer.
 * Handles both global buffer modified and extents modified. */
-DEFUN ("energize-send-buffer-modified", Fenergize_send_buffer_modified,
+DEFUN ("energize-send-buffer-modified", Fenergize_send_buffer_modified, 3, 3, 0, /*
-Senergize_send_buffer_modified,
-3, 3, 0 /*
 Send a BufferModified request for the current buffer.
-*/ )
+*/
-(state, from, to)
+(state, from, to))
-Lisp_Object state, from, to; /* dont use ANSI arglists in DEFUNs */
 {
 int modifiedp = NILP (state)? 0 : 1;
 Lisp_Object buffer;
 BufferInfo *binfo;
 Bufpos from_int = XINT (from);
 	}
 }
 return Qnil;
 }
-DEFUN ("energize-barf-if-buffer-locked", Fenergize_barf_if_buffer_locked,
+DEFUN ("energize-barf-if-buffer-locked",
-Senergize_barf_if_buffer_locked, 0, 0, 0 /*
+Fenergize_barf_if_buffer_locked, 0, 0, 0, /*
 Error if the buffer is locked.
-*/ )
+*/
-()
+())
 {
 Lisp_Object buffer;
 XSETBUFFER (buffer, current_buffer);
 if (!energize_connection || !energize_connection->conn)
 }
 return Qnil;
 }
-DEFUN ("energize-send-region", Fenergize_send_region,
+DEFUN ("energize-send-region", Fenergize_send_region, 2, 2, 0, /*
-Senergize_send_region,
-2, 2, 0 /*
 Send region as user input
-*/ )
+*/
-(start, end)
+(start, end))
-Lisp_Object start, end;
 {
 BufferInfo *binfo;
 Lisp_Object b;
 CEditorRequest *req;
 return Qnil;
 }
 return Qnil;
 }
-DEFUN ("connected-to-energize-p", Fconnected_to_energize_p,
+DEFUN ("connected-to-energize-p", Fconnected_to_energize_p, 0, 0, 0, /*
-Sconnected_to_energize_p,
-0, 0, 0 /*
 Return nil if no connection to Energize.
-*/ )
+*/
-()
+())
 {
 if (!energize_connection ||
 !energize_connection->conn ||
 !energize_connection->binfo_hash ||
 !PROCESSP (energize_connection->proc))
 return Qnil;
 else
 return Qt;
 }
-DEFUN ("energize-user-input-buffer-mark", Fenergize_user_input_buffer_mark,
+DEFUN ("energize-user-input-buffer-mark",
-Senergize_user_input_buffer_mark, 0, 1, 0 /*
+Fenergize_user_input_buffer_mark, 0, 1, 0, /*
 Return the mark associated to the given Energize buffer.
-*/ )
+*/
-(buffer)
+(buffer))
-Lisp_Object buffer;
 {
 BufferInfo *binfo;
 XSETBUFFER (buffer, decode_buffer (buffer, 0));
 if (!energize_connection) return Qnil;
 			  CSHide, id, buffer_id, "");
 CWriteRequestBuffer (energize_connection->conn);
 }
 }
-DEFUN ("energize-query-buffer", Fenergize_query_buffer,
+DEFUN ("energize-query-buffer", Fenergize_query_buffer, 1, 2, 0, /*
-Senergize_query_buffer, 1, 2, 0 /*
 Ask Energize to create a buffer containing the file filename.
 Returns the buffer or NIL if Energize cannot create the buffer.
 If second argument just-ask is T, just ask if Energize
 already knows about the file and returns T if yes, NIL otherwise.
-*/ )
+*/
-(filename, just_ask)
+(filename, just_ask))
-Lisp_Object filename, just_ask;
 {
 struct Lisp_String *filename_str;
 CEditorRequest *creq;
 char *dir_sep;
 struct reply_wait rw;
 else
 return Qnil;
 }
-DEFUN ("energize-protocol-level", Fenergize_protocol_level,
+DEFUN ("energize-protocol-level", Fenergize_protocol_level, 0, 0, 0, /*
-Senergize_protocol_level, 0, 0, 0 /*
 Return the Energize protocol level.
-*/ )
+*/
-()
+())
 {
 return
 energize_connection
 ? Fcons (make_int (energize_connection->major),
 	       make_int (energize_connection->minor))
 	: Qnil;
 }
-DEFUN ("energize-psheets-visible-p", Fenergize_psheets_visible_p,
+DEFUN ("energize-psheets-visible-p", Fenergize_psheets_visible_p, 0, 1, 0, /*
-Senergize_psheets_visible_p, 0, 1, 0 /*
 Whether the (optional) frame currently has open psheets.
-*/ )
+*/
-(frame)
+(frame))
-Lisp_Object frame;
 {
 if (NILP (frame))
 XSETFRAME (frame, XFRAME(Fselected_frame(Qnil)));
 CHECK_FRAME (frame);
 if (FRAME_X_CURRENT_PSHEETS (XFRAME (frame)))
 return Qt;
 return Qnil;
 }
-DEFUN ("energize-buffer-has-psheets-p", Fenergize_buffer_has_psheets_p,
+DEFUN ("energize-buffer-has-psheets-p", Fenergize_buffer_has_psheets_p, 0, 1, 0, /*
-Senergize_buffer_has_psheets_p, 0, 1, 0 /*
 Whether the buffer has psheets associated with it.
-*/ )
+*/
-(buf)
+(buf))
-Lisp_Object buf;
 {
 int count;
 if (NILP (buf))
 buf = Fcurrent_buffer ();
 CHECK_BUFFER (buf);
 return Qnil;
 }
 /* This function is invoked when the user clicks on the "sheet" button.
 */
-DEFUN ("energize-toggle-psheet", Fenergize_toggle_psheet,
+DEFUN ("energize-toggle-psheet", Fenergize_toggle_psheet, 0, 0, "", /*
-Senergize_toggle_psheet, 0, 0, "" /*
+*/
-*/ )
+())
-()
 {
 struct frame *frame = XFRAME(Fselected_frame(Qnil));
 Lisp_Object buffer = Fwindow_buffer (Fselected_window (Qnil));
 if (EQ (buffer, desired_psheet_buffer (frame)))
 make_psheets_desired (frame, Qnil);
 return (editmode.ok != 0);
 }
 extern LWLIB_ID new_lwlib_id (void);
-DEFUN ("energize-edit-mode-prompt", Fenergize_edit_mode_prompt,
+DEFUN ("energize-edit-mode-prompt", Fenergize_edit_mode_prompt, 6, 6, 0, /*
-Senergize_edit_mode_prompt, 6, 6, 0 /*
+*/
-*/ )
+(external, edit_mode, view_mode, other_text, window, split))
-(external, edit_mode, view_mode, other_text, window, split)
-Lisp_Object external, edit_mode, view_mode, other_text, window, split;
 {
 int dbox_id;
 struct frame *f = selected_frame ();
 widget_value *data;
 Widget parent, dbox;
 					   replace)));
 }
 }
-DEFUN ("energize-search", Fenergize_search, Senergize_search, 0, 0, "" /*
+DEFUN ("energize-search", Fenergize_search, 0, 0, "", /*
 Pop up the search-and-replace dialog box.
-*/ )
+*/
-()
+())
 {
 int dbox_id;
 struct frame *f = selected_frame ();
 widget_value *data;
 Widget parent, dbox;
 /*************** Definition of Emacs Lisp-callable functions ***************/
 void
 syms_of_energize (void)
 {
-defsubr (&Senergize_send_buffer_modified);
+DEFSUBR (Fenergize_send_buffer_modified);
-defsubr (&Senergize_list_menu);
+DEFSUBR (Fenergize_list_menu);
-defsubr (&Senergize_execute_menu_item);
+DEFSUBR (Fenergize_execute_menu_item);
-defsubr (&Senergize_execute_command_internal);
+DEFSUBR (Fenergize_execute_command_internal);
-defsubr (&Sconnect_to_energize_internal);
+DEFSUBR (Fconnect_to_energize_internal);
-defsubr (&Sconnected_to_energize_p);
+DEFSUBR (Fconnected_to_energize_p);
-defsubr (&Sclose_connection_to_energize);
+DEFSUBR (Fclose_connection_to_energize);
-defsubr (&Shandle_energize_request);
+DEFSUBR (Fhandle_energize_request);
-defsubr (&Senergize_buffer_p);
+DEFSUBR (Fenergize_buffer_p);
-defsubr (&Senergize_buffer_type);
+DEFSUBR (Fenergize_buffer_type);
-defsubr (&Sset_energize_buffer_type_internal);
+DEFSUBR (Fset_energize_buffer_type_internal);
-defsubr (&Senergize_buffer_id);
+DEFSUBR (Fenergize_buffer_id);
-defsubr (&Senergize_request_kill_buffer);
+DEFSUBR (Fenergize_request_kill_buffer);
-defsubr (&Senergize_send_region);
+DEFSUBR (Fenergize_send_region);
-defsubr (&Senergize_user_input_buffer_mark);
+DEFSUBR (Fenergize_user_input_buffer_mark);
-defsubr (&Senergize_update_menubar);
+DEFSUBR (Fenergize_update_menubar);
-defsubr (&Senergize_extent_menu_p);
+DEFSUBR (Fenergize_extent_menu_p);
-defsubr (&Senergize_query_buffer);
+DEFSUBR (Fenergize_query_buffer);
-defsubr (&Senergize_barf_if_buffer_locked);
+DEFSUBR (Fenergize_barf_if_buffer_locked);
-defsubr (&Senergize_psheets_visible_p);
+DEFSUBR (Fenergize_psheets_visible_p);
-defsubr (&Senergize_buffer_has_psheets_p);
+DEFSUBR (Fenergize_buffer_has_psheets_p);
-defsubr (&Senergize_toggle_psheet);
+DEFSUBR (Fenergize_toggle_psheet);
-defsubr (&Senergize_protocol_level);
+DEFSUBR (Fenergize_protocol_level);
-defsubr (&Senergize_edit_mode_prompt);
+DEFSUBR (Fenergize_edit_mode_prompt);
-defsubr (&Senergize_search);
+DEFSUBR (Fenergize_search);
-defsubr (&Sextent_to_generic_id);
+DEFSUBR (Fextent_to_generic_id);
 defsymbol (&Qenergize_create_buffer_hook, "energize-create-buffer-hook");
 defsymbol (&Qenergize_buffer_modified_hook, "energize-buffer-modified-hook");
 defsymbol (&Qenergize_kernel_busy, "energize-kernel-busy");

Mercurial > hg > xemacs-beta

comparison src/energize.c @ 20:859a2309aef8 r19-15b93