0 Members and 1 Guest are viewing this topic.
(defun *error* (msg) (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,"))) (progn (vl-bt) (command-s "_.browser" (strcat "https://www.google.com/search?q=\"" msg "\"")) (princ (strcat "\nError: " msg)) ) ))
(command-s "_.browser" (strcat "https://www.google.com/search?q=\"" msg "\""))
(defun *error* ( msg ) (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,"))) (progn (vl-bt) (command-s "_.browser" (strcat "https://www.google.com/search?q=site:theswamp.org \"" msg "\"" ) ) (princ (strcat "\nError: " msg)) ) ) (princ) )
Fixed.Code: [Select](defun *error* ( msg ) (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,"))) (progn (vl-bt) (command-s "_.browser" (strcat "https://www.google.com/search?q=site:theswamp.org \"" msg "\"" ) ) (princ (strcat "\nError: " msg)) ) ) (princ) )