Mercurial > emacs
view lisp/cedet/cedet-files.el @ 110763:0fe64d68a522
Merge changes made in Gnus trunk.
shr.el: Implement table rendering.
shr.el (shr-make-table): Tweak table generation.
shr.el (shr-make-table): Fix typo.
nnimap.el (nnimap-open-connection): Allow tls as a synonym for ssl.
gnus-util.el (gnus-emacs-completing-read): Mapcar collection to list, for XEmacs.
nnimap.el (nnimap-close-server): Implement.
gnus-salt.el: Remove all gnus-carpal stuff -- it's not useful.
nnir.el (nnir-run-imap): Remove spurious space in search string.
message.el (message-idna-to-ascii-rhs-1): Don't bug out on addresses without @ signs.
gnus-sum.el (gnus-widen-article-window): New variable.
shr.el (browse-url): Required.
shr.el (shr-ensure-paragraph): Don't insert a new newline after empty-ish lines.
shr.el (shr-show-alt-text, shr-browse-image): New commands.
gravatar.el (gravatar-retrieved): kill buffer when retrieved.
shr.el (shr-browse-url, shr-copy-url): New commands.
shr.el (shr-render-td): Protect against too-wide text.
spam-report.el (spam-report-url-ping-plain): Don't query about killing the process.
nnimap.el (nnimap-finish-retrieve-group-infos): Message while waiting for data.
shr.el (shr-tag-blockquote): Ensure paragraph after quote, too.
mml-smime.el: Fix gnus-completing-read usage.
shr.el (shr-get-image-data): Ensure against the cache file missing.
nnimap.el (nnimap-open-connection): Give an error if nnimap-stream is unknown.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Mon, 04 Oct 2010 22:26:51 +0000 |
parents | 280c8ae2476d |
children | 417b1e4d63cd |
line wrap: on
line source
;;; cedet-files.el --- Common routines dealing with file names. ;; Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc. ;; Author: Eric M. Ludlam <eric@siege-engine.com> ;; Package: cedet ;; 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 3 of the License, 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. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; ;; Various useful routines for dealing with file names in the tools ;; which are a part of CEDET. ;;; Code: (defun cedet-directory-name-to-file-name (referencedir &optional testmode) "Convert the REFERENCEDIR (a full path name) into a filename. Convert directory separation characters into ! characters. Optional argument TESTMODE is used by tests to avoid conversion to the file's truename, and dodging platform tricks." (let ((file referencedir)) ;; Expand to full file name (when (not testmode) (setq file (file-truename file))) ;; If FILE is a directory, then force it to end in /. (when (file-directory-p file) (setq file (file-name-as-directory file))) ;; Handle Windows Special cases (when (or (memq system-type '(windows-nt ms-dos)) testmode) ;; Replace any invalid file-name characters (for the ;; case of backing up remote files). (when (not testmode) (setq file (expand-file-name (convert-standard-filename file)))) ;; Normalize DOSish file names. (if (eq (aref file 1) ?:) (setq file (concat "/" "drive_" (char-to-string (downcase (aref file 0))) (if (eq (aref file 2) ?/) "" "/") (substring file 2))))) ;; Make the name unique by substituting directory ;; separators. It may not really be worth bothering about ;; doubling `!'s in the original name... (setq file (subst-char-in-string ?/ ?! (replace-regexp-in-string "!" "!!" file))) file)) (defun cedet-file-name-to-directory-name (referencefile &optional testmode) "Reverse the process of `cedet-directory-name-to-file-name'. Convert REFERENCEFILE to a directory name replacing ! with /. Optional TESTMODE is used in tests to avoid doing some platform specific conversions during tests." (let ((file referencefile)) ;; Replace the ! with / (setq file (subst-char-in-string ?! ?/ file)) ;; Occurrences of // meant there was once a single !. (setq file (replace-regexp-in-string "//" "!" file)) ;; Handle Windows special cases (when (or (memq system-type '(windows-nt ms-dos)) testmode) ;; Handle drive letters from DOSish file names. (when (string-match "^/drive_\\([a-z]\\)/" file) (let ((driveletter (match-string 1 file)) ) (setq file (concat driveletter ":" (substring file (match-end 1)))))) ;; Handle the \\file\name nomenclature on some windows boxes. (when (string-match "^!" file) (setq file (concat "//" (substring file 1))))) file)) (provide 'cedet-files) ;; arch-tag: 4884c616-82c3-475d-ac9f-039e3431a702 ;;; cedet-files.el ends here