Mercurial > emacs
view lisp/paren.el @ 7977:ebee036f5d20
(gnus-uu-view-directory): Fixed viewing with the
`gnus-uu-asynchronous' variable set.
(gnus-uu-ctl-map): Removed the keystrokes `C-c C-v C-h' and
`C-c C-v h' from the keymap.
(gnus-uu-decode-and-view-all-articles,
(gnus-uu-decode-and-view-all-unread-articles,
(gnus-uu-decode-and-save-all-unread-articles,
(gnus-uu-decode-and-save-all-articles): Accept prefix arg for # files.
(gnus-uu-uustrip-article-as): Waits for uudecode to finish before
further treatment of the resulting files.
(gnus-uu-summary-next-subject): After decoding, if there are no
more unread articles, jump to the last article decoded.
(gnus-uu-post-encoded): Make last posting in a
series always have more than 4 lines.
(gnus-uu-interactive-save-original-file): Fixed
original file save when there's more that one original file.
(gnus-uu-view-file): Rewrote function and fixed
ask before view/save after view.
(gnus-uu-ask-to-save-file): New function.
(gnus-uu-interactive-set-up-windows): New function.
(gnus-uu-interactive-scan-directory) New function.
(gnus-uu-interactive-rescan-directory): New function.
(gnus-uu-ignore-files-by-name, gnus-uu-ignore-files-by-type): New vars.
(gnus-uu-interactive-execute): Change directory to work dir before executing.
(gnus-uu-view-directory, gnus-uu-check-for-generated-files):
Fixed bug deleting generated directories.
(gnus-uu-unpack-archives): Added error message for corrupted archives.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 20 Jun 1994 19:09:24 +0000 |
parents | 5d806a0a50bc |
children | cbab396695ab |
line wrap: on
line source
;;; paren.el --- highlight matching paren. ;; Copyright (C) 1993 Free Software Foundation, Inc. ;; Author: rms@gnu.ai.mit.edu ;; Maintainer: FSF ;; Keywords: languages, faces ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Commentary: ;; Load this and it will display highlighting on whatever ;; paren matches the one before or after point. ;;; Code: ;; This is the overlay used to highlight the matching paren. (defvar show-paren-overlay nil) ;; This is the overlay used to highlight the closeparen ;; right before point. (defvar show-paren-overlay-1 nil) (defvar show-paren-mismatch-face nil) (defvar show-paren-face 'region "*Name of face to use for showing the matching paren.") ;; Find the place to show, if there is one, ;; and show it until input arrives. (defun show-paren-command-hook () ;; Do nothing if no window system to display results with. ;; Do nothing if executing keyboard macro. ;; Do nothing if input is pending. (if (and window-system (not executing-kbd-macro) (sit-for 0)) (let (pos dir mismatch (oldpos (point)) (face show-paren-face)) (cond ((eq (char-syntax (following-char)) ?\() (setq dir 1)) ((eq (char-syntax (preceding-char)) ?\)) (setq dir -1))) (if dir (save-excursion (save-restriction ;; Determine the range within which to look for a match. (if blink-matching-paren-distance (narrow-to-region (max (point-min) (- (point) blink-matching-paren-distance)) (min (point-max) (+ (point) blink-matching-paren-distance)))) ;; Scan across one sexp within that range. (condition-case () (setq pos (scan-sexps (point) dir)) (error nil)) ;; See if the "matching" paren is the right kind of paren ;; to match the one we started at. (if pos (let ((beg (min pos oldpos)) (end (max pos oldpos))) (and (/= (char-syntax (char-after beg)) ?\$) (setq mismatch (/= (char-after (1- end)) (logand (lsh (aref (syntax-table) (char-after beg)) -8) 255)))))) ;; If they don't properly match, use a different face, ;; or print a message. (if mismatch (progn (and (null show-paren-mismatch-face) (x-display-color-p) (or (internal-find-face 'paren-mismatch) (progn (make-face 'paren-mismatch) (set-face-background 'paren-mismatch "purple"))) (setq show-paren-mismatch-face 'paren-mismatch)) (if show-paren-mismatch-face (setq face show-paren-mismatch-face) (message "Paren mismatch")))) ))) (cond (pos (if (= dir -1) ;; If matching backwards, highlight the closeparen ;; before point as well as its matching open. (progn (if show-paren-overlay-1 (move-overlay show-paren-overlay-1 (+ (point) dir) (point) (current-buffer)) (setq show-paren-overlay-1 (make-overlay (- pos dir) pos))) (overlay-put show-paren-overlay-1 'face face)) ;; Otherwise, turn off any such highlighting. (and show-paren-overlay-1 (overlay-buffer show-paren-overlay-1) (delete-overlay show-paren-overlay-1))) ;; Turn on highlighting for the matching paren. (if show-paren-overlay (move-overlay show-paren-overlay (- pos dir) pos (current-buffer)) (setq show-paren-overlay (make-overlay (- pos dir) pos))) (overlay-put show-paren-overlay 'face face)) (t ;; If not at a paren that has a match, ;; turn off any previous paren highlighting. (and show-paren-overlay (overlay-buffer show-paren-overlay) (delete-overlay show-paren-overlay)) (and show-paren-overlay-1 (overlay-buffer show-paren-overlay-1) (delete-overlay show-paren-overlay-1))))))) (if window-system (progn (setq blink-paren-function nil) (add-hook 'post-command-hook 'show-paren-command-hook))) ;;; This is in case paren.el is preloaded. (add-hook 'window-setup-hook (function (lambda () (if window-system (progn (setq blink-paren-function nil) (add-hook 'post-command-hook 'show-paren-command-hook)))))) (provide 'paren) ;;; paren.el ends here