Commits

steveb  committed b9ba363

package standards update

  • Participants
  • Parent commits c55cd16
  • Tags sumo-1999-12-09, sumo-1999-12-11

Comments (0)

Files changed (4)

+1999-07-22  Jan Vroonhof  <vroonhof@math.ethz.ch>
+
+	* hm--html-menu.el: Support for psgml using get-popup-menu-response. 
+
 1999-02-05  SL Baur  <steve@xemacs.org>
 
 	* Makefile (DATA_1_FILES): Force wildcard expansion of Make variables.
 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.12
+VERSION = 1.13
 AUTHOR_VERSION = 5.9
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = hm--html-menus

File hm--html-menu.el

 (if (adapt-xemacsp)
     (progn
 
+      (defvar hm--html-gpmr (symbol-function 'get-popup-menu-response))
+      
+      (defun hm--html-call-wrapped-sgml-menu (event)
+	(flet ((get-popup-menu-response (menudesc &optional event)
+		  (setq menudesc
+			(append hm--html-popup-menu  
+				(list "=="           
+				      (car menudesc) 
+				      "==")          
+				(cdr menudesc)))
+		  (setq event (funcall hm--html-gpmr
+			       menudesc event))
+		  (if (and (misc-user-event-p event)
+			   (commandp (event-object event))
+			   (boundp 'hm--html-mark))
+		      (progn
+			(set-mark hm--html-mark)
+			(goto-char hm--html-point)
+			(call-interactively (event-object event)))
+		    event)))
+	  (sgml-tags-menu event)))
+
       (defun hm--html-popup-minor-html-menu (event)
 	"Pops the HTML- menu up, if no region is active."
 	(interactive "@e")
 					     hm--html-menu-noregion-novice))
 		      (hm--html-point (point))
 		      (hm--html-mark (mark)))
-		  (sgml-tags-menu event))
+		  (hm--html-call-wrapped-sgml-menu event))
 	      (if hm--html-expert
 		  (popup-menu hm--html-menu-noregion-expert)
 		(popup-menu hm--html-menu-noregion-novice))
 					     hm--html-menu-region-novice))
 		      (hm--html-point (point))
 		      (hm--html-mark (mark)))
-		  (sgml-tags-menu event))
+		  (hm--html-call-wrapped-sgml-menu event))
 	      (if hm--html-expert
 		  (popup-menu hm--html-menu-region-expert)
 		(popup-menu hm--html-menu-region-novice))

File package-info.in

 (hm--html-menus
-  (standards-version 1.0
+  (standards-version 1.1
    version VERSION
    author-version AUTHOR_VERSION
    date DATE
    build-date BUILD_DATE
    maintainer MAINTAINER
-   distribution stable
+   distribution xemacs
    priority low
    category CATEGORY
    dump nil