unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* url: url-basepath
@ 2008-10-30 13:25 T. V. Raman
  2008-11-03 22:31 ` Magnus Henoch
  2008-11-04 17:13 ` Chong Yidong
  0 siblings, 2 replies; 4+ messages in thread
From: T. V. Raman @ 2008-10-30 13:25 UTC (permalink / raw)
  To: emacs-devel

This function disappeared from the emacs 23 version of url at
some point.
It's used by W3, I'd like to see this function restored if
possible.

Here is the original code:
(defun url-basepath (file &optional x)
  "Return the base pathname of FILE, or the actual filename if X is true."
  (cond
   ((null file) "")
   ((string-match (eval-when-compile (regexp-quote "?")) file)
    (if x
	(file-name-nondirectory (substring file 0 (match-beginning 0)))
      (file-name-directory (substring file 0 (match-beginning 0)))))
   (x (file-name-nondirectory file))
   (t (file-name-directory file))))

-- 
Best Regards,
--raman

      
Email:  raman@users.sf.net
WWW:    http://emacspeak.sf.net/raman/
AIM:    emacspeak       GTalk: tv.raman.tv@gmail.com
PGP:    http://emacspeak.sf.net/raman/raman-almaden.asc
Google: tv+raman 
IRC:    irc://irc.freenode.net/#emacs




^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2008-11-05 12:31 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2008-10-30 13:25 url: url-basepath T. V. Raman
2008-11-03 22:31 ` Magnus Henoch
2008-11-04 17:13 ` Chong Yidong
2008-11-05 12:31   ` Richard M. Stallman

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).