# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1429042800 -10800
# Node ID c4bc43d160829105f9c7c89eaa57228dc1bf9f3d
# Parent  0e2a8e5f75b1bd074ab57580f27cd059d079eb9a
Disable byte-compilation warnings:
 * cl package required at runtime
 * `insert-string' is an obsolete function (as of 22.1); use `insert' instead
 * assignment to free variable `user-nick'

diff -r 0e2a8e5f75b1 -r c4bc43d16082 .emacs-my
--- a/.emacs-my	Tue Apr 07 22:10:10 2015 +0300
+++ b/.emacs-my	Tue Apr 14 23:20:00 2015 +0300
@@ -9,6 +9,8 @@
 ;;
 ;; For load order see README.
 
+(with-no-warnings (require 'cl))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "recentf")
 
@@ -87,8 +89,8 @@
 ;; (setq user-nick "gavenkoa")
 ;; (setq user-home-page "http://gavenkoa.users.sf.net")
 
-(unless (and (boundp 'user-nick) (stringp user-nick))
-  (setq user-nick (user-login-name)) )
+(defvar user-nick (user-login-name)
+  "My nick name.")
 ;; auto-insert and copyright package use this to insert copyright owner. Gnus
 ;; uses this for Organization header.
 (setenv "ORGANIZATION"
@@ -100,8 +102,6 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "my defun, defmacro, defvar")
 
-(require 'cl)
-
 (defmacro my-filter (pred list)
   "Construct list with elements from LIST which satisfy PRED."
   (let ( (r (make-symbol "r_")) )
@@ -176,7 +176,7 @@
     (while (search-forward-regexp "([[:alnum:]*]" nil t)
       (setq symb (thing-at-point 'symbol))
       (with-current-buffer new-buffer
-        (insert-string symb)
+        (insert symb)
         (insert-char ?\n 1)))
     (switch-to-buffer new-buffer)
     (shell-command-on-region (point-min) (point-max) "sort -u" nil t)