[Ebib-users] a patch for ebib

[Leo <sd...@gm...>]

Hi there,

Fix a typo and a compiler warning and add an autoload candy for `ebib'.

--8<---------------cut here---------------start------------->8---
*** ebib.el	2007/10/29 06:19:00	1.1
--- ebib.el	2007/10/29 06:22:15	1.2
***************
*** 1049,1054 ****
--- 1049,1055 ----
  ;; main program execution ;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
+ ;;;###autoload
  (defun ebib ()
    "Ebib, a BibTeX database manager."
    (interactive)
***************
*** 1280,1294 ****
  	  ;; we may call this function when there are no entries in the
  	  ;; database. if so, we don't need to do this:
  	  (when (edb-cur-entry ebib-cur-db)
! 	    (mapcar #'(lambda (entry)
! 			(insert entry)
! 			(when (member entry (edb-marked-entries ebib-cur-db))
! 			  (let ((beg (save-excursion
! 				       (beginning-of-line)
! 				       (point))))
! 			    (add-text-properties beg (point) `(face ,ebib-marked-face))))
! 			(insert "\n"))
! 		    (edb-keys-list ebib-cur-db))
  	    (goto-char (point-min))
  	    (re-search-forward (format "^%s$" (ebib-cur-entry-key)))
  	    (beginning-of-line)
--- 1281,1295 ----
  	  ;; we may call this function when there are no entries in the
  	  ;; database. if so, we don't need to do this:
  	  (when (edb-cur-entry ebib-cur-db)
! 	    (mapc #'(lambda (entry)
! 		      (insert entry)
! 		      (when (member entry (edb-marked-entries ebib-cur-db))
! 			(let ((beg (save-excursion
! 				     (beginning-of-line)
! 				     (point))))
! 			  (add-text-properties beg (point) `(face ,ebib-marked-face))))
! 		      (insert "\n"))
! 		  (edb-keys-list ebib-cur-db))
  	    (goto-char (point-min))
  	    (re-search-forward (format "^%s$" (ebib-cur-entry-key)))
  	    (beginning-of-line)
***************
*** 1738,1744 ****
  		     (delete (ebib-cur-entry-key) (edb-marked-entries ebib-cur-db)))
  	       (remove-text-properties (ebib-highlight-start ebib-index-highlight)
  				       (ebib-highlight-end ebib-index-highlight)
! 				       '(face ,ebib-marked-face)))
  	   (setf (edb-marked-entries ebib-cur-db) (sort (cons (ebib-cur-entry-key)
  							      (edb-marked-entries ebib-cur-db))
  							'string<))
--- 1739,1745 ----
  		     (delete (ebib-cur-entry-key) (edb-marked-entries ebib-cur-db)))
  	       (remove-text-properties (ebib-highlight-start ebib-index-highlight)
  				       (ebib-highlight-end ebib-index-highlight)
! 				       `(face ,ebib-marked-face)))
  	   (setf (edb-marked-entries ebib-cur-db) (sort (cons (ebib-cur-entry-key)
  							      (edb-marked-entries ebib-cur-db))
  							'string<))
--8<---------------cut here---------------end--------------->8---


HTH,
-- 
.:  Leo  :.  [ sdl.web AT gmail.com ]  .:  [ GPG Key: 9283AA3F ]  :.

       Use the most powerful email client -- http://gnus.org/