Mercurial > emacs

comparison lisp/paren.el @ 3976:87addb9e55f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Sun, 04 Jul 1993 17:41:56 +0000
parents bbac27613cee
children bb696888ccb7
comparison
equal deleted inserted replaced
3975:718280a1ba74 3976:87addb9e55f8
1 ;;; paren.el --- highlight matching paren. 1 ;;; paren.el --- highlight matching paren.
2 ;; Copyright (C) 1993 Free Software Foundation, Inc. 2 ;; Copyright (C) 1993 Free Software Foundation, Inc.
3
4 ;;; Author: rms@gnu.ai.mit.edu
5 ;;; Maintainer: FSF
6 ;;; Keywords: languages, faces
3 7
4 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
5 9
6 ;; GNU Emacs is free software; you can redistribute it and/or modify 10 ;; GNU Emacs is free software; you can redistribute it and/or modify
7 ;; it under the terms of the GNU General Public License as published by 11 ;; it under the terms of the GNU General Public License as published by
59 (char-after beg)) 63 (char-after beg))
60 -8) 64 -8)
61 255)))))) 65 255))))))
62 ;; If they don't properly match, don't show. 66 ;; If they don't properly match, don't show.
63 (if mismatch 67 (if mismatch
64 (setq pos nil)))) 68 (progn
69 (message "Paren mismatch")
70 ;;; (setq pos nil)
71 ))))
65 (cond (pos 72 (cond (pos
66 (if show-paren-overlay 73 (if show-paren-overlay
67 (move-overlay show-paren-overlay (- pos dir) pos) 74 (move-overlay show-paren-overlay (- pos dir) pos)
68 (setq show-paren-overlay 75 (setq show-paren-overlay
69 (make-overlay (- pos dir) pos))) 76 (make-overlay (- pos dir) pos)))