<h2>Edit File - lisp</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/share/Modules/init/lisp">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">;;
;; emacs-lisp init code for Modules
;;

(setenv &quot;MODULESHOME&quot; &quot;/usr/share/Modules&quot;)

(defvar Modules-history &#039;() &quot;module cmd history list&quot;)

(defun Modules-module (command)
  &quot;Run the string COMMAND as a Modules cmd using the tcl version of modules.
Any resulting output is placed in buffer \&quot; *modules-cmd*\&quot;.
This should consist of a single line, a filename, which is
expected to contain Emacs lisp code to implement the indicated
module commands.  The lisp code in this file is eval&#039;d by Emacs
on successful completion of modulecmd.tcl.

Standard error output is placed in buffer \&quot; *module-log*\&quot; which will
be displayed if not empty.

Return value is t on success, nil otherwise.&quot;
  (interactive (list (read-string &quot;Module cmd: &quot; nil &#039;Modules-history)))
  (let
      ((cmd-buffer (get-buffer-create &quot; *modules-cmd*&quot;))
       (log-buffer (get-buffer-create &quot; *modules-log*&quot;))
       (log-scratch-file (make-temp-name 
                          (expand-file-name &quot;modules-log&quot;
                                            (if (fboundp &#039;temp-directory)
                                                (temp-directory)  ;; XEmacs
                                              temporary-file-directory))))
       (status nil))

    ;; clear cmd buffer, log buffer is replaced below 
    (set-buffer cmd-buffer)
    (delete-region (point-min) (point-max))

    (if (condition-case nil
            ;; call-process on Emacs cannot write stderr to a separate buffer
            ;; so it must go to a file and then get pulled into the log buffer
            ;; (XEmacs *can* direct stderr to buffer, but not worth special case)
            (progn
              (apply &#039;call-process &quot;/usr/bin/tclsh&quot; nil
                                   (list cmd-buffer log-scratch-file)
                                   nil          ;; don&#039;t display stdout
                                   &quot;/usr/share/Modules/libexec/modulecmd.tcl&quot;
                                   &quot;lisp&quot; (split-string command))
              t)
          (error nil))
        (progn
          ;; pull any log info from log-scratch-file into log-buffer
          (set-buffer log-buffer)
          (insert-file-contents log-scratch-file nil nil nil t)

          ;; display any output written to stderr ( eg: module help|list )
          (if (&gt; (buffer-size) 0)
              (switch-to-buffer-other-window log-buffer))

          ;; Run any setenv, etc commands produced by modulecmd.tcl
          ;; cmd-buffer should currently contain the pathname of file to run
          ;; Note: use eval-buffer instead of load-file to avoid stomping
          ;; any (message) output from the script itself.
          (set-buffer cmd-buffer)
          (if (&gt; (buffer-size) 0)
              (progn
                ;; run it carefully.  If an error is thrown, catch it and
                ;; propagate the fact upwards as a nil, but be sure to still
                ;; execute cleanup below
                (setq status
                      (condition-case nil
                          (progn
                            (eval-buffer)
                            t)
                        (error nil)))))))

    ;; all done, clean up
    (delete-file log-scratch-file)

    status))
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>