Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mnt.el @ 64751:5b1a238fcbb4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update years in copyright notice; nfc.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Sat, 06 Aug 2005 17:48:15 +0000
parents 18a818a2ee7c
children c45ae2a74f0f 2d92f5c9d6ae
comparison
equal deleted inserted replaced
64750:fbdb9482b6fc 64751:5b1a238fcbb4
1 ;;; lisp-mnt.el --- utility functions for Emacs Lisp maintainers 1 ;;; lisp-mnt.el --- utility functions for Emacs Lisp maintainers
2 2
3 ;; Copyright (C) 1992, 1994, 1997, 2000, 2001, 2003, 2004 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992, 1994, 1997, 2000, 2001, 2002, 2003, 2004,
4 ;; 2005 Free Software Foundation, Inc.
4 5
5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> 6 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
6 ;; Maintainer: FSF 7 ;; Maintainer: FSF
7 ;; Created: 14 Jul 1992 8 ;; Created: 14 Jul 1992
8 ;; Keywords: docs 9 ;; Keywords: docs
304 (if ,filesym 305 (if ,filesym
305 (with-temp-buffer 306 (with-temp-buffer
306 (insert-file-contents ,filesym) 307 (insert-file-contents ,filesym)
307 (lisp-mode) 308 (lisp-mode)
308 ,@body) 309 ,@body)
309 (save-excursion 310 (save-excursion
310 ;; Switching major modes is too drastic, so just switch 311 ;; Switching major modes is too drastic, so just switch
311 ;; temporarily to the Lisp mode syntax table. 312 ;; temporarily to the Lisp mode syntax table.
312 (with-syntax-table lisp-mode-syntax-table 313 (with-syntax-table lisp-mode-syntax-table
313 ,@body)))))) 314 ,@body))))))
314 315