Source

hm--html-menus / hm--html-keys.el

Diff from to

File hm--html-keys.el

 ;;;	Put this file in one of your load path directories.
 ;;;
 
-(if (adapt-emacs19p)
+(if (adapt-emacsp)
     (progn
 
       (defvar hm--html-emacs19-popup-noregion-menu-button [C-down-mouse-3]
     [(control m)] 'hm--html-add-mailto-link)
   (define-key hm--html-noregion-anchor-map "w" 'hm--html-add-direct-wais-link)
   (define-key hm--html-noregion-anchor-map "\C-w" 'hm--html-add-wais-link)
+  (define-key hm--html-noregion-anchor-map "c" 'hm--html-add-cgi-link)
   (define-key hm--html-noregion-anchor-map "p" 'hm--html-add-proggate-link)
   (define-key hm--html-noregion-anchor-map 
     "\C-p" 'hm--html-add-local-proggate-link)
   (define-key hm--html-region-anchor-map 
     "\C-w" 'hm--html-add-wais-link-to-region)
   (define-key hm--html-region-anchor-map 
+    "c" 'hm--html-add-cgi-link-to-region)
+  (define-key hm--html-region-anchor-map 
     "p" 'hm--html-add-proggate-link-to-region)
   (define-key hm--html-region-anchor-map 
     "\C-p" 'hm--html-add-local-proggate-link-to-region)
   (define-key hm--html-region-sub-map "\M-n" hm--html-noregion-sub-map-1)
   (define-key hm--html-region-sub-map "\M-r" hm--html-region-sub-map-1)
 
-  (if (adapt-emacs19p)
+  (if (adapt-emacsp)
       (map-keymap '(lambda (key-description-list binding)
 		     (define-key hm--html-region-sub-map
 		       (vector key-description-list) binding))
   (define-key hm--html-noregion-sub-map "\M-n" hm--html-noregion-sub-map-1)
   (define-key hm--html-noregion-sub-map "\M-r" hm--html-region-sub-map-1)
 
-  (if (adapt-emacs19p)
+  (if (adapt-emacsp)
       (map-keymap '(lambda (key-description-list binding)
 		     (define-key hm--html-noregion-sub-map
 		       (vector key-description-list) binding))