July 2002 - XEmacs-Users-ru - XEmacs Mailing List Archives

Подчеркивания в cperl-mode 21 years, 4 months

Wartan Hachaturow

С некоторого момента (давнего :) в cperl-mode появилась "фича": каждый пробел после нажатия собственно кнопки "space" выделяется подчеркиванием. Господи, как она меня достала! Я в течение некоторого времени пытался найти, где это можно отключить, но так и не нашел.. Кто-нибудь успешно отключил? А то мне приходится в vim'е писать :( -- Regards, Wartan. echo "Your stdio isn't very std." -- Larry Wall in Configure from the perl distribution

6 participants
6 comments

Re: trim trailing whitespaces 22 years, 5 months

Ed Sinjiashvili

Vladimir Bormotov <bor(a)vb.dn.ua> writes: > Hi, Artur! > > >>>>> "AP" == Artur Penttinen <artur+xemacs.org(a)niif.spb.su> writes: > > >> >> VB> что-от пошуршал апропосом по функциям/переменынм не нашел как бы > >> >> VB> научить xemacs удалять хвостовые пробельные символы. > >> > >> AP> я просто, вручную задаю \C-x h \M-\A-% [ ^I]+$ > > >> попробую вот сию конструкцию в виде e-lisp'а повесить на save... ;-)) > > AP> навскидку: > > AP> (defun arto-delete-trailing-whitespaces (beg end) > AP> (interactive "r") (save-excursion > AP> (goto-char beg) (while (re-search-forward "\s-+$" end t nil) > AP> (replace-match "")))) > > вот это уже не навскидку, рабочий код ;-) > > ;; strip trailing spaces on write any file > (defun strip-trailing-whitespaces (beg end) > (interactive "r") > (save-excursion > (goto-char beg) > (while (re-search-forward "\\s-+$" end t nil) > (replace-match "") > ))) > > (defun strip-trailing-whitespaces-buffer () > (interactive) > (strip-trailing-whitespaces (point-min) (point-max)) > ) > > (add-hook 'write-file-hooks 'strip-trailing-whitespaces-buffer) Вот вариант с just-one-space, он также старается корректно обрабатывать конец региона. (defun strip-trailing-whitespace (&optional min max) (interactive (if (region-active-p) (list (region-beginning) (region-end)))) (let ((min (or min (point-min))) (max (or max (point-max))) bias) (save-excursion (goto-char min) (condition-case err (loop (end-of-line) (setq bias (point)) (just-one-space) (delete-char -1) (setq max (- max (- bias (point)))) (forward-char 1) (if (> (point) max) (signal-error 'end-of-buffer nil))) (end-of-buffer))))) -- Ed

3 participants
2 comments

Шрифты в XEmacs 22 years, 5 months

Oleg Sheremetinsky

Здравствуй, уважаемый All! Тут плучилось так, что перенес я свой .xemacs-custom на другую тачку, где стоит Gnus v5.8.8 on XEmacs/21.4.6. После этого шрифт в сообщениях стал каким-то очень маленьким и корявым. Что тут может быть? В конфиге я шрифты задавал вот таким образом: (setq default-frame-alist (append '((font . "-adobe-courier-medium-r-normal-*-*-120-*-*-m-*-koi8-r")) (add-spec-list-to-specifier (face-property 'default 'font) '((global (nil . "-adobe-courier-medium-r-normal-*-*-120-*-*-m-*-koi8-r")))) PS Sorry за чайницкий вопрос. -- С уважением, Шереметинский Олег Вск Июл 28 21:49:25 UTC 2002 E-mail: sheremetinsky(a)kaluga.ru (г. Калуга)

2 participants
1 comments

Re: trim trailing whitespaces 22 years, 5 months

Vladimir Bormotov

Hi, Artur! >>>>> "AP" == Artur Penttinen <artur+xemacs.org(a)niif.spb.su> writes: >> >> VB> что-от пошуршал апропосом по функциям/переменынм не нашел как бы >> >> VB> научить xemacs удалять хвостовые пробельные символы. >> >> AP> я просто, вручную задаю \C-x h \M-\A-% [ ^I]+$ >> попробую вот сию конструкцию в виде e-lisp'а повесить на save... ;-)) AP> навскидку: AP> (defun arto-delete-trailing-whitespaces (beg end) AP> (interactive "r") (save-excursion AP> (goto-char beg) (while (re-search-forward "\s-+$" end t nil) AP> (replace-match "")))) вот это уже не навскидку, рабочий код ;-) ;; strip trailing spaces on write any file (defun strip-trailing-whitespaces (beg end) (interactive "r") (save-excursion (goto-char beg) (while (re-search-forward "\\s-+$" end t nil) (replace-match "") ))) (defun strip-trailing-whitespaces-buffer () (interactive) (strip-trailing-whitespaces (point-min) (point-max)) ) (add-hook 'write-file-hooks 'strip-trailing-whitespaces-buffer) -- Bor.

1 participants
0 comments

Re: trim trailing whitespaces 22 years, 5 months

Vladimir Bormotov

Hi, Artur! >>>>> "AP" == Artur Penttinen <artur+xemacs.org(a)niif.spb.su> writes: >> VB> что-от пошуршал апропосом по функциям/переменынм не нашел как >> VB> бы научить xemacs удалять хвостовые пробельные символы. [skip] AP> мне кажется, что несколько не то... AP> я просто, вручную задаю \C-x h \M-\A-% [ ^I]+$ хмм, руками не дело. Для рук есть дела по-важнее. Если с колупанием ada-mode обломаюсь, то попробую вот сию конструкцию в виде e-lisp'а повесить на save... ;-)) Всем спасибо ;-) -- Bor.

2 participants
1 comments

Re: trim trailing whitespaces 22 years, 5 months

Vladimir Bormotov

Hi, Ed! >>>>> "ES" == Ed Sinjiashvili <edsin(a)swes.saren.ru> writes: >> VB> что-от пошуршал апропосом по функциям/переменынм не нашел как >> VB> бы научить xemacs удалять хвостовые пробельные символы. >> Почти то, как я понимаю: >> canonically-space-region ES> Можно еще попробовать just-one-space или fixup-whitespace. как-то это все немного нет. Видимо, есть смысл выбрать из ada-mode их функцию, и привесить куда-нибудь на save... -- Bor.

1 participants
0 comments

trim trailing whitespaces 22 years, 5 months

Vladimir Bormotov

Hi! что-от пошуршал апропосом по функциям/переменынм не нашел как бы научить xemacs удалять хвостовые пробельные символы. неужели нет ничего стандартного? вот некий ada-remove-trailing-spaces есть, идля vhdl- есть. а мне-бы вообще, глобально. Есть такое? или самому писать? -- Bor.

4 participants
3 comments

Re: trim trailing whitespaces 22 years, 5 months

Ed Sinjiashvili

Dmitry Astapov <adept(a)umc.com.ua> writes: > VB> Hi! что-от пошуршал апропосом по функциям/переменынм не нашел как бы > VB> научить xemacs удалять хвостовые пробельные символы. > > Почти то, как я понимаю: > > canonically-space-region Можно еще попробовать just-one-space или fixup-whitespace. -- Ed

1 participants
0 comments

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

XEmacs-Users-ru July 2002