[Emacs-diffs] Changes to emacs/lisp/thingatpt.el

[Dave Love]

Index: emacs/lisp/thingatpt.el
diff -c emacs/lisp/thingatpt.el:1.30 emacs/lisp/thingatpt.el:1.31
*** emacs/lisp/thingatpt.el:1.30        Sun Jan 26 09:51:32 2003
--- emacs/lisp/thingatpt.el     Mon Jan 27 06:38:18 2003
***************
*** 195,207 ****
  
  ;;  Filenames and URLs  www.com/foo%32bar
  
! (defvar thing-at-point-file-name-chars "~/A-Za-z0-9---_.${}#%,:"
    "Characters allowable in filenames.")
  
  (put 'filename 'end-op    
!      (lambda () (skip-chars-forward thing-at-point-file-name-chars)))
  (put 'filename 'beginning-op
!      (lambda () (skip-chars-backward thing-at-point-file-name-chars)))
  
  (defvar thing-at-point-url-path-regexp
    "[^]\t\n \"'()<>[^`{}]*[^]\t\n \"'()<>[^`{}.,;]+"
--- 195,213 ----
  
  ;;  Filenames and URLs  www.com/foo%32bar
  
! (defvar thing-at-point-file-name-chars "-~/[:alnum:]_.${}#%,:"
    "Characters allowable in filenames.")
  
  (put 'filename 'end-op    
!      (lambda ()
!        (re-search-forward (concat "\\=[" thing-at-point-file-name-chars "]*")
!                         nil t)))
  (put 'filename 'beginning-op
!      (lambda ()
!        (if (re-search-backward (concat "[^" thing-at-point-file-name-chars 
"]")
!                              nil t)
!          (forward-char)
!        (goto-char (point-min)))))
  
  (defvar thing-at-point-url-path-regexp
    "[^]\t\n \"'()<>[^`{}]*[^]\t\n \"'()<>[^`{}.,;]+"