;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@188 The program to use to calculate MD5 sums of files. The first item should be the name of the program, and the remaing items the arguments. The file name is appended as the last argument. (custom-declare-variable 'jabber-ft-md5sum-program '(or (when (executable-find "md5") (list (executable-find "md5") "-n")) (when (executable-find "md5sum") (list (executable-find "md5sum")))) '(#$ . 88) :type '(repeat string) :group 'jabber) #@104 Get MD5 sum of FILE-NAME, and return as hex string. Return nil if no MD5 summing program is available. (defalias 'jabber-ft-get-md5 #[(file-name) "\205)\303\304\305\"r q\210\306\216\307\310@\311\305\311\312A\nC\"&\210eb\210\313v\210e`{+\207" [jabber-ft-md5sum-program #1=#:temp-buffer file-name generate-new-buffer " *temp*" t #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] apply call-process nil append 1] 9 (#$ . 524)]) (provide 'jabber-ft-common)