[Bioperl-guts-l] [16440] bioperl-live/trunk/ide/bioperl-mode/site-lisp: little bug fix; thanks to Christoph for the heads-up

Mark Allen Jensen maj at dev.open-bio.org
Fri Dec 4 17:14:33 EST 2009


Revision: 16440
Author:   maj
Date:     2009-12-04 17:14:32 -0500 (Fri, 04 Dec 2009)
Log Message:
-----------
little bug fix; thanks to Christoph for the heads-up

Modified Paths:
--------------
    bioperl-live/trunk/ide/bioperl-mode/site-lisp/bioperl-init.el
    bioperl-live/trunk/ide/bioperl-mode/site-lisp/bioperl-skel.el

Modified: bioperl-live/trunk/ide/bioperl-mode/site-lisp/bioperl-init.el
===================================================================
--- bioperl-live/trunk/ide/bioperl-mode/site-lisp/bioperl-init.el	2009-12-04 04:14:48 UTC (rev 16439)
+++ bioperl-live/trunk/ide/bioperl-mode/site-lisp/bioperl-init.el	2009-12-04 22:14:32 UTC (rev 16440)
@@ -241,7 +241,10 @@
   "A derived view mode for bioperl pod."
   :init-value nil
   :lighter "[bio]"
-  :keymap ( let ( (map (copy-keymap (cdr (assoc 'view-mode minor-mode-map-alist)))) )
+  :keymap ( let* (
+		  (vmap (cdr (assoc 'view-mode minor-mode-map-alist)))
+		  (map (if vmap (copy-keymap vmap) (make-sparse-keymap)  ))
+		  )
 	    (if map
 		(progn
 		  (define-key map [menu-bar] nil)

Modified: bioperl-live/trunk/ide/bioperl-mode/site-lisp/bioperl-skel.el
===================================================================
--- bioperl-live/trunk/ide/bioperl-mode/site-lisp/bioperl-skel.el	2009-12-04 04:14:48 UTC (rev 16439)
+++ bioperl-live/trunk/ide/bioperl-mode/site-lisp/bioperl-skel.el	2009-12-04 22:14:32 UTC (rev 16440)
@@ -254,7 +254,7 @@
 (defvar bioperl-accessor-skel
   '(
     (prompt-once "Field name: ")
-    "=head2 " str \N
+    "=head2 " str "()" \N
     \N
     " Title   : " str \N 
     " Usage   : $obj->" str "($newval)" \N 



More information about the Bioperl-guts-l mailing list