/[guile]/guile/guile-core/emacs/guileint/guileint.el
ViewVC logotype

Diff of /guile/guile-core/emacs/guileint/guileint.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by ossau, Thu Aug 21 18:34:43 2003 UTC revision 1.3 by ossau, Sun Aug 31 22:59:39 2003 UTC
# Line 45  Line 45 
45              '((height . 24) (width . 80) (unsplittable . t)))              '((height . 24) (width . 80) (unsplittable . t)))
46        ))        ))
47    
 ;;; Do things to support lisp-hacking better  
 (if (equal (substring emacs-version 0 2) "19")  
     ;; Emacs version 19 specific initializations  
     (progn  
       (copy-face 'default 'paren)  
       (condition-case err  
           (make-face-bold 'paren)  
         (error))  
       (setq show-paren-face 'paren)  
       (require 'paren)  
       ;; The old parenthesis matcher has the advantage of displaying  
       ;; non-visible matching parenthesis in the minibuffer.  
       ;; Since paren.el adds (setq blink-paren-function nil) to the  
       ;; window-setup-hook it's necessary to put this setq there  
       ;; also.  
       (add-hook 'window-setup-hook (function restore-blink-paren) t)  
       (setq blink-matching-delay 0.5)  
       ))  
   
 (defun restore-blink-paren ()  
   (interactive)  
   (setq blink-matching-paren-on-screen t)  
   (set-face-underline-p 'paren t))  
   
48  ;;; Menus  ;;; Menus
49  ;;;  ;;;
50    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26