vous pouvez m'aidez?
Si j'ai bien compris ce que tu veux ...
;; Entête C (defun my-insert-c-header() (interactive "*" ) (beginning-of-buffer) (let ( (motif (concat "BDEJEAN_" (replace-string (file-name-nondirectory(buffer-file-name)) "." "_" ) "\n" )) ) (insert "#ifndef " ) (insert motif) (insert "#define " ) (insert motif) (insert "\n" ) (insert "#endif\n" ) ) )
si je ne m'abuse, la seule modif, c'est replace_string mais ça ne marche pas. ça tourne, mais ça me renvoie une chaine vide
UP ou alros filez moi un tutorial de lisp par ce que j'arrive pas à manipuler les string