Function: url-ns-prefs

url-ns-prefs is a byte-compiled function defined in url-ns.el.gz.

Signature

(url-ns-prefs &optional FILE)

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/url-ns.el.gz
;;;###autoload
(defun url-ns-prefs (&optional file)
  (if (not file)
      (setq file (expand-file-name "~/.netscape/preferences.js")))
  (if (not (and (file-exists-p file)
		(file-readable-p file)))
      (message "Could not open %s for reading" file)
    (setq url-ns-user-prefs (make-hash-table :size 13 :test 'equal))
    (with-current-buffer (get-buffer-create " *ns-parse*")
      (erase-buffer)
      (insert-file-contents file)
      (goto-char (point-min))
      (while (re-search-forward "^//" nil t)
	(replace-match ";;"))
      (goto-char (point-min))
      (while (re-search-forward "^user_pref(" nil t)
	(replace-match "(url-ns-set-user-pref "))
      (goto-char (point-min))
      (while (re-search-forward "\"," nil t)
	(replace-match "\""))
      (goto-char (point-min))
      (with-suppressed-warnings ((lexical true false))
	(dlet ((false nil) (true t))
	  (eval-buffer))))))