;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Code:
inc-i '(1+ i))
(setq sref 'aref
inc-i '(+ i (char-length chr))))
- (` (let* ((string (, string))
- (len (length string))
- (b 0)(i 0)
- (dest ""))
+ (` (let ((len (length (, string)))
+ (b 0)(i 0)
+ (dest ""))
(while (< i len)
- (let ((chr ((, sref) string i))
+ (let ((chr ((, sref) (, string) i))
(lst filename-replacement-alist)
ret)
(while (and lst (not ret))
t ; quit this loop.
(setq lst (cdr lst))))
(if ret
- (setq dest (concat dest (substring string b i)
+ (setq dest (concat dest (substring (, string) b i)
(cdr (car lst)))
i (, inc-i)
b i)
(setq i (, inc-i)))))
- (concat dest (substring string b)))))))
+ (concat dest (substring (, string) b)))))))
(defun filename-special-filter (string)
(filename-special-filter-1 string))