all messages for Emacs-related lists mirrored at yhetil.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 external index

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

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.