Mercurial > hg > xemacs-beta

comparison lisp/tl/tl-str.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 4b173ad71786
children 131b0175ea99
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
1 ;;; tl-str.el --- Emacs Lisp Library module about string 1 ;;; tl-str.el --- Emacs Lisp Library module about string
2 2
3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Version: 6 ;; Version: $Id: tl-str.el,v 1.3 1997/02/02 05:06:17 steve Exp $
7 ;; $Id: tl-str.el,v 1.2 1996/12/22 00:29:33 steve Exp $
8 ;; Keywords: string 7 ;; Keywords: string
9 8
10 ;; This file is part of tl (Tiny Library). 9 ;; This file is part of tl (Tiny Library).
11 10
12 ;; This program is free software; you can redistribute it and/or 11 ;; This program is free software; you can redistribute it and/or
204 (defun file-name-non-extension (filename) 203 (defun file-name-non-extension (filename)
205 (if (string-match "\\.[^.]+$" filename) 204 (if (string-match "\\.[^.]+$" filename)
206 (substring filename 0 (match-beginning 0)) 205 (substring filename 0 (match-beginning 0))
207 filename)) 206 filename))
208 207
209 (autoload 'replace-as-filename "filename") 208 (autoload 'replace-as-filename "filename"
209 "Return safety filename from STRING.")
210 210
211 211
212 ;;; @ symbol 212 ;;; @ symbol
213 ;;; 213 ;;;
214 214