Mercurial > hg > xemacs-beta

comparison lisp/tl/tl-str.el @ 86:364816949b59 r20-0b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b93
author cvs
date Mon, 13 Aug 2007 09:09:02 +0200
parents 6a378aca36af
children
comparison
equal deleted inserted replaced
85:c661705957e0 86:364816949b59
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/01/30 02:22:47 steve Exp $
7 ;; $Id: tl-str.el,v 1.2 1997/01/23 05:29:41 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
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"
210 "Return safety filename from STRING. [filename.el]") 209 "Return safety filename from STRING.")
210
211 211
212 ;;; @ symbol 212 ;;; @ symbol
213 ;;; 213 ;;;
214 214
215 (defun symbol-concat (&rest args) 215 (defun symbol-concat (&rest args)